• ベストアンサー

文字列の置換について

ban5.txtには以下になってます。 4131048 4131053 x x 4850328 x x x x 3870357 3870369 x x 4131038 4131045 x x x この場合にxの行を一番最後の行の数値に置き換えたい場合 perlだとどのようにすればいいんでしょうか。 シェルでやろうとしたんですけどシェルだとちょっと難しいみたいなので perlでやりたいと思ってます。誰かいいスクリプトを教えて下さい。 宜しくお願いします。

  • Perl
  • 回答数3
  • ありがとう数2

質問者が選んだベストアンサー

  • ベストアンサー
  • kodomo55
  • ベストアンサー率57% (8/14)
回答No.3

先に回答が出てありますが、 それでは、ファイルの最後に記述された数字で埋められます。 x に最も近い手前の数値で埋めるには以下のようになります。 my $new; my $last_str; open FILE, '+<ban5.txt' or die; while (<FILE>) { chomp; if ($_ eq 'x') { $_ = $last_str } $new .= $_ .\n; $last_str = $_; } seek FILE, 0, 0; print FILE $new; close FILE; もっと工夫した書き方も色々と出来ますが、 全体の流れを原始的に書くとこのような感じになります。

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (2)

  • atom_seed
  • ベストアンサー率48% (25/52)
回答No.2

my $data; my $last_num; open( FH, "ban5.txt" ); while (<FH>) { $data .= $_; $_ =~ /(\d+)/; $last_num = $1 if ($1); } close(FH); # 最後のデータでxを置換 $data =~ s/x/$last_num/g; # 上書き open( OUT, ">ban5.txt" ); print OUT $data; close(OUT);

panda_tky
質問者

補足

ご回答ありがとうございます。 今日はもう時間が時間なので明日ゆっくりと試してみます。ありがとうございます。

全文を見る
すると、全ての回答が全文表示されます。
  • Tacosan
  • ベストアンサー率23% (3656/15482)
回答No.1

その例だと, 最終的にどうなっていればいいんですか?

panda_tky
質問者

補足

お返事ありがとうございます。 例でいくと最終的には以下のようになって欲しいです。 宜しくお願いします。 4131048 4131053 4131053 4131053 4850328 4850328 4850328 4850328 4850328 3870357 3870369 3870369 3870369 4131038 4131045 4131045 4131045 4131045

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Perl

関連するQ&A

  • シェルスクリプト+perl

    シェルスクリプト中で１行だけperlを利用したいと思っています。 しかしシェルスクリプトで利用している変数をperlに持っていく方法が分からず悩んでいます。 ---------------------- #!/ban/bash hoge="hogehoge" perl -e ・・・　←この中で$hogeを利用したい ---------------------- perlですべて書き直せばできるのですが、１行のためだけに、すべてを修正するのもどうかと思いましたので質問させていただきました。 もしご存知の方いらっしゃいましたらお教えください。

  • 【継続質問】シェルスクリプトを用いて、ある特定の文字列の前に文字列を挿入

    シェルスクリプトを用いて、ある特定の文字列の前に文字列を挿入 の継続質問です。よろしくお願いします。 tacとawkを用いて、"ある特定の文字列の前に文字列を挿入"ということができるのは、 確認することができました。 例えば、 　script.awk　(awkスクリプト) 　sample.txt　(処理対象ファイル) という環境で、 　$ cat script.awk 　$ tac sample.txt | awk -f script.awk | tac > sample2.txt とコマンドを入力した場合、 sample2.txtに、処理が完了したテキストが作成され、 中身も問題ないことを確認できました。 しかし以下のようなことを実現しようと思うと、 うまく行きませんでした・ 「非対話的に上記の処理を行いたいのです」 上記の方法では、 catとtacと2回コマンドを叩く必要があります (1回にもできるのでしょうが…) できれば、自動的に流れる膨大なシェルスクリプトの処理の中で、 上記の処理を自動的に行うということを実現したいのです。 例えば、auto.shというシェルを実行すれば、 勝手にawkスクリプトを読み込み、勝手に変換したものを出力してくれる… そのようなシェルを作成したいと考えています。 そこで色々試しましたが上手くいきません。 １．コマンドの分解ができない tac sample.txt | awk -f script.awk | tac > sample2.txt の上記を、 　#!/bin/sh 　tac sample.txt 　awk -f script.awk 　tac > sample2.txt のようにシェルスクリプトに記述しなおして実行しましたが、 上手くいきませんでした。 ２．script.awk(awkスクリプト)を内部に取り込み 外部ファイルとして存在している、script.awkをなんとか シェルに組み込もうと思って、 　awk {(script.awkの内容をそのまま記述)} のように行いましたが、文法的にやはり無茶苦茶でした・・・。 正直、２番が無理であれば仕方ありませんが、 最低でも１は実現したいと思います。 １の方法だけでも良いので、どなたか回答をお願いします。

  • 二つのファイルから一行ずつ取り出して計算

    aaa.txt と bbb.txtというファイルがあり、それぞれ 1.1 0.1 -0.2 0.9 … といった感じで一行ずつ数値が入っています。 シェルスクリプトを用いて、 この二つのファイルから一行ずつ取り出して足し算を行いたい (例えばaaa.txtの一行目が1.1、bbb.txtの一行目が0.9なら1.1+0.9=2.0) のですが、どうすれば良いでしょうか。

  • UNIX のシェル 文字の置換について

    シェルでファイルの文字列を置換したいです。 /*～*/のコメントの文字なので、１行数を変えたくないです。 ─────────────────────────── ※１文字分の空白を「_」で表示します。 test.txtファイルの「XXXXX」を「aa___」に置換する。 ─────────────────────────── 【test.txt 置換前】 /**************/ /*_XXXXXYYYYY_*/ /**************/ 【シェルの内容 test.sh】 #!/bin/csh set IN_henkan = `printf "%-5s" $1` perl -i -p -e 's/XXX/'$IN_henkan'/g' test.txt 【シェルを実行】 test.sh aa 【test.txt置換前 希望する状態】 /**************/ /*_aa___YYYYY_*/ /**************/ 【test.txt置換前 実際の状態】 /**************/ /*_aa_YYYYY_*/ /**************/ ─────────────────────────── 「aa」の後ろに１文字分の空白しか挿入されないです。

  • 複数行に渡る文字列の置換

    Perlで書かれたソースを以下のように書き換えたいと考えています。 【変換前】 my $message = Convert( From => 'Shift_JIS', To => 'utf-8', Text => "（UTF-8の文字列）", ); 【変換後】 my $message = Convert( "（UTF-8の文字列）" ); ソース・ファイルは非常にたくさんあるのでスクリプトを組んで一括で行いたいと考えています。 容易く書き換えを完了できる方法はないでしょうか？ ■前提条件 - 別の場所に出力するようにする場合はディレクトリ階層も維持する。 - インデントされている場合はインデントを保持する。 perl -pi -e 's///'で置換することが最も簡単そうですが、今回は複数行に渡るため、 s///の部分が非常に複雑になりそうです。なので、s///の部分をスクリプト・ファイルかなにかに 置き換えて、下記のように実行できればと考えているのですが、（何かしらのオプション）の部分が よくわかりません。。 perl -i （何かしらのオプション） （ファイル名） （ソースファイル名）... もちろんもっと良い方法があれば、その方法が良いです。 よろしくお願いいたします。

    • ベストアンサー
    • Perl
  • textファイルにある文字列の置換について

    すみません。 PERL初心者のものですが教えてください。 例えば、a.txtに以下の文字があるとします。 1234567,1111,9,8 1234568,1122,0,5 .... この時、「9」と「0」を文字列 9を"あいうえお" 0を"さしすせそ" と置換したい場合、どのように文字列を置換すれば良いのか ご教授いただけると幸いです。 既に他の方が質問済みでしたら済みません。

    • ベストアンサー
    • Perl
  • シェルスクリプトで複数ファイルを交互に操作する方法

    Bシェルのスクリプトで複数のファイルを交互に操作したいと考えています。 例えば、 　A.txt 　　A 　　A 　B.txt 　　B 　　B という２つのファイルがあったとして、これを交互に読み取り、 　C.txt 　　A 　　B 　　A 　　B というファイルを作成したいと考えています。 現在は1行ごとに別ファイルを作成し、最後にそれをマージするという変な方法をとっています。 awkやperlを使用しないで、純粋にBシェルのスクリプトだけでスマートに実現するにはどのような方法がありますでしょうか。 よろしくお願いします。

  • awkで可変文字列をマッチング

    シェルなどでawkを使う際に、シェルの引数として渡された文字列をawkに渡し、それを条件にマッチングをかけたいのですが、どうしたら良いのでしょうか？（まあ、素直にgrepを使えばいいのですが・・・） 例えば、 cat foo.txt | awk '{if ($2 == ptn) print}' ptn=$<シェルの引数> とかやれば、２番目のフィールドに完全に一致する行が抽出できるのですが、 cat foo.txt | awk '/ptn/ {print}' ptn=$<シェルの引数> とかやっても、"ptn"という文字列をマッチングしてしまうので、うまくいきません。どの位置に出現するかわからないけど、シェルの引数で指定された文字列が含まれている行だけを出力したい場合、どうしたらよいのでしょう・・・。

  • perlで特定行から特定行までを抜き出しor置換

    perlで以下のようなことをしたいと考えています。 以下のことを、コマンドラインから「perl ～」という形で 実行したいのですが、どのよにすればよいでしょうか。 １．特定行から特定行までを抜き出し ２．特定行から特定行の範囲で文字列置換 例えば、次のようなテキストファイルがあったとします。 example.txt ================================== #START aaaa hogehoge test okok perl script #END ================================== 上記ファイルを読み込んで、 １．「#START」から「#END」の間に挟まれた行だけ抜き出し ２．「#START」から「#END」の間で、「test」を置換 のです。 sedで言うところの sed -e '/#START/,/#END/ s/YYYYMM/201603/g' test.txt をやりたいのです。

    • ベストアンサー
    • Perl
  • ファイルをある文字列で分割したいです。

    数百MBの１つのログファイルがあります。 これを月ごとのファイルに分割しようと思ってます。 大きすぎて既存環境のviでは開けないので、コマンドやスクリプトで分割しようと考えてます。 とりあえず今年の3月(Mar)～7月(Jul)と５つ月ファイルに分割できればいいです。 perlで１行ずつチェックしようかと思ってましたが、 間違いなくもっと簡単に処理できるかと思い投稿しました ^ ^;; シェルはcshです。 よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する