perl - tac を一行㧠: 404 Blog Not Found2008å¹´05月26æ—¥02:30 カテゴリ一日一行野郎Tips perl - tac を一行㧠ãã‚Œã£ã¦one-linerã§ã€‚ [ã‚’] ã•ãらã®ãƒ¬ãƒ³ã‚¿ãƒ«ã‚µãƒ¼ãƒã« tac コマンドを入れる UNIX ç³»ã®ã‚³ãƒžãƒ³ãƒ‰ã§ã€tac ã¨ã„ã†ã®ãŒã™ã”ã便利ãªã®ã§ã™ã€‚ ã“ã‚Œã¯ãƒ•ã‚¡ã‚¤ãƒ«ã‚’å…ˆé ã‹ã‚‰è¡¨ç¤ºã™ã‚‹ cat ã¨ã„ã†ã‚³ãƒžãƒ³ãƒ‰ã®é€†ã§ã€ ファイルを行å˜ä½ã§ã²ã£ãã‚Šè¿”ã—ã¦æœ«å°¾ã‹ã‚‰è¡¨ç¤ºã—ã¦ãれるã®ã§ã™ã€‚% perl -e 'print reverse <>' ãŸã ã—ã€ã“ã®ã‚„ã‚Šæ–¹ã¯ä¸€ç«¯ãƒ¡ãƒ¢ãƒªãƒ¼ã«å…¨ãƒ•ã‚¡ã‚¤ãƒ«ã‚’èªã¿è¾¼ã‚€ã®ã§éžåŠ¹çŽ‡ã¨ã„ãˆã°éžåŠ¹çŽ‡ã€‚以下ã®ã‚ˆã†ã«ã™ã‚Œã°ã‚‚ã†å°‘ã—効率的ã«ãªã‚Šã¾ã™ã‹ã€‚ #!/usr/local/bin/perl use strict; use warnings; @ARGV or die "$0 [files...]"; for my $filename ( reverse @ARGV ) { o
{{#tags}}- {{label}}
{{/tags}}