combo.pl или проблема парсинга /ect/passwd

[Desr0w]

Сегодня понадобилось отпарсить довольно большой /ect/passwd .Решил заюзать скрипт combo.pl от Forb'a
Но не тут то было)
Парсинг проходит нормально,но выходной файл имеет следущий вид:
root:root квадратики shutdown:shutdown
И т.д..
BrutusA2 как комбо лист не воспринемает.
И так:
./combo.pl shadow.txt 1.txt
не так:
./combo.pl shadow.txt pwds
Мож у кого есть другой парсер или совет)
Код combo.pl

#!/usr/bin/perl

exit print "Usage $0 <infile> <outfile>\n" unless $ARGV[1];

$goodshell='sh';
open(IN,"$ARGV[0]");
open(OUT,">$ARGV[1]");
while(<IN>) {
chomp;
($u,@undef)=split ':';
if (defined($goodshell)) {
if ($undef[(scalar $undef)-1]=~/$goodshell/) {
print OUT "$u:$u\n";
}
} else {
print OUT "$u:$u\n";
}
}
close(IN);
close(OUT);

[Trinux]

?
<?
$data='';
$f=file('/etc/passwd');
foreach($f AS $v){
list($login)=explode(':', $v);
$data.=$login.':'.$login."
";
}
$f=fopen('data.txt', 'w');
fwrite($f, trim($data));
fclose($f);
?>

[Desr0w]

Trinux,thx!
Проверил-пашет отлично)

[Trinux]

ну и замечательно =)

[Talisman]

Trinux,thx!
Проверил-пашет отлично)
а ты чего хотел? Тринукс гавна не советует :cool:

[Trinux]

а ты чего хотел? Тринукс гавна не советует
Спасибо конечно, но я лесть не очень люблю =) Тем более за 10 строк когда...