デフォルト引数、デフォルト変数。
#!/usr/local/bin/perl
$_ = "Hello, World!\n";
s/!/?/g;
print $_;
#=>
Hello, World?
サブルーチン引数。
#!/usr/local/bin/perl
sub multiply {
my $product = 1;
foreach (@_) {
$product *= $_;
}
return $product;
}
print &multiply(2, 3, 5) . "\n";
#=>
30
配列が " (ダブルクォーテーション) で展開された時の、セパレータ（区切記号）。
#!/usr/local/bin/perl
$" = "|";
@array = ("hoge", "fuga", "piyo");
print "@array\n";
#=>
hoge|fuga|piyo
プロセスID。
# ワンライナー実行
$> perl -le "print $$"
#=>
6532
実行されているプログラムの名前。
#!/usr/local/bin/perl
print "$0\n";
#=>
./hoge.pl