23.02.2009, 00:09
|
|
Познавший АНТИЧАТ
Регистрация: 01.05.2006
Сообщений: 1,021
Провел на форуме:
3424739
Репутация:
921
|
|
сегодня понадобилось отсортировать файл с мылами ... вот собственно результат
подходит не только для мыл, но и для сортировки любых текстовых данных в файле
PHP код:
#!/usr/bin/perl
use sort "stable";
$emails = 'mails.txt';
$sorted = 'sorted.txt';
my @acc : shared;
open( ACS, "<$emails" );
@acc = acc();
@c = sort @acc;
while (@c) {
{ lock(@c); $c = shift @c; }
open( FILE, ">>$sorted" );
print FILE "$c\n";
close(FILE);
{ lock($i); $i++; }
}
sub acc {
my (@mas);
while (<ACS>) {
push @mas, $_;
}
chomp @mas;
return @mas;
}
|
|
|