Using substitutions to clean up input data. : substitution « Regular Expression « Perl

1. Perl
2. Regular Expression
3. substitution

Using substitutions to clean up input data.

    

#!/usr/bin/perl -w 
foreach $i (0 .. $#ARGV) {
     open(INPUT, $ARGV[$i]) or die "Can't open $ARGV[$i].";
     while (<INPUT>) {
          $string = $_;
          remove_trailing($string);
          remove_leading($string);
          print "$string\n";
     }
     
     close(INPUT);
}

sub remove_leading {
     my($string) = $_[0];
     
     $string =~ s/^\s+//;
     $_[0] = $string;
}
sub remove_trailing {
     my($string) = $_[0];
     
     $string =~ s/\s+$//;
     $_[0] = $string;
}

   
    
    
    
  

Related examples in the same category