Perl 初心者コーナー Part22

**nobodyさん** · 03/04/15 10:15

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

CGIだけど、なんか質問ある？ Part 10
http://pc2.2ch.net/test/read.cgi/php/1048686475/
参考書籍の話題は、【Perl,CGI】参考書籍第三版
http://pc.2ch.net/test/read.cgi/php/1030209573/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般/Part2】
http://pc.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は、【スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

過去ログやお勧めサイトは >>2-10

**852** · 03/05/11 10:58

>>856
おｋ，十分です、
逝ってきます

**435** · 03/05/11 11:12

>>857
配列で値を持ってるんだからそれをハッシュにする必要性がわからない

**nobodyさん** · 03/05/11 11:37

>>859
でたでた。
必要性に関しての議論なんてしてないのに、でしゃばってくるやつ。
わからないなら、黙ってれよ。

つーか、それなりに使うロジックだ。
おまえが必要となるケースを経験してねーだけ。ﾌﾟ

ちなみに
% = map{$i++ => $_} @
が定石。
ただし、undefの場合は考慮せず。

**435** · 03/05/11 11:42

>>860
そんなのが定石だとか思ってるからいつまで経っても上達しないんだよ

定石はハッシュのスライスだろ

**nobodyさん** · 03/05/11 11:53

>定石はハッシュのスライスだろ

やべ、知障の相手しちまったよw
参考までに、ハッシュのスライス使って、>>857の問い解いてみてくれ

**862** · 03/05/11 12:21

@{1 .. $# + 1} = @;
苦しいけど、こういう手もあるわなw

**435** · 03/05/11 12:36

>>863
まあまあってとこだな

**250** · 03/05/11 12:44

釣りか・・・

for(0 .. $#aya){
　　$aya{$_} = $aya[$_] if(not undef $aya[$_]);
}

素直にforつかってりゃいいんでねーの？

**nobodyさん** · 03/05/11 13:09

$hash{++$i} = $_ foreach @list;
これの方が速度出るんじゃねーの?

**nobodyさん** · 03/05/11 15:40

readdirでファイルとディレクトリの一覧を得て、@filesという配列に格納したんですが、
これを、「.」「..」，「.*(.htaccessなど)」，ディレクトリ、ファイル
という順番であらわしたいんですが、どうしたらいいでしょうか？

**nobodyさん** · 03/05/11 15:58

>>867
sortすればいい

**nobodyさん** · 03/05/11 16:00

>>868
ソートすると、ディレクトリが優先的に上にこないんですよ。
そこが困ってるんですよ・・・

**nobodyさん** · 03/05/11 16:01

%ff%ffみたいなかんじの16進表記を読めるようにするには
どうすればいいでしょうか？文字コードはShift_JISです。

**nobodyさん** · 03/05/11 16:05

>869
ファイル用の配列とディレクトリ用の配列を両方作って、それぞれにsort。
その上で、ディレクトリ用配列を先に表示すれば？

>870
もうちょっとわかりやすく。
文字のエンコードの事か？
だったらgoogleででも検索しる。

**nobodyさん** · 03/05/11 16:08

>>871
"%ff%ff"みたいな文字列があったとして、
Perlでそれを標準入出力に読めるような形で
出力するにはどうすればいいんでしょうか？

**nobodyさん** · 03/05/11 16:10

やっぱり判らない

**nobodyさん** · 03/05/11 16:11

>872
print STDOUT "%ff%ff";

**nobodyさん** · 03/05/11 16:17

>>873
例えばですね、文字列⇒16進表記、という変換をしてくれるCGIは
Web上にいくつかあります。その逆がやりたいんです。
16進表記と文字コードを指定すると、標準入出力に文字が表示されるような

**nobodyさん** · 03/05/11 16:20

>875
jcodeで検索。

**nobodyさん** · 03/05/11 16:21

>875
ttp://www.google.com/search?q=Perl+%E6%96%87%E5%AD%97%E3%82%B3%E3%83%BC%E3%83%89+%E5%A4%89%E6%8F%9B&ie=UTF-8&oe=UTF-8&hl=ja&lr=

**nobodyさん** · 03/05/11 16:29

>>876-877
どもです。ちょっとjcode.plについて調べてみます。

**435** · 03/05/11 16:31

jcode は

**nobodyさん** · 03/05/11 16:44

>>869
@files =
map { $_->[0] }
sort { $b->[1] <=> $a->[1] || $b->[2] <=> $a->[2] || $a->[0] cmp $b->[0] }
map { [ $_, /^\./ ? 1 : 0, -d ? 1 : 0 ] }
readdir DIR;

キーワード:
sort map 三項演算子ファイルテスト演算子比較演算子
リファレンス無名配列 Schwartzian Transform

**nobodyさん** · 03/05/11 16:48

すげーーー！！！

**nobodyさん** · 03/05/11 18:45

ちょっと下らない質問なんですが…。

一度使っていらなくなった変数は、
メモリ容量の事を考えて初期化したほうがいいですか？
それとも、初期化処理自体が無駄に負荷をかける処理ですか？

（視覚的には初期化したほうが「もう使わない」って分かってグット）

**nobodyさん** · 03/05/11 18:56

一度しか使わない巨大なバッファとかなら
捨てた方がいいかも。
大抵は、消費量が微小か、要らなくならないんじゃないかな。

**nobodyさん** · 03/05/11 19:02

>>871
#!/usr/bin/perl

opendir DIR, ".";
@files = readdir DIR;
splice(@files,1,1);
close DIR;

#################ソート処理#################
sub hikaku{
my($alen) = Length($a);
my($blen) = Length($b);
if ($alen == $blen){return 0;}
elsif ($alen > $blen) {return 1;}
elsif ($alen < $blen) {return -1;}
}

#@files = sort (@files);
############################################
$f = "<td bgcolor=ffffff><font size=2>";

print "Content-Type: text/html\n\n";
print "<html><head>\n";
print "<title>dir</title></head>\n";
print "<body>\n";
print "<br><br><br><br><br><br>　　ファイル一覧<br>\n";
print "<br><table cellpadding=1 cellspacing=1 bgcolor=dddddd>\n";
print "<tr>${f}ファイル名</td>${f}リンク</td>${f}拡張子</td>${f}サイズ</td>${f}アクセス権</td>${f}最終更新日</td></tr>\n";
#ファイル名を全て取得するまでループ
foreach (@files){

続き · 03/05/11 19:03

#ファイル情報読み取り
@stat = stat $_;
#時間の形式を変換
sub time {
$ltime = $stat[9];
($sec,$min,$hour,$mday,$mon,$year,$wdy) = localtime($ltime);
@youbi = ("日", "月", "火", "水", "木", "金", "土");
printf("%04d/%02d/%02d($youbi[$wdy]) %02d:%02d:%02d\n",
$year + 1900,$mon + 1,$mday,$hour,$min,$sec);
}
#パーミッションを8進数に変換
$bin = sprintf("%o",$stat[2]);
$par = substr($bin,2,4);
#パーミッションの桁数調整
if ($par =~ /\d{4}/){$par = substr($par,1,3);}
#拡張子を抜き出す
$i = index($_,"\.");
$index = substr($_,$i++,11);

続き · 03/05/11 19:03

#ディレクトリは特別な設定にする
if ($bin =~ /40/){$index = "";
$stat[7] = "<font color=red>DIR</font>";}
else{$index = "<font size=2>$index</font>";
}
#テーブルに組み込み出力
print "<tr>${f}$_</td>\n";
print "${f}<a href=$_ target=_top>$_</a></td>\n";
print "<td bgcolor=ffffff>$index</td>\n";
print "${f}$stat[7]</td>\n";
print "<td bgcolor=ffffff align=center><font size=2>${par}</td>\n";
print "${f}\n";
&time;
print "</td></tr>\n";}
print "</table><br>\n";
print "<center><input type=button value=更新 onClick=history.go(0)></center>\n";

ってしたんですけど、これをあまり変えないで、配列２つつくるのは無理そうですね。。

**nobodyさん** · 03/05/11 19:13

テキストエリアに入力された情報をprintで表示したいのですが、

@pairs = split(/&/,$buf);
foreach $pair(@pairs)
{
($name,$value) = split(/=/,$pair);
　　$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$value =~ s/</</g;
$value =~ s/>/>/g;
$FORM{$name} = $value;
}

$Msg= $FORM{'MSG'};
print "$Msg";

で表示されないのです。どうすれば表示できるでしょうか？

**nobodyさん** · 03/05/11 19:24

送られてきた情報は、どうやって $buf に入れてるの？
テキストエリアを含んでいるformのあたりはどういうソースにしてるの？

**887** · 03/05/11 19:42

--HTML側--
<form method="POST" action="./test.cgi">
<div>名前：<input type="text" name="NAME"></div>
<textarea type="text" name="MSG" cols="40" rows="4" wrap="soft"></textarea>
<input type="submit" value="送信">
<input type="reset" value="取消">

--CGI側--
#!/usr/local/bin/perl

local($buf);

#入力データ読み出し
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read (STDIN, $buf, $ENV{'CONTENT_LENGTH'});
} else {
$buf = $ENV{'QUERY_STRING'};
}

以下>>887のソースへ

という風になっております。

**見せかけの善人（コピペ推奨）** · 03/05/11 19:52

＜アスペルガー症候群（自閉症スペクトラム）←脳の機能的疾患（遺伝が要因）＞
http://www3.ocv.ne.jp/~cochome/kaisetsu.htm#chigai
http://www.autism.jp/l-02-03-aspe3.htm
http://www.geocities.co.jp/Beautycare/5917/as/
●接し方のルールがわからず無邪気に周囲の人に対して迷惑なことをしてしまうこと
がある。人を傷つけるということには鈍感です。年配の先生に向かって「おばあさん
先生おはようございます」と明るい大声で挨拶する生徒もいる。こういった言動をす
る場合にも彼らには悪意はない。
●小さな声でひとり言を言ったり、考えていることを声に出して言うことがある。
●融通が利かないことも学校生活で問題になる。時間割の変更や突然の教師の欠勤と
いう事態で不安を感じたりかんしゃくをおこしたりする。あまりに規則に厳格なため
に、遅刻した同級生に延々と注意をしたり、修学旅行などで消灯時間をかたくなに守
り、他の生徒の顰蹙をかったりすることがある。
●行動･興味･活動のパターンが貧困で反復常同的なことも自閉症の特徴である。すな
わち、日常の活動の様々な面にわたって柔軟性のないルーティン（決まった手順や日課）
を押しつける傾向、これを慣れ親しんでいる習慣や遊びのパターンだけでなく、たいてい
は新しい活動にも押しつける。そしてルーティンや個人的な環境の細部の変化（家の中の
置物や家具の移動によるなど）に対する抵抗がみられることがある。
●揺れる木の葉を見続ける子どもは興味のレパートリーが狭いとも言え、視覚的な敏感さ
があるといっても良い。
●精神遅滞を伴うものと伴わないもので大きく分かれる。１００％果汁のオレンジジュー
スを思い浮かべてください。それにだんだん水を加えて薄めて行くと終いには水にごく近
くなる。一口飲んで「オレンジジュースだ！」とわかるものは自閉症、水に近いけれどな
にかオレンジの味が混じっているのがアスペや高機能・・。その濃度はさまざま。濃いオ
レンジジュースであったとしても早期の療育や周りの対応によって水に近づいていくこと
は可能。しかし間違えてはいけないのはオレンジジュースが一滴でも落ちている場合は
「純粋な水」にはなれないのです。

**nobodyさん** · 03/05/11 20:02

>>887
$value =~ tr/+/ /;
の行に全角の空白文字が混ざってる。

ヘッダをはいてないけど、省略してるだけ？
print "Content-type: text/html\n\n";

**nobodyさん** · 03/05/11 20:11

すみません。
ソートの話しなんですが…。

@data_1;
@data_2;　　　　#両方とも中は数字

こんなのがあったとします。
これをごっちゃまぜにして
@data_sort;
の中にソートして入れたいのですが、そうすると「@data_1」が持っていた変数なのか、
「@data_2」が持っていた変数なのか、分からなくなってしまいます。

「@data_sort」の中に入れつつも、その値は元々どちらの変数が持っていた値かを分かるようにする方法はないでしょうか？

**435** · 03/05/11 20:16

ハッシュの配列

**nobodyさん** · 03/05/11 20:18

超おすすめサイト一覧です☆
http://accessplus.jp/staff/in.cgi?id=10645
http://www.39001.com/cgi-bin/cpc/gateway.cgi?id=neat
http://www.39001.com/cgi-bin/cpc/gateway.cgi?id=pure
http://accessplus.jp/staff/in.cgi?id=10943
http://www.emzshop.com/goodstyle/

**887** · 03/05/11 20:30

>>891
ヘッダは省略してるだけです。説明不足ですみません。

全角スペースは、ＣＧＩのソースには含まれていなかったので、
ここに書き込むときにでも発生したのかもしれません。

textarea以外のinput等に入力されたデータはちゃんと表示されています。

**nobodyさん** · 03/05/11 20:36

掲示板で記事の修正機能を作りたいのですが、、
記事番号、パスワードが入力するとtextareaやらに表示させる、
ってトコまではできました。

しかしそこからログファイルの配列とファイルの書きこみ操作がよく分かりません。
ログが全部消えてしまったりします。

ログファイルの変更箇所だけを上書き、というはどうやればいいのでしょうか？
分かりにくい文章ですが、宜しくお願いします。

**nobodyさん** · 03/05/11 20:47

微妙にスレ違いな気がする

ログファイルの一行を変えたいならファイルの中身を一行ずつ配列に入れ(もちろんすべて)、
修正したい行が入っている要素だけ書き換える。
あとは配列の中身をファイルに上書き。

**892** · 03/05/11 20:55

ハッシュですか。
なんとか工夫して頑張ってみます。

**896** · 03/05/11 23:22

>>897

ありがとうございます。

**477** · 03/05/11 23:24

質問です、
２次の配列を作って表示させてるんですが
--------------------------------------
@gyou1 = (
['photo','pic','scan'],
['ph0001','pic001a','scan001'],
['ph0002','pic001b','scan002a'],　～56行続く
);
@gyou2 = (
['photo','pic','scan'],
['ph1001','pic101','scan101a'],
['ph1002','pic102','scan101b'],　～70行ほど続く
);
for ($i = 0; $i <= 56;i++){
print "$gyou1[i][1]";
}
for ($j = 0; $j <= 56;j++){
print "$gyou2[j][1]";
}
--------------------------------------
こんな感じに表示させているんですが、凄まじく重くて・・・、
一片に表示させずa herefみたいなのでページ切り替えさせたいんですけれど
方法がわかりません、
ここのＣＧＩみたく任意の記事番号をハイフンで繋ぐだけで見せてくれる仕組みが
ヒントになりそうだけどソース見れないし・・・
なにかないでしょうか？

あと、ついでですが、データ内包するよりログファイルから引き出す方が処理早いでしょうか？
できれば教えて下さい、

**nobodyさん** · 03/05/11 23:43

はぁ～・・・
今日もCGIの質問が多いなぁ～・・・(´ー｀ )

**nobodyさん** · 03/05/12 00:14

もっとこう、mapとかスライスとか、
微妙な質問ｶﾓﾝ

**nobodyさん** · 03/05/12 00:55

>>900
> ページ切り替えさせたいんですけれど方法がわかりません
やりたい事を実現するには具体的にどんな「情報」が
必要か考えてみれ。まず表示を開始する行番号が
必要だよな? 後は?

> データ内包するよりログファイルから引き出す方が処理早いでしょうか？
実際に試せ。コード書いて調べろ。その方が人に聞くより早い。

**nobodyさん** · 03/05/12 01:56

CGI(perl)で指定したページにジャンプさせたいんですけど
Locationではうまくいかないんですが他にジャンプさせる
命令語ありますか？

**nobodyさん** · 03/05/12 01:58

1クリック10円で仕事あがりに2ちゃんねるにリンクを貼り付けるだけで・・・
先月分126620円入金されました。
リンクスタッフの登録はメアドと任意のパスワード
を入力すれば完了。メアドは無料メールでも可。
http://accessplus.jp/staff/in.cgi?id=10645

**nobodyさん** · 03/05/12 02:56

>>904
http://pc2.2ch.net/test/read.cgi/php/1045091733/
http://pc2.2ch.net/test/read.cgi/php/1048686475/

**nobodyさん** · 03/05/12 06:42

>>900
CGIであっても、コーディングに関する質問になら答えられる。
でも「CGI特有のアルゴリズム」に関する質問はスレ違い。

**nobodyさん** · 03/05/12 07:48

>>904は>>901を受けたネタだろ。放置汁

**nobodyさん** · 03/05/12 09:38

ふと疑問に思ったんですが、例えば
print ﾞaiueokakikukeko\nﾞ;
ってのが複数でてくる場合
変数aに置き換えて$aとするのと
サブルーチンaにして&a;とするのではどうかわるのですか？

**nobodyさん** · 03/05/12 11:59

そのばやいは変数だろ

**908** · 03/05/12 12:05

そうなんですか。
サブルーチンだったら展開に時間がかかるってことですか？
複数の処理の場合はサブルーチン、一個の処理の場合は変数ということでしょうか？

**nobodyさん** · 03/05/12 12:08

変数をひとづつサブルーチンにしてみ。おしゃれだよね

**nobodyさん** · 03/05/12 12:11

ええとねサブルーチンのね用途はね。　　　　やっぱやめとこ。

**nobodyさん** · 03/05/12 12:13

>>911
サブルーチンの場合、一回実行するごとにスタックがつまれてメモリを食う。
その分、若干時間も食う。

この場合はどうのこうのと言うより、自分で考えろ。

**nobodyさん** · 03/05/12 12:25

>>912->>914
ありがとうございます。極端な話、すべて変数にしちゃってもいいですかね？
>>914ためしたんだけどあまりかわらないような…
メモリを食うというのは初めて知りました。大変参考になりました

**nobodyさん** · 03/05/13 00:23

>>915
駱駝買え、駱駝。

ループの中ではサブルーチン呼び出しはできるだけすんなとか書いてある。

**nobodyさん** · 03/05/13 00:29

>>916
サンクス

**nobodyさん** · 03/05/13 02:15

>>909
ところで、その文字列を囲んでいる奇妙な文字はなんだ？

**918** · 03/05/13 02:34

ああ、半角の濁点か。

**nobodyさん** · 03/05/13 02:35

ほんとだ（^∀^）ｹﾞﾗｹﾞﾗ

**nobodyさん** · 03/05/13 02:46

すみません。
perl/tkをwinでちょっとやってみようと思い、マズは色んなサイト見てみる事にしました。
で、以下のコードをとあるサイトからパクって来ました。

$top = MainWindow->new();
$button = $top->Button( -text => 'EXIT', -command => \&exit );
$button->pack();
MainLoop();

これ、正常に動いたのですがなにがなんだか意味が分かりません。全く分かりません。
リファレンスとか、無名のなんたらを使ってるって事は分かったのですが…。

tkのプログラミングをを専門に解説してるサイトが一向に見つかりません。
リファレンスの説明をしているサイトは見つかったのですが、
「tkの記述を」まるで初心者におしえるかのごとく細かく丁寧に、そして多量に書いているサイトはないでしょうか？

クソみたいな質問ごめんなさい。

**nobodyさん** · 03/05/13 02:51

>>921
http://www.oreilly.co.jp/index/perl/

**nobodyさん** · 03/05/13 02:53

>>921
ググればいくらでも見つかるのに。

**921** · 03/05/13 02:58

>>922
すみません…。
本買う前に一通り調べてって言うかちょっとやってみてから決めたいんです。

>>923
そ、そうですか？
まだイロイロ調べてみます。汗

でも、なんか良さげなの知ってたら書いてくれると嬉しいです。

**bloom** · 03/05/13 03:10

http://homepage.mac.com/ayaya16/

_ · 03/05/13 03:15

**nobodyさん** · 03/05/13 07:38

>>924
だから、GUI作るならHSPとかDelphiとかあるだろと言ってるだろ・・・

**nobodyさん** · 03/05/13 07:47

>>924
>>921を見ると、tkがわかるわからないの話じゃない。
本を買ったほうがいいよ。

**nobodyさん** · 03/05/13 16:16

>>919 >>920
ｽﾏｿ、携帯から送ったら変になってた

**nobodyさん** · 03/05/13 21:19

サーバーに要求を送るときって、 autoflush使った方がいいのか、使わない方がいいのかどっち？漏れの感覚的には、使った方がいいと思うんだけど、そこらへんどーよ。つーか、なんかスレ違いっぽいなぁ(・∀・)ﾆﾔﾆﾔ

**nobodyさん** · 03/05/13 21:57

(´-`).｡oO(autoflush・・・)

**nobodyさん** · 03/05/13 22:00

すんません、grep使って簡単な検索をできるようにしたんですが、
（grep(/$key/, @data)　←こんな感じで）
検索キーに"ー"が含まれている時に５００エラーになるようなんです。
一応jcode.pl使ってsjisにエンコードしているのですが・・・

原因は何でしょう？

**nobodyさん** · 03/05/13 22:02

すんませんググったら出てきました。すんませんすんません。

**nobodyさん** · 03/05/13 22:02

sjisだから　だめなんだよ
eucなら　だいじょうぶだよ

**nobodyさん** · 03/05/13 22:39

@listの末尾に@numがある時だけ@ansにぶち込みたいんです
二度目以降に見つけてもシカトするという条件があります。

@num = (19,20,55,63);
@list = (ketu63,etu63,a55hoi,hoi55,asdf63,a2a0,huga19,cool20);
for(@list){ @ans=grep(/$_$/,@num); }

↑のように書いてみたんですが
@ans = (huga19,cool20,hoi55,ketu63)
となって欲しいのに

@ans = (19,20,55,63)
となってしまうのです。

文字列の末尾をチェックして文字列全体を返したいのですがどのようにしたらいいでしょうか
よろしくです

**nobodyさん** · 03/05/13 23:10

>>935
(/.*?$_.*?$/)
で、どないやろ？

**nobodyさん** · 03/05/13 23:13

>>935
> for(@list){ @ans=grep(/$_$/,@num); }
> ...
> @ans = (19,20,55,63)
> となってしまうのです。

@num の要素を grep してんだから当然だわな。
http://flex.ee.uec.ac.jp/texi/perl/perl_47.html

my @num = (19,20,55,63);
my @list = qw(ketu63 etu63 a55hoi hoi55 asdf63 a2a0 huga19 cool20);
my @ans = ();
for my $num (@num) {
　　for my $str (@list) {
　　　　$str =~ /$num$/ or next; # @list の末尾に @num がある時だけ
　　　　push @ans, $str; # @ans にぶち込む
　　　　last; # 二度目以降はシカト == 最初に見つかったものだけ
　　}
}
print join '/', @ans; # huga19/cool20/hoi55/ketu63

**nobodyさん** · 03/05/13 23:14

>>935
これでどっすか？
もっと簡単になりそうだけど、自分にはこれしか思いつかんかった。

%key = ();
$key{$_}++ foreach (@num);
foreach $v (@list) {
$v =~ /(\d+)$/ or next;
if ($key{$1}) {
undef $key{$1};
push(@ans, $v);
}
}

**935** · 03/05/13 23:25

>@num の要素を grep してんだから当然だわな。
ありゃ？寝ぼけてました。正直云うと気付きませんでした
937氏の方法で幸せになれました

938氏の方法は今から試してみます。

ありがとでしたー

**nobodyさん** · 03/05/13 23:55

もう23かな？
伝統だね～。しみじみ。

**nobodyさん** · 03/05/14 07:05

>>940
レベルは随分落ちたけどな。
コテハンたちはもう帰ってこないのかな？
七誌で潜伏？

**nobodyさん** · 03/05/14 07:28

>941
japu氏とか_gunzip氏とかどこに行ったんだろうな。
実はファンだったのだが。

レベルダウンは構わないんじゃないか？
ここは初心者スレだし。
>>1にもあるように「一緒に勉強」するスレだ。

**nobodyさん** · 03/05/14 08:03

ﾏﾀｰﾘ以降

**nobodyさん** · 03/05/14 14:41

CSVファイルのソートをperlでやる方法はどうすればいいのですか？

つまり、
0,FOO,236
1,BAR,145
2,HOG,487
3,FUG,352

となってるCSVファイルを、３列目でソートして、

1,BAR,145
0,FOO,236
3,FUG,352
2,HOG,487

というように表示したいのですが・・・

**nobodyさん** · 03/05/14 14:55

>>944
何も難しい事ないと思うけど・・・
sort関数の勉強、ちゃんとしてれば分かるはず。

**nobodyさん** · 03/05/14 16:12

open(F,"csv.csv");
while(<F>){
$hash{(split(/,/))[2]}=$_;
}
close(F);

foreach (sort {$a<=>$b} keys %hash){
print $hash{$_};
}

**nobodyさん** · 03/05/14 17:40

>>946
ハッシュの衝突ぐらい考慮しろよ

**nobodyさん** · 03/05/14 18:04

while (<DATA>) {
　　chomp;
　　($tmp1, $tmp2, $tmp3) = split (/,/, $_);
　　$data{$tmp1} = [$tmp2, $tmp3];
}

@tmp = sort { $data{$a}->[1] <=> $data{$b}->[1] } keys %data;

print $_. ','. $data{$_}->[0]. ','. $data{$_}->[1]. "\n" foreach (@tmp);
exit;
__END__
0,FOO,236
1,BAR,145
2,HOG,487
3,FUG,352

・・と、俺も作ってみる。
ちなみに、タブ部分は見やすいように全角スペース。

**nobodyさん** · 03/05/14 18:05

>>944
今回に限らず、データの前提条件をはっきりさせないと
やり方も変わってくるよ。

・1桁、3桁、3桁の固定長なのか？
・各フィールドはユニーク値なのか？　など

実際にその４つのデータなら>>946が書いてくれた方法でできるが、
もっとデータがあって３列目に同じ値があったらダメだし。

**nobodyさん** · 03/05/14 18:17

>>949

while (<DATA>) {
　　chomp;
　　($tmp1, $tmp2, $tmp3) = split (/,/, $_);
　　$data{$.} = [$tmp1, $tmp2, $tmp3];
}

@tmp = sort { $data{$a}->[2] <=> $data{$b}->[2] } keys %data;

print $data{$_}->[0]. ','. $data{$_}->[1]. ','. $data{$_}->[2]. "\n" foreach (@tmp);
exit;
__END__
0,FOO,236
1,BAR,145
2,HOG,487
3,FUG,352

・・・と、各値がユニーク値だった時のために修正とかもしてみる。
ちなみに、やっぱりタブは全角スペース。

**nobodyさん** · 03/05/14 18:49

＜ある変数（複数行）に、カンマと改行しか含まれていない場合＞
という条件は、以下であってると思ったのですが、どうも違うようです。。。
どうしてだめなのでしょうか？

m/^[,\n\r]*$/gm){

**nobodyさん** · 03/05/14 19:18

while (<DATA>) {
　　if ($_ =~ /^,+$/) {
　　　　print $.. "行目マッチ！\n";
　　　　next;
　　}
　　print $.. "行目クリア\n";
}

exit;
__END__
,,,,
,1,1,1
,,,,,,
aaa,aaa,aa,

・・・と、作ってみる。
改行は普通ではマッチしない。

で、例の如くタブは全角ス（ｒｙ

**nobodyさん** · 03/05/14 21:45

>>951
/m … ^ が「全ての行頭」、$ が「全ての行末」にマッチ
/s … ^ が「文字列の先頭」、$ が「文字列の末尾」にマッチ

**nobodyさん** · 03/05/14 22:05

>>951
正規表現道場@2ch Part2
http://pc2.2ch.net/test/read.cgi/php/1038146241/l50

**nobodyさん** · 03/05/15 00:00

980くらい行ったら新スレ立てる？

**nobodyさん** · 03/05/15 00:06

そのぐらいでいいんじゃないかな

**nobodyさん** · 03/05/15 16:12

XMLをperlで処理する質問はこの板でいいですか？
perl5.6でXMLにチャレンジしてみようと思って、

#!/usr/bin/perl

use strict;
use Jcode;
use XML::Parser;

my $topic;
while($line = <STDIN>)
{
　　$topic .= $line;
}
my $xml = new XML::Parser(Style => 'Debug',ProtocolEncoding=>'x-euc-jp-unicode');
my $result =$xml->parse($topic);

こんな感じでXML文書を読み込ませてみたら、途中で、
Substitution loop at /usr/lib/perl5/site_perl/5.6.1/i386-linux-thread-multi/XML/
Parser.pm line 346, <STDIN> line 75.
こんなエラーが出ます。エラーの出る行には日本語が入っています。

日本語非対応かなと思っていろいろ試してみると、たとえば「◇」のような文字が
含まれているとだめだったりするようです。(だめなのはこれだけではなさそう)

やりたいのは、perlで日本語のXML文書を読み込むことです。
その読み込みの時点ではまってしまうので困っています。

別に文字コードがeucである必要はないし、モジュールもXML::Parserを使うことにこだわりないです。
この辺のことを処理するにはどうすればいいでしょうか？