LINUX.ORG.RU
Форум — Development  

Нужна небольшая помощь по perl


0

0 

1.
Есть такой участок кода:

my $config_file = $ARGV[0];
my $configdir = ".";
my $config;

if(defined $config_file)
{
  $config_file =~ /^([-\w.\/]+)$/ or die "Error\n\n";
  $config_file = $1;
}
else
{
  $config_file = "$configdir/config.prog";
}

То есть демон запускается так:
./daemon /path/to/config/config.prog
Как сделать так, чтобы работал такой вариант запуска:
./daemon -с /path/to/config/config.prog
вместо первого, то есть ключь -c добавить.

2. 
#!/usr/bin/perl -W и #!/usr/bin/perl
Есть разница в производительности с отладкой -W и без неё?

Спасибо.
anonymous

на п.1
perldoc GetOpt::Long

по п2.
сам то как думаешь?

anonymous
()

1) getopt как тебе уже сказали. или use CGI;

2) отладка это #!/usr/bin/perl -d, а -w это включение варнингов.

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

1. Спасибо конечно, но perl я совсем не знаю, никогда не программировал на нём, только исправлял по мелочи. Можно по подробнее...

2. Так включение варнингов на скороть работы скрипта влияет? Просто хотелось бы, чтобы и предупреждения выводились и скорость максимальная была, но скороть важнее.

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

1) Вам нужно прочитать описание того модуля, который вам посоветовали.

2) можно вообще выключить -w после того, как скрипт будет написан до такого уровня, что варнинги не будут появляться...

vilfred ☆☆
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Development