14 lines
261 B
Perl
14 lines
261 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
# $Id$
|
||
|
|
|
||
|
|
open(IN, "<", "resource/harvard.txt");
|
||
|
|
print("const char* harvard[] = {\n");
|
||
|
|
while(my $l = <IN>){
|
||
|
|
$l =~ s/\r?\n$//;
|
||
|
|
if($l =~ /^[ \t]*[0-9]+\. (.+)$/){
|
||
|
|
print(" \"" . $1 . "\",\n");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
print(" NULL\n");
|
||
|
|
print("};\n");
|
||
|
|
close(IN);
|