Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
} else {
    print "File remains the same\n";
}
  2. or download this
    #!/usr/bin/perl
use strict;
...
    # DESTROY this
};
1;
  3. or download this
    C:\PERL\bin>perl tie_test
 Fetchsize array of length 47 is now watched
...
would you like to alter the file (y/n)
n
File remains the same