#!/usr/bin/perl
my @subjects = ();
# convert wikipedia subject index to iphone-native look
print "\n";
print "\n";
print "\n";
print "iPhonePedia \n";
print "Subjects \n";
print "\n";
while (<>){
if (/class="categoryname"/){
print "\n";
/index\/subject\.(.*)\.htm\">([\w\s]+)$2\n";
print " \n";
push @subjects, $1;
}
}
print " \n";
add_subjects();
print "\n";
print "\n";
print "\n";
sub add_subjects(){
for my $subject (@subjects) {
open SUBJECT_FILE, "\n";
while (){
if (/class="categoryname"/){
print "\n";
/index\/subject\.(.*)\.htm\">([\w\s]+)$2\n";
print " \n";
push @subjects, $1;
}
elsif (/href=\"..\/..\/(wp\/[a-z0-9]\/.*)\">(.*)<\/a>/){
print "\n";
print "$2 \n";
print " \n";
}
}
print "\n";
close SUBJECT_FILE;
}
}