プログラマ専用SNS ミクプラ

yam さんが書きました: そこでperlで連番を自動生成させればよいのではないかと考えました。
具体的には「ファイルの読み込み」→「『番号』の箇所に連番を生成させて、置換する」→「ファイルの書き込み」といったことを考えております。

しかし初心者のためうまくいかず、またネットでサンプルとなるものはないかと探したのですが、こちらもうまく見つけることができませんでした。
そこで皆様のお知恵をお借りしたく、投稿させて頂きました。何卒、よろしくお願い致します。

フォーラムルール さんが書きました: 　　2. どう取り組んで(作ったプログラムはどれで

　　3. どのようなエラーやトラブルで困っていて

yam さんが書きました:そこでperlで連番を自動生成させればよいのではないかと考えました。
具体的には「ファイルの読み込み」→「『番号』の箇所に連番を生成させて、置換する」→「ファイルの書き込み」といったことを考えております。

しかし初心者のためうまくいかず、またネットでサンプルとなるものはないかと探したのですが、こちらもうまく見つけることができませんでした。

bitter_fox さんが書きました:

フォーラムルール さんが書きました: 　　2. どう取り組んで(作ったプログラムはどれで

　　3. どのようなエラーやトラブルで困っていて

h2so5 さんが書きました: 以下の4つのページに書かれていることを押さえれば作れてしまいました。
（正規表現については知らないとやや戸惑うかもしれませんが、別に難しい使い方をしているわけではありません）

http://www.kent-web.com/perl/chap2.html
http://www.kent-web.com/perl/chap6.html
http://www.kent-web.com/perl/chap7.html
http://www.kent-web.com/perl/chap9.html

答えのコードを書くほどのプログラムではないので、
とりあえずyam さんの手でできるだけ書いてみることをお勧めします。

bitter_fox さんが書きました: もしyamさんが作ったプログラムがあれば教えていただけますか？

h2so5 さんが書きました: この連番データの場合ですと、正規表現を使わなくても一応は自動生成プログラムを書くことができます。

open(FILE, "data.txt");
    $i = 1;
    while(<FILE>){
    chomp;
        if($_ =~ /番号/){
             print $i . $_ , "\n";
             $i++;
        }
}
close (FILE);

open(FILE,"> data.txt");
print FILE "生成した連番";
close (FILE);

yam さんが書きました: 1. 今回はマッチ =~ を使いましたが、「番号:<数字>」の<数字>のところだけを取り出せないものかと悩んでおります。

yam さんが書きました: 2. 上記1.と関連して、連番は行頭に出ましたが、行頭ではなく<数字>のところに出ないものかと悩んでおります。

yam さんが書きました: 3. 上記1.と2.と関連して、本当はマッチではなく置換(s///)を使って、「番号:」以下の数字の部分を取り出した後、連番を発生させて置き換えたいと考えているのですが、置換をどのように組み合わせて使ってよいのかわかりません。

yam さんが書きました: 4. 本来の目的としては、連番を生成させた後、deta.txtに書き込みを行いたいのですが、どのようにしていいのかよくわかりません。

h2so5 さんが書きました: data.txtとは別に書き込み用のdata_out.txtなどを開いておき、
data.txtを1行ずつ開きながらdata_out.txtに書き込みを行い、
番号の行の時だけはdata.txtの内容を無視して正しい番号を書き込みます。

h2so5 さんが書きました: perl -ne 's/(番号:)\d+/$1.++$i/e;print;' < data.txt

yam さんが書きました:それとISLeさんがお書きくださった、

ISLe さんが書きました: perl -ne 's/(番号:)\d+/$1.++$i/e;print;' < data.txt

についてもうまくいかなかったのですが、お書きになってくださった内容を理解するためにいろいろ調べて勉強になりましたし、置換のs///を使ってもいけるのだという勉強になりした。この点についても今後チャレンジしてみたいと思います。

while(<>){
	s/(番号:)\d+/$1.++$i/e;
	print;
}

open IN, "in.txt";
open OUT, ">out.txt"; # >の直後にファイル名
while(<IN>){
	s/(番号:)\d+/$1.++$i/e;
	print OUT;
}
close OUT;
close IN;

ISLe さんが書きました: そのままだと結果は端末に出力されますのでファイルに記録したいときはリダイレクトします。
CygwinとUbuntuのbashでは動作したのですが。
後学のために出力されたエラーメッセージなど教えていただけないでしようか。

ISLe さんが書きました: in.txtを読み込んでout.txtに書き出すとなるとこんな感じになります。

コード:

open IN, "in.txt";
open OUT, ">out.txt"; # >の直後にファイル名
while(<IN>){
	s/(番号:)\d+/$1.++$i/e;
	print OUT;
}
close OUT;
close IN;

yam さんが書きました:perl -w data.pl Name "main::i" used only once: possible typo at data.pl line 4.

というメッセージがでました。ただ、処理についてはうまくできていましたので、このメッセージは無視してもいいかとも思うのですが、いかがでしょうか。

use strict;
use warnings;
open IN, "in.txt";
open OUT, ">out.txt";
our $i; # 変数は宣言が必須になる
while(<IN>){
    s/(番号:)\d+/$1.++$i/e;
    print OUT;
}
close OUT;
close IN;

ISLe さんが書きました: $iという変数が突然出てきてしかも一回しか使われていないのだがタイプミスではないか？という警告ですね。
これに関してはスクリプトを短くするためにあえて無視しました。

ISLe さんが書きました: ふだんスクリプトを書くときはuse strict＆use warningsを付けるようにしています。
本当にタイプミスしたときエラーで弾いてくれます。