Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^2: search and replace with a temp file at a certain substr position

by drock (Beadle)
on Jul 20, 2005 at 21:11 UTC ( #476616=note: print w/replies, xml ) Need Help??


in reply to Re: search and replace with a temp file at a certain substr position
in thread search and replace with a temp file at a certain substr position

the string I am searching on is like readonly strlinehlth=343434 readonly anthem=454545 readonly tlx=34435432 I used the substr thanks it worked! But now I am trying to improve my code b/c I realized I am making 3 identical system calls. My thought is create a routine with LABLES for each condition like so. Is there a better way or why isn't this working?
sub finger { open (GPG, "gpg --fingerprint |") or die "unable to open pipe sys call + (1)... Broken? $!"; for (;<GPG>;) { { EXP: if ( /(?i)expires/ ) { y<-]>//d; $expdate = +(split)[4]; print $expdate,"\n"; } FPR: if (/talx/ig .. /expire/ig) { if (/key/i) { y<[Key,fingerprint,=]>//d; y{ }//d; print FPR $_; print "Now deleting key\n"; # call; last; } } KEY: if ( /(?i)pub/ and /(?i)talx/) { $keyid = (substr ($_,11,9)); } } # END FOR LOOP close (GPG) or die "unable to close pipe sys call (0)... Broken? $!"; } # END ROUTINE &finger(goto EXP);
  • Comment on Re^2: search and replace with a temp file at a certain substr position
  • Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (7)
As of 2023-02-04 22:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (31 votes). Check out past polls.

    Notices?