Help for this page

Select Code to Download


  1. or download this
    use File::Basename;

...
/path/to/another/03
/path/to/another/1e
/path/to/another/2014
  2. or download this
    # Untested...
use File::Basename;
...

die "No matches found.\n" unless defined $found;
print $found;
  3. or download this
    use File::Basename;

...
/path/to/another/03
/path/to/another/1e
/path/to/another/2014
  4. or download this
    foreach ( reverse <DATA> ) {
  ...