|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Serge Matveev 2:5030/182 25 Sep 2001 22:05:30
To : Sergey Yurevich
Subject : Код не работает. Почему?
--------------------------------------------------------------------------------
24 Sep 01 21:18, Sergey Yurevich wrote to All:
SY> foreach $fala(@files){
SY> $leight = length($fala);
SY> if ($leight > 10){
SY> $to_del=($leight - 10);
SY> $fin=substr($fala, - $to_del);
SY> push (@shot_files, $fin);
SY> }}
SY> Поясню, что смысл кода в том, что если в элементе массива более 40
SY> знаков, то лишние (после 40) он удаляет и заносит в еовый массив.
SY> Hаверняка проблема в какой-нибуть синтаксической мелочи. Помогите люди
SY> добрые.
foreach (@files) {
($fala, $fin) = /(^.{0,40})(.*)/; # >40 символов идут в $fin
push @shot_files, $fin if $fin; # Если хвост есть, то push его.
}
serge@matveev.spb.ru Serge Matveev & ...
ICQ 3575357
* Origin: После нас пришло новое поколение и выбрало Pepsi. (2:5030/182)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
