Help for this page

Select Code to Download


  1. or download this
      use File::Basename qw(fileparse);
  my ($path,$file,$suffix) = fileparse ("filename", "\.[^\.]+$");
  2. or download this
    @lines = grep { /\.tif$/i } readdir (DIR);