Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Re^2: Not able Create Backup file when using INPLACE_EDIT ( $^I )

by merlyn (Sage)
on May 02, 2006 at 05:07 UTC ( #546820=note: print w/replies, xml ) Need Help??

in reply to Re: Not able Create Backup file when using INPLACE_EDIT ( $^I )
in thread Not able Create Backup file when using INPLACE_EDIT ( $^I )

Keep in mind that modern versions of Perl added some extra goodies to the -i value (from perlrun):
If the extension doesn't contain a "*", then it is appende +d to the end of the current filename as a suffix. If the extension + does contain one or more "*" characters, then each "*" is repla +ced with the current filename. In Perl terms, you could think of t +his as: ($backup = $extension) =~ s/\*/$file_name/g; This allows you to add a prefix to the backup file, instea +d of (or in addition to) a suffix: $ perl -pi'orig_*' -e 's/bar/baz/' fileA # backup t +o 'orig_fileA' Or even to place backup copies of the original files into +another directory (provided the directory already exists): $ perl -pi'old/*.orig' -e 's/bar/baz/' fileA # backup +to 'old/fileA.orig'

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

Log In?

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

How do I use this?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (7)
As of 2023-12-08 18:58 GMT
Find Nodes?
    Voting Booth?
    What's your preferred 'use VERSION' for new CPAN modules in 2023?

    Results (37 votes). Check out past polls.