我想將子程序與參數一起推入堆棧,但我無法弄清楚語法。考慮一個工作示例不帶任何參數: #!/usr/bin/perl -w
use strict;
use warnings;
sub hi { print "hi\n"; }
sub hello { print "hello\n"; }
sub world { print "world\n"; }
my @stack;
push (
我得到以下功能,並不知道如何將輸出放入一個變量。 sub checkFiles {
# Declaration
my $origDir="/home/hbo/test/chksum/";
my $tmpDir="/home/hbo/test/tmp/";
# get directory inventory
opendir(DIR, $origDir);
my @files = sor
我有一個數組參考像下面創建從元件的組合: my $strings = [qw(a b c d)];
欲形成的所有可能的組合,並創建陣列的陣列: my $output = [qw(qw([a],[b],[c],[d],[a,b],[a,c],[a,d],[b,c],[b,d],[c,d], [a,b,c],[a,b,d],[b,c,d],[a,b,c,d]))]
我嘗試什麼: foreach
我正在寫一個小的perl程序,我正在檢查#start和#end的模式。議程是用開始和結束模式之間的線創建一個單獨的文件。這我可以用下面的腳本來做。 #!/usr/bin/perl
open(INFILE,"<","testcases") || die "Can't open file: $!";
my $binary;
my $tccounter=1;