Thanks Jeff However @first25 = grep{$_->[1] =~ /^MA\d/} @all; results in "Modification of a read only value attempted"
----- Original Message ----- From: "Jeff 'japhy' Pinyan" <[EMAIL PROTECTED]> To: "Clinton" <[EMAIL PROTECTED]> Cc: <[EMAIL PROTECTED]> Sent: Tuesday, October 23, 2001 11:40 AM Subject: Re: Syntax for grep using regex > On Oct 23, Clinton said: > > >@first25 = grep{$_->[1] eq (/^MA\d+/)} @all; > > You're asking about how to bind a pattern to a variable: > > $_->[1] =~ /^MA\d/ > > -- > Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/ > RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/ > ** Look for "Regular Expressions in Perl" published by Manning, in 2002 ** > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]