Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
#print "$_" for @LINES;
chomp ($LINES[$#LINES-1]) if ( $LINES[$#LINES] =~ m/\s+/ );
#print "$_" for @LINES;
  2. or download this
    #!/usr/bin/perl

my @file = qx/cat file/;
chomp ($file[$#file]) if $file[$#file] =~ m/\s+/;