15 lines
324 B
Perl
15 lines
324 B
Perl
#!/usr/bin/perl
|
|
|
|
# It would be nice to automate mapping accented letters to "standard"
|
|
# letters as well to speed up word file transformation, but for now
|
|
# this simply removes apostrophized words.
|
|
|
|
open INF, "<", $ARGV[0] or die $!;
|
|
open OUTF, ">", "foobitybaz" or die $!;
|
|
|
|
while (<INF>) {
|
|
print OUTF unless /'/;
|
|
}
|
|
|
|
1;
|