ベストアンサー

テキストファイル内を並べ替える

2007/02/15 23:02

Perl初心者です。コンマで区切られたデータファイル（data.txt）があります。 (データの並びは、num,age,name) 1,20,nakamura 1,19,ito 2,20,sato 1,20,suzuki このようなデータを並び替えたいのです。並び替えの優先順位は1番がnumで、2番がageで、3番がnameです。こういう並び替えはどうしたらいいでしょうか？

nana15_3
お礼率100% (8/8)

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

みんなの回答 （1）
専門家の回答

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

ベストアンサー

bardfish
ベストアンサー率28% (5029/17766)

2007/02/15 23:07 回答No.1

このサイトの「ソート」を参照してください。 http://www.din.or.jp/~ohzaki/perl.htm

質問者

お礼 2007/02/16 13:52

リンク先を参考にして、希望通りの操作ができました。ありがとうございます。

関連するQ&A

MySQLでのレコード移動（オートインクリメント）

MySQL 5.1 (win)で以下の流れで「オートインクリメントをリセット後」、レコード移動したいです。 ※idはauto_incrementしています。１．既存のレコード一覧からレコード２を削除 id　name　comment 1　tanaka　こんにちは ※削除 3　suzuki　こんにちは 4　nakamura　こんにちは　 5　kimura　こんにちは２．この後、idのAUTO_INCREMENTを「１」にリセット。３．新規レコードを追加 id　name　comment 1　tanaka　こんにちは 3　suzuki　こんにちは 4　nakamura　こんにちは　 5　kimura　こんにちは 2　sato　こんにちは　←idが空き番の２から始まり、このようにレコードが最後に追加されますよね？この後これをレコード１とレコード３の間に移動させたいのですがそんなＳＱＬ文はありますか？ ***最終結果*** id　name　comment 1　tanaka　こんにちは 2　sato　こんにちは　←ココに移動 3　suzuki　こんにちは 4　nakamura　こんにちは　 5　kimura　こんにちはよろしくお願いします
SASの時間比較

以下のようなデータがあった場合時間の間隔を出す場合どのようにすればいいのでしょうか？日数ではDATDIFを使えばいいのですが時間の場合はどうすればいいのでしょうか？ name,time sato,2005/06/10 21:00:05 sato,2005/06/10 21:30:05 sato,2005/06/10 21:40:05 suzuki,2005/06/10 20:00:00 suzuki,2005/06/10 20:10:00 suzuki,2005/06/10 20:30:00 tanaka,2005/06/10 21:00:05 tanaka,2005/06/10 21:13:05 tanaka,2005/06/10 21:10:05 tanaka,2005/06/10 21:30:05 tanaka,2005/06/10 21:31:05
ファイルからの入力方法について

例えば、data.txt　というファイルから数字を一つずつ変数に入力させたいです。 data.txtの内容は、 1 1 2 3 5 8 13 21 34 55 89 144 … のような並びで文字が書かれていて、それを int num[1000]; のような変数配列に数字として一つずつ順番に入力させたいです。ご教授ください。
DOS:テキスト内の特定行の次行に文字列を追加

DOSコマンドプログラムでテキストファイル内の特定文字列を含む行の次の行に、指定した文字列を含む行を挿入する方法 Windows7の DOSコマンドプログラムで、下記の"input1.txt" を"output1.txt"に変換したいと思っています。 "input1.txt"内で"Name:"を含む文字列があれば、その行の次の行に、"A1:10.2"という行を挿入するDOSコマンドプログラムをご教授いただけないでしょうか。見つけた文字列行の次の行に挿入する方法というのが、できなくて困っています。 ---input1.txt------ Name: Tanaka B1: H2 C1: 2 Comment: ABC# 61, Seq# M34 Num H: 3 12 37.97 13 105.90 14 203.82 Name: Suzuki B1: H2 C1: 2 Comment: ABC# 58, Seq# M39 Num H: 2 11 37.97 12 105.90 Name: Yamada B1: H2 C1: 2 Comment: ABC# 93, Seq# M397 Num H: 4 2 2.00 12 4.00 13 9.99 14 29.97 --------------- ---output1.txt----- Name: Tanaka A1:10.2 B1: H2 C1: 2 Comment: ABC# 61, Seq# M34 Num H: 3 12 37.97 13 105.90 14 203.82 Name: Suzuki A1:10.2 B1: H2 C1: 2 Comment: ABC# 58, Seq# M39 Num H: 2 11 37.97 12 105.90 Name: Yamada A1:10.2 B1: H2 C1: 2 Comment: ABC# 93, Seq# M397 Num H: 4 2 2.00 12 4.00 13 9.99 14 29.97 -----------------
ファイル内のデータを１行削除する方法

いつもお世話になります。今、ファイル操作を勉強しています。 sample.txtに下記のデータが格納されています。【sample.txt】 --------------------- yamada.txt | 29 suzuki.txt | 25 kitamura.txt | 30 endo.txt | 32 --------------------- char *name="suzuki.txt"; sample.txtのデータがchar nameと一致する、ファイルの行を削除し、行を詰めたいのですがどうしたらいいのでしょうか？結果として、sample.txtが、 --------------------- yamada.txt | 29 kitamura.txt | 30 endo.txt | 32 --------------------- のように、一致したsuzuki.txtの行が削除され、行が詰められている状態にしたいです。どうぞよろしくお願い致します。
XML要素をテキストファイルに出力するようにするには？

お世話になります。 Perlを使って以下のようなXMLドキュメントを読み込み、テキストファイルの出力を行いたいと思って、正規表現等を使ってプログラムを作ってはいましたが、なかなかうまく行かず、行き詰まってしまいました。～～読み出すファイルのタグ～～ <info　num = 1> <name>namae1</name> <nunber>10</number> </info> <info num =2> <name>namae2</name> <nunber>25</number> </info> ・・～～終了～～上記で読み出したい要素は、それぞれの<info>タグ内の<name>と、<nunber>のタグ内の要素です。そして、その要素をテキストファイルに出力する。というようなプログラムを考えております。事情により、出来れば、Perlのモジュールを使わずに正規表現などにて取り出したいと思っていますが、楽な方法が有ればその方法もおしえていただければと思います。使用目的は、ローカル上でXMLドキュメント内のデータを抽出することです。何か良い方法が有れば、ご教授いただけると助かります。よろしくお願いします。
同一ファイルからの文字列検索

お世話になります。今、ファイル処理を勉強しています。 hoge.txtに文字列が格納されています。 (hoge.txt) --------------------- suzuki yamada kimura tanaka ito suzuki kimura --------------------- hoge.txtの上の行より、下に検索を行い、一致した場合、printf("HIT\n");と出力します。動きは、 suzukiを検索文字列し、yamada～kimuraまで検索を行い、もしヒットした場合、出力表示します。 suzukiが検索終了すると、次のyamadaを検索文字列として、 kimura～kimuraを検索します。この動作を最後の行まで行えば終了です。下記のfgets()で１行分を取得してからの次の行への移行がわかりません。 FILE *fp; char name[256]; if(　(fp =fopen( "hoge.txt", "r )) == NULL ){ return 0; } while( fgets(name, sizeof(name), fp ) != NULL ){ //ここで次の行以下とstrstr()で比較を行う } お手数をお掛けしますが、よろしくお願い致します。
フォームに入力された内容で並び替えをする

Perl初心者です。現在、フォームに入力された内容で、テキストデータを並び替えて保存するスクリプトを作成しています。 name1,add1,tel1,mail1,comment1　改行↓ name2,add2,tel2,mail2,comment2　改行↓ 一行が上記の形式でCSV形式で保存されたデータがあります。データの並び替えフォームで、データの並び順変更のテキストフォームを表示し、入力した数字順にソートをかけたいと考えております。 $FORM{'num1'}→name1の行 $FORM{'num2'}→name2の行これで、$FORM{'num1'}に2、$FORM{'num2'}に1となっていた場合、保存されたデータは name2,add2,tel2,mail2,comment2　改行↓ name1,add1,tel1,mail1,comment1　改行↓ 上記のように、変更して保存したいと考えておりますが、ぜんぜんうまくいきません。データの項目は、data6やdata7といった形で将来データ項目が後ろに増える可能性がありますので、それにも対応したいと考えていますが、データファイルの中に番号データを記録せずに、データの並び替えをすることは可能でしょうか？ご存じの方がおられましたらお教え下さい。宜しく御願い致します<(_ _)>
ファイルから一行ずつ読み込むとき、@F[0] と $_ は違う？

データファイルを一行ずつ読み込んで、文字列を一文字ずつコンマ区切りにしたいと思っています。たとえば、　　xyz → x,y,z としたいと思っています。今、data.txt に　abc 　defgh という２行が書いてあります。　perl -nla -e '@chars= split(//,@F[1]); print join(",",@chars);' data.txt とすると　a,b,c 　d,e,f,g,h という出力が無事に得られました。どうせ、data.txt は一列しか使っていないので、 @F[0] の代りに $_ を使ってみました。　perl -nle '@chars= split(//, $_); print join(",",@chars);' data.txt しかし、結果は　a,b,c, 　d,e,f,g,h, のように、各行の最後に余計なコンマが付いてしまいます。なぜでしょうか？一列しかデータがないので、@F[0] と $_ は同じだと思っていたのですが、なにか違うのでしょうか？
CSVファイルを更新する処理

CSVに追加や削除、一覧表示、更新をする処理を書いたのですが更新処理だけうまくいかずに躓いています。 readメソッドのreturn $files;のところで下記の syntax error, unexpected '$files' (T_VARIABLE)というエラーが出てしまいます。なぜエラーが出ているか教えていただけるとありがたいです。 <?PHP function con($hantei, $num, $name, $age, $address){ $data = [ $num, $name, $age, $address ]; $datas = [$data]; // 追加 if($hantei === 'add'){ $fp = fopen('data.csv', 'a'); foreach($datas as $data) { $line = implode(',' , $data); fwrite($fp, $line . "\n"); } fclose($fp); //更新 } elseif ($hantei === 'update') { function read() { $FILENAME = 'data.csv'; $file = fopen($FILENAME, 'r'); while($data = fgetcsv($file)) { $files[] = $data; } 　　fclose($file); 　　return $files; } function replace($num, $name, $age, $address) { // read() $files = read(); $arr = array(); foreach($files as $key => $el) { // [0][a, b, c, d] // [1][a, b, c, d] if ($el[0] == $num) { // $arr[0][0] = $num ... $arr[$key] = array($num, $name, $age, $address); } else { $arr[$key] = array($el[0], $el[1], $el[2], $el[3]); } } 　　 return $arr; } replace(); function write($arr){ 　　$FILENAME = 'data.csv'; $file = fopen($FILENAME, 'w'); 　　foreach ($arr as $v) { 　　　fputcsv($file,$v); } 　　　fclose($file); } $arr = replace($num, $name, $age, $address); write($arr); //削除 } elseif ($hantei === 'dalete') { $file = file('data.csv'); unset($file[$num]); file_put_contents('data.csv', $file); //一覧表示 } elseif ($hantei === 'list') { $fp = fopen('data.csv', 'r'); $readed = fread($fp, filesize('data.csv')); print_r($readed); fclose($fp); } } con('update', 1, 'name', 3, 'address');
AWK　ファイル読取後の配列処理について

AWK初心者です。使用環境　Linux7.3 改行された以下のファイル(num.txt)があります。 873 876 890 892 1405 このファイルをAWKスクリプトから読込み、配列name[]に代入したいのですが、データが重複して配列を構成してしまいます。自作では、下記のようになりましたが、希望する結果には程遠いです。修正点等、アドバイスを宜しくお願いします。 -自作- awk -F , '{ 　name[FNR] = $0; 　for(i = 1; i <= FNR; i++) 　　{ 　　　print name[i]; 　　} } ' num.txt -結果- 873 873 876 873 876 890 873 876 890 892 873 876 890 892 1405 -希望結果- 873 #name[1] 876 #name[2] 890 #name[3] 892 #name[4] 1405 #name[5]
perlで先頭の数値をみて昇順にならびかえたい。

perlで先頭の数値をみて昇順にならびかえたい。以下のようなデータの先頭の二桁の数値をみて、昇順に行ごと並び替えをしたいです。 sort を使えば簡単にできるのでしょうか？ perlをはじめたばかりでよくわかりません。ぜひ詳しく教えてください。お願いします
PHPで、○番目のカンマの文字を呼び出す方法

0,123,45,678,999　など、カンマ区切りの情報がある　data.txt　というファイルがあり、別のPHPファイルにdata.txtの内容を書き出したい場合、 <?php echo file_get_contents("data.txt"); ?> と書くと全部表示されてしまいます。 data.txtの1行目で、2番目と3番目のカンマの間の数字（上の例ですと123）を書き出すには、どのように書いたらよいか、お分かりになる方教えて頂けませんでしょうか。よろしくお願いいたします。
文字列の並び替え

お世話になっております。以下、ご指導いただければ幸いです。カンマで区切られた以下のような文字列があります。 $txt = "佐藤,武田,斉藤,鈴木,内田"; この変数txt内にある文字列を、「武田」と「斉藤」を入れ替えたい（並び替え）と思うのですが、どのようにすれば宜しいでしょうか？（隣り合わせのデータのみの並び替えです） ※並び返したい命令？は、順番の番号にて取得出来る状態です。（この例の場合で言ったら、「1と2」という感じです）現在、 $txt_array = explode(",", $txt); などとして、一旦配列にして、for文で繰り返し処理を行いながら、武田と斉藤をそれぞれ別の変数に格納し・・・などと考えていますが、とても非効率のような気がするものの、他の策が見えて来ずに困っています。以上、お恥ずかしい質問かと思いますが、アドバイスなど頂戴出来れば幸いです。お忙しいなか恐縮ですが宜しくお願いいたします。
自動で増えてくれるPHP

以前に質問させて頂いた内容をもとに、以下のようなものを作成しました。以前の質問 → http://okwave.jp/qa/q6858703.html 作成したもの ↓ 【Aサーバ】「a.txt」（データ用） $name01='一子'; $age01='11'; $name02='二郎'; $age02='22'; 【Bサーバ】「b.html」（表示用） <?php $data = file_get_contents ('http://www.A/a.txt'); foreach (explode("\n" , $data) as $value) { if (preg_match ("/\\$(.+)='(.+)'/", $value, $matches)) { $$matches[1] = $matches[2]; } } echo '<table>'; echo '<tr><th>'.$name01.'</th><td>'.$age01.'</td></tr>'; echo '<tr><th>'.$name02.'</th><td>'.$age02.'</td></tr>'; echo '</table>'; ?> ここで質問なのですが、↑のような仕組みで、a.txtの中身が $name03='三太'; $age03='33'; $name04='～～'; $age04='～～'; と増えていった場合、b.htmlの echo '<tr><th>'.$name～～.'</th><td>'.$age～～.'</td></tr>'; が自動的に増えてくれるようなものを作りたいと考えています。配列（？）を使うという方法も調べてみたのですが、分からず……。ご教示願います。
MySQL文がわかりません。

いつもお世話になってます。 PHP＋MySQLを使用しています。下記のような操作を行いたいのですが、 MySQL文を教えて頂けませんでしょうか。 table名：person person_id : name : email 1 : tanaka : aaaaa 2 : suzuki : bbbbb 3 : sato : ccccc 4 : saito : ddddd 5 : takahasi : eeeee 上記のようなテーブルがあったとして、例えば、person_idが2,4のものを抽出して、 table名：sendmail send_id : name : email : ticket 1 : ito : fffff : 10-20 2 : huruka : eeeee : 11-01 3 : suzuki : bbbbb : 11-19 4 : saito : ddddd : 11-19 上記テーブルに追加(send_idの3,4）したいのです。 ticketカラムは、send_idの3,4で同じ値(文字列)を使います。大変お手数ですが、上記内容にてご教授願います。
postgreSQL SQL

postgreSQL7.3で以下のようなデータの並び替えを実現したいと思っています。下記のようなデータを・・・ no | recno | name ----+-------+------ 1 | 1 | a 1 | 1 | b 1 | 2 | c 1 | 4 | a 2 | 3 | a 2 | 3 | c 2 | 3 | b 3 | 5 | b 4 | 6 | a 下記のような並びにSQLで取得することは可能でしょうか。 no | recno | name1 | name2 | name3 ----+-------+------+------+------ 1 | 1 | a | b | 1 | 2 | c | | 1 | 4 | a | | 2 | 3 | a | b | c 3 | 5 | b | | 4 | 6 | a | | noとrecnoのグループごとにnameを横に並べていきたいのですが、可能なのでしょうか。できれば、nameは個々のカラムに出力したいのですが、配列のように1つのカラム内にカンマ区切りでの出力でも構いません。上記のような表示が可能であれば、SQL文もご教授いただけますと幸いです。宜しくお願いいたします。
ファイルから読み込んで配列へ

PerlでCGIスクリプト(掲示板もどき)を作成しています。配列の操作がうまくいかず、ご教授頂きたいと思います。 <やりたい事> 1.ブラウザ上のフォームからの入力を、カンマ区切りでテキストファイルに追記して保存。 2.そのテキストの一部を使ってHTMLで表を作る。 <実際の作業> 1.フォームからのデータはcgi-lib.plで連想配列として受け取り、unshiftでテキストファイルへ追記する。 &ReadParse; #フォームからデータを受け取る $o=$in{'name'}; $p=$in{'mail'}; $q=$in{'title'}; $r=$in{'comment'}; open(IN,"xxx.txt"); @tmp1=<IN>; close(IN); #1件1行として新規データを追加する unshift (@tmp1,"$oo" , "," , "$pp" , "," , "$qq" , "," , "$rr","\n"); open(OUT,">xxx.txt"); print OUT @tmp1; close(OUT); 2.xxx.txtのデータを読み込んで、1列目(name)と3列目(title)だけを使った表を作る。データを読み込む時点でつまづき、先に進めません。 <テキストファイルの例> 1行目：a,b,c,d 2行目：e,f,g,h 3行目：i,j,k,l 以下同様 <症状> print @tmp1;とすると、a～lの全てのデータが表示される。 $tmp1[0];とすると、(a)のみ表示される。 $tmp1[1];とすると、カンマ(,)が表示される。 $tmp1[2];とすると、(b)が表示される。 <質問> 一つの行(配列)に対して2回繰り返す処理(nameとtitle)と、行単位で繰り返す処理(1行目、2行目…)を合わせればいいのだろうと思っていますが、どうすればいいのかわかりません。気分的には↓こんな感じです。 foreach { "行の処理" foreach { "列の処理" } } そもそも、区切り文字であるカンマが、配列に格納されている時点で失敗しているのかな？とも思っています。宜しくお願いします。なお、不足している情報がありましたら補足いたします。
PHPでcsvファイルデータ内の一行を修正したい

PHP4.3とcsvカンマ区切りのファイルデーターによる簡易会員サイトをつくっています。複数行にわたってカンマ区切りのデーターがあり、その中のある一行の配列を修正したいのです。 Perlだとpushを使って配列に入れファイルに書き込めばいいのですがPHPではどのようにすればいいのでしょうか？ちなみに以下のように試みているのですがだめなのです。join(): Bad arguments.のエラーがでます。 Perl的なやり方でやってみたのですが。。。 while(($line = fgets($fp))){ list($DATE,$ID,$POINT,$NAME,$EMAIL,$TEL,$PREF,$SEX,$AGE,$blood,$body,$length,$type,$why,$PASS,$PROF,$BOX,$DAY_LIMIT,$A_ID,$MILE_POINT,)= split(",",$line); if($EMAIL == $_POST{"EMAIL"} && $PASS == $_POST{"PASS"}){ $HIT=1; $NOWPOINT=$POINT+$buypoint; $newline= "$DATE,$ID,$NOWPOINT,$NAME,$EMAIL,$TEL,$PREF,$SEX,$AGE,$blood,$body,$length,$type,$why,$PASS,$PROF,$BOX,$DAY_LIMIT,$A_ID,$MILE_POINT,\n"; $NEWSTOCK=join("\n",$newline); } else{ $NEWSTOCK=join("",$line); } } どなたかご教授いただけましたら幸いです。
一致する文字としない文字があるのですが

会員のログイン等で、氏名(漢字)と生年月日でログインするようにしてあるのですが、「眞」や「はしご高」などの文字が、フォームで渡ってきた場合に、データと一致しなくエラーとなってしまいます。 if (!open(IN,"$file")) { &error('データベースエラー','.'); } @BASE = <IN>; $all = @BASE; close(IN); if ($FORM{'FF'} eq '') { $FF = 0; } else { $FF = $FORM{'FF'}; } $TO = $FF + $page - 1; if ($TO > $#BASE) { $TO = $#BASE; } $hit = 0; $next_num = ''; foreach $num ($FF .. $#BASE) { $data = $data2 = $BASE[$num]; &jcode'convert(*data,'euc'); ($d,$NO,$REM,$DATE,$NAME,$EMAIL,$PMAIL,$AGE,$SEX,$PREF) = split(/\,/,$data); # 名前(一致) if ($NAME5 ne 'dadada') { if ($NAME eq $FORM{'NAME'} ) { ; } else { next; } } # 生年月日(一致) if ($AGE5 ne 'kakak') { if ($AGE eq $FORM{'AGE'} ) { ; } else { next; } } # 検索終了処理 if ($hit == $page) { $next_num = $num; last; } else { push(@NEW,$data2); $hit++; } } と検索の部分はなっております。エラーが出る漢字は少ないのですが、ログインできないお客様がいて困っています。なにか対処方法はございますでしょうか? 何卒、宜しくお願い致します。

テキストファイル内を並べ替える

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

お礼 2007/02/16 13:52

関連するQ&A

MySQLでのレコード移動（オートインクリメント）

SASの時間比較

ファイルからの入力方法について

DOS:テキスト内の特定行の次行に文字列を追加

ファイル内のデータを１行削除する方法

XML要素をテキストファイルに出力するようにするには？

同一ファイルからの文字列検索

フォームに入力された内容で並び替えをする

ファイルから一行ずつ読み込むとき、@F[0] と $_ は違う？

CSVファイルを更新する処理

AWK　ファイル読取後の配列処理について

perlで先頭の数値をみて昇順にならびかえたい。

PHPで、○番目のカンマの文字を呼び出す方法

文字列の並び替え

自動で増えてくれるPHP

MySQL文がわかりません。

postgreSQL SQL

ファイルから読み込んで配列へ

PHPでcsvファイルデータ内の一行を修正したい

一致する文字としない文字があるのですが

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

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

テキストファイル内を並べ替える

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

お礼 2007/02/16 13:52

関連するQ&A

MySQLでのレコード移動（オートインクリメント）

SASの時間比較

ファイルからの入力方法について

DOS:テキスト内の特定行の次行に文字列を追加

ファイル内のデータを１行削除する方法

XML要素をテキストファイルに出力するようにするには？

同一ファイルからの文字列検索

フォームに入力された内容で並び替えをする

ファイルから一行ずつ読み込むとき、@F[0] と $_ は違う？

CSVファイルを更新する処理

AWK ファイル読取後の配列処理について

perlで先頭の数値をみて昇順にならびかえたい。

PHPで、○番目のカンマの文字を呼び出す方法

文字列の並び替え

自動で増えてくれるPHP

MySQL文がわかりません。

postgreSQL SQL

ファイルから読み込んで配列へ

PHPでcsvファイルデータ内の一行を修正したい

一致する文字としない文字があるのですが

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

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

AWK　ファイル読取後の配列処理について

カテゴリ
一覧

専門家に質問してみよう
専門家登録