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;

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

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]

In Section Seekers of Perl Wisdom