use utf8;
use warnings;
chomp ($my_in = <STDIN>);
print_1_0($my_in);
sub print_1_0{
my($num) = @_; #right
print "num is $num .\n"
}
use utf8;
use warnings;
chomp ($my_in = <STDIN>);
print_1_0($my_in);
sub print_1_0{
my($num) = $_; #Use of uninitialized value $num in concatenation
print "num is $num .\n"
}
use utf8;
use warnings;
chomp ($my_in = <STDIN>);
print_1_0($my_in);
sub print_1_0{
my $num = @_;
print "num is $num .\n"
}
这个最主要的是要理解函数传入的是什么东西.
1,函数传入的是一个列表,所以要使用@_,此处列表只有一个元素.
2,$_是没有任何值得,因为函数调用的时候,没有传递标量进来.
3,my $num = @_;这个表达式把@_当作了标量使用,是@_的元素个数.
chomp ($my_in = <STDIN>);
print_1_0($my_in,$my_in,$my_in);
sub print_1_0{
my $num = @_;
print "num is $num .\n"
}