|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Baranov 2:5004/89.29 25 Sep 2001 07:22:30
To : Soft@infopac.Ru
Subject : Код не работает. Почему?
--------------------------------------------------------------------------------
s> foreach $fala(@files){
s> $leight = length($fala);
s> if ($leight > 10){
s> $to_del=($leight - 10);
s> $fin=substr($fala, - $to_del);
s> push (@shot_files, $fin);
s> }}
s> Поясню, что смысл кода в том, что если в элементе массива более 40
s> знаков, то лишние (после 40) он удаляет и заносит в еовый массив.
40???%)
s> Hаверняка проблема в какой-нибуть синтаксической мелочи. Помогите люди
s> добрые.
Хм...у меня вроде все работает, только 10 на 40 поменяй, если хочешь,
чтобы 40 оставалось.
--- GoldED 3.00.Alpha5+
* Origin: <n/a> (2:5004/89.29)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
