On Thursday, April 11, 2002, at 11:46 AM, Amerson, Kevin wrote:
> Hello, > > How would you put the matches into a comma separated list? > if you want to print it out: print "@data"; if you want to create a single string: $data = join ',',@data; or did you have something else in mind? > > -----Original Message----- > From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]] > Sent: Thursday, April 11, 2002 12:48 PM > To: Kingsbury, Michael > Cc: '[EMAIL PROTECTED]' > Subject: Re: RegEx matching multiple items. > > > On Apr 11, Kingsbury, Michael said: > >> <unwanted text> >> <more unwanted text> >> -> "SPRID12345678" >> "SPRID23456789" >> <more unwanted text> >> >> I want to match the SPRID######## strings. > > @data = $string =~ /SPRID\d+/g; > > Or, if you only want the numbers: > > @data = $string =~ /SPRID(\d+)/g; > > This is assume $string is the ENTIRE data. Otherwise: > > while (<FILE>) { > push @data, /SPRID\d+/g; # or /SPRID(\d+)/g; > } > > -- > 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 * > * > <stu> what does y/// stand for? <tenderpuss> why, yansliterate of course. > [ I'm looking for programming work. If you like my work, let me know. > ] > > > -- > 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] > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
