new input file

[openface-maja] / p.pl

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;