Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

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

by Anonymous Monk
on Apr 26, 2011 at 11:57 UTC ( #901327=note: print w/ replies, xml ) Need Help??


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?!


Comment on Re^3: perl -pi -e s'/^\s+//'g $file
Download Code
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!!!

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

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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://901327]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (9)
As of 2015-07-04 14:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls