Как передать значение переменной подпрограмме в качестве аргумента?
$i=10;
&funstion($i);

function
{
my $i=@_;
print "$i=$i\n";
}

выводит $i=1;

• подпрограмма,alchie, 10:52 , 26-Май-04
  • подпрограмма,Purple, 11:55 , 26-Май-04
    • подпрограмма,alchie, 12:37 , 26-Май-04

>Как передать значение переменной подпрограмме в качестве аргумента?
>$i=10;
>&funstion($i);
>
>function
>{
>my $i=@_;

ты обращаешься к массиву в скалярном контексте, на что перл тебе честно возвращает количество его элементов - 1

нужно:
my $i=$_[0];
или
my $i=shift;

>>Как передать значение переменной подпрограмме в качестве аргумента?
>>$i=10;
>>&funstion($i);
>>
>>function
>>{
>>my $i=@_;
>
>ты обращаешься к массиву в скалярном контексте, на что перл тебе честно
>возвращает количество его элементов - 1
>
>нужно:
>my $i=$_[0];
>или
>my $i=shift;
А если так:
my $i="@_";

>>нужно:
>>my $i=$_[0];
>>или
>>my $i=shift;
>А если так:
>my $i="@_";

а если больше одного аргумента?