パラメータ渡しによってスカラーをサブルーチンに転送するにはどうすればよいですか?私は次のコードを書いて、をsub get_radius
からsub area_circle
に渡したいと思います。Perlはパラメータを渡すことでスカラーをサブルーチンに変換します
#!/usr/bin/env perl
use warnings;
use strict;
use Math::Trig ':pi';
sub get_radius {
print "Enter the radius of the circle: \n";
my $radius = <STDIN>;
}
sub area_circle {
my $radius = get_radius();
my $area = 0;
$area = pi * ($radius **2);
return $area;
}
my $area = area_circle;
print "The area is: $area \n";
あなたの以前のバージョンが正しい方法です。 –
問題は何ですか?あなたのスクリプトは正常に動作しています。 – Toto