#!/usr/bin/perl
# Perl script for converting gismu list file (v.1994) into HTML format
# usage: g2html.pl < inputfilename > outputfilename
# Evgueni Sklyanin, version 1999:05:16
#
open(INPUT,'-');
open(OUTPUT,'>-');
print OUTPUT
"\n",
"\n",
"Gismu List\n",
"\n",
"\n",
"List of Lojban Root Words
\n",
"le gi'uste
\n",
"version 01436 (1994:09:26) \n",
"
\n",
"\n";
# ignoring first line
$line=;
while ($line = ) {
$gismu = substr($line, 0,5);
$rafsi = substr($line, 6,12);$rafsi=~ s/^\s+//;$rafsi=~ s/\s+$//;
$key = substr($line,19,20);$key=~ s/^\s+//;$key=~ s/\s+$//;
$alias = substr($line,40,20);$alias=~ s/^\s+//;$alias=~ s/\s+$//;
$body = substr($line,61,96);$body=~ s/^\s+//;$body=~ s/\s+$//;
$comm = substr($line,168);chop($comm);$comm=~ s/^\s+//;$comm=~ s/\s+$//;
print OUTPUT "- ",$gismu," [", $rafsi,"] ",$key,"
- ",$body,"
",
$comm,"\n";
};
print OUTPUT
"
\n",
# "
\n",
# "\n",
# "Veijo Vilva, veion@animal.helsinki.fi\n",
# "\n",
"\n";
close(OUTPUT);