Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl

use strict;
...
        unlink $file;
    }
}
  2. or download this
    #!/usr/bin/env perl

use strict;
...
    # Rename/move file
    move($file, $file . '.done');
}
  3. or download this
    ...
# Do some work
my @files = glob('/root/fd/fg/*.txt');
sleep(4);
foreach my $file(@files) {
...