LINUX.ORG.RU
решено Форум — General  

Perl передача параметра из одной процедуры в другую

 , ,


0

1

Интересует можно ли выдернуть значение переменной, к примеру:

sub Pass
{
  my @alphanumeric = ('a'..'z', 'A'..'Z', 0..9);
  my $password = join '', map $alphanumeric[rand @alphanumeric], 0..42;

}
sub Print
{
  sub Pass;
  передать значение переменной $password в эту часть кода?
  #print "$password\n";
}

Возможно ли такие манипуляции делать?

★
← find: не показывать начальный каталог
Не могу найти сертификат → 
sub Pass
{
  my @alphanumeric = ('a'..'z', 'A'..'Z', 0..9);
  my $password = join '', map $alphanumeric[rand @alphanumeric], 0..42;
  return $password;

}
sub Print
{
  my $password = Pass();
  print "$password\n";
}
shell-script ★★★★★
()
Ответ на: комментарий от shell-script

Слушай, а ты когда вот этот код вставляешь, у тебя при запуске gcolor2 не появляется такого в логах?

Error while processing /etc/awstats/awstats.conf

Буду благодарен если поможешь.

anonymous
()
Ответ на: комментарий от anonymous

Не тред, а перепись шизиков. Сразу видно - первая пятница осени.

no-such-file ★★★★★
()
Ответ на: комментарий от anonymous

Извини, я не понял твой вопрос. Какое отношение комментарий на ЛОРе имеет к gcolor(который я не использую вообще) и awstats(которого на десктопе у меня тоже нет)?

shell-script ★★★★★
()
Ответ на: комментарий от ving2

Что именно не работает? 

$ perl test.pl
egA1vCDVhI0HpNQgA9EIHCvOEtujTza1Dlc1DEjKKJL

$ cat test.pl
#!/usr/bin/perl

use warnings;
use strict;

sub Pass
{
  my @alphanumeric = ('a'..'z', 'A'..'Z', 0..9);
  my $password = join '', map $alphanumeric[rand @alphanumeric], 0..42;
  return $password;

}
sub Print
{
  my $password = Pass();
  print "$password\n";
}

Print();

shell-script ★★★★★
()
Ответ на: комментарий от ving2

Ты вообще молодец, что перловый код копипастишь. Далеко пойдешь. Или зайдешь хз. Извини за сумбур.

anonymous
()
Ответ на: комментарий от anonymous

Я знаю, для чего нужен gcolor2. У меня нет необходимости узнавать коды отображаемых на экране цветов.

shell-script ★★★★★
()
Ответ на: комментарий от DELIRIUM

Ну, а твое мнение? есть вообще смысл использовать awstats в связке с gcolor2 на десктопе? или только на сервере?

anonymous
()
Ответ на: комментарий от anonymous

да никто не обижался. Я понял к чему ты мне это вообщем говоришь... Копипастить не вредно, если понимаешь о чем он.

ving2 ★
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
← find: не показывать начальный каталог
General
Не могу найти сертификат →