パスワードを忘れた? アカウント作成
449468 journal

dragonetの日記: 便利小物

日記 by dragonet
分単位のやっつけ仕事だけど個人的には結構重宝している
みたいなスクリプト内のひとつを、なんとなく公開してみたり。

……説明文作成の方が時間かかってる(w

名前:
num.pl

機能:
2桁の行番号付けをする。
レポートにコードや実行結果を取り込む際に有用。
LaTeXだと\verbatiminput{}あたりとのコンボが楽。

使用例:
% netstat | num.pl > netstat_kekka
% num.pl < hoge.c > hogec

また(中略)などを検知すると
行番号が付かないので多い日の省略も安心(謎

コード:
#!/usr/bin/perl

use strict;
use English;

my $i = 1;

for(<STDIN>){
    if(!($ARG =~ /\(.*略\)/)){
        $ARG = sprintf("%2d %s", $i, $ARG);
        $i++;
    }
    printf("%s", $ARG);
}
この議論は賞味期限が切れたので、アーカイブ化されています。 新たにコメントを付けることはできません。
typodupeerror

人生の大半の問題はスルー力で解決する -- スルー力研究専門家

読み込み中...