|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Maxim Grigoryev 2:462/177.10 29 Jun 2001 00:46:53
To : All
Subject : Подпрограма
--------------------------------------------------------------------------------
#Обьявляю глобальные переменные
$gas1=2;
$gas2=7;
#Помещаю файло в масив строк
@massive = <Failo>;
#Это обрезание последнего символа, я не очень понимаю, только смутно
догадываюсь.
#Hо без него вынь делала пустую строку после каждой нормалной строки :(
chop(@massive);
#Ща буду вызывать процедуру...
&add($gas1,gas2,@massive);
#А вот и сама процедура
sub add ($$@)
{
$value1=$_[0];
$value2=$_[1];
#Тут была сильная трабла... Мне надо было принять массив @massive
#так принималась только одна строчка
# @value3=$_[2];
#Правильным оказалось не писать вообще ничего для принятия этого массива :((
#Большую часть дня я это мучал пока получилось. Хотелось бы знать
#почему принималась только одна строка @value3=$_[2];
#ведь в $_[2] должен быть мой массив... :(
$value1++;
open (F,">$filedata") ;
push(@massive,"$value1\:\:$value2");
#Дальше можно не читать
for (@massive){
print F "$_\n";}
close (F);
}
--- WP/95 Rel 1.78E (215.0) Reg.
* Origin: It's a question of time. (2:462/177.10)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
