作者dipin (吃喝玩乐满天下)
看板Perl
标题Re: [问题]新手问题
时间Sat Sep 20 12:00:58 2008
※ 引述《shelling (shelling)》之铭言:
: 我也来练练 :p
: 1 #!/usr/bin/perl
: 2
: 3 use warnings;
: 4 use utf8;
: 5
: 6 sub main::puts {
: 7 if (@_) {
: 8 print @_;
: 9 }
: 10 print "\n";
: 11 }
: 12
: 13 sub line1 {
: 14 $item = shift;
: 15 "$item " x 10;
: 16 }
: 17
: 18 sub line2 {
: 19 $item = shift;
: 20 $length = " " x (length("$item ") * 9);
: 21 "$item ".$length."$item ";
: 22 }
: 23
: 24 puts "what is your favorite color?";
: 25 $input = <STDIN>;
: 26 chomp $input;
: 27
: 28 puts line1($input);
: 29 puts line2($input);
: 30 puts line2($input);
: 31 puts line1($input);
很喜欢shelling大用sub的方法来print
注意到你们都是用
$scalar = <STDIN>;
chomp $scalar;
请问这样和
chomp($scalar = <>);
有没有不一样
sorry if this question is really stupid...
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.56.137.23
1F:推 giacch:chomp效果一样, 但 <> 比 <STDIN> 多了 读取参数指定的档案 09/20 13:17