modified
diff --git a/vrt2tei.pl b/vrt2tei.pl
index 53ad78d..54b4c8d 100755
--- a/vrt2tei.pl
+++ b/vrt2tei.pl
@@ -83,6 +83,25 @@
#my $encoding = "iso-8859-1"; # dieses $encoding ist NUR fuer das output s.u. twig funktion
my $textcounter = 0;
+my %doccounter = ( # by the month as in derekox
+ "01" => 1,
+ "02" => 1,
+ "03" => 1,
+ "04" => 1,
+ "05" => 1,
+ "06" => 1,
+ "07" => 1,
+ "08" => 1,
+ "09" => 1,
+ "10" => 1,
+ "11" => 1,
+ "12" => 1,
+ );
+
+
+my $sourcescsvfile = "sources_klk_fi_v2_2021_4eureco.csv";
+my $corpheaderfile = "teiCorpusHeaderSkeleton.tei.xml";
+my $textheaderfile = "teiTextHeaderSkeleton.tei.xml";
my $twig="";
@@ -91,8 +110,20 @@
# global variables pertaining to the original corpus :
my $kielipankkiCorpus = "klk-fi-v2-vrt";
-
-
+my %months = (
+ "01" => "JAN",
+ "02" => "FEB",
+ "03" => "MAR",
+ "04" => "APR",
+ "05" => "MAY",
+ "06" => "JUN",
+ "07" => "JUL",
+ "08" => "AUG",
+ "09" => "SEP",
+ "10" => "OCT",
+ "11" => "NOV",
+ "12" => "DEC",
+ );
#------------------------------------------------------------------
# read corpusHeaderSkeleton document and get header out of it
@@ -105,7 +136,7 @@
);
-$teiCorpusHeaderDocTwig->parsefile("teiCorpusHeaderSkeleton.tei.xml");
+$teiCorpusHeaderDocTwig->parsefile($corpheaderfile);
my $corpusHeader = $teiCorpusHeaderDocTwig->root; # getting the teiHeader for corpus out of the teiCorpusHeaderSkeleton document
@@ -119,7 +150,7 @@
comments => 'drop',
);
-$teiTextHeaderDocTwig->parsefile("teiTextHeaderSkeleton.tei.xml");
+$teiTextHeaderDocTwig->parsefile($textheaderfile);
my $textHeader = $teiTextHeaderDocTwig->root; # getting the teiHeader for corpus out of the teiTextHeaderSkeleton document
@@ -130,6 +161,38 @@
open(my $IN, "< $ARGV[0]") || die("$0: cannot open file for reading: $ARGV[0]"); # open input file and initialise filehandel, actually does not seem to be needed
# as parsefile() (s.b.) is applied to the filename
+#-------------------------------------------------------------------------------------------
+# read source metadata file (prepared manually => ultimately read the info from CMDI File?)
+#-------------------------------------------------------------------------------------------
+
+my $linecount=0;
+open(my $SOURCES, $sourcescsvfile) || die("$0: cannot open file for reading: $sourcescsvfile");
+while(my $line = $SOURCES){
+ $linecount++;
+ chomp($line);
+ if ( $line=~/^\#/ || $line=~/^\s*$/ || $linecount == 1){ # skip line if emmpty line or comment line or first line
+ next;
+ };
+ # split each line into array:
+ my @line = split(/\t+/, $line);
+
+ # $sources{"Suomen Kuvalehti"}[0]
+
+}
+
+# while (my $line = <$seq_fh>) {
+# chomp $line;
+# ## skip comments and blank lines and optional repeat of title line
+# next if $line =~ /^\#/ || $line =~ /^\s*$/ || $line =~ /^\+/;
+# #split each line into array
+# my @line = split(/\s+/, $line);
+# $result{$line[0]}{yeartotal} += $line[1];
+# $result{$line[0]}{earning} += $line[3] - $line[2];
+# }
+
+
+
+
#####################
# M A I N
@@ -210,17 +273,17 @@
my $language="Finnish";
my $lang_tla="fi";
- my $yy = $1; # $1 now containts substring in first bracket in regex above
+ my $year = $1; # $1 now containts substring in first bracket in regex above
- my $ctitle = $source . " " . $yy . ", from ". $kielipankkiCorpus . " for EuReCo"; # to do: also get name of corpus (klk-fi-v2-vrt)
+ my $ctitle = $source . " " . $year . ", from ". $kielipankkiCorpus . " for EuReCo"; # to do: also get name of corpus (klk-fi-v2-vrt)
#-----------------------
# set corpus header
#-----------------------
- &set_title( $corpusHeader, $source, $yy, $kielipankkiCorpus);
- &set_sourceDesc($corpusHeader, $source, $yy, $kielipankkiCorpus);
+ &set_title( $corpusHeader, $source, $year, $kielipankkiCorpus);
+ &set_sourceDesc($corpusHeader, $source, $year, $kielipankkiCorpus);
my $teiCorpusHeader = $corpusHeader->paste("first_child", $root);
@@ -245,9 +308,9 @@
my $textattsref = $text->atts(); # $textattsref is now a reference to a hash and should be used with '->'
-
- &createTextHeader($text, $textattsref, $textHeader);
-
+ # &createTextHeader returns the $textID:
+ my $textID = &createTextHeader($text, $textattsref, $textHeader);
+
#--------------------------
# create <TEI> from <text>
#--------------------------
@@ -255,12 +318,11 @@
# set vrt <text> to <TEI> and delete all attributes after they were were saved above
$text->del_atts;
$text->set_gi("TEI");
-
- # !!!!!!!!!!!!!!!!!!
- # ToDo: Generate a proper textsigle in TEI/@xml:id that can be converted into a textsigle
-
+ $text->set_att('xml:id', $textID);
+
+
#------------------------------------------------------------------
@@ -387,6 +449,20 @@
+ #----------------------------------------------------
+ # create textSigle to be returned from this function
+ #----------------------------------------------------
+
+ # SUK21.JAN.00001
+
+ my $corpusID = "SUK"; # ToDo read Table with Source metadata
+ my $yy = substr($datearray[0], 2, 2); # substr EXPR,OFFSET,LENGTH
+ my $mm = $datearray[1]; # substr EXPR,OFFSET,LENGTH
+ my $MMM = $months{$mm};
+
+ my $textID = $corpusID . $yy . "_" . $MMM . "." . sprintf("%05d", $doccounter{$mm}++);
+
+
#-----------------------------------------------------------------------
# CREATE text-teiHeader ACCORDING TO THE SKELETON in $textHeader
@@ -487,7 +563,9 @@
$textHeader->get_xpath('./revisionDesc/change', 0) ->set_att('when', localtime->ymd('-'));
+ return $textID;
+
#-----------------------------------
# END OF CREATING TEIHEADER
#-----------------------------------
@@ -573,9 +651,9 @@
sub set_title{
- my ($corpusHeader, $source, $yy, $kielipankkiCorpus) = @_;
+ my ($corpusHeader, $source, $year, $kielipankkiCorpus) = @_;
- my $cTitleString = $source . " " . $yy . ", from ". $kielipankkiCorpus . " for EuReCo";
+ my $cTitleString = $source . " " . $year . ", from ". $kielipankkiCorpus . " for EuReCo";
#<teiHeader>
# <fileDesc>
@@ -593,9 +671,9 @@
}
sub set_sourceDesc{
- my ($corpusHeader, $source, $yy, $kielipankkiCorpus) = @_;
+ my ($corpusHeader, $source, $year, $kielipankkiCorpus) = @_;
- my $cBiblString = $source . " " . $yy . ", from ". $kielipankkiCorpus . " for EuReCo";
+ my $cBiblString = $source . " " . $year . ", from ". $kielipankkiCorpus . " for EuReCo";
#<teiHeader>
# <fileDesc>