|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey Yurevich 2:5020/400 24 Sep 2001 21:18:24
To : All
Subject : Код не работает. Почему?
--------------------------------------------------------------------------------
foreach $fala(@files){
$leight = length($fala);
if ($leight > 10){
$to_del=($leight - 10);
$fin=substr($fala, - $to_del);
push (@shot_files, $fin);
}}
Поясню, что смысл кода в том, что если в элементе массива более 40
знаков, то лишние (после 40) он удаляет и заносит в еовый массив.
Hаверняка проблема в какой-нибуть синтаксической мелочи. Помогите люди
добрые.
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
