until文

質問

初歩的な質問ですみません。

file1
あいうえお
かきくけこ
さしすせそ
たちつてと
　　・
　　・
　　・
　　・
なにぬねの
はひふへほ
まみむめも

があります。
・・・・の部分を消したくて、以下のようなプログラムを書いたのですが、
上手くいきません。
教えてください。お願いします。

@ARGV = ("file1");
$^I = ".bak";
while(<>){
$a = 0;
chomp($_);
if(/たちつてと/){
$a = 1;
until(/なにぬねの/){
$a = 1;
}
};
if(/なにぬねの/){
$a = 0;
};
if($a = 1){
}else{
print "$_\n";
};
};

回答No.3

nightowl · ベストアンサー

こんばんは。お礼ありがとうございます。

>消した部分に別のファイルから読み込んだものを
>書き加えたいのですが、どこに何を付け加えたら
>よいのでしょうか？

「なにぬねの」の行でフラグ(意味がわかるよう変数名は書き換えました)
を元に戻すときにその処理を入れてやりましょう。

$infile = "file2"; # 読み込むファイル名を指定
$skip = 0;
while (<>) {
if (/なにぬねの/) {
$skip = 0; # フラグをクリア
open IN, $infile; # ファイルハンドル IN でオープン
while ($line = <IN>) { # IN から１行ずつ $line に読み込む
print $line;
}
close IN; # 帰りは戸締りを忘れずに
print "\n";
} # End of if (/なにぬねの/)
print if $skip == 0;
$skip = 1 if /たちつてと/;
}
print "\n";

参考書はお持ちでしょうか。オライリー・ジャパンの「初めての Perl 第３版」
(Randal L. Schwartz、Tom Phoenix 著、近藤 嘉雪訳)などどうぞ。
http://www.oreilly.co.jp/BOOK/lperl3/

参考URL：

http://www5a.biglobe.ne.jp/~n_rieko/perl/,http://www.rfs.co.jp/sitebuilder/perl/05/

お礼

nightowlさま、ありがとうございます。
参考図書、参考URLも教えていただき、
本当にありがとうございました。
早速、本を買って勉強したいと思います!!

回答No.2

nightowl

訂正です。chomp し忘れてましたね。
でも、「$_」にすでに改行が含まれていることをうまく利用して

print "$_\n" if $a == 0;

のところは

print if $a == 0;

と書けます(print は引数なしで $_ を出力するから)。
そして最後に「print "\n";」してやりましょう。

それから、if 文や while 文などブロックの外側の「;」は必要ありません。

お礼

ありがとうございました！！
出来ました！
更に質問なのですが、
消した部分に別のファイルから読み込んだものを
書き加えたいのですが、どこに何を付け加えたら
よいのでしょうか？

回答No.1

nightowl

こんにちは。until もループの１種ですから while ループの中で使うと
ぐーんと遅くなりますし、このように脱出条件を間違えると
無限ループしてしまいます。ループの中だけ単純に書きますと、

$a = 0; # フラグ変数はループの外に出して
while (<>) {
$a = 0 if /なにぬねの/;
print "$_\n" if $a == 0;
$a = 1 if /たちつてと/;
}

その他ここの問題点として、

if($a = 1){
}else{
print "$_\n";
};
};

・「$a = 1」は代入式です。条件判定なら「$a == 1」としなければ。
・if ブロックの中身が空です。条件をひっくり返すか、
unless を使ったほうがいいでしょう。

unless ($a == 1) {
print "$_\n";
}