Return to pta_import.pl CVS log | Up to [cvsweb.bsd.lv] / pta |
version 1.20, 2020/11/23 14:14:23 | version 1.21, 2020/11/25 12:46:41 | ||
---|---|---|---|
|
|
||
$csv_account or die "no ACCOUNT line in $fn"; | $csv_account or die "no ACCOUNT line in $fn"; | ||
# Parse the CSV file from the bank. | # Parse the CSV file from the bank. | ||
LINE: while (<>) { | if (@ARGV) { | ||
open STDIN, '<', $ARGV[0] or die "$ARGV[0]: $!"; | |||
} | |||
LINE: while (<STDIN>) { | |||
chomp; | chomp; | ||
next if (/^$/); | next if (/^$/); | ||
foreach my $ignore (@ignored) { | foreach my $ignore (@ignored) { |