http://qs1969.pair.com?node_id=476616


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);