pta/pta_import.pl - diff

Return to pta_import.pl CVS log

Up to [cvsweb.bsd.lv] / pta

version 1.31, 2021/05/19 21:52:11

version 1.32, 2021/06/04 13:50:06

Line 153 LINE: while (<STDIN>) {

}

my $copy_line = $line;

my @fields;

if ($quote) {

while ($copy_line =~ /./) {

push @fields, $1 while $copy_line =~ s/$quote([^$quote]*)$quote$delim?//;

$quote && $copy_line =~ s/^$quote(.*?)$quote(?:$delim|$)//

} else {

or $copy_line =~ s/^(.*?)(?:$delim|$)//;

@fields = split /$delim/, $line;

push @fields, $1;

}

my $matches = 0;

my ($account, $booking);