On Thu, 28 Jun 2001, Frank Newland wrote:
> #!/usr/bin/perl -w
> use strict ;
> my $line ;
> while (<>) {
> chomp $_ ;
> $line =~ s/\s+$//; # remove trailing spaces
> print " $line \n";
> }
No where in your script do you assign a value to line. What you want is
something like:
#!/usr/bin/perl -w
use strict ;
while (chomp(my $line = <>)) {
$line =~ s/\s+$//; # remove trailing spaces
print "$line \n";
}
http://www.chapelperilous.net/btfwk/
------------------------------------------------------------------------
I guess it was all a DREAM ... or an episode of HAWAII FIVE-O ...