![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pta_import.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [cvsweb.bsd.lv] / pta|
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) { |