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

[Anonymous Monk]

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

FWIW, you probably want

local @ARGV = @_; use ARGV::readonly;

see ARGV::readonly, magic-diamond <> behavior -- WHAT?!

[Anonymous Monk]

Actually you'd need

local @ARGV = @_;
require ARGV::readonly;
ARGV::readonly->import; ## THIS!!!

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
};

[Anonymous Monk]

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.

Happens around http://perl5.git.perl.org/perl.git/blob?f=doio.c#l897