Re: backreferences

[James Edward Gray II]

Stuart, please start new messages for new topics, instead of replying 
to existing threads.

On Mar 8, 2004, at 8:17 PM, Stuart White wrote:

Here's a line:

(10:18) [PHX] Stoudemire Turnover: Lost Ball (1 TO)
Steal: Jackson (1 ST)
I want to match PHX Stoudemire Steal: Jackson
See if this example gets you going.

James

#!/usr/bin/perl

use strict;
use warnings;
while (<DATA>) {
	if (m/\[([A-Z0-9 -]+)\] (\w+).+(?:Steal|Assist|Block|replaced by): 
(\w+)/) {
		print "$1 $2 $3\n";
	}
}

__DATA__
(10:18) [PHX] Stoudemire Turnover: Lost Ball (1 TO) Steal: Jackson (1 
ST)
(10:51) [SAN 4-0] Jackson Jump Shot: Made (2 PTS) Assist: Duncan (1 AST)
(9:33) [SAN] Duncan Layup Shot: Missed Block: Stoudemire (2 BLK)
(5:35) [SAN] Bowen Substitution replaced by Ginobili

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>