Penguin

Differences between current version and previous revision of perltie(1).

Other diffs: Previous Major Revision, Previous Author, or view the Annotated Edit History

Newer page: version 2 Last edited on Tuesday, June 4, 2002 12:22:39 am by perry
Older page: version 1 Last edited on Tuesday, June 4, 2002 12:22:39 am by perry Revert
@@ -233,16 +233,16 @@
 element larger than the fixed size, you'll take an 
 exception. For example: 
  
  
- use FixedElem_Array;  
-tie @array, 'FixedElem_Array', 3; 
+ use ! FixedElem_Array;  
+tie @array, '! FixedElem_Array', 3; 
 $array[[0] = 'cat'; # ok. 
 $array[[1] = 'dogs'; # exception, length('dogs') 
 The preamble code for the class is as follows: 
  
  
- package FixedElem_Array; 
+ package ! FixedElem_Array; 
 use Carp; 
 use strict; 
 TIEARRAY classname, LIST 
  
@@ -566,22 +566,22 @@
 (minus the dot) and you get back that dot file's contents. 
 For example: 
  
  
- use DotFiles;  
-tie %dot, 'DotFiles'; 
+ use ! DotFiles;  
+tie %dot, '! DotFiles'; 
 if ( $dot{profile} =~ /MANPATH/ 
 $dot{login} =~ /MANPATH/ 
 $dot{cshrc} =~ /MANPATH/ ) 
 
 print 
 Or here's another sample of using our tied class: 
  
  
- tie %him, 'DotFiles', 'daemon'; 
+ tie %him, '! DotFiles', 'daemon'; 
 foreach $f ( keys %him ) { 
 printf 
-In our tied hash DotFiles example, we use a regular hash for the object containing several important fields, of which only the {LIST} field will be what the user thinks of as the real hash. 
+In our tied hash ! DotFiles example, we use a regular hash for the object containing several important fields, of which only the {LIST} field will be what the user thinks of as the real hash. 
  
  
 USER 
  
@@ -610,17 +610,17 @@
  
 Here's the start of ''Dotfiles.pm'': 
  
  
- package DotFiles; 
+ package ! DotFiles; 
 use Carp; 
 sub whowasi { (caller(1))[[3] . '()' } 
 my $DEBUG = 0; 
 sub debug { $DEBUG = @_ ? shift : 1 } 
 For our example, we want to be able to emit debugging info to help in tracing during development. We keep also one convenience function around internally to help print out warnings; ''whowasi()'' returns the function name that calls it. 
  
  
-Here are the methods for the DotFiles tied 
+Here are the methods for the ! DotFiles tied 
 hash. 
  
  
 TIEHASH classname, 
@@ -654,9 +654,9 @@
 its self reference: the key whose value we're trying to 
 fetch. 
  
  
-Here's the fetch for our DotFiles example. 
+Here's the fetch for our ! DotFiles example. 
  
  
  sub FETCH { 
 carp 
@@ -674,9 +674,9 @@
 something, and the value we're trying to put 
 there. 
  
  
-Here in our DotFiles example, we'll be careful not to let 
+Here in our ! DotFiles example, we'll be careful not to let 
 them try to overwrite the file unless they've called the 
 ''clobber()'' method on the original object reference 
 returned by ''tie()''. 
  
@@ -815,9 +815,9 @@
 while (($key,$val) = each %HIST) { 
 print $key, ' = ', unpack('L',$val), 
  
  
-__Tying FileHandles__ 
+__Tying ! FileHandles__ 
  
  
 This is partially implemented now. 
  
This page is a man page (or other imported legacy content). We are unable to automatically determine the license status of this page.