#!/usr/bin/perl -w
print "input a number:";
chomp(my $line=);
print "input some string";
chomp(my @data=);
foreach(@data){
printf "%${line}s\n",$_;
}
我想要的是先输入一个数字,然后输入多行字符串,然后打印出来
为什么执行结果不对呢
#!/usr/bin/perl -w
print "input a number:";
chomp(my $line=);
print "input some string";
chomp(my @data=);
foreach(@data){
printf "%${line}s\n",$_;
}
我想要的是先输入一个数字,然后输入多行字符串,然后打印出来
为什么执行结果不对呢
#!/usr/bin/perl -w
print "input a number:";
chomp(my $line=<>);
print "input some string";
chomp(my @data=<>);
foreach(@data){
printf "%${line}s\n",$_;
}
输入完字符串后,linux下按再按回车(windows下按Ctrl+z),就可以打印输入的内容了。