\n";
&line('','','ABC','X','Meter','Key','Headers','Code 1','Code 2','Title');
&line('','','---','-','-----','---','-------','------','------','-----');
print V "$CC.html\n" if $V>1;
$CX = $CC;
%dup = (); # Record of duplicate lines.
}
&line("$TTL" ,$URL,'ABC',$X,$M,$K,$H,$C1,$C2,$f,$Title,$SZ);
} else {
print V "$P: Can't parse \"$val\"\n" if $V>1;
}
}
}
print V "$P: $esep\n" if $V>2;
print O "\n";
close O;
exit 0;
exit $exitstat;
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
sub line { my $F='line';
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Write one line to the current output file. The first time this is called #
# for a new file, the args will be constants to produce the column titles, #
# with no URL. The rest of the calls will be with variable args to generate #
# one tune reference. #
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
local($TTL, # Canonical title, all upper case
$URL, # Full URL, or URI for local files
$Fmt, # Format (always 'ABC' now)
$X, # Index number
$M, # Meter
$K, # Key
$H, # Header lines
$C1, # JC code (GB code difference)
$C2, # USD code
$f, # Header flag ([TPN]) for title
$Title, # Title in original form
$Size # File size, in bytes.
) = @_;
local($BC,$p,$r,$u,$XX);
$C1 = substr(($C1 . (' ' x $C1max)),0,$C1max);
$C2 = substr(($C2 . (' ' x $C2max)),0,$C2max);
$K = substr($K . (' ' x $Kmax), 0, $Kmax);
$H = substr($H . (' ' x $Hmax), 0, $Hmax) if length($H) < $Hmax;
$M = substr($M . (' ' x $Mmax), 0, $Mmax);
$XX = substr((' ' x $Xmax) . $X, -$Xmax, $Xmax);
$BC = sprintf "%08d",$Size;
$f = 'T' unless $f; # Title [TPN] flag
print V "$F: f='$f' T=\"$title\"\n" if $V>2;
for $p (keys %reduce) {
$r = $reduce{$p};
print V "$P: p='$p' r='$r'\n" if $V>4;
if ((($u = $URL) =~ s"$p"$r") ne $URL) {
print V "$P: '$URL' => '$u'\n" if $V>4;
$URL = $u;
}
}
if ($URL) {
$l = "