Changeset 21213 for misc/pixie/extract_actions
- Timestamp:
- 07/04/08 13:39:38 (5 months ago)
- Files:
-
- 1 modified
-
misc/pixie/extract_actions (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
misc/pixie/extract_actions
r21084 r21213 11 11 my @last_token; 12 12 for (@chunks) { 13 /^.* (?:regex|rule|token) \s+ ([:\w]+)/sx; 14 push (@last_token,$1); 13 /^.* (?:regex|rule|token) \s+ ([:\w]+?(?:sym<.*?>)?)\s/sx; 14 my $name = $1; 15 $name =~ s/sym:<(.*)>/$1/g; 16 push (@last_token,$name); 15 17 } 16 18
