my $tsv_file = ( glob 'items.*' )[0];
-our $eprintsid = 700;
-
my $xml = read_file 'ep-xml.xml';
my @files = read_file "files.txt";
}
my $c = $col;
- $header2col->{'eprintsid'} = $c; $v[$c++] = $eprintsid++;
$header2col->{'file'} = $c; $v[$c++] = $file;
$header2col->{'full_path'} = $c; $v[$c++] = $full_path;
$header2col->{'subject'} = $c; $v[$c++] = $subject;