初めてのPerl 第2章

初めてのPerl

HelloWorldを表示させてみる。

use strict;
use warnings;
print "HelloWorld\n";

半径12.5センチの円の円周を求める。

my $radius = 12.5;
my $pi = 3.14;

print 2 * $pi * $radius ;

ユーザーに半径を入力してもらって計算結果を出力する。

my $radius = <STDIN>;
my $pi = 2 * 3.14;

print $pi * $radius ;

ユーザーが０より小さい数字を入力したら、０として処理する。

my $radius = <STDIN>;
my $pi = 2 * 3.14;

if ($radius <= 0){
        print $pi * 0;
}else{
        print $pi * $radius;
}

2個ユーザーからの値を受け取り、それぞれを表示する。

my $input = <STDIN>;
my $input2 = <STDIN>;

print $input;
print $input2;

ユーザからの第一引数を第二引数分繰り返す。

my $Display = <STDIN>;
my $Number =<STDIN>;
my $count = 1;

while($Number>=$count){
        print $Display;
        $count ++
}