webster# EnglishChat - 鸟语花香
m*e
1 楼
#!/usr/local/bin/perl
#
# FILE: webster.pl
# AUTHOR: Stephanie Schaaf (sas)
# DATE: Tue Mar 4 19:55:11 EST 1997
# DESCR: simple webster hack
#
$TRAILER = "Pronunciation Key";
$TRAILER2 = "____________________________________________________";
$HEADER = "Main Entry";
$NOTFOUND = "No entries found that match your query.";
if (($#ARGV == -1) || ($ARGV[0] eq "-h")) {
print("Usage: webster word [words ...]\n");
exit(2);
}
@words = @ARGV;
while ($word = shift(@words)) {
$p = 0;
open (LI
#
# FILE: webster.pl
# AUTHOR: Stephanie Schaaf (sas)
# DATE: Tue Mar 4 19:55:11 EST 1997
# DESCR: simple webster hack
#
$TRAILER = "Pronunciation Key";
$TRAILER2 = "____________________________________________________";
$HEADER = "Main Entry";
$NOTFOUND = "No entries found that match your query.";
if (($#ARGV == -1) || ($ARGV[0] eq "-h")) {
print("Usage: webster word [words ...]\n");
exit(2);
}
@words = @ARGV;
while ($word = shift(@words)) {
$p = 0;
open (LI