Shell Programming and Scripting

head -`grep -nv '^[[:space:]]*$' /your/file | cut -d ':' -f 1` /your/file

#!/usr/bin/perl
my $file = 'mytestfile';
my @tmparray;
open MYFILE, "$file";
foreach (<MYFILE>) {
  chomp;
  push @tmparray, $_;
}
close MYFILE;
my $last_row = pop @tmparray;
while ($last_row eq '') {
  $last_row = pop @tmparray;
}
push @tmparray, $last_row;
foreach (@tmparray) {
  print "$_\n";
}

 
# cat mytestfile
hello
this
is
a
test
 
# ./remove_last_blanks.pl
hello
this
is
a
test

perl -ne '$s.=$_; if (/./) {print $s; $=""}' file

perl -ne '$s.=$_; if (/[^[:space:]]/) {print $s; $=""}' file