在Perl中，可以使用特殊變量@ARGV來處理命令行參數。@ARGV是一個數組，包含了傳遞給腳本的命令行參數。可以通過訪問@ARGV數組中的元素來獲取這些參數。
以下是一個簡單的示例，演示了如何處理命令行參數：
#!/usr/bin/perl
# 打印所有的命令行參數
foreach my $arg (@ARGV) {
print "$arg\n";
}
# 獲取特定的命令行參數
my $first_arg = $ARGV[0];
print "第一個參數是：$first_arg\n";
# 檢查是否有足夠的參數傳遞給腳本
if (@ARGV < 2) {
die "請至少傳遞兩個參數給腳本\n";
}
# 處理更復雜的命令行參數
my %options;
foreach my $arg (@ARGV) {
if ($arg =~ /--(\w+)=(\w+)/) {
$options{$1} = $2;
}
}
# 打印處理后的參數
foreach my $key (keys %options) {
print "參數$key 的值是：$options{$key}\n";
}
在這個示例中，我們首先打印了所有的命令行參數，然后獲取了第一個參數，并檢查是否至少有兩個參數傳遞給腳本。接著，我們展示了如何處理更復雜的命令行參數，例如--option=value格式的參數。您可以根據您的需求對代碼進行相應的修改和擴展。
