Автор Тема: Передача параметров в функцию...  (Прочитано 5054 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн DartSidius

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 309
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Передача параметров в функцию...
« : 21 Октября 2010, 15:13:29 »
Требуется передать в функцию строковую переменную и хэш

делаю так

Func($string,%hash);


sub Func {
my ($str,%h) = @_;
}

Странно то, что в переданый %h попадает и значение $str...

Оффлайн 09h

  • Завсегдатай
  • Пользователь
  • **
  • Сообщений: 82
  • +0/-0
  • 0
    • Просмотр профиля
Передача параметров в функцию...
« Ответ #1 : 22 Октября 2010, 11:28:55 »
#!/usr/bin/perl -wT

use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;

print "Content-type: text/html\\n\\n";

$aaa = "blabla";

$bbb{\'qwe\'} = "qqq123";
$bbb{\'asd\'} = "aaa456";


&test($aaa,%bbb);



sub test() {

my ($str,%h) = @_;

print "\\$str = $str
\\n";

foreach $temp (keys %h) {
print "\\$h{$temp} = $h{$temp}
\\n";
}

}


выводит

$str = blabla
$h{asd} = aaa456
$h{qwe} = qqq123

хз даже почему у вас такой результат

Оффлайн arto

  • Ветеран
  • *****
  • Сообщений: 699
  • +0/-0
  • 2
    • Просмотр профиля
Передача параметров в функцию...
« Ответ #2 : 22 Октября 2010, 22:38:41 »
смотря как вызывать...

Оффлайн DartSidius

  • Фанат форума
  • Старожил
  • ****
  • Сообщений: 309
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Передача параметров в функцию...
« Ответ #3 : 26 Октября 2010, 05:33:29 »
Функция находится в отдельном фале Hash.pm

Вызывается так $result = Hash::Func($str,%hash);

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28