(Please, be patient with my ignorance.)
I for one am, don't worry. But I'm *not* patient with suspected laziness. ;-)
I'd like to see you post some code, where you show us that you are seriously trying to learn, and where you have at least tried to solve this new problem.
Thanks, Gunnar. I understand your point of view. Meanwhile, John Krahn has kindly provided a solution for my problem, which I very much thank. However, to convince you that I was trying to solve the problem by myself, I quote below the script that I have written and that also solves the problem:
Paul ------------------------------- #!/usr/bin/perl use warnings; use strict;
$a = 0;
( $^I, @ARGV ) = ( '.bak', '/home/paul/.reminders' );
while ( <> ) {
if ($a == 1) {
s/^#//;
print;
$a = 0;
}
elsif (/Zyloric/) {
s/^#//;
print;
$a = 1;
}
else {
print;
}
}
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
