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);
}
みたいなスクリプト内のひとつを、なんとなく公開してみたり。
……説明文作成の方が時間かかってる(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);
}
便利小物 More ログイン