Форум АНТИЧАТ - combo.pl или проблема парсинга /ect/passwd

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - combo.pl или проблема парсинга /ect/passwd (https://forum.antichat.xyz/showthread.php?t=19665)

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

Сегодня понадобилось отпарсить довольно большой /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);

PHP код:


		
			
<?

$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);

?>

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

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

Цитата:

Сообщение от Desr0w

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

а ты чего хотел? Тринукс гавна не советует :cool:

Цитата:

а ты чего хотел? Тринукс гавна не советует

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