|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : andy Tatarinov 2:5020/400 25 Sep 2001 11:05:24 To : Sergey Yurevich Subject : Re: Код не работает. Почему? -------------------------------------------------------------------------------- у тебя не происходит удаления того что нужно удалить. > foreach $fala(@files){ > $leight = length($fala); > if ($leight > 10){ > $to_del=($leight - 10); > $fin=substr($fala, - $to_del); > push (@shot_files, $fin); substr($fala,-$to_del)=""; > }} хотя кажется мне, что можно сделать красивше. ...2b|!2b? --- ifmail v.2.15dev5 * Origin: Demos online service (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/6577481ae987.html, оценка из 5, голосов 10
|