Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    system("ls -1 10.* > hostfilelist");
    ...
    unlink ("hostfilelist");
    }
    
  2. or download this
    #!/usr/bin/perl -w
    
    ...
      close CURRENT;
    }