ダイヤモンド演算子から関数 (サブ) に値を直接渡すにはどうすればよいですか?
私が試してみました:
#!/usr/bin/perl
use Math::Complex;
#quadraticEq - quadratic equation with parameters a ,b ,c
sub quadraticEq {
print "\nx1= ",
($_[1]*$_[1]-sqrt($_[1]*$_[1]-4*$_[0]*$_[2]))/(2*$_[0]),
"\nx2= ",
($_[1]*$_[1]+sqrt($_[1]*$_[1]-4*$_[0]*$_[2]))/(2*$_[0]);
}
print 'Enter Numbers:';
quadraticEq(<>,<>,<>); #here
しかし、関数の各引数に数字を入力するときに EOF を入力する必要があります。として動作し@array=<>
ます。のように動作させたい$var=<>
。したがって、入力は次のようになります。
Enter Numbers: 5 4 3