Noting source for solution.

2023-08-19 14:31:48 -04:00 · 2023-08-19 14:31:48 -04:00 · 2b067b7c01
commit 2b067b7c01
parent 1fd95c4c87
1 changed files with 1 additions and 0 deletions
--- a/google-civic-api.pl
+++ b/google-civic-api.pl
@ -69,6 +69,7 @@ while ( my $line = <$fh> ) {

    # my @fields = split( /,/, $line );
    # may be commas between those quotes
+    # pulled this regexp from https://stackoverflow.com/questions/18144431/regex-to-split-a-csv (solution 45) 
    my @fields = $line =~ m/(?:,|\n|^)("(?:(?:"")*[^"]*)*"|[^",\n]*|(?:\n|$))/g;  #m/("[^"]+"|[^,]+)(?:,\s*)?/g;
    # print $#fields . "\n";
    ( my $leagueId  = $fields[1] )  =~ s/"//g;    # League