Re^3: Inline change to the file passed by Glob

[poj]

#!/usr/bin/perl
use strict;
my $csv_add  = 'add.csv';
my $csv_flex = 'flex.csv';

print "
csv_add  : $csv_add
csv_flex : $csv_flex\n";

for my $filename ($csv_add,$csv_flex){
  if (-e $filename){
    rm_spaces($filename);
  } else {
    warn "$filename not found";
  }
}

# remove spaces,tabs,newlines,formfeeds,cr
# and /I/0 and /T/0 
sub rm_spaces {
  my $filename = shift;
  my $bakfile = $filename.'.bak';
  rename ($filename,$bakfile) 
      or die "Could not rename $filename to $bakfile";
  open my $fh_in, '<',$bakfile  or die "Could not open $bakfile";
  open my $fh_out,'>',$filename or die "Could not open $filename";
  while (<$fh_in>) {
    s/\s+|\/[IT]\/0//g;
    print $fh_out "$_\n";
  }
  close $fh_in;
  close $fh_out;
  unlink $bakfile;
}

poj