テキストファイルの本文中に行番号を挿入するperlスクリプトを探しています。

Question

テキストファイルの本文中に行番号を挿入するperlスクリプトが有る、と聞いて探しているのですが、見付かりません。何か手掛かりをご存知の方がいらっしゃいましたら、ご教示をお願いいたします。

※「本文中に行番号を挿入する」とは、（テキストエディタやＯＳなどの）環境・設定が異なる人同士で情報交換する際でも、同じ行番号で同じ行を特定できるようにすることを意図しています。

Tacosan · Accepted Answer

$. が「現在の行番号」を表します. で, $_ が「読み込んだ行」なので "$.: $_" で「読み込んだ行の前に行番号を追加する」ということになります.
あと, 書式が必要なら指定できる printf もちゃんと用意されてます. 使える書式はだいたい C と同じです.
ということで Leopard なら
perl -ne 'printf "%06d: %s", $., $_' ファイル名
でいいし, Windows でも
printf "%06d: $s", $., $_ while <>;
というスクリプトを書いて
perl スクリプト ファイル名
で OK.
ただし複数のファイルを一度に処理しようとすると行番号が「前のファイルの続き」になるのは同じ.

Tacosan · Answer

1つのファイルの各行に行番号を付けるということだと:
使ってる OS によるけど Unix なら
cat -n ファイル名
が最も簡単. ど～しても Perl を使いたいのなら
perl -ne 'print "$.: $_"' ファイル名
でいける (出力は適宜リダイレクトする). Windows はクオートまわりが弱いのでワンライナーにならないけど
print "$.: $_" while <>;
とだけ書かれたスクリプトを使う (こちらも出力は適宜リダイレクト) のがきっと楽だと思う.
複数のファイルに対しそれぞれ個別に行番号を付けるなら #2 に近い方法です.

s1m00py · Answer

こんなんでどうでしょうか。

#!/usr/bin/perl
use strict;
use warnings;

my $filename = 'text.txt'; #行番号を挿入したいファイル
my $tmpfile = 'text.tmp';
my $count = 1;

open my $fh, '<', $filename or die "can`t open $filename : $!\n";
open my $tmp, '>', $tmpfile or die "can`t write $tmpfile : $!\n";

while(<$fh>){
print $tmp "$count : $_";
$count++;
}

close $fh;
close $tmp;

unlink($filename) or die "can`t delete $filename : $!\n";
rename($tmpfile, $filename);

mk48a · Answer

ここで解説しているスクリプトでできないでしょうか？
http://www.geocities.jp/m_hiroi/perl_tk/perltk07.html

ダウンロードはできませんが、最後にソースがあります。

テキストファイルの本文中に行番号を挿入するperlスクリプトを探しています。

$. が「現在の行番号」を表します. で, $_ が「読み込んだ行」なので "$.: $_" で「読み込んだ行の前に行番号を追加する」ということになります.

1つのファイルの各行に行番号を付けるということだと:

こんなんでどうでしょうか。

ここで解説しているスクリプトでできないでしょうか？

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング