#!/usr/bin/env perl
use strict;
use warnings;
open HTML, "< index.html";
print "Content-Type: text/plain; charset=UTF-8\n";
print '"Chinese","Pinyin","English"';
while () {
next unless /| /;
chomp;
s/<\/td> | /","/g;
s/^\s* | | /"/;
s/<\/td><\/tr>\s*$/"/;
print "$_\n";
}
|