- 论坛徽章:
- 5
|
史不史丟比 ? 不只是看一行代码.
看代码不局限在一行 ~ {:2_172:}
史不史丟比 ?but:- sub foo {
- my $arg = 123; # 史丟比
- $arg = shift;
复制代码 史不史丟比 ?- while (<DATA>){
- chomp; # 史不史丟比 ?
复制代码 but:- while (<DATA>){
- chomp;
- chomp; # 史丟比
复制代码- while (<DATA>){
- chomp; # 史丟比
- my ( $A, $B ) = split /\s/, $_, 3;
- say "$A|$B";
-
- __DATA__
- a s d f g h
- z x c v b n
复制代码- while (<DATA>){
- chomp; # 史丟比
- my @a = split;
复制代码- while (<DATA>){
- chomp; # 史丟比
- my @a = split /,/;
- print join( '|', @a ) . "\n";
-
- __DATA__
- 1,2,3
复制代码 史不史丟比 ?- my @context = <FILEA>;
- chomp @context; # 史不史丟比 ?
复制代码 but:- my @context = <FILEA>;
- chomp @context; # 史丟比
- $str = $str.$context[$row]."\n";
- @context = ();
复制代码 ....
史不史丟比 ? 不只是看一行代码 ~ {:2_168:}
回复 10# yestreenstars
|
|