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

**nobodyさん** · 03/05/09 00:42

>>716
>>715

**nobodyさん** · 03/05/09 00:44

それっぽっちテストプログラム書いて試せばいいじゃん

**nobodyさん** · 03/05/09 00:45

sortってバブルソートを使ってるのですか？

**nobodyさん** · 03/05/09 00:47

クイックソートでは

**720** · 03/05/09 00:48

Cのライブラリを使っていたら(Cの)処理系依存だね。

**nobodyさん** · 03/05/09 00:49

combsortはどう？

**706** · 03/05/09 01:04

ええと、文書を考えたのですが頭が混乱ぎみでうまく説明できそうにありません。
そこで俺がやりたい事を具体的に書こうと思います。

現在RPGを作ってます。
【@並び替えたリスト = sort {ルーチン} @リスト;】
「リスト」には、戦闘参加メンバーが順番に入ってます。
「並び替えたリスト」は、「リスト」のメンバーを素早さ順にしたいわけです。

ただ、各々の「素早さ」を取得するのが少々めんどうで、素早さが入っている変数名がダイレクトに分からないのです。
${"メンバーデータ$リスト[0]"}{'素早さ'};
こーゆー感じで書いた場合、メンバー一人分の素早さを取り出す事が出来ます。
「リスト」の中には何人いるか分かりませんが、全て戦闘参加メンバーです。
で、もし五人だった場合、
${"メンバーデータ$リスト[0]"}{'素早さ'}から${"メンバーデータ$リスト[4]"}{'素早さ'}
までの「リスト」（全メンバー）を素早さ順に「並び替えたリスト」にしたいのです。

こんな一見単純そうな事で俺の脳はパニックです。汗
ただ、どう書くのか記述自体を教えてもらうよりも、「$a」と「$b」に何が入るのか教えてくれたほうが嬉しいです。
今後のコトもありますので…。

もし、sort関数を使わないで、自作でループの記述があればそれを教えて下さったら、とてもありがたいです。
多少処理が重くても「$a」と「$b」のような理解出来ない（俺には）変数が登場するより安心できますから…。

考えたあげくにこんな説明ですみません。

**動画直リン** · 03/05/09 01:10

http://homepage.mac.com/hitomi18/

**nobodyさん** · 03/05/09 01:24

>>723
ttp://tech-web.net/perl_memo.html

**nobodyさん** · 03/05/09 01:33

>>723
何がやりたいのかいまいちわからないのだが･･･

@member = ('mona','giko','morara');
%speed = (mona=>15,giko=>100,morara=>3,hoge=>50);
@resalt = sort{$speed{$a} <=> $speed{$b}} @member;
foreach $val(@resalt){
print($val."=".$speed{$val}."\n");
}

こんな感じで
morara=3
mona=15
giko=100
が出力されるが･･･

もしもハッシュに入っている分全部なら @memberじゃなくて　keys %speed
とかね･･

**nobodyさん** · 03/05/09 01:35

というか　ハッシュ使え・・・
変数名わからないってなんだ？
$speed{ID}
$money{ID}
とかなら楽だろ？

**nobodyさん** · 03/05/09 01:43

んー　大幅に変更になると思うが
漏れならこうするっていうのを書いておくよ･･･
%money %hp %speed　用意してまぁ実際には何があるかはしらんが3つだけ
gikoのデータは
$money{giko},$hp{giko},$speed{giko}に代入
戦闘時のメンバーは @member に格納する
残りは726に書いたとおり
@memberじゃなくて keys %hp; にでもすれば
すべての要素がソートされる

**nobodyさん** · 03/05/09 01:49

706氏は、なにがなんでも以下の形式でやりたいのか？

@list = ("mona", "giko", "morara");
%menberdata_mona = (... "speed" => 80, ...);
%menberdata_giko = (..."speed" => 255, ...);
%menberdata_morara = (..."speed" => 50, ...);
@list_by_speed = @listを、素早さにしたがってソートして返す処理; #A
# 得たいもの→ @list_by_speed = ("giko", "mona", "morara");

Aの処理を知りたい。

**nobodyさん** · 03/05/09 01:52

726のやり方が一般的じゃないの？
というかさ　変数名が増えたり減ったりするのって気持ち悪くない？
ある状況では$gikogikoが宣言されてある状況ではそれが$monamonaになったりするの
って
use strict使ってればそんなのは弾くと思うんだが･･･

**706** · 03/05/09 01:58

なんかいろんなサイトを回り、そしてみなさんが教えてくれたサイトや記述を見ているウチに、
少しづつ$aと$bが分かってきました。
>>726さんの記述はとっても分かりやすかったです。

＞$speed{$a}
この時$aと$bには、引数のリストの中身が自動で順番に代入されているのですね？
で、ルーチンが何回もループされて全部を比べるまで「-1」「0」「1」をはじき出してると…。
正直、かなりすっきりしました。

しかし、変数名がダイレクトに分からないときはどうしたら良いでしょうか？

@素早さ順リスト = ${"メンバーデータ$リスト[$a]"}{'素早さ'} <=> ${"メンバーデータ$リスト[$b]"}{'素早さ'}}@リスト;
これだと明らかに間違いです。
（$aと$bの部分には「@リスト」の値ではなく、数字が入るため）

と言うか、しつこく聞きまくって迷惑かけたのであとは自分で調べたいと思います。
ホントありがとうございました。感謝。

**726** · 03/05/09 02:03

>731
わからない時はどうするって？
だからわかるようにコーディングするだけなんだけどさ･･･

730が言う様にメンバーが増えるごとにハッシュが増えたりするって言うのは
激しく使いにくいと思うんだが･･･
%menberdata_giko　をあえて定義する必要があるのか？
あるのなら
%menberdata_giko=(name=>$name{giko},speed=>speed{giko},money=>money{giko});
こんな風にすればいいんじゃないの？

**706** · 03/05/09 02:05

>>731
の記述をかなり書き間違えたので訂正しておきます。

@素早さ順リスト = ${"メンバーデータ$リスト[$a]"}{'素早さ'} <=> ${"メンバーデータ$リスト[$b]"}{'素早さ'}}@リスト;

これは、
@素早さ順リスト = sort{${"メンバーデータ$リスト[$a]"}{'素早さ'} <=> ${"メンバーデータ$リスト[$b]"}{'素早さ'}} @リスト;
こうでした。汗

**nobodyさん** · 03/05/09 02:09

>>733
結論は出てるみたいだが
キャラごとにハッシュを作るんじゃなくて
要素ごとにハッシュを定義するのが正解

**706** · 03/05/09 02:12

>>732
そうです、激しく使いにくいです。汗
前回もRPGを作ったんですが、それは1対1の戦闘しかないので超楽でした。
今回は、多数対多数の戦闘をやろうと思って適当に書き始めたのですが、想像以上に複雑になってしまって。汗
適当に考えながら書いてるウチになんとかなるだろ、って軽いノリで始めたのが大失敗でした。。。

ご指摘の通り、全部書きなおすかもしれません…。

なお、たくさんのレスをいただいていますが、現在頭がフル回転でまともに返事返せてなくてすみません。
時間をかけてしっかり考えていきます。
プログラム経験が長くないので明日までパニクってる状態が続くかもしれません。
俺の中でこんな感じに作った経験が全くないので…。

**706** · 03/05/09 02:26

>>730
＞というかさ　変数名が増えたり減ったりするのって気持ち悪くない？
なるほど…。ほとんどperlしかまともにやった事ないのでそうゆう感覚を知らなかったです。
宣言とか全く気にしたコトないし…。汗
勉強になります。

sortを自分の中で納得出来てきたので、そろそろ記述を考えたり書いたりします。
落ちようかと思います。
ホントありがとうございました。たっぷり迷惑かけてすみませんでした。

**nobodyさん** · 03/05/09 06:17

俺だったら、キャラごとに、無名ハッシュか無名配列つかうな。構造体のかわりに。

**nobodyさん** · 03/05/09 07:06

俺ならｵﾌﾞｼﾞｪｸﾄ作って管理する。
そうしてる。

**なまら名無し** · 03/05/09 08:47

ちょっと困ってるんでアドバイス御願いします。ファイルを書き込むcgi
をつくってるんですが、エラーは一切でず、ファイルには何も書き込ま
れてない状況になってます。datのパーミッションも775、755、666、
644、どれにしても結果は同じです。ロックもはずしてみましたが、
だめです。以下に引用をのせます。
$test = "aho";
open(WRITE,">test.dat") || &error('write_file_open_error');
print WRITE $test;
close(WRITE);
入力用のフォームタグ関係も各情報源から調べ、そこのところは問題
ないはずですが。ちなみにサーバー側のエラーログもみましたが、エラ
ーは一切でません。cgiも普通に動作し、ただ書き込みが反映されず、
datに何も書き込まれない状況です。

**nobodyさん** · 03/05/09 08:54

>>739
まずローカルでちゃんと動くかどうか確かめる。
それで動いたらまた質問汁。

**動画直リン** · 03/05/09 09:10

http://homepage.mac.com/hitomi18/

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

>>739
ディレクトリのパーミッション確認しれ

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

ものすごい初心者な質問でごめんなさい。

どうしてハッシュはハッシュっていう名前なんですか？

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

>743
ttp://dictionary.goo.ne.jp/search.php?MT=hash&kind=&mode=0&ej.x=35&ej.y=1

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

>>744
全然答えになってないし。
意味的には「切り刻む」というのが一番近い。

レコードに対するインデックスがランダムに並ぶように
内容に対して一意に決まる数、というのが元の意味。

**nobodyさん** · 03/05/09 15:19

>>745
日本語おかしいよ

**743** · 03/05/09 15:28

744さん、745さん、ありがとうです。

えっと、上の説明で考えてみたんですけど、

$変数が　いっこの変数
@配列が　ちゃんと並べてある変数の集まり(数字ラベルつき)
%ハッシュが　ぐちょぐちょに並んだ変数の集まり(名前ラベルつき)

こんな感じでいいんでしょうか?　変数や配列みたく、日本語の
名前がついてればわかりやすいのになーと思いました。

**nobodyさん** · 03/05/09 15:31

>>747
連想配列。

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

それは別物。例えばawkの多次元配列。

**nobodyさん** · 03/05/09 15:54

>>749
そうなんだ。じゃあコレとかは誤訳なのかな。
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perldata.html
駱駝本 (改訂版) でも「ハッシュ == 連想配列」という訳し方してるけど。

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

>>749
( ﾟдﾟ)ﾎﾟｶｰﾝ

**nobodyさん** · 03/05/09 16:45

だから、内部的な実装の話になる訳よ
実際にperlを作るとして、連想配列をどう実現するか。
キーとなる文字列とそれと対になる値を、
発生した順に片端から並べていって、
参照する必要が生じたら端から調べるのかというと、
そんな時間のかかる事はしない。

で、キーをハッシュで数値に変換して、その数値で管理する。
だから、foreachで舐めると登録したのと全然関係ない順番で
出てくるっしょ。
そのバラバラに刻まれ加減が、ハッシュ。

**nobodyさん** · 03/05/09 17:22

あるディレクトリの中にあるいずれかのファイルがいつ更新されたか知るには、どうすればいいんでしょうか？

**nobodyさん** · 03/05/09 17:48

>>753
http://www.google.com/search?num=100&hl=ja&inlang=ja&ie=Shift_JIS&safe=off&c2coff=1&q=Perl+%83t%83@%83C%83%8B%83e%83X%83g%89%89%8EZ%8Eq+stat%8A%D6%90%94&lr=lang_ja

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

>>750,751
まあ、厨にはどうでもいいだろうが・・・
awkやperl4までの多次元配列は、\034を添え字とするハッシュで
実現されていた。
多次元配列（順番の添え字を持ったリスト）をハッシュと言うか？
ハッシュと言うのは、連想配列を実装するアルゴリズムだ。Cでも
何でも使えるアルゴリズムね。つまり、ハッシュ＞連想配列。
分かったか。

らくだ本３版でもハッシュを連想配列と訳して、連想配列を索引から引くと、
「後生だから、ハッシュを参照してください。」だって。まあ、いいさ。

**nobodyさん** · 03/05/09 18:22

foreach (@AAA) {
　　foreach (@BBB) {
　　　　処理;
　　}
}
とやりたいのですが、$_はどっちのが参照されるんでしょう？

**nobodyさん** · 03/05/09 18:25

ホームページ、確信犯、姑息・・・
どれも本来の言葉の意味とは違う使われ方をしている。
しかし、どれも間違った使い方でも意味は通じる。
正確な言葉を使うのは大事だが、意味を伝える方がもっと大事。
らくだ本でも連想配列って書いてるなら、それでいいじゃないかと思うけどね。

ハッシュってのがどういうアルゴリズムなのかはちょっと気になるが、スレ違いだな。

**nobodyさん** · 03/05/09 18:27

>756
my $i = 0;
{
　my $i = 1;
　{
　　my $i = 2;
　　print $i;
　}
}

さーて、表示される数字は、いーくつだ？

**nobodyさん** · 03/05/09 18:28

>>756
直前のもの。＠ＢＢＢ

**nobodyさん** · 03/05/09 18:29

>>754
ありがとうございます。
-Mを使うことが分かって、

$datfolder = './DAT';

$date = -M $datfolder;
print "Content-type:text/html\n\n";
print $date;

と、しました。出力結果が
0.787731481481481
と出たのですが、これは何を表してるんでしょうか？
「内容が最後に変更されてからの日数」っていうのはわかるんですが、どれが日で、どれが時間なのかがわかりません。

**nobodyさん** · 03/05/09 18:30

foreach my $i (@AAA) {
　　foreach my $j (@BBB) {
　　　　処理;
　　}
}
わかりにくかったらこうするといい。

**nobodyさん** · 03/05/09 18:30

>>758
2 かな・・・？

**nobodyさん** · 03/05/09 18:31

>760
日数だろ。
0.78日。

てか、リンク先の一番上のページの一番下の方まで見たか？

**nobodyさん** · 03/05/09 18:42

PHPに限った話では無いと思いますが、フォームの使い方で教えて下さい。

フレームを使っていないpage1.phpというページから、送信ボタンで
page2.phpと言うフレームで2分割されたページへ飛びます。
page2.phplはupper.phpとlower.phpに分割されています。
<form method ="POST" action=page2.php>と記述していますが、
これですとフレーム内のupper.phpで値を受け取れません。
どうすれば良いでしょう。
page2.phpからupper.phpにまた値を渡すのかな？
よろしくお願いします。

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

どうしようか…。

>>766
>>764に一言よろしく。

**nobodyさん** · 03/05/09 18:59

>>764
スレ違い

**nobodyさん** · 03/05/09 18:59

>>764
ページへのジャンプとデータの送信先は無関係。

－－－－－－　終了　－－－－－－　でよろしい？

**nobodyさん** · 03/05/09 19:01

>767
よろしい。

では、次の質問どうぞ。
---------------------------------------------------------
いらっしゃーい、Perlのコーディングで困ってる人のスレです。

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

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

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

**nobodyさん** · 03/05/09 19:08

\nで区切られた値を持つ$kutyuがあるんですがこれを@kutyuにするにはどうすれば・・・

一行目→要素の一番目　という風にしたいです。

**bloom** · 03/05/09 19:10

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

_ · 03/05/09 19:11

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

>769
split

**nobodyさん** · 03/05/09 19:15

>>772
ありがとうございます

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

>>755
Perlの%hogeは連想配列じゃないということ？

**764** · 03/05/09 19:31

あ～～、すみません。平にスレ違いお許しを。
この際、このままご慈悲深いPerlスレの皆様におすがりします。

>ページへのジャンプとデータの送信先は無関係。
とのことですが、formのaction=のところのアドレスが
ジャンプ先=送信先では無いのですか？
何卒よろしくお願い申し上げます。

**nobodyさん** · 03/05/09 19:34

>>775
アホか？スレ違いって言われてんだろ。氏ねよ。

**760** · 03/05/09 19:43

>>763
最後まで見ました。
stat関数でしたほうがイイということでしょうか？
$datfolder = './dat';

@fileinfo = stat ($datfolder);
print "Content-type:text/html\n\n";
foreach (@fileinfo) {
print "$_<BR>";
}
こうしたところ、[ 9 ]の最終変更時間の値が0になってしまいます。
フォルダは指定できないんでしょうか？

**nobodyさん** · 03/05/09 19:44

>>775
http://www.w3.org/でも見たら幸せになれるかもね。

**nobodyさん** · 03/05/09 20:26

>>768が出てくると、いつも>>771みたいのが一緒に出てくるな

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

>>757
あまえ、近藤さんを神様にしようと？
2chは、権威に逆らって真実を求めようとするプロジェクトじゃないのか？

**nobodyさん** · 03/05/09 21:22

いいえ。
２ちゃんねるは回答者が質問者に答えるのが真のプロジェクトです。
真実を求めるとか、どっちが便利とか、使いやすいとか議論するとろくでもない結果になります。

**nobodyさん** · 03/05/09 21:43

>>781
１．日本語がまずい。
２．そういう魂胆じゃ、2chの今後が危うい。
（わざわざ厨用に、全部、全角にしてる。）

**nobodyさん** · 03/05/09 21:47

ゴミン。'2ch'だけ敬意を払って全角にすた。

**783** · 03/05/09 21:50

×'2ch'だけ敬意を払って全角にすた。
○'2ch'だけ敬意を払って半角にすた。

**nobodyさん** · 03/05/09 22:31

>>757
近藤か？

◆hMJAPH9PWA · 03/05/09 22:47

「連想配列(associative array)」という言葉が長すぎるってことで「ハッシュ(hash)」と呼ばれるようになったのだとラクダ本にあったきがする。
まぁ語源はともかく、いまやハッシュはハッシュなんだからそれでいいんじゃない？

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

2万行以上のLOGファイルをgrepするならどの方法が早い＆軽いですかね？
systemだと重そうだし、単純にwhileで回してifする以外に効率がいい方法ないですか？

**nobodyさん** · 03/05/09 23:08

あのぅ、ディレクトリ内のファイル一覧を取得するというコマンドはないんでしょうか？
readdirってのは、どういう働きなんでしょう？

**bloom** · 03/05/09 23:10

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

**nobodyさん** · 03/05/09 23:16

>>788
コマンドって言うなよ・・・

@dir_value = readdir DIR;
とか
@dir_value = glob("*.*");

readdirぐらいは自分で調べれ

**nobodyさん** · 03/05/09 23:17

>>790
DIRってのはファイルハンドルね。念のため。

**nobodyさん** · 03/05/09 23:29

>>790
ありがとう。
>>791
それはわかってまつｗｗ

**nobodyさん** · 03/05/09 23:46

|`ω´)

ファイルハンドルじゃなくディレクトリハンドル

と誰もいないうちに訂正しておこう

|Д´)ﾉんじゃ

**nobodyさん** · 03/05/09 23:57

実質的にはファイルハンドルなんだから、ファイルハンドルでOK

**nobodyさん** · 03/05/10 00:17

１０万行ぐらいあるＣＳＶファイルから検索したいんだけど、
一番早く検索できる方法って有りますか？

郵便番号から住所を検索したいんだけど、
やっぱり１行ずつ調べるしかないのかな？

**nobodyさん** · 03/05/10 00:24

>>795
ﾃﾞｰﾀﾍﾞｰｽ使え。

って言うか、普通のﾌｧｲﾙでも工夫次第で検索早くなると思うけどねぇ～・・・。
一つのﾌｧｲﾙに10万行もあるからいけない。
最初の三桁づつのﾌｧｲﾙに分けるとか・・・。
いろいろあるだろ。

**189** · 03/05/10 00:44

>>795
郵便番号って10万もあるか？

**nobodyさん** · 03/05/10 00:44

>>787
grepの方が速い。つーかそれくらい自分でベンチしろ。

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

>>794
Perlじゃファイルハンドルとディレクトリハンドルはまったく別のものだよ。

**nobodyさん** · 03/05/10 00:58

すいません、質問です。
指定したディレクトリ及び拡張子から該当するファイル名とファイルサイズを取得したいのですが、
ファイル名取得はうまくいくものの、サイズがすべて０になってしまいます。
どこをどう変えたらサイズ取得できるでしょうか？ご指摘お願いします。
##以下ソース

　　$wdir="C:/hoge"; #対象となるディレクトリ
　　$sita=".txt"; #対象となるファイルの拡張子
　　　
　　opendir(DIR, $wdir);
　　while ($file = readdir(DIR)) {
　　　　if ($file =~/$sita$/) {
　　　　　　($fsize) = (stat($file))[7];
　　　　　　printf("%s%3dByte\n", $file, $fsize);
　　　　}
　　}
　　closedir(DIR);
##以上ソース

**nobodyさん** · 03/05/10 01:03

($fsize) = (stat("$wdir/$file"))[7];
なんじゃ？

**nobodyさん** · 03/05/10 01:03

>>797
7桁フルに使うと1千万あるな

ファイルが固定ならインデックスを一度作ると
次からは速い

**nobodyさん** · 03/05/10 01:07

>>800
欲しいのがファイルサイズだけなら、stat より
ファイルテスト演算子 -s をオススメする。
$fsize = -s $file;

**nobodyさん** · 03/05/10 01:29

>>803
perl知らない人が見たらどういう文法だと思うだろうな

**nobodyさん** · 03/05/10 01:48

>>801
ありがとうございます。readdir(DIR)した時点でDIRが作業ディレクトリになると勘違いしてました。

>>803
ファイルテスト演算子…こんな便利なものがあったんだ。
やっぱりstat関数より実行効率いいのかな？ググって勉強してきます。
ありがとうございました。

**760** · 03/05/10 02:54

>>777流された・・・

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

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

**nobodyさん** · 03/05/10 04:01

HTMLから
<input ytpe=text name=par rows=1 size=4>で、4桁の数値を入力して渡します。
パーミッションなので（0775など）
それで、CGIで、&ReadParse(*in)で変数に置き換えます$par
そして、
chmod $par, a.txt
とすると、363とかなっちゃいます。
これは、テキストエリアからは数字はこないので、charとして認識されてるんですかね？

**nobodyさん** · 03/05/10 04:26

>>808
実際のコード書いてみなよ。
なんかおかしなことやってそう。

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

>>808
typeがytpeになってるが関係無いよね？

**nobodyさん** · 03/05/10 06:46

ロジックがあってるならumaskだろうな

**nobodyさん** · 03/05/10 07:24

データベースの特定のレコードを
別のテーブルに移動させる事って出来ますか？
Aテーブルのレコード取得→Bテーブルに同じものを作成→Aテーブルのを削除
今はそうやってるんですけど…。

**nobodyさん** · 03/05/10 07:24

↑ちなみに、AとBは同じ構造のテーブルです

◆hMJAPH9PWA · 03/05/10 08:58

>>808
oct($par)

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

$C = 0;　　　　　　#デフォルトの確認場所
foreach my $D (@tottano){
　　　if ($D eq $maeno[$C]) { $C++; next; }　　　#両方ともあったら次
　　　$E = 1; $H = 0;
　　　foreach my $G (@maeno){　　　　　　　#他の位置にあるかチェック
　　　　　　if ($G eq $D) { $E = 0; $C = $H; $C++; last; }　　　#他の位置にあったら$Cをその次へ
　　　　　　$H++;
　　　}
　　　if ($E) { $F.= $D; $F.= "\n"; }
}

同じようにソートされた@maenoと@tottanoを比較して、
@tottanoにあって@maenoにない→$Fに追加
@maenoにあって@tottanoにない→何もしない
としたいんですが、上のようにすると
@maenoにあって@tottanoにない時が一つでもある場合、
$Fに@tottanoの内容が全て入ってしまうんです。

上のはどこがいけないのか、根本的に間違っているのか、教えてください。

**250** · 03/05/10 12:45

>>815
見にくいソースなので自己流の書き方にしてみたけど、検証きぼん・・・

foreach my $key (@tottano){
　　foreach my $list (@maeno){
　　　　if($key eq $list){
　　　　　　undef $key;
　　　　　　last;
　　　　}
　　}
　　if(!undef $key){
　　　　$F = $key . "\n";
　　}
}