Исправление
redgremlin,
(текущая версия)
:
$sender=(^\:20\:);
1. матчинг - это либо m(^\:20\:), либо /^\:20\:/
2. матчинг вернёт 0 или 1
Ну и нахрена делать чомп, если потом добавляешь перевод? Ну и ошибка в логике - $sender будет выводиться и для каждой следующей строки, не подходящей под условие
То, что ты хотел можно сделать например так:
print $_ if /^\:20\:/;
Исходная версия
redgremlin,
:
$sender=(^\:20\:);
1. матчинг - это либо m(^\:20\:), либо /^\:20\:/
2. матчинг вернёт 0 или 1
Ну и нахрена делать чомп, если потом добавляешь перевод? Ну и ошибка в логике - $sender будет выводиться и для каждой следующей строки, не подходящей под условие
То, что ты хотел можно сделать например так:
print «$_» if /^\:20\:/;