Wagner, David --- Senior Programmer Analyst --- WGO wrote:
-----Original Message-----
From: Noah [mailto:[EMAIL PROTECTED]
Sent: Wednesday, September 10, 2008 16:28
To: Perl Beginners
Subject: matching lines in array - other ways to code
Hi there,
could somebody please suggest some other ways to simplify the reading
and perhaps make the following process quicker?
print CHANGE "what 1\n" unless ( grep (/what\s1/, @lines ) );
print CHANGE "what 2\n" unless ( grep (/what\s2/, @lines ) );
print CHANGE "what 3\n" unless ( grep (/what\s3/, @lines ) );
print CHANGE "what 4\n" unless ( grep (/what\s4/, @lines ) );
print CHANGE "what 5\n" unless ( grep (/what\s5/, @lines ) );
print CHANGE "what 6\n" unless ( grep (/what\s6/, @lines ) );
print CHANGE "what 7\n" unless ( grep (/what\s7/, @lines ) );
print CHANGE "what $1\n" unless ( grep (/what\s([1-7])/, @lines
) );
okay poor example. what about this?
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 ) );
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
