2018-09-24 14:12:40 +00:00
|
|
|
#!/bin/env perl
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use File::Basename;
|
|
|
|
|
|
|
|
my $headerSep=$ARGV[0];
|
|
|
|
my $txtFile=$ARGV[1];
|
|
|
|
my $fileid =basename($txtFile);
|
|
|
|
$fileid=~ s/\./-/g;
|
|
|
|
|
|
|
|
open(my $fh, '<', $txtFile) or die "Could not open file '$txtFile' $!";
|
|
|
|
print "\n<pre>";
|
|
|
|
my $i=1;
|
|
|
|
while (my $row = <$fh>) {
|
|
|
|
chomp $row;
|
|
|
|
if ($row =~ /^$headerSep/) {
|
2021-05-03 10:10:47 +00:00
|
|
|
print "</pre>\n";
|
|
|
|
$row =~ s/$headerSep//g;
|
|
|
|
print "<H3 >$row</H3>\n";
|
|
|
|
print "<pre>";
|
|
|
|
$i++;
|
|
|
|
next;
|
|
|
|
}
|
2018-09-24 14:12:40 +00:00
|
|
|
print "$row\n" unless $row =~ /^\s*$/;
|
|
|
|
}
|
|
|
|
print "</pre>\n";
|
|
|
|
close $fh;
|
2021-05-03 10:10:47 +00:00
|
|
|
|