expo/expoweb
1
0
Fork 0
mirror of https://expo.survex.com/repositories/expoweb/.git/ synced 2025-12-11 16:17:12 +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
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -17,7 +17,7 @@ if ($usage) {
} }
unless ($ARGV[0]) { 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(); usage();
} }
@@ -63,7 +63,10 @@ my $output="";
my $templine; my $templine;
my $lcletter; my $lcletter;
my $letter = ""; my $letter = "";
unless ($no_verbose_progress) {
print "Progress: *"; print "Progress: *";
}
my %areanames = my %areanames =
("ariston.html", "Deep South", ("ariston.html", "Deep South",
@@ -105,8 +108,10 @@ while (<CSV>) {
$output = "$output$templine"; $output = "$output$templine";
unless ($no_verbose_progress) {
print "*"; print "*";
} }
}
print TABLE << "END"; print TABLE << "END";
<dl> <dl>
@@ -126,7 +131,9 @@ $output
END END
close TABLE; close TABLE;
unless ($no_verbose_progress) {
print "\nInformation: Done\n"; print "\nInformation: Done\n";
}
# Parse the CSV file # Parse the CSV file
sub parse_csv { sub parse_csv {