expo/expoweb
1
0
Fork 0
mirror of https://expo.survex.com/repositories/expoweb/.git/ synced 2024-11-25 08:41:54 +00:00
Code Issues Packages Projects Releases Wiki Activity

[svn r6611] Better

Browse Source
This commit is contained in:
sb476 2004-10-23 01:46:47 +02:00
parent 424e2359ad
commit cdd9b4c174
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
smkridge/204/make-glossary.pl
View File

@ -17,7 +17,7 @@ if ($usage) {
}
unless ($ARGV[0]) {
print "Specify a CSV file name as the program's argument (e.g. qm.csv)\n";
print "Specify a CSV file name as the program's argument (e.g. glossary.csv)\n";
usage();
}
@ -63,7 +63,10 @@ my $output="";
my $templine;
my $lcletter;
my $letter = "";
print "Progress: *";
unless ($no_verbose_progress) {
print "Progress: *";
}
my %areanames =
("ariston.html", "Deep South",
@ -105,7 +108,9 @@ while (<CSV>) {
$output = "$output$templine";
print "*";
unless ($no_verbose_progress) {
print "*";
}
}
print TABLE << "END";
@ -126,7 +131,9 @@ $output
END
close TABLE;
print "\nInformation: Done\n";
unless ($no_verbose_progress) {
print "\nInformation: Done\n";
}
# Parse the CSV file
sub parse_csv {