Re: Problem changing only first occurence of pattern in file

in reply to Problem changing only first occurence of pattern in file

You're looping more than you mean to. I think you want to pare your code down to just:

my $flag = 0;
local ($^I, @ARGV) = (".bak", "/var/ww/htdocs/cgi-bin/user.txt");
while (<>) {
  $flag = 1 if !$flag and s/\|No$/|Yes/;
  print;
}
[download]

Jeff japhy Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and perl hacker
How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart

Comment on Re: Problem changing only first occurence of pattern in file Download Code

In Section Seekers of Perl Wisdom