03.03.2007, 04:47
|
|
Участник форума
Регистрация: 28.01.2007
Сообщений: 153
С нами:
10149547
Репутация:
452
|
|
Сообщение от cardons
Как это сделать через перл?
примерно так:
Код:
op en (fi,"bd") || die $!;
while (<fi>) { s/\'//g;
($login,$hash,$hz)=(split(",",$_))[4,5,46];
print "$login:$hash:".substr($hz,0,-3)."\n";
}
close(fi);
Последний раз редактировалось valiko; 03.03.2007 в 05:08..
Причина: "open" фильтруется
|
|
|