Help for this page

Select Code to Download


  1. or download this
    sub files_in_dir {
    my ($dir) = (@_);
    ( -d $dir ) or die "No such directory $d";
...
    closedir DIR;
    return @files;
}
  2. or download this
    my @files = files_in_dir "/my/dir";
  3. or download this
    srand 3.14159; print join("",
sort{rand 1<0.5}map{$_^"\037"}split m{
}x,"qmptk|z~wOzm??l]pUqx^k?j"),",\n";