Hi there,
could somebody please suggest some other ways to simplify the reading
and perhaps make the following process quicker? I have a better example
now.
print CHANGE "not sure\n" unless ( grep (/not\ssure/, @lines ) );
print CHANGE "could be\n" unless ( grep (/could\sbe/, @lines ) );
print CHANGE "this line\n" unless ( grep (/this\sline/, @lines ) );
print CHANGE "okay what\n" unless ( grep (/okay\swhat/, @lines ) );
print CHANGE "daft punk\n" unless ( grep (/daft\spunk/, @lines ) );
print CHANGE "no way\n" unless ( grep (/no\sway/, @lines ) );
print CHANGE "wish there\n" unless ( grep (/wish\sthere/, @lines ) );
Cheers,
Noah
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
