new input file

dpavlin@nuc:~/maja$ wc -l out.2023-07-09_154156.*
   3609 out.2023-07-09_154156.csv
    189 out.2023-07-09_154156.log
     20 out.2023-07-09_154156.skip

diff --git a/p.pl b/p.pl
index 1aff6ca..cdd2990 100755 (executable)
--- a/p.pl
+++ b/p.pl
@@ -6,7 +6,8 @@ use Data::Dump qw(dump);
 use Text::Unaccent;
 use POSIX qw(strftime);
 
-my $filename = 'Intervali_Openface_novi_rad_Boris_export.txt';
+#my $filename = 'Intervali_Openface_novi_rad_Boris_export.txt';
+my $filename = 'originals_2023-07-09/Intervali_Openface_novi_rad_Boris_export.txt';
 
 my $debug = $ENV{DEBUG} || 0;