bike/lwvwv
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Noting source for solution.

Browse Source
This commit is contained in:
Jonathan Rosenbaum 2023-08-19 14:31:48 -04:00
parent 1fd95c4c87
commit 2b067b7c01
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
google-civic-api.pl
View File

@ -69,6 +69,7 @@ while ( my $line = <$fh> ) {
# my @fields = split( /,/, $line ); # my @fields = split( /,/, $line );
# may be commas between those quotes # 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; my @fields = $line =~ m/(?:,|\n|^)("(?:(?:"")*[^"]*)*"|[^",\n]*|(?:\n|$))/g; #m/("[^"]+"|[^,]+)(?:,\s*)?/g;
# print $#fields . "\n"; # print $#fields . "\n";
( my $leagueId = $fields[1] ) =~ s/"//g; # League ( my $leagueId = $fields[1] ) =~ s/"//g; # League