13.03.2007, 14:08
|
|
Green member
Регистрация: 28.12.2005
Сообщений: 376
Провел на форуме:
5559831
Репутация:
1833
|
|
В помощь: (Чистильщик)
Запускать так:
d:\slo.pl slovar1.txt slovar2.txt > novuu4istuuslovar.txt
PHP код:
#!/usr/bin/perl
use strict;
my %words;
while (my $nextdic = shift)
{
open(FILE, "< $nextdic") or print(STDERR "Not Found $nextdic\n") && next;
print STDERR "Cleaning $nextdic\n";
while (<FILE>)
{
chomp;
s/ +//g;
$words{$_} = ""
}
}
print "$_\n" for (sort keys %words)
|
|
|