Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
            print F $file;
            close F;
    }
    
  2. or download this
    -- 
    #!/usr/bin/perl -np
    BEGIN{@ARGV=$0}s(^([^=].*)|=)()s;
    =Just another perl hacker