• ベストアンサー

Perl言語でファイル入出力プログラムについて

Perlでファイル入出力のプログラムをコーディングしたいのですが、いまいちハッシュが理解しずらく困っています。わかる方よろしくお願いします。 moto.pl の中にあらかじめ AAA aaa AaAa AAaa BBB bbb BbBb BBbb CCC ccc CcCc CCcc AAA aaa AaAa AAaa .... というように一行ずつ文字列があり、この場合では最初の大文字AAAが二つあるので、その結果を例えばsaki.plに AAA 2 ... というように出力するプログラムを教えて頂けませんか?

  • Perl
  • 回答数1
  • ありがとう数0

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

関連するQ&A

  • Perlについて教えてください!

    入力ファイルには AAA␣aaa␣AaAa 改行 BBB␣bAb␣BbBb 改行 CCC␣Abc␣CcCc 改行 DDD␣.... というように文字列がスペースおきに3つ記載されていて最後は改行されている文が複数行ある場合、 文の2つ目のaaa、bAb、Abc…のみを配列に格納したい場合のプログラムを教えてください。

    • ベストアンサー
    • Perl
  • Movable Type(ムーバブルタイプ)でカテゴリの順番の入れ替えについて

    Movable Type 3.2-ja-2を使用しております。 親カテゴリーの移動をしたいのですが以下のような カテゴリーがあって AAA  aaaa BBB  bbbb CCC  cccc このカテゴリーを CCC  cccc AAA  aaaa BBB  bbbb このようにしたいのですが何か方法はあるのでしょうか?

  • リネームソフトを探しています

    次のような機能のあるリネームソフトを探しております。 1.フォルダ内のファイル名とファイル内の文字列を入れ替える。 (リネーム対象のファイルのファイル名の一部とファイル内の文字列はユニークに 特定出来る。) 例) ファイル名 aaaa bbbb cccc ファイル内の文字列 aaaa1234 bbbb5678 cccc9abc リネーム後のファイル名 aaa1234 bbb5678 ccc9abc この様なリネームが行えるソフトウェアはあるでしょうか? 環境はWindowsXPです

  • 配列の値を一行あけて出力

    配列の値を一行あけて出力したいのですが、うまくいきません。 ご教授お願いいたします。 <shell> #!/bin/bash ARRAY=("aaaa" "bbbb" "cccc") IFS=$'¥n'$'¥n' echo "${ARRAY[*]}" <現在の出力> aaaa bbbb cccc <期待する出力> aaaa bbbb cccc

  • 以下の様なファイルの中身から重複を取り除いて表示したいのですが、

    以下の様なファイルの中身から重複を取り除いて表示したいのですが、 awk 'NR==1||prev!=$0;{prev=$0}' file.txt の使い方を教えてください。 何故、重複を除いて表示できるのですが。 printなどを使っていないのに表示ができているのですか。 file.txt 以下中身 ---------------------- AAAA BBBB BBBB CCCC CCCC ----------------------- ↓ AAAA BBBB CCCC の3文字のみを出力したい。

  • perl について

    http://AAA/BBB/???/CCC AAAとCCCは固定文字です。 BBBは変化します。 ///の数・順番も固定です。 この状態で、「???」を抜き出してZZZ変数に値を代入するにはどうすれば良いでしょうか? ZZZ=

    • ベストアンサー
    • Perl
  • A列にあったものには1、C列にあったものには2

    シート1の内容をVBAをつかってシート2のようにしたいです。 つまり、シート1の2行目以降のデータをシート2のB列につなげて、 A列には シート1の1行目に記載している番号をふっていきます。 もともとA列にあったものには1、C列にあったものには2、E列にあったものには3と振りたいのですが、どのようにマクロを書けばいいでしょうか? [Sheet1]   A  B  C  D  E 1 1  2  3 2 aa aaa aaaa 3 bb bbb bbbb 4 cc cccc 5  dddd ----------------------------- [Sheet2] A B 1 1 aa 2 1 bb 3 1 cc 4 2 aaa 5 2 bbb 6 3 aaaa 7 3 bbbb 8 3 cccc 9 3 dddd

  • awkやsed等で特定の文字間を抜き出す

    cat text aaaa bbbb <AAA> ccc ddd <BBB> eee とあるときに <AAA> ccc ddd <BBB> だけ抜き出したいです。 どのようにすればよいでしょうか?

  • 別プログラムの標準入力に引数を渡す方法

    以下の加算プログラムhoge.plがあります $aaa = <STDIN>; $bbb = <STDIN>; print($aaa+$bbb); hoge.plを別プログラムから以下のように実行し open(OUT,"| hoge.pl"); hoge.plの$aaa、$bbbに値を代入したい場合どのように渡したらよいのでしょうか?

  • サクラエディタのマクロで外部から取り込んで

    以下のようなことをしたいのですが、サクラエディタのマクロでできますでしょうか? またそれ以外の方法でも構いません。 <ファイル1> AAAA BBBB CCCC ・・・ ・・・ <編集ファイル> これはXXXXです。  <-XXXXを変数でAAAAやBBBBに変えたい。追記したい。 これはAAAAです。 これはBBBBです。 これはCCCCです。 ・・・・・・・・ ・・・・・・・・ このような感じで追記で外部ファイルから1行ずつ読み出して、 任意の文字を置くことはできますでしょうか? よろしくお願いします。

専門家に質問してみよう