From d94a52cb94096f77c19e3e70ae7428f8c6bf9a43 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Tue, 21 Nov 2023 10:01:15 +0100 Subject: [PATCH] corrupt razred/skola --- upari.pl | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/upari.pl b/upari.pl index a189fe7..3430566 100755 --- a/upari.pl +++ b/upari.pl @@ -1,7 +1,5 @@ #!/usr/bin/perl -# TODO: skola <-> razred swap? - use warnings; use strict; use autodie; @@ -91,8 +89,8 @@ foreach my $nr ( 1 .. 4 ) { while (my $row = $csv->getline ($fh)) { $stat->{lines}->{$nr}++; $stat->{ $file }->{lines}++; - $row->[1] =~ s/\D+//g && print 'c1'; - $row->[2] =~ s/\D+//g && print 'c2'; + $row->[1] =~ s/\D+//g && $stat->{corrupt}->{skola}->{$nr}++ && print 'c1'; + $row->[2] =~ s/\D+//g && $stat->{corrupt}->{razred}->{$nr}++ && print 'c2'; my $id = join('-', uc $row->[0], $row->[1], -- 2.20.1