close
Unix 系統很多指令
用 Perl 語言只要幾行就 K.O. 掉了
比如說 cat
1 #!usr/bin/perl -w
2
3 while(<>){
4 push @ans,$_;
5 }
6 print @ans;
如果是 tac
1 #!usr/bin/perl -w
2
3 @ARGV = reverse @ARGV;
4 while(<>){
5 push @ans,$_;
6 }
7 print reverse @ans;
ARGV 真是一個很好的 filehandle
另外，也難怪 Perl 是個比 C 還高階的語言
例如陣列的反轉 Perl 只要一個 reverse 指令
很多 C 裡面要寫好幾行的 Perl 可以單單幾行做掉
真威
用 Perl 語言只要幾行就 K.O. 掉了
比如說 cat
1 #!usr/bin/perl -w
2
3 while(<>){
4 push @ans,$_;
5 }
6 print @ans;
如果是 tac
1 #!usr/bin/perl -w
2
3 @ARGV = reverse @ARGV;
4 while(<>){
5 push @ans,$_;
6 }
7 print reverse @ans;
ARGV 真是一個很好的 filehandle
另外，也難怪 Perl 是個比 C 還高階的語言
例如陣列的反轉 Perl 只要一個 reverse 指令
很多 C 裡面要寫好幾行的 Perl 可以單單幾行做掉
真威
全站熱搜
留言列表
jubeat 
