質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.51%

  • プログラミング言語

    682questions

    プログラミング言語はパソコン上で実行することができるソースコードを記述する為に扱う言語の総称です。

  • Perl

    457questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

  • 検索

    89questions

    検索は、あるデータの集まりの中から 目的のデータを見つけ出すことです。

  • 置換

    40questions

    置換とは文字列中の特定の文字に対して、別の文字列に置き換えることを指します。

perl 検索範囲指定

解決済

回答 4

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 350

yabu12

score 4

前提実現したいこと

perlでhoge.txtのデータの一部を置換してhogehoge.txtにコピーしたいと考えています。

hoge.txtの中身

<ccc>
abcdefg
</yyy>

<aaa>
ABCDEFG
</xxx>

<ccc>
abcdefg
</yyy>

<aaa>
ABCDEFG
</xxx>


hoge.txtの
<aaa>の範囲から</xxx>の範囲までを指定しコピーする。
それ以外は、NEXTでとばしたいと考えています。

hogehoge.txt

<bbb>
ABCDEFG
</zzz>

<bbb>
ABCDEFG
</zzz>


イメージですが、このようにしたいです。

発生している問題・エラーメッセージ

hoge.txtの
<aaa>の範囲から</xxx>の範囲までをコピ-したいのですが、
現状<aaa>の部分から、一番下の</xxx>まで書きだしてしまってる問題があります。
下記の文で範囲をしていしてしまっているためだと思います。
if($line = /\aaa\>/ .. /\<\/xxx\>/)

現状hogehoge.txtの中身

<bbb>
ABCDEFG
</zzz>

<ccc>
abcdefg
</yyy>

<bbb>
ABCDEFG
</zzz>


該当のソースコード

!/usr/bin/perl

use utf8;
use strict;

open(IN,"<","hoge.txt");

open(OUT,">>","hogehoge.txt")or die"error:$!";
while (my $line = <IN>) { 
if($line = /\aaa\>$/ .. /\<\/xxx\>$/){
$line = ~s/\<aaa\>/^\<bbb\>/g;    
$line = ~s/\<\/xxx\>/\<\/zzz\>/g;
print OUT $line;
}else{
next
}
}
close(IN);
close(OUT);

試したこと

開始値、終了値やフラグをなど調べてみましたが私の理解が足りず力不足でした。

補足情報(言語/FW/ツール等のバージョンなど)

言語 perl

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 4

+2

とりあえずこれでどうでしょうか

open(IN,"<","hoge.txt");
open(OUT,">>","hogehoge.txt")or die"error:$!";

my $write = 0 ;
while (<IN>) {
  if(/^<\/xxx>$/) {
    print OUT $_;
    $write = 0;
  } elsif(/^<aaa>$/) {
    $write = 1 ;
    print OUT $_;
  } elsif ($write) {
    print OUT $_;
  }
}
close(IN);
close(OUT);

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/10/11 20:33

    回答ありがとうございます。
    さっそく実践したいと思います!!

    キャンセル

checkベストアンサー

+1

perlでないとだめでしょうか。

sedならこう。

sed -n '/^<aaa>$/,/^<\/xxx>$/p' hoge.txt | sed -e 's/^<aaa>$/<bbb>/g' -e 's/^<\/xxx>$/<\/zzz>/g' > hogehoge.txt

perlならこうでしょうか。

#!/usr/bin/perl

use utf8;
use strict;

open(IN,"<","hoge.txt");

open(OUT,">>","hogehoge.txt")or die"error:$!";

my $text = '';
while (my $line = <IN>) {
   $text .= $line;
}

while($text =~ /<aaa>.*?<\/xxx>/s){
   my $tmp = $&;
   my $match = $&;
   $match =~ s/^<aaa>$/<bbb>/m;
   $match =~ s/^<\/xxx>$/<\/zzz>\n/m;
   print OUT $match;
   $text =~ s/$tmp//s;
}

close(IN);
close(OUT);

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/10/11 20:07

    回答ありがとうございます。
    sedについて調べてみます。
    可能であるならperlで行いたいと考えています。

    キャンセル

  • 2017/10/11 20:46

    perlでの方法まで書いていただきありがとうございます。
    今回はperlということで質問させていただきましたが
    今後、sedなども使用するように視野を広げていきたいと思います。
    ありがとうございます。

    キャンセル

+1

パターンマッチ演算子の使い方がおかしいです。 =~の文法を確認して下さい。   

while (my $line = <IN>) {
  if($line =~ /<aaa>/ .. $line=~/<\/xxx>/){
    $line =~ s/<aaa>/<bbb>/g;    
    $line =~ s/<\/xxx>/<\/zzz>/g;

    # 上のは下の様に書いた方が良い。
    # $line =~ s{</xxx>}{</zzz>}g; 

    print OUT $line;
  }else{
    next
  }
}

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/10/11 20:36

    回答ありがとうございます。
    \が非常に汚くなってしまい困っていたところでした。
    $line =~ s{</xxx>}{</zzz>}g;のように直させていただきます。
    ありがとうございます。

    キャンセル

+1

こういうことじゃなくて?

perl -nle 'next if /^<aaa>$/../^<\/xxx>$/; print;' hoge.txt > hogehoge.txt

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/10/11 21:24

    回答ありがとうございます
    perlのワンライナーってものですかね。
    ありがとうございます。
    しっかり、試させていただきます。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.51%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る

  • プログラミング言語

    682questions

    プログラミング言語はパソコン上で実行することができるソースコードを記述する為に扱う言語の総称です。

  • Perl

    457questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

  • 検索

    89questions

    検索は、あるデータの集まりの中から 目的のデータを見つけ出すことです。

  • 置換

    40questions

    置換とは文字列中の特定の文字に対して、別の文字列に置き換えることを指します。