-pi -e argv repeater

jettero has asked for the wisdom of the Perl Monks concerning the following question:

I'm rather fond of the perl -pi -e 's///' type "programs." I began to wonder about techniques that might make it possible to use -pi from the middle of a bigger program, similar to the following, but without forking with system.

Is it possible to somehow repopulate @ARGV and re-invoke the command line switches? or something?

use warnings;
use strict;

# do many boring things

while(<*something*>) {
    system(qw(perl -pi -e), $program) == 0 or die;
}

# do many more boring things
[download]

Obviously, it'd probably be more appropriate to just write the proper while loop and file copy/renaming code. But changing the file perms and ownerships is cumbersome and I want something slick and easy.

Also, the more I think about it, repopulating @ARGV is pretty simple... duh.

-Paul

Comment on -pi -e argv repeater Select or Download Code

Replies are listed 'Best First'.
Re: -pi -e argv repeater by ikegami (Patriarch) on Feb 02, 2007 at 15:45 UTC
Perhaps you'd like `use constant PIE_NO_BACKUP => ''; sub pie(&$@) { ( my $code, # Code ref local $^I, # PIE_NO_BACKUP, '~', '.bak', etc local @ARGV, ) = @_; local _; # Protect caller's $_. while (<>) { chomp; $code->(); print($_, "\n"); } } # perl -i -pe 's///' file1 file2 pie { s/// } PIE_NO_BACKUP, 'file1', 'file2'; # perl -i.bak -pe 's///' file? data.txt pie { s/// } '.bak', map { bsd_glob($_) } 'file?', 'data.txt';` [download] Untested. Update: Added missing `"\n"`. Created constant for no backup. Added `local _;`.	[reply] [d/l] [select]
Re^2: -pi -e argv repeater by jettero (Monsignor) on Feb 02, 2007 at 15:57 UTC
$^I is apparently all I needed. I had no idea it would be so simple, thanks. I obviously should have just asked on the chatterbox... how embarassing. -Paul	[reply]
Re^2: -pi -e argv repeater by OfficeLinebacker (Chaplain) on Feb 03, 2007 at 19:08 UTC
May I ask what the (&$@) in the sub declaration is for? I like computer programming because it's like Legos for the mind.	[reply]
Re^3: -pi -e argv repeater by ikegami (Patriarch) on Feb 03, 2007 at 19:14 UTC
It's a prototype. Without the prototype, you'd have to do `pie sub { CODE }, SCALAR, LIST` or `pie &func, SCALAR, LIST` With the prototype, you can also do `pie { CODE } SCALAR, LIST`	[reply] [d/l] [select]
Re^4: -pi -e argv repeater by OfficeLinebacker (Chaplain) on Feb 04, 2007 at 17:13 UTC
Re^5: -pi -e argv repeater by BrowserUk (Patriarch) on Feb 04, 2007 at 19:13 UTC
Re^5: -pi -e argv repeater by ikegami (Patriarch) on Feb 04, 2007 at 20:09 UTC
Re^5: -pi -e argv repeater by OfficeLinebacker (Chaplain) on Feb 04, 2007 at 23:20 UTC
Some notes below your chosen depth have not been shown here


No such thing as a small change
	PerlMonks