extract and assign matched regex pattern from string in Perl to a variable

Question

Okay, I tried some options but I am not getting it right - looks like its a problem with my regex specification but it might be other syntaxes as well. Any help / direction is very much appreciated.

I am trying to read a CSV file and processing one line at a time - discarding the Header line. I will focus on particularly two fields in that file.

Now after I read the file one line at a time, I am trying to process the two fields as such:

while ( my $line = <$data> ) {
    chomp $line;
    if ( $line !~ /^Date/ ) {
        if ( $line =~ /"/ ) { $line =~ s|"||g }

        ...;

        my $homeTeam = getTeam( $fields[5] );
        my $awayTeam = getTeam( $fields[7] );

        ...;

        my $arbiterRec = join ",", $gameDate, $gameTime, "", $season, $gameLevel,
            $homeTeam, "", $awayTeam, "", $site, $subSite, "", "";
        print "$arbiterRec\n";
    }
}

sub getTeam {
    my ($team) = trim( $_[0] ) =~ m{(R\d+-\d+B|G\d+$)}x;
    return $team;
}

sub trim {
    ( my $s = $_[0] ) =~ s/^\s+|\s+$//g;
    return $s;
}

With this, if I have an input like (fields of interests marked with ^^^):

mm/dd/yyyy, hh:mm AA, dd, Aaaaaa, aaD, R35-14G1, , U14 Girls Area Schedule R256-14G1, , AAA, , , 
                                       ^^^^^^^^    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

I expect to get an output like:

mm/dd/yy, hh:mm AA, dd, Aaaaaa, aaD, R35-14G1, , R256-14G1, , AAA, , , 
                                     ^^^^^^^^    ^^^^^^^^^

In stead what I am getting is:

mm/dd/yy, hh:mm AA, dd, Aaaaaa, aaD, G1, , G1, , AAA, , , 
                                     ^^    ^^

Any idea what I might be doing wrong in the syntax or RegEx match?

Avinash Raj · Accepted Answer · 2014-08-29 22:41:01Z

1

Just change your regex to,

(R\d+-\d+(?:B|G)\d+$)

What's the actual problem is (R\d+-\d+B|G\d+$) regex first check for the words starts with R followed by one or more digits again followed by - and finally B at the last. But in your input there isn't a word like this. So this would fail. Next it goes to the second part that starts with G, finally it matches the last G and the following one or more numbers.

edited Aug 29, 2014 at 22:41

answered Aug 29, 2014 at 22:05

Avinash Raj

175k32 gold badges247 silver badges289 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

user1931485 Over a year ago

Thank you Avinash for explaining the problem +1

Collectives™ on Stack Overflow

extract and assign matched regex pattern from string in Perl to a variable

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related