- ベストアンサー
perlでファイルの読み方
TheBlackArtistの回答
- TheBlackArtist
- ベストアンサー率0% (0/1)
入力をどの様に区切れば例のような出力になるのかがよく分からないのですが・・・ "EOF"で区切るならファイルは四つになるのではないでしょうか。
関連するQ&A
- 配列とハッシュの配列の要素を比較してファイルに書き出したい
配列Aとハッシュの配列Bがあり、配列の内容をファイルに書き出そうとしています。このとき、パターンマッチをして、Aにしかない場合はAのデータを、Bにしかない場合はBを、両方にある場合は、Aをファイルに出力しようとしています。 以下のようなループのまわし方をしようとして、試行錯誤しましたが、うまい方法を思いつくことができませんでした。 ご教授いただければうれしいです。 while (defined $A[$i]) { my ($name, $pass); $j=0; while (($name, $pass) = each(%{$B[$j]})){ if ($A[$i] =~ /$name/) { } $j++; } $i++; }
- ベストアンサー
- Perl
- perlでの配列について
配列の配列について教えてください。 以下のようなテキストから値を取得し、A,B,Cの値をそれぞれ別の配列に格納し、A,B,Cの平均値を出す処理を行っているとします。 ----- A=100 B=200 C=300 A=110 B=210 : ----- 現状、以下のような状態です。 @arrayA=(); @arrayB=(); @arrayC=(); ： (テキストを読み込み) ： ・読み込んだ行がA=XXXならarrayAにpush push(@arrayA,"100"); ・読み込んだっ行がB=XXXならarrayBにpush push(@arrayB,"100"); ： (各配列の要素の平均値を出す) このやり方だと、グループが増えるとそのまま行数が増えて冗長なので、グループごとの配列を１つの配列にまとめたいのです。 Webで初期値を入れた形で説明しているのはよくみるのですが、今回のように空の配列に値をいれていくにはどうすればよいのでしょうか？(そもそも宣言の仕方もわかりません)。 また、配列の配列？とした場合、以下のような処理はできるのでしょうか？ (1)配列の１つ目の要素(の配列)にpushする(現状でのarrayAにpushに該当) push(@arrayAll[0],"test");
- 締切済み
- Perl
- アルゴリズムでわからない問題があります。（C言語）
問題１：探索アルゴリズムであるハッシュ法について正しいものを選べ。 (1)ハッシュ関数の出力によりデータを格納した配列の先頭から順番に調べる． (2) 入力データを，ハッシュ関数の出力により求めた格納場所に基づいて，あらかじめ木構造に格納しておく． (4) 入力データを格納した配列を繰り返し２つに分割し，それぞれを順番に調べていく． (3) 入力データから格納場所の位置に変換する関数（ハッシュ関数）の出力により，データの探索場所を決定する。 (5) 入力データを，ハッシュ関数の出力により求めた格納場所に基づいて，あらかじめヒープに格納しておく 問題２：探索アルゴリズムであるハッシュ法について正しくないものを選べ。 (1)入力データはハッシュ値で決められる場所に格納される． (2) ハッシュ関数には，異なる入力の値に対し異なる値を出力することが求められる． (3) ハッシュ関数の時間計算量は，入力データのサイズに比例する． (4) データの格納場所が大きい方が効率がよい． (5) 一般に２分探索法より高速に動作する． どなたかアルゴリズムに詳しい方回答お願いします
- 締切済み
- C・C++・C#
- Perlでハッシュや配列で重複するキーについて
ハッシュで重複するキーが値となるので、このハッシュはabdの３つのキーしか存在しないということでしょうか？ %a = ('a'=>1, 'b'=>2, 'a'=>3, 'd'=>4); また、配列の場合はabadと４つ数になるということでしょうか？ @a = ('a','b','a','d'); この場合配列で、重複する値を抽出するアルゴリズムが知りたいです。
- ベストアンサー
- Perl
- Perlで行をさかのぼって削除する方法を教えて下さい
ActivePerl5.8.4にて、以下の規則に従い、テキストファイルから複数行を削除しようとしています。 ・１つの行はアルファベットと数字から成っており、アルファベットはA,B,Cの順に出現する。A,B,Cの行で一かたまり。 ・数字部分が全く同じかたまりが出現すると、後で出現したかたまりを削除する。 ・数字部分が全く同じかたまりが出現するときは、必ず連続で出現する。 下のような感じです。（スペースの都合で「\n」をつけましたが、実際には改行までが１行に書かれているテキストファイルを読み込みます。） 【入力】 A 1\nB 2\nC 3\nA 1\nB 2\nC 3\nA 1\nB 2\nC 2[EOF] 【出力】 A 1\nB 2\nC 3\nA 1\nB 2\nC 2[EOF] すぐに思いついた方法はこんな感じです（まだ勉強不足のため、コードではあらわせません）。 １．ファイルの１行ずつ読み込む ２．A,B,Cをキーにして数字をハッシュに格納 ３．２回目のCまで読み込んだところで１つ前のハッシュと比較 ４．AからCの数字がすべて同じだった場合に、現在の行（２つめのCを読み込んでいる）とその前２行を削除（実際にはnextでprintを飛ばす） ところが、４の、さかのぼって行を削除する方法が思いつきません。 なにぶんperlの勉強を始めたばかりで突っ込み所満載のロジックだとは思いますが、解決策をぜひご教示ください。
- ベストアンサー
- Perl
- Perlの初歩的な質問・・・
@data に大量のデータが格納されていると仮定して、次のようにループ処理するとします・・・ for($i = 0 ; $i < @data ; ++$i){ @XXX = split(/\t/, $data[$i]); } このように @data のデータをさらに細かく配列化して @XXX に代入したいのですが、ループのたびに @XXX の名前を XXX0 , XXX1 , XXX2..... とするには、どうしたらよいのでしょうか。
- ベストアンサー
- Perl
- perlについて、教えてください。
perlについて、教えてください。 「apple.html」と「bigin.html」に、それぞれ, textboxが一つあり、入力値をkeep.cgiで受取り、 「keep.txt」に書込もうと考えています。 a.htmlのテキストボックスに、入力して、submitボタンをクリック しても、「keep.txt」に何も書き込まれません。 「keep.txt」に、 ＿＿＿＿＿＿＿ a=100 b=200 ＿＿＿＿＿＿＿＿ のように、書込みたいと考えています。 下記、keep.cgiのどこが間違っているのか、教えてください。 ___以下、「keep.cgi」です。___________＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ #! c:/perl/bin/perl if($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $query, $ENV{'CONTENT_LENGTH'}); } else { $query = $ENV{'QUERY_STRING'}; } #$queryに「●_text=●」が入っている。 #ファイルを開く、読み書き用。 $open_file_name = "+<keep.txt"; open(A,$open_file_name); #開いたファイルを、１行ずつ読み込む。 while(<A>){ #$_には、keep.txtの、1行目が入っている。 #$_（読込んだ行）に「●_text」があるか、チェックする if($_ =~ /$query/){ #あった場合 next; } #読込んだ行に、$query以外なら、配列に。 @keep = $_; @keep = $query } #ファイルを閉じる。 close(A); #ファイルを削除する unlink($open_file_name); #削除したのと、同じファイル名で新規作成 $new_file = ">>keep.txt"; open(A,$new_file); #再度、作成したファイルに、配列@keepを書込む。 print A @keep; #ファイルを閉じる close(A); print "Cotent-type:text/html\pirnt n\n"; print <<EOF; <body bgcolor="pink"> <font size="4"> 入力値をファイルに書込みました。<br> </font> EOF exit; _____＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ 宜しくお願いします。
- ベストアンサー
- CGI
- perlでの別ファイルへの出力について
perlでファイルAから読み出した値を別ファイルBに出力させたいです。 イメージとしては -------------------------------- open(FILE,ファイルA); while(<FILE>){ my $line = "$_"; system("ls -l $line"); #←ここの結果を1行ずつファイルBに出力したい } close(FILE) --------------------------------- 上記の場合どのように記述すれば良いのでしょうか？ bashでは簡単にかけるのですが、 業務上perlを使用する必要がある為こまっております…。
- ベストアンサー
- Perl
- perlについて
複数のファイルからデータを配列にして抜き出し，そのデータをある式に代入して，新しいデータを作成するというプログラムを作成しております．複数のファイルから必要なデータのみを抜き出す作業はできたのですが，そのデータをある式に代入するのがうまくいきません． 初歩的な質問で申し訳ないのですが，ぜひアドバイスをよろしくお願いします．簡単な図を書きましたので，お分かりの方はお教えください． Ａファイル Ｂファイル ↓ ↓ DATA1 DATA2 ｜＿＿＿＿＿＿｜ ↓ DATA3=DATA1*DATA2 DATA3を求めることができません．わかりにくい説明で申しえわけないのですが，どうかよろしくお願いします．
- ベストアンサー
- Perl
- ファイルから文字列を読み込んで、検索するプログラム
以下のようなプログラムをつくりたいのですが、 どうしたらよいでしょうか？？ 文字列を配列型に入れるときにわからなくなって しまうのですが。。。 ファイルからデータを順番に読み込み，メモリ上に一次元配列構造に並べて線形探索するプログラムを作成せよ． データの仕様 一行に、 「番号（スペース）読み仮名（スペース）文字列（住所）」 があり、これが１０～１０００行ほど、ファイルに（.dat) 入っている。 ファイルを配列に読み込んだあと、 番号を入力すると、住所が検索されてでてくる。 問題文も微妙なのですが、 これは番号の配列と住所の配列は別にして、 検索したほうがいいですよね、、？ 何かヒントになることだけでも良いので、 よろしくお願いします！
- ベストアンサー
- C・C++・C#
補足
入力ファイルには、文字列”EOF"を区切りに項目１と項目２を一塊のデータとして1ファイルに記述されています。 その一塊のデータを項目１と項目２でユニークになるようにファイルに出力したいと考えています。