ANTICHAT - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

Тема: [Perl] Новичкам: задаем вопросы

Показать сообщение отдельно

23.08.2008, 01:48

Xszz

Участник форума

Регистрация: 23.04.2007

Сообщений: 233

С нами: 10026761

Репутация: 91

foreach ( split "\n",$data ){
next if ( length($_) <= 2 );
print $_,"\n";
}