Help for this page

Select Code to Download


  1. or download this
    my $file = $0;
{
...
  do { $file = glob "$dir/*" } until -f $file;
  redo if defined $file;
}
  2. or download this
    for (my $file = $0; defined $file; $file = glob "$dir/*") {
  next unless -f $file;
  return if (stat $_)[9] > $ft;
}
  3. or download this
    for (my $file = $0; ; $file = glob "$dir/*") {
  last unless defined $file;
  next unless -f $file;
  return if (stat $_)[9] > $ft;
}