Архив форумов ЦИТФорума

[Junior_Elf]

Ребят помогите я в перле полный ламо а мне срочно надо узнать как в Perl прочитать из файла определённую строчку примерно аткого вида
vasya|123|mail@mail.ru|male
чтобы получилось на выходе
$$_[0], $$_[1], $$_[2], $$_[3]

ПОМОГИТЕ ПЛИЗЗЗЗ СРОЧНО НАДО! Заранее спасибо!

[Diesel]

>>Ребят помогите я в перле полный ламо а мне срочно надо узнать как в Perl прочитать из файла определённую строчку примерно аткого вида
>>vasya|123|mail@mail.ru|male
>>чтобы получилось на выходе
>>$$_[0], $$_[1], $$_[2], $$_[3]
>>
>>ПОМОГИТЕ ПЛИЗЗЗЗ СРОЧНО НАДО! Заранее спасибо!

[Diesel]

чего-то глючнуло...
если у тебя уже считан файл (если не считан - отдельный разговор):

$string = "vasya\|546\|mail\@mail.ru\|male";
print "$string\n";
$string =~ /vasya\|([0-9])([0-9])([0-9])\|mail\@mail.ru\|male/;
print "$1 $2 $3\n";