我在編輯Perl程序以使用Get Options和Pod Usage模塊。當我嘗試這樣做時,它似乎打破了它。第一個代碼示例是可用的原始文件,第二個代碼示例是不起作用的編輯版本。 #!/usr/bin/env perl
use strict;
use warnings;
use 5.012;
use File::Basename;
use FindBin;
use lib "$Fin
如果在Perl中if語句有問題,我的if語句不起作用。我做錯了什麼,因爲我使用嚴格和警告模塊,但仍然我的if語句不起作用。 #!/usr/bin/env perl
use strict;
use warnings;
sub Granted
{
print "\n\nAccess Granted\n\n";
}
sub Access
{
print "\n
我有一個Perl腳本test.pl,它包含另一個Perl模塊fact.pm,它位於crypt/Module目錄下。 隱窩/ test.pl的源代碼是: #!/usr/bin/perl
use Term::ANSIColor qw(:constants);
use File::Path;
use POSIX qw(strftime);
use File::Basename qw(dirnam
請幫助我。 我有perl模塊文件中的代碼。當我在web中提交按鈕時,我想調用一個外部腳本perl。 這裏是我在perl模塊文件中的代碼。 package web::modify::send;
use strict;
use warnings FATAL => 'all';
no warnings 'redefine';<br>
sub send{
my $s = shift;