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

Replies are listed 'Best First'.
Re^4: perl -pi -e s'/^\s+//'g $file by Anonymous Monk on Mar 22, 2012 at 10:55 UTC
Actually you'd need `local @ARGV = @_; require ARGV::readonly; ARGV::readonly->import; ## THIS!!!` [download] But if you're going to write all that, which might confuse some, you might as well just steal ARGV::readonly verbatim `local @ARGV = @_; # Tom Christiansen in Message-ID: <24692.1217339882@chthon> # reccomends essentially the following: for (@ARGV){ s/^(\s+)/.\/$1/; # leading whitespace preserved s/^/< /; # force open for input $_.=qq/\0/; # trailing whitespace preserved & pipes forbidden };` [download]	[reply] [d/l] [select]
Re^4: perl -pi -e s'/^\s+//'g $file by Anonymous Monk on Nov 23, 2012 at 07:34 UTC
Actually ARGV::readonly isn't needed with -i.orig (or -pi.orig) because perl does a stat first `$ perl -pe 1 "echo shabba\|" shabba $ perl -Tpe 1 "echo shabba\|" Insecure $ENV{PATH} while running with -T switch. $ perl -Tpi.orig -e 1 "echo shabba\|" Can't open echo shabba\|: Invalid argument.` [download] Happens around http://perl5.git.perl.org/perl.git/blob?f=doio.c#l897	[reply] [d/l]