Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   [perl] скрипт который отделяет от акков не нужное (https://forum.antichat.xyz/showthread.php?t=86013)

MaTpOc 24.09.2008 19:26
[perl] скрипт который отделяет от акков не нужное
 
Выложите плиз кто-нить скрипт который бы отделял от акка не нужное, с меня +6 минимум!
в данном случае domen@mail.ru:password:rate нужно чтоб скрипт выдал так domen@mail.ru:password, заранее биг спс!

MaTpOc 24.09.2008 21:09
Если кому понадобиться вот:
Код:
open(DAT, "1.txt") || die("error1!");
@data=<DAT>;
close(DAT);

open(FILE, ">>2.txt") || die("error2!");
foreach $line (@data)
    {
    my($a,$b) = split(/:/, $line);
    print FILE  "$a:$b\n";
    }
close(FILE);
Спасибо, Kaimi, скрипт его.


Время: 07:35