Re: perl -pi -e s'/^\s+//'g $file


XP is just a number
	PerlMonks

Re: perl -pi -e s'/^\s+//'g $file

by duelafn (Parson)

on Apr 08, 2011 at 02:57 UTC ( [id://898244]=note: print w/replies, xml )

Need Help??

in reply to perl -pi -e s'/^\s+//'g $file

That is why we have subroutines:

sub pie(&@) {
  my ($cb, $file) = @_;
  rename $file, "$file~"      or die "Error backing up $file: $!";
  open my $IN,  "<", "$file~" or die "Error reading $file~: $!";
  open my $OUT, ">", $file    or die "Error writing $file: $!";

  local $_;
  while (defined( $_ = <$IN> )) {
    $cb->();
    print $OUT $_;
  }
}

pie { s/^\s+// } "myfile.txt";
[download]

Good Day,
Dean