Help for this page

Select Code to Download


  1. or download this
    my @ll = map {
    (glob "$path/$_")[0]
} qw/*B1006* *B1106-* *B11062*/;
  2. or download this
    my (@stamp, @name);

...
        push @name,  $2;
    }
}
  3. or download this
    for (0..#$stamp) {
    printf "\$name[$_]:\t%s\n\$stamp[$_]:\t%s\n\n",
        $name[$_], $stamp[$_];
}
  4. or download this
    my @name = map {
    (glob "$path/$_")[0]
} qw/*B1006*.Z *B1106-*.Z *B11062*.Z/;

my @stamp = map { scalar localtime( (stat)[9]) } @name;