Re: Perl Regex

How about:

  my @matches = $string =~
    /
     ^                          # beginning of line
     (\d{1,5})                  # 1-5 digit number
     \s+                        # gap
     (?:                        # group
        ([A-Z0-9()-]{7})        # 7-char thing
         \s+                    # gap
        ([A-Z0-9()-]{7})        # another 7-char thing
     ){1,45} # 7-char thing     # up to 45 groups
     $                          # end of line
    /gx;
[download]

Update: Added /g to regex. Oops.

Comment on Re: Perl Regex Select or Download Code

Replies are listed 'Best First'.
Re^2: Perl Regex by Anonymous Monk on Jul 08, 2004 at 13:41 UTC
This looks good, except that I want to be able to do the following: Convert: 14 ASN1 YGR124W ASN1 YPR145W to : 14 1 ASN1 YGR124W 14 2 ASN1 YPR145W or whatever variation is possible given the previously stated row possibilities.	[reply]
Re^3: Perl Regex by pbeckingham (Parson) on Jul 08, 2004 at 13:52 UTC
Okay, then perhaps this: `my @matches = $string =~ / ^ # beginning of line (\d{1,5}) # 1-5 digit number \s+ # gap (?: # group ([A-Z0-9()-]{7}) # 7-char thing \s+ # gap ([A-Z0-9()-]{7}) # another 7-char thing ){1,45} # 7-char thing # up to 45 groups $ # end of line /gx; my $first = shift @matches; my $count = 1; while (@matches) { print $first, ' ', $count, ' ', shift @matches, ' ', shift @matches, "\n"; $count++; }` [download]	[reply] [d/l]
Re^4: Perl Regex by Anonymous Monk on Jul 08, 2004 at 14:00 UTC
But the first and second rows of the product were originally on the same row.	[reply]
Re^5: Perl Regex by pbeckingham (Parson) on Jul 08, 2004 at 14:21 UTC
Re^3: Perl Regex by Roy Johnson (Monsignor) on Jul 08, 2004 at 13:52 UTC
`my ($marker, @pairs) = split; my $c = 0; while (@pairs) { ++$c; my ($thing1, $thing2) = splice(@pairs, 0, 2); print "$marker $c $thing1 $thing2\n"; }` [download] We're not really tightening our belts, it just feels that way because we're getting fatter.	[reply] [d/l]