Форум АНТИЧАТ - Показать сообщение отдельно

Тут написал маленький парсер для составления списка login;pass из файлов папки /etc/passwd/.
Чтобы он работал надо создать файл pwd.txt(куда засунуть наш лист) и pwds(тут будет окончательный список).
Короче кто знает тот разберётся.Пользуйтесь

PHP код:


		
			
 #!/usr/bin/perl 



open(IN, "pwd.txt"); 

open(OUT, ">pwds"); 

while(<IN>){ 

chomp; 

if($_ ne ' '){ 

($u,@undef)=split  ' : ' ; 

print OUT  "$u:$u\n"; 

} 

} 

close(IN); 

close(OUT);