Perl サンプルプログラム - qq274sw9k @ ウィキ

引数指定

コマンドプロンプトから、次のように入力してリターンキーを押してください。-eオプションは次に続く'...'をperlスクリプトとして実行することを意味します。

perl -e "print 'Hello world!!';"

ファイル指定

次のような内容のテキストファイル(仮にhello.plとします)を作成してください。

print "Hello world!!\n";

上記で作成したファイルの名前を引数にして、コマンドプロンプトから次のようにperlコマンドを実行してください。

perl hello.pl

コマンドプロンプトから次のように入力して実行してください。

hello.pl

echo  print "Hello World!!\n";  | perl      # Windowsの場合

$xx = 5;
$yy = 2;
$zz = $xx + $yy;
print "答は $zz です。\n"; 

$xx = 7;
print "答は$xxです\n";     # 「答は7です」と表示されます
print '答は$xxです\n';     # 「答は$xxです\n」と表示されます

$xx = 5;          # スカラー変数$xxに数値5を代入します。
$xx = "abc";      # スカラー変数$xxに文字列abcを代入します。
print "$xx\n";    # スカラー変数$xxの値を参照して表示します。

$xx[0] = 5;        # 0番目の要素に数値5を代入します。
$xx[1] = "abc";    # 1番目の要素に文字列abcを代入します。
print "$xx[1]\n";  # 1番目の要素の内容abcを表示します。

@xx = ( "aa", "bb" );       # 配列xxにaa,bbを代入します。
$xx[2] = 'cc';              # 2番目の要素にccを代入します。
@xx[3..4] = ( "dd", "ee" ); # 3～4番目の要素にdd,eeを代入します。
print @xx;                  # aa bb cc dd eeを表示します。
print $xx[0];               # 0番目の要素aaを表示します。
print @xx[0..2];            # 0～2番目の要素aa bb ccを表示します。 

@xx = ( "aa", "bb", "cc", "dd" );
print "$#xx\n";                     # 3と表示されます。

( $year, $mon, $day ) = ( 1997, 2, 3 );

@xx = ();

foreach $i (@xx) {
    print "$i\n";
}

$xx{"Tanaka"} = "man";
$xx{"Suzuki"} = "female";

%xx = ( "tanaka", "man", "suzuki", "female" );
print $xx{"tanaka"};
print $xx{"suzuki"};

while (($name, $value) = each(%xx)) {
    print "$name = $value\n";
}

$xx = "12345";
print $xx + 5;

while (<IN>)  # while ($_ = <IN>) と同じ意味
print;        # print $_; と同じ意味
/^From:/      # $_ =~ /^From:/ と同じ意味

while ($xx = <IN>) {
    if ($xx =~ /^From:/) { print $xx; }
} 

while (<IN>) {
    if (/^From:/) { print; }
}