7 lines
100 B
Perl
7 lines
100 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
foreach $line (<>){
|
||
|
|
chomp $line; # 去掉行尾分隔符
|
||
|
|
print "$line";
|
||
|
|
}
|