Perl プログラミングの流れ(2ページ目)

サンプルプログラム

エディタを用意したら早速プログラムを作成しましょう。

以下のサンプルプログラムを、この通りエディタで打ち込んで「BOMなし UTF-8」で保存して下さい。Perl に慣れるために手打ちをお勧めします。コピー&ペーストする方は、末尾2行の「¥n」の部分だけは手で打ち直して下さい。

保存ファイル名は何でもいいのですが、Perl プログラムは .pl の拡張子を付けるのが一般的です。「kawase.pl」にしましょうか。

#為替レートから100円でいくらになるかを計算する

use strict;
use warnings;
use utf8;

#為替レートを設定（1ドル〇〇円の値）。
my $kawase_usd = 93.46;

#計算
my $usd_per_yen = 1 / $kawase_usd * 100; #100円なら何ドル？

#出力
binmode STDOUT, ':encoding(utf8)'; #Windowsは utf8->cp932
print "今日の為替は1ドル $kawase_usd 円です。¥n"
print "100円は $usd_per_yen ドルです。¥n";