Perl 面試問題

• Perl 是一種穩定、跨平臺的程式語言。

• 儘管 Perl 官方上不是首字母縮略詞，但一些人將其用作**Practical Extraction and Report Language**（實用提取和報告語言）。

• 它被用於公共和私營部門的關鍵專案。

• Perl 是一種*開源*軟體，根據其*Artistic License*或*GNU 通用公共許可證 (GPL)* 許可。

• Perl 由 Larry Wall 建立。

• Perl 1.0 於 1987 年釋出到 usenet 的 alt.comp.sources。

• 在編寫本教程時，perl 的最新版本為 5.16.2

• Perl 列在*牛津英語詞典*中。

• Perl 汲取了其他語言的最佳特性，例如 C、awk、sed、sh 和 BASIC 等。

• Perl 的資料庫整合介面 DBI 支援第三方資料庫，包括 Oracle、Sybase、Postgres、MySQL 等。

• Perl 可以處理 HTML、XML 和其他標記語言。

• Perl 支援 Unicode。

• Perl 相容 Y2K。

• Perl 支援過程式和麵向物件程式設計。

• Perl 透過 XS 或 SWIG 與外部 C/C++ 庫互動。

• Perl 是可擴充套件的。從綜合 Perl 檔案網路 (CPAN) (CPAN) 可以獲得超過 20,000 個第三方模組。

• Perl 直譯器可以嵌入到其他系統中。

• 由於 Perl 具有文字處理能力和快速開發週期，因此曾經是最流行的 Web 程式語言。

• Perl 被廣泛稱為“網際網路的膠帶”。

• Perl 可以處理加密的 Web 資料，包括電子商務交易。

• Perl 可以嵌入到 Web 伺服器中，從而將處理速度提高多達 2000%。

• Perl 的 mod_perl 允許 Apache Web 伺服器嵌入 Perl 直譯器。

• Perl 的 DBI 包使 Web 資料庫整合變得簡單。

是的！Perl 是一種區分大小寫的程式語言。

Perl 識別符號是用於標識變數、函式、類、模組或其他物件的名稱。Perl 變數名以 $、@ 或 % 開頭，後跟零個或多個字母、下劃線和數字 (0 到 9)。

Perl 有三種基本資料型別：標量、標量陣列和標量雜湊，也稱為關聯陣列。

標量是簡單的變數。它們前面帶有美元符號 ($) 。標量可以是數字、字串或引用。引用實際上是變數的地址，我們將在後續章節中看到。

陣列是有序的標量列表，您可以使用從 0 開始的數字索引訪問它們。它們前面帶有“at”符號 (@)。

雜湊是鍵/值對的無序集合，您可以使用鍵作為下標來訪問它們。它們前面帶有百分號 (%)。

Perl 變數不需要顯式宣告來保留記憶體空間。當您為變數賦值時，宣告會自動發生。等號 (=) 用於為變數賦值。

Perl 根據上下文（即變數使用的情況）以不同的方式對待相同的變數。

對標量變數的賦值會以標量上下文對右側進行求值。

對陣列或雜湊的賦值會以列表上下文對右側進行求值。

布林上下文只是任何評估表示式真假的地方。

此上下文不僅不關心返回值是什麼，甚至都不想要返回值。

此上下文僅在引號內或類似於引號的內容中發生。

單引號字串將 perl 變數列印為字串，而雙引號字串會對變數進行求值並用於獲取變數的值。

#!/usr/bin/perl

$var = "This is string scalar!";
$quote = 'I m inside single quote - $var';
$double = "This is inside double quote - $var";

$escape = "This example of escape -\tHello, World!";

print "var = $var\n";
print "quote = $quote\n";
print "double = $double\n";
print "escape = $escape\n";

這將產生以下結果：

var = This is string scalar!
quote = I m inside single quote - $var
double = This is inside double quote - This is string scalar!
escape = This example of escape - Hello, World!

格式為 v1.20.300.4000 的文字被解析為由具有指定序數的字元組成的字串。此格式稱為 v-字串。

v-字串提供了一種替代且更易讀的方式來構造字串，而不是使用不太易讀的插值形式“\x{1}\x{14}\x{12c}\x{fa0}”。

它用於獲取當前檔名。

它用於獲取當前行號。

它用於獲取當前包名。

要引用陣列的單個元素，您將使用美元符號 ($) 加上變數名，後跟方括號中元素的索引。

這是一個使用陣列變數的簡單示例：

#!/usr/bin/perl

@ages = (25, 30, 40);             
@names = ("John Paul", "Lisa", "Kumar");

print "\$ages[0] = $ages[0]\n";
print "\$ages[1] = $ages[1]\n";
print "\$ages[2] = $ages[2]\n";
print "\$names[0] = $names[0]\n";
print "\$names[1] = $names[1]\n";
print "\$names[2] = $names[2]\n";

執行後，這將產生以下結果：

$ages[0] = 25
$ages[1] = 30
$ages[2] = 40
$names[0] = John Paul
$names[1] = Lisa
$names[2] = Kumar

範圍運算子 (..) 用於建立順序陣列。

#!/usr/bin/perl

@var_10 = (1..10);
@var_20 = (10..20);
@var_abc = (a..z);

print "@var_10\n";   # Prints number from 1 to 10
print "@var_20\n";   # Prints number from 10 to 20
print "@var_abc\n";  # Prints number from a to z

此處雙點 (..) 稱為範圍運算子。這將產生以下結果：

1 2 3 4 5 6 7 8 9 10
10 11 12 13 14 15 16 17 18 19 20
a b c d e f g h i j k l m n o p q r s t u v w x y z

可以使用陣列上的標量上下文來確定陣列的大小 - 返回值將是陣列中的元素數量。

@array = (1,2,3);
print "Size: ",scalar @array,"\n";

返回值始終是陣列的物理大小，而不是有效元素的數量。

push @ARRAY, LIST - 將列表的值推送到陣列的末尾。

#!/usr/bin/perl

# create a simple array
@coins = ("Quarter","Dime","Nickel");
print "1. \@coins  = @coins\n";

# add one element at the end of the array
push(@coins, "Penny");
print "2. \@coins  = @coins\n";

這將產生以下結果：

1. @coins = Quarter Dime Nickel
2. @coins = Quarter Dime Nickel Penny

unshift @ARRAY, LIST - 在陣列的前面新增列表，並返回新陣列中的元素數量。

#!/usr/bin/perl

# create a simple array
@coins = ("Quarter","Dime","Nickel");
print "1. \@coins  = @coins\n";

# add one element at the beginning of the array
unshift(@coins, "Dollar");
print "2. \@coins  = @coins\n";

這將產生以下結果：

1. @coins = Quarter Dime Nickel
2. @coins = Dollar Quarter Dime Nickel

pop @ARRAY - 彈出並返回陣列的最後一個值。

#!/usr/bin/perl

# create a simple array
@coins = ("Quarter","Dime","Nickel");
print "1. \@coins  = @coins\n";

# remove one element from the last of the array.
pop(@coins);
print "2. \@coins  = @coins\n";

這將產生以下結果：

1. @coins = Quarter Dime Nickel
2. @coins = Quarter Dime

shift @ARRAY - 將陣列的第一個值移出並返回，將陣列縮短 1 並將所有內容向下移動。

#!/usr/bin/perl

# create a simple array
@coins = ("Quarter","Dime","Nickel");
print "1. \@coins  = @coins\n";

# remove one element from the beginning of the array.
shift(@coins);
print "2. \@coins  = @coins\n";

這將產生以下結果：

1. @coins = Quarter Dime Nickel
2. @coins = Dime Nickel

您還可以從陣列中提取“切片” - 也就是說，您可以按順序從陣列中選擇多個專案以生成另一個數組。

#!/usr/bin/perl

@days = qw/Mon Tue Wed Thu Fri Sat Sun/;

@weekdays = @days[3,4,5];

print "@weekdays\n";

這將產生以下結果 -

Thu Fri Sat

splice() 函式將刪除 @ARRAY 中由 OFFSET 和 LENGTH 指定的元素，並用 LIST（如果指定）替換它們。最後，它返回從陣列中刪除的元素。

splice @ARRAY, OFFSET [ , LENGTH [ , LIST ] ]

以下是示例：

#!/usr/bin/perl

@nums = (1..20);
print "Before - @nums\n";

splice(@nums, 5, 5, 21..25); 
print "After - @nums\n";

這將產生以下結果：

Before − 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
After − 1 2 3 4 5 21 22 23 24 25 11 12 13 14 15 16 17 18 19 20

split() 將字串拆分為字串陣列，並返回它。如果指定了 LIMIT，則最多拆分為該數量的欄位。如果省略了 PATTERN，則按空格拆分。

split [ PATTERN [ , EXPR [ , LIMIT ] ] ]

以下是示例：

#!/usr/bin/perl

# define Strings
$var_string = "Rain-Drops-On-Roses-And-Whiskers-On-Kittens";
$var_names = "Larry,David,Roger,Ken,Michael,Tom";

# transform above strings into arrays.
@string = split('-', $var_string);
@names  = split(',', $var_names);

print "$string[3]\n";  # This will print Roses
print "$names[4]\n";   # This will print Michael

這將產生以下結果：

Roses
Michael

join() 函式將 LIST 中的各個字串連線成一個字串，欄位之間用 EXPR 的值分隔，並返回該字串。

join EXPR, LIST

以下是示例：

#!/usr/bin/perl

# define Strings
$var_string = "Rain-Drops-On-Roses-And-Whiskers-On-Kittens";
$var_names = "Larry,David,Roger,Ken,Michael,Tom";

# transform above strings into arrays.
@string = split('-', $var_string);
@names  = split(',', $var_names);

$string1 = join( '-', @string );
$string2 = join( ',', @names );

print "$string1\n";
print "$string2\n";
print "$string[3]\n";  # This will print Roses
print "$names[4]\n";   # This will print Michael

這將產生以下結果：

Rain-Drops-On-Roses-And-Whiskers-On-Kittens
Larry,David,Roger,Ken,Michael,Tom

sort() 函式根據 ASCII 數字標準對陣列的每個元素進行排序。此函式具有以下語法：

sort [ SUBROUTINE ] LIST

此函式對 LIST 進行排序並返回排序後的陣列值。如果指定了 SUBROUTINE，則在排序元素時應用 SUBTROUTINE 內部的指定邏輯。

#!/usr/bin/perl

# define an array
@foods = qw(pizza steak chicken burgers);
print "Before: @foods\n";

# sort this array
@foods = sort(@foods);
print "After: @foods\n";

這將產生以下結果：

Before: pizza steak chicken burgers
After: burgers chicken pizza steak

這個特殊變數是一個標量，包含所有陣列的第一個索引。因為 Perl 陣列使用基於 0 的索引，所以 $[ 幾乎總是 0。但是，如果將 $[ 設定為 1，則所有陣列都將使用基於 1 的索引。建議不要使用除 0 之外的任何其他索引。但是，讓我們舉一個例子來說明 $[ 變數的使用 -

#!/usr/bin/perl

# define an array
@foods = qw(pizza steak chicken burgers);
print "Foods: @foods\n";

# Let's reset first index of all the arrays.
$[ = 1;

print "Food at \@foods[1]: $foods[1]\n";
print "Food at \@foods[2]: $foods[2]\n";

這將產生以下結果：

Foods: pizza steak chicken burgers
Food at @foods[1]: pizza
Food at @foods[2]: steak

因為陣列只是一系列用逗號分隔的值，所以您可以像下面所示將它們組合在一起。

#!/usr/bin/perl

@numbers = (1,3,(4,5,6));

print "numbers = @numbers\n";

這將產生以下結果：

numbers = 1 3 4 5 6

雜湊可以透過以下兩種方式之一建立。在第一種方法中，您逐個地將值分配給命名鍵 -

$data{'John Paul'} = 45;
$data{'Lisa'} = 30;
$data{'Kumar'} = 40;

在第二種情況下，您使用列表，該列表透過從列表中獲取單個對進行轉換：對的第一個元素用作鍵，第二個元素用作值。例如 -

%data = ('John Paul', 45, 'Lisa', 30, 'Kumar', 40);

訪問雜湊中的單個元素時，必須在變數前加上美元符號 ($)，然後在變數名稱後用花括號附加元素鍵。例如 -

#!/usr/bin/perl

%data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40);

print "$data{'John Paul'}\n";
print "$data{'Lisa'}\n";
print "$data{'Kumar'}\n";

這將產生以下結果：

45
30
40

您可以使用 keys 函式獲取雜湊中所有鍵的列表，該函式具有以下語法 -

keys %HASH

此函式返回命名雜湊的所有鍵的陣列。以下是示例 -

#!/usr/bin/perl 

%data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40);

@names = keys %data;

print "$names[0]\n";
print "$names[1]\n";
print "$names[2]\n";

這將產生以下結果：

Lisa
John Paul
Kumar

您可以使用 values 函式獲取雜湊中所有值的列表，該函式具有以下語法 -

values %HASH

此函式返回命名雜湊的所有值的陣列。以下是示例 -

#!/usr/bin/perl 

%data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40);

@ages = values %data;

print "$ages[0]\n";
print "$ages[1]\n";
print "$ages[2]\n";

這將產生以下結果：

30
45
40

使用 exists 函式，如果命名鍵存在，則返回真，無論其值可能是什麼 -

#!/usr/bin/perl

%data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40);

if( exists($data{'Lisa'} ) ){
   print "Lisa is $data{'Lisa'} years old\n";
}
else{
   print "I don't know age of Lisa\n";
}

在這裡，我們介紹了 IF...ELSE 語句，我們將在單獨的章節中學習它。現在，您只需假設 if( condition ) 部分僅在給定條件為真時執行，否則執行 else 部分。因此，當我們執行上述程式時，它會產生以下結果，因為這裡給定的條件 exists($data{'Lisa'} 返回真 -

Lisa is 30 years old

您可以透過對 keys 或 values 使用標量上下文來獲取雜湊的大小，即元素的數量。簡單地說，首先您必須獲取鍵或值的陣列，然後您可以獲取陣列的大小，如下所示 -

#!/usr/bin/perl

%data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40);

@keys = keys %data;
$size = @keys;
print "1 - Hash size:  is $size\n";

@values = values %data;
$size = @values;
print "2 - Hash size:  is $size\n";

這將產生以下結果：

1 - Hash size: is 3
2 - Hash size: is 3

可以使用一行程式碼和簡單的賦值運算子新增新的鍵/值對。

#!/usr/bin/perl

%data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40);
@keys = keys %data;
$size = @keys;
print "1 - Hash size:  is $size\n";

# adding an element to the hash;
$data{'Ali'} = 55;
@keys = keys %data;
$size = @keys;
print "2 - Hash size:  is $size\n";

這將產生以下結果：

1 - Hash size: is 3
2 - Hash size: is 4

要從雜湊中刪除元素，您需要使用 delete 函式，如下面的示例所示 -

#!/usr/bin/perl

%data = ('John Paul' => 45, 'Lisa' => 30, 'Kumar' => 40);
@keys = keys %data;
$size = @keys;
print "1 - Hash size:  is $size\n";

# delete the same element from the hash;
delete $data{'John Paul'};
@keys = keys %data;
$size = @keys;
print "2 - Hash size:  is $size\n";

這將產生以下結果：

1 - Hash size: is 3
2 - Hash size: is 2

它導致迴圈跳過其主體其餘部分，並在重新迭代之前立即重新測試其條件。last 語句。

它終止迴圈語句並將執行轉移到迴圈後面的語句。continue 語句。

continue 塊，它總是在條件即將再次評估之前執行。

redo 命令重新啟動迴圈塊，而不再次評估條件。如果存在，則不執行 continue 塊。

goto LABEL 形式跳轉到用 LABEL 標記的語句，並從那裡恢復執行。

goto EXPR 形式只是 goto LABEL 的泛化。它期望表示式返回一個標籤名稱，然後跳轉到該標記的語句。

它用命名子例程的呼叫替換當前正在執行的子例程。

指數 - 對運算子執行指數（冪）計算。假設變數 $a 包含 10，變數 $b 包含 20，則 $a**$b 將得到 10 的 20 次冪。

它檢查兩個運算元的值是否相等，並根據左側引數在數值上小於、等於或大於右側引數返回 -1、0 或 1。假設變數 $a 包含 10，變數 $b 包含 20，則 ($a <=> $b) 返回 -1。

如果左側引數在字串上小於右側引數，則返回真。假設變數 $a 包含 "abc"，變數 $b 包含 "xyz"，則 ($a lt $b) 為真。

如果左側引數在字串上大於右側引數，則返回真。假設變數 $a 包含 "abc"，變數 $b 包含 "xyz"，則 ($a gt $b) 為假。

如果左側引數在字串上小於或等於右側引數，則返回真。假設變數 $a 包含 "abc"，變數 $b 包含 "xyz"，則 ($a le $b) 為真。

如果左側引數在字串上大於或等於右側引數，則返回真。假設變數 $a 包含 "abc"，變數 $b 包含 "xyz"，則 ($a ge $b) 為假。

如果左側引數在字串上等於右側引數，則返回真。假設變數 $a 包含 "abc"，變數 $b 包含 "xyz"，則 ($a eq $b) 為假。

如果左側引數在字串上不等於右側引數，則返回真。假設變數 $a 包含 "abc"，變數 $b 包含 "xyz"，則 ($a ne $b) 為真。

根據左側引數在字串上小於、等於或大於右側引數返回 -1、0 或 1。假設變數 $a 包含 "abc"，變數 $b 包含 "xyz"，則 ($a cmp $b) 為 -1。

指數和賦值運算子，對運算子執行指數（冪）計算並將值賦給左側運算元。$c **= $a 等價於 $c = $c ** $a

它用單引號括起字串。q{abcd} 給出 'abcd'

它用雙引號括起字串。qq{abcd} 給出 "abcd"

它用反引號括起字串。qx{abcd} 給出 `abcd`

二元運算子點 (.) 連線兩個字串。如果 $a="abc", $b="def"，則 $a.$b 將給出 "abcdef"

重複運算子 x 返回一個字串，該字串由左側運算元重複右側運算元指定的次陣列成。('-' x 3) 將給出 ---。

範圍運算子 .. 返回一個值列表，這些值從左側值到右側值依次遞增（每次遞增 1）。(2..5) 將給出 (2, 3, 4, 5)。

自動遞增運算子將整數值增加 1。$a++ 將給出 11。

自動遞減運算子將整數值減少 1。$a−− 將給出 9

箭頭運算子主要用於從物件或類名取消引用方法或變數。$obj−>$a 是從物件 $obj 訪問變數 $a 的示例。

localtime() 函式，如果未給出任何引數，則返回當前日期和時間的值。

#!/usr/local/bin/perl
 
@months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
@days = qw(Sun Mon Tue Wed Thu Fri Sat Sun);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
print "$mday $months[$mon] $days[$wday]\n";

當執行上述程式碼時，它會產生以下結果 -

16 Feb Sat

gmtime() 函式的工作原理與 localtime() 函式類似，但返回的值針對標準格林威治時區進行了本地化。當在列表上下文中呼叫時，gmtime 返回的最後一個值 $isdst 始終為 0。GMT 沒有夏令時。

localtime() 將返回執行指令碼的機器上的當前本地時間，而 gmtime() 將返回世界標準時間，或 GMT（或 UTC）。

您可以使用 time() 函式獲取紀元時間，即自給定日期以來經過的秒數，在 Unix 中是 1970 年 1 月 1 日。

您可以使用 POSIX 函式 strftime() 來格式化日期和時間。

Perl 程式語言中子例程定義的一般形式如下 -

sub subroutine_name{
   body of the subroutine
}

呼叫該 Perl 子例程的典型方法如下 -

subroutine_name( list of arguments );

它們可以在函式內部使用特殊陣列 @_ 訪問。因此，函式的第一個引數在 $_[0] 中，第二個引數在 $_[1] 中，依此類推。

使用 scalar(@_)，我們可以獲取傳遞的引數總數。

my 運算子將變數限制在可以使用和訪問的特定程式碼區域內。在此區域之外，無法使用或訪問此變數。

預設情況下，Perl 中的所有變數都是全域性變數，這意味著可以在程式的任何地方訪問它們。

詞法變數是使用 my 運算子建立的私有變數。

當需要使變數的當前值對被呼叫的子程式可見時，可以使用 local。

local 只是為全域性（即包）變數提供臨時值。這被稱為動態作用域。

詞法作用域是使用 my 運算子實現的。詞法作用域通常是一個程式碼塊，周圍有一組大括號，例如定義子程式體的大括號，或者標記 if、while、for、foreach 和 eval 語句的程式碼塊的大括號。my 運算子將變數限制在可以使用和訪問的特定程式碼區域。在此區域之外，無法使用或訪問此變數。

還有一種型別的詞法變數，類似於私有變數，但它們會保持其狀態，並且在多次呼叫子程式時不會重新初始化。這些變數使用 state 運算子定義，從 Perl 5.9.4 開始可用。

子程式或語句的上下文定義為預期返回的值的型別。這允許您使用單個函式根據使用者期望接收的內容返回不同的值。例如，以下 localtime() 在標量上下文中呼叫時返回字串，但在列表上下文中呼叫時返回列表。

my $datestring = localtime( time );

在此示例中，$timestr 的值現在是一個由當前日期和時間組成的字串，例如，Thu Nov 30 15:21:33 2000。反之 -

($sec,$min,$hour,$mday,$mon, $year,$wday,$yday,$isdst) = localtime(time);

現在各個變數包含 localtime() 子程式返回的對應值。

Perl 引用是一種標量資料型別，它儲存另一個值的地址，該值可以是標量、陣列或雜湊。由於其標量特性，引用可以在任何可以使用標量的地方使用。

您可以透過在變數前加反斜槓來為任何變數建立引用，如下所示 -

$scalarref = \$foo;

您可以透過在陣列前加反斜槓來為任何陣列建立引用，如下所示 -

$arrayref  = \@ARGV;

您可以透過在雜湊前加反斜槓來為任何雜湊建立引用，如下所示 -

$hashref   = \%ENV;

您可以透過在子程式前加反斜槓來為任何子程式建立引用，如下所示 -

$cref = \&PrintHash;

反引用從引用指向的位置返回值。

要反引用引用，只需根據引用指向的是標量、陣列還是雜湊，在引用變數前使用 $、@ 或 % 作為字首。

當兩個引用相互包含對方的引用時，就會發生迴圈引用。在建立引用時必須小心，否則迴圈引用會導致記憶體洩漏。以下是一個示例 -

#!/usr/bin/perl
my $foo = 100;
$foo = \$foo;
 
print "Value of foo is : ", $$foo, "\n";

當執行上述程式時，會產生以下結果 -

Value of foo is : REF(0x9aae38)

以下是以只讀模式開啟 file.txt 的語法。這裡小於號 < 表示檔案必須以只讀模式開啟。

open(DATA, "<file.txt");

這裡 DATA 是將用於讀取檔案的檔案控制代碼。

以下是以寫入模式開啟 file.txt 的語法。這裡大於號 > 表示檔案必須以寫入模式開啟。

open(DATA, ">file.txt") or die "Couldn't open file file.txt, $!";

以下是以寫入模式開啟 file.txt 而不截斷它的語法。這裡加號 <+ 表示檔案必須以寫入模式開啟而不截斷它。

open(DATA, "+<file.txt") or die "Couldn't open file file.txt, $!";

要關閉檔案控制代碼，從而取消檔案控制代碼與相應檔案的關聯，可以使用 close 函式。這會重新整理檔案控制代碼的緩衝區並關閉系統的檔案描述符。

getc 函式從指定的檔案控制代碼返回單個字元，如果沒有指定檔案控制代碼，則返回 STDIN。

read 函式從緩衝的檔案控制代碼讀取資訊塊：此函式用於從檔案讀取二進位制資料。