Perl 初心者コーナー Part22
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
03/04/15 10:15ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
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
0446nobodyさん
03/04/29 16:00ID:qzwrs6CUprint $kurae; # 暗殺
=cut
【電磁波？】パナウェーブって何よ？【白装束】＠お祭りch
http://live5.2ch.net/test/read.cgi/festival/1051521132/l50
[タマちゃん]謎の白装束軍団に対抗して黒装束オフ２＠突発OFF
http://life2.2ch.net/test/read.cgi/offevent/1051588043/l50
=cut
0448nobodyさん
03/04/29 16:15ID:???$abc{xxx} / $abc{'xxx'}
添え字が英数字だけの場合、「''」をつけない場合のデメリットってありますか？
今まではつけるようにしていたんですが、
特にデメリットがないなら、別に付けなくてもいいかなと・・・。
0449nobodyさん
03/04/29 16:19ID:qzwrs6CUPerl5.8未満の場合、JPerl使わないと正規表現に一部日本語が使えなかった筈
0450nobodyさん
03/04/29 16:20ID:7QU29USV0451nobodyさん
03/04/29 16:33ID:???しっかり読もう。
0452nobodyさん
03/04/29 17:10ID:jjc4BdFLメーリングリストのＣＧＩを使ってるのですが、
メールアドレスに + などが含まれるとうまくいきません(当たり前ですが)
対処法はあるでしょうか？
0454nobodyさん
03/04/29 17:22ID:???どのみち、0-9 a-z A-Z _ - . * 以外の文字を使われると破錠する。
詳しくは、URLエンコードでググって。
0455独り言
03/04/29 17:26ID:???プログラミングPerl改訂版の4章（リファレンス）を読んでも全然意味がわからないよ。
C言語のポインタとか分かってる方が理解が早いのかな？（Cは全然知らんが）
リファレンスがスッキリ分かる書籍とかないかなぁ。
以前、オブジェクト指向ってどんなんかなぁと思って、
ＰｅｒｌとかJavaのそれ関連の本読んで全然意味が分からなかったことがあったが、
Rubyプログラミング入門って本を読んだらちょっと理解できたことがあったな。
それを読むまでは、
オブジェクト？はぁ？
メソッド？はぁ？
クラス？はぁ？
って感じだったんだが、その本では、自動販売機を例にしていて
すごく分かりやすかったなぁ。
クラスとは自販機の設計図です。
オブジェクトはそれをもとに作られた自販機そのものです。
メソッドは自販機のボタンです。と。
オブジェクトは機能とデータを持っていて、メソッドで機能を呼ぶと。
自販機だったらボタンを押す（メソッド）とジュース（データ）が出てくる（機能）と。。。
ちょっと感動したもんだ。
そんな感動するような、リファレンスの解説があったら読みたいもんだ。
0456nobodyさん
03/04/29 22:34ID:???自販機そのものはインスタンスだろ
0457nobodyさん
03/04/30 00:12ID:???ﾘﾌｧﾚﾝｽとは、Cのﾎﾟｲﾝﾀ相当。
変数に入ってるﾃﾞｰﾀのﾒﾓﾘｱﾄﾞﾚｽを返す。
変数の中に、長文の文字列が入ってるとする。
それを、ｻﾌﾞﾙｰﾁﾝに引数として渡す場合、すべての長文の文字列をｺﾋﾟｰする。
ﾘﾌｧﾚﾝｽで渡すと、文字列の先頭のｱﾄﾞﾚｽだけを渡す。
文字列は、連続したｱﾄﾞﾚｽに入ってるので、先頭のｱﾄﾞﾚｽが分かれば、文字列すべてがわかる。
・・・わかるか？
0458250
03/04/30 01:20ID:???ってかけるとカッコいいしとかいってみる・・・
0459nobodyさん
03/04/30 03:06ID:???0461455
03/04/30 12:16ID:???漏れの中ではインスタンスとオブジェクトは同じモノ扱いになってる(w
漏れ、まだ分かってない？？？(´･ω･`)
けどね、その本読んでから、Perlのblessの意味がちょこ～っとだけ
わかった気がする。ネ申の息吹で無機物が有機物になって命を持つようなイメージ（w
>>457
ちょっとわかったような・・・
変数の中身をまるごとサブルーチンに渡すやり方はメモリ食いまくると？
巷で配布されてる糞CGIプログラムを理解するためのPerlの知識と
より洗練されたプログラムを書くための知識はケッコウ違いがあるなぁ。
0462nobodyさん
03/04/30 12:58ID:???Perl に限って言えばオブジェクトとインスタンスは同じモノ扱いでも
間違いではないよ。他の言語では別の物を指す事もあるけど。
Perl でのオブジェクト指向入門にはこれがいいかな。
http://perl.infoware.ne.jp/documents/perlboot.ja.html
0463nobodyさん
03/04/30 20:25ID:hqsLMrDJ区切り文字で区切られた行を、行ごと削除したいのですが...
$H,$I,$D
$H,$I,$D
$H,$I,$D
上記のようなデータファイルを1行ずつwhileで読み込んで
$Hの中に例えば”AA”という文字を含む場合、その1行全てを
削除したいのですが可能でしょうか？
while (<ANEWFILE>) {
s/(AA,.*,.*)//g;
s/BB,/CC,/g;
($H,$I,$D) = split(/,/);
$HOST = $H;
$HOST =~ tr/a-z/A-Z/;
print BNEWFILE "$HOST,$I,$D";
}
このようなscriptを作ったのですが、",,"という行が残ってしました。
区切り文字を\tなど他の文字に変えてみましたがだめでした。
区切り文字は削除できないのでしょうか？
0464nobodyさん
03/04/30 20:27ID:hqsLMrDJごめんなさい。
0465bloom
03/04/30 20:29ID:amWoVOiY0466nobodyさん
03/04/30 20:59ID:???> print BNEWFILE "$HOST,$I,$D";
> ",,"という行が残ってしました
自分で print してるんだから当然。
$H の中に含まれて欲しくないのなら何故、
一行を ($H,$I,$D) にバラしてから $H を調べる、
という手順にしないんだ?
後はこれ読んでもう一度考えてみな。
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsyn.html#Loop_Control
0467nobodyさん
03/04/30 22:22ID:ryfRd/ki$datにはIPを含むテキストデータが入っています。
（BBSのログファイルみたいな物と考えてください）
IPをHOSTに変換する物を作って見ました。
IPが5つくらい含まれていて、$datのサイズが1Kバイト程度ならしっかり動きます。
しかしそれ以上だと処理が終了しなくなってしまいます。
どうしたらいいかアドバイスお願いします。
while ($dat =~ m/([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/i) {
$ip="$1.$2.$3.$4";
$host = &IP2Host($ip);
$dat =~ s/$ip/$host/g;
}
IP2Host部分にも問題があるんですかね…？
0468動画直リン
03/04/30 22:29ID:amWoVOiY0469nobodyさん
03/04/30 22:29ID:???エラーログは？
0470467
03/04/30 22:35ID:???エラーログが出ません（汗
なんか無限ループしているような感じです。
なので結構たちが悪い…
0471467
03/04/30 22:40ID:???済みません。事故解決してしまいました（汗
一生懸命GETで送ってました。
サイズの限界超えてました。
POSTにしたらOKでした。
何こんなので2時間迷っていたんだろう…
>>469さん
本当に申し訳ないです。
0472nobodyさん
03/05/01 00:02ID:???逝ってきます。
0473nobodyさん
03/05/01 12:23ID:???テーブルを使って掛け算の九九を表示させようとしています。
for($kuku1 = 1; $kuku1<=9 ; $kuku1 = $kuku1 + 1)
{
for($kuku2 = 1; $kuku2<=9 ; $kuku2++)
{
$kotae = $kuku1 * $kuku2;
print "$kuku1*$kuku2=$kotae\n";
}
}
これだと動くのですが、テーブルにしようと思って、最初のforと
次のforの間にif($kuku1 = 1) {print "テーブルタグ"}(←やや略)や
最後の}と}の間にif($kuku1 = 9) {print "テーブルタグ"}を入れると
途端に中のforが実行されなくなってしまいます。持っている本には
そこまで解説がなく、検索してもわかりませんでした。入れ子の時は
途中に挟んだらいけないのでしょうか。
0475473
03/05/01 12:32ID:???0476473
03/05/01 12:37ID:???0477T-T
03/05/01 14:13ID:???３時間検索しまくったんですが解決できませんでした、助けて下さい、
①なぜか関数同士の、しかも割算が動きません
-------↓やってみた命令文--------
$temp = $test1;
$test1 = $temp / $test2;
---------------------------------
＃結果：エラーも出ずにそこで処理が止まります。
/や%を使った文を消すとCGIは最後まで正常に動きます・・。
+,-,*は動作しました、/,%だけ動きません、
②ifで複数の文章を連続で書き直す命令作ってみたんですが・・
-------↓やってみた命令文--------
if ($syurui1 eq 'デジカメ') { $syurui1 = 'dezikame';}
elsif ($syurui1 eq 'ネット') { $syurui1 = 'net';}
elsif ($syurui1 eq 'スキャナ') { $syurui1 = 'scaner';}
---------------------------------
＃結果：他の項目まで全部 dezikame になってしまいました、
データ整理したいけど知識なかったので とあるBBSを改造して
-------------------------------------------------------------
open(IL,"$logfile") || &error("Open Error : $logfile");
while (<IL>) {($～～,$～～,$～～) = split(/<>/);
-------------------------------------------------------------
こんな感じにlogファイルから関数にうつしています。
JavaScriptでファイル整頓してた性で変な先入観あるのかもしれません、
誰か もしかしたら 程度でもいいのでアドバイスをー、、
0478nobodyさん
03/05/01 14:37ID:???関数じゃなくてスカラーデータね。
(2)やってみたという命令文自体に問題はない。
他の項目まで全部 dezikame になってしまうってことは、
そこ以外での処理がまずいんでしょ。
ログファイルを読み込むとこから、処理をして、ログファイルに
書き込むとこまでのソース書いてみて
0479nobodyさん
03/05/01 14:45ID:???ちなみに、代入式は代入した値を返すのでif($i=1)とやれば真になるし、if($i=0)とやれば偽になる。
こういう書き方をする場合もあるので覚えておいて損はないかも。もちろん定数を入れては意味がないけど、関数の戻り値とかをね。
>>477
> なぜか関数同士の、しかも割算が動きません
変数同士に見えるんだけど。$test2が0なんじゃないの？
0480nobodyさん
03/05/01 14:48ID:???みんなprint関数だけは括弧をつけずに呼び出しているのはなぜですか？
教科書(?)がそう書かれていることが多いから？
0481480
03/05/01 14:51ID:???0484bloom
03/05/01 15:10ID:YcBKOzoM0485nobodyさん
03/05/01 16:16ID:l9KEH29r0486T-T
03/05/01 17:02ID:???①の件
＞478さん
＞(1)$test1、$test2にはどんなデータが入ってるの？
＞関数じゃなくてスカラーデータね。
$が付いてたらスカラー関数・・ではないんですね；
＞479さん、
＞変数同士に見えるんだけど。$test2が0なんじゃないの？
ちゃんと入ってる！・・とおもったら、、
BBSのを使った性でログの１行目のデータがからっぽな性だったみたいです、、
0以前に""(ナシ)な感じだったのかも、、
おかげさまで問題点気付けて正常動作しましたぁ～～、、/（＿ ＿ / ﾍﾟｺﾘ
ログ入力をメモ帳でやってて、
見易くするためにスペース入れてたのも
何か影響あったみたいです、(ﾜｰﾄﾞﾊﾟｯﾄﾞで一括削除しました、)
数字じゃなく文字列扱いになってたのかも、（でも足算、掛算はできたし・・？）
0487T-T （ありがとうー、
03/05/01 17:03ID:???②の件
＞478さん
＞(2)やってみたという命令文自体に問題はない。
＞他の項目まで全部 dezikame になってしまうってことは、
＞そこ以外での処理がまずいんでしょ。
＞ログファイルを読み込むとこから、処理をして、ログファイルに
＞書き込むとこまでのソース書いてみて
syntax errorとか１度出て文法がおかしいんだと必死になってたんですが
問題は無いと助言いただけたので、他の処理を少し書き直してみたら
全部変換されてしまうのが止まりました、、 Ｔ―Ｔ
でもifに反応しないなと思ったらこっちも列揃えて見易くなるように
ログ打ち込みで半角スペース使いまくってた性があったみたいで
スペース消したら正常動作しました・・！ ヽＴ―Ｔノ
読み込んだ時に縦列合わせに入れたスペースの存在を忘れた事と
何も入って無いものは掛,足,引はできるけど割算系はできないと勉強になりました、、
助言いただけたおかげで気付けて空回りを終れました～、、
ありがとうございました ＞ ＜ノ （またすぐにエラーでて来そうケド；
0488nobodyさん
03/05/01 19:59ID:???半角スペース、全角スペース、タブがあるならばというのならできるのですが、のみというのに苦労してます｡
よろぴくおながいします｡
0490nobodyさん
03/05/01 20:13ID:???0491nobodyさん
03/05/01 20:25ID:???0493nobodyさん
03/05/01 21:30ID:???宿題くらい自分でやろうな。
0494477
03/05/01 22:52ID:IITpZ0lX自作ログを配列に直してCGIに取りこんだんですが、
----↓こんな感じに------------------------------
@gyou01 = ('photo','pic','scan' 続く⇒);
@gyou02 = ('ph0001','pic001a','scan001');
@gyou03 = ('ph0002','pic001b','scan002a');
@gyou04 = ('ph0003','pic002','scan002b');
(50行くらい続く)
------------------------------------------------
種類別にリストに書き出そうと思ってforを使ったんですが
-----------------------------
for ($i = 1; $i <=51; $i++) {
print "$gyou$i[$i]\n";
-----------------------------
配列の部分の指定に関数使ったんですが動かず・・、（JavaScriptでは出来たのに、、
あと、
---------------------------
for ($i = 1; $i <=51; $i++){
j = i + 1;
if ($gyou$i[5] < $gyou$j[5]){
@temp = @gyou$i;
@gyou$i = @gyou$j;
@gyou$j = @temp;
}
---------------------------
こんな感じで配列の入れ替え整頓もできる状態にしたくて
あまり激しく変えたくないのですけれど・・・
無理でしょうか？、
よろしくおねがいします、、
0495nobodyさん
03/05/02 00:08ID:???俺は括弧は極力省く派だから「みんな」には入らんようだが、
print は直後にファイルハンドルが来る事が多いから、
それらと統一感を出す為じゃないか?
>>494
二次元配列にすれ。
@gyou = (
['photo','pic','scan'],
['ph0001','pic001a','scan001'],
['ph0002','pic001b','scan002a'],
['ph0003','pic002','scan002b'],
);
# photo, ph0001, ph0002...
foreach (@gyou) { print $_->[0] }
# 入れ替えはスライスで。
@gyou[2,1] = @gyou[1,2];
あと「変数」を「関数」と覚え間違えてるのは直そうな。
0496nobodyさん
03/05/02 00:54ID:???$rtn = print "hello,world"; #rtn 戻り値
私の持ってる超ド級初心者用の本の説明・・・
関数printはまず失敗しないから、使わないだけ。らすぃ・・
0497nobodyさん
03/05/02 00:58ID:???変数$hogeの文字列のうち、
文字列"FOO"と一致する内容を、変数$bに置換するにはどうすればいいですか?
0498nobodyさん
03/05/02 01:03ID:???正規表現。
あとは検索すればいくらでも出てくる。
0499477
03/05/02 01:33ID:???495様ありがとうございます＞ ＜ﾉ
C++かじった時出てたけど色んなとこで紹介さえなかったからCGIに２次元は無いと思ってました、
でも入れ替えも簡単で嬉しくて嬉しくて＞ ＜、
でも foreach (@gyou) { print $_->[0] } の機能が試したけど不明、、
$_->はどんな意味があるのでしょうか？
＞あと「変数」を「関数」と覚え間違えてるのは直そうな。
はい、、
まだしばらく間違えそうな気がするけど気を付けます、
なにはともあれ、本当に助かります ありがとうございます～、 ノ（＿ ＿ ノ
0500nobodyさん
03/05/02 01:41ID:???>CGIに２次元は無いと思ってました、
PerlとCGIを混同してないか？
Java/JavaScriptと同じで、時と場合によっては叩かれるから注意な。
0501nobodyさん
03/05/02 03:08ID:???を
$hoge = '/home/user/public_html;
にする一番スマートなやり方ってどんなのがありますか？
0506nobodyさん
03/05/02 05:29ID:???0508nobodyさん
03/05/02 07:46ID:???# [ ] で無名配列のリファレンスを生成
@gyou = (
['photo','pic','scan'],
['ph0001','pic001a','scan001'],
['ph0002','pic001b','scan002a'],
);
# 同じ事を別のやり方で。\ でリファレンスを得る
@gyou1 = ('photo','pic','scan');
@gyou2 = ('ph0001','pic001a','scan001');
@gyou3 = ('ph0002','pic001b','scan002a');
@gyou = (\@gyou1, \@gyou2, \@gyou3);
foreach $line (@gyou) {
# リファレンスをそのまま見ると、型とアドレスが返される
print "$line - ";
# デリファレンスする事で元のデータにアクセスできる
print "(@{$line}) - ";
# リストの要素を個別に見る
print "${$line}[1] - ";
# デリファレンスに矢印演算子を使う
print "$line->[0]\n";
}
あとは上に出したような単語で調べてくれ。
0509nobodyさん
03/05/02 08:40ID:???PerlとかJavaとかは配列の配列と言う。
0510nobodyさん
03/05/02 11:20ID:???解説書とかに書いてあるね。
私はPerlとPHPしかやった事が無いので
本当の２次元配列が、どういうものなのか分からない（´～｀）
Cだとどういう風に書くの？ってスレ違いか…。
0511nobodyさん
03/05/02 11:48ID:???fileの初期値が指定できないことがネックになってます
結局は確認の時点で保存、その後、本書き込みの時点でコピー
ということでファイナルアンサーでしょうか
>>510
C・・・きれいな長方形
Perl・・・棒グラフ
漏れの中ではこんなイメージ
0512nobodyさん
03/05/02 12:13ID:???Perlの話じゃねえだろが。
そうだな。確認の時に一時ファイルに保存して、
本書き込みでリネームするなりコピーするなりかな。
一時ファイルの削除を忘れるなよー。
0513nobodyさん
03/05/02 12:23ID:???どもです。まぁ、Perlで作ってるんでw
じゃぁ、やぱーり一時ファイル作成→コピーかぁ
ただ、これをやると確認アタックかけられると一時ファイルが膨大になる罠
本書き込みがなくとも10分程度でファイルを自動的に消す仕様にしたとして
10分以内にアホほどうpられるとどうしようかと
投稿制限と併用が妥当ですか？
0516nobodyさん
03/05/02 13:07ID:???0517nobodyさん
03/05/02 18:25ID:???0518nobodyさん
03/05/02 19:53ID:???0519nobodyさん
03/05/02 21:10ID:???なんかおかしい？
配列を要素に持つ配列だからイメージとしてそんな感じだと言ったんだけど。
もちろんそんな呼び方はしていないぞ。
0520nobodyさん
03/05/02 21:24ID:???＞Cの場合は二次元配列というか二重配列って感じ。
何か勘違いしてないか？
君の言う二重配列はint **hogeだろう？
で、二次元配列はint hoge[][] だろ。
”というか”はおかしい。
0521nobodyさん
03/05/02 21:30ID:???はい、次の質問。
いらっしゃーい、Perlのコーディングで困ってる人のスレです。
【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
0522nobodyさん
03/05/02 21:33ID:???それは二重ポインタだろうが。
Cでの二次元配列はメモリー上にまっすぐ並んでいるんだよ。おまえこそ分かっているのか？
>>521
ｽﾏｿ もうやめる。
0523522
03/05/02 21:35ID:???これで本当に最後
0524nobodyさん
03/05/02 22:26ID:???0525nobodyさん
03/05/02 23:14ID:???＞それは二重ポインタだろうが。
>>519に対してレスしてるんだよ？スレを嫁。（そして俺はスレタイを嫁。
＞メモリー上にまっすぐ
なんじゃそりゃ。メモリの配置方法は関係ないだろ？
そんなこと言ったらそもそも「配列」なんて意味を持たない。
配列の各要素について等サイズのメモリが割り当てられてるのが多次元配列。
>>519の言ってる「二重配列」は配列の各要素でサイズが違うもの。お分かり？
0526nobodyさん
03/05/03 00:31ID:???確認時にtempディレクトリを作って、そこに画像を保存
画像の名前はIPからcryptしたユニークIDにすることで同じIPからの
投稿は上書き処理にすることで無効化する
一時保存の前にtempディレクトリをstatして10分以上更新がなければ
tempディレクトリごと消去することで仮に確認だけを行って一時ファイルを無作為に増やすような
嵐行為は10分以上時間が空けば無駄になる仕組み
一時ファイルは本書き込みの際に移動＆リネームで本来の画像名を与える
もっといい案があればくれろ。
てかこの板ってまともな質問できるスレ少ないな
0527250
03/05/03 00:57ID:???画像の名前からMD5をとって、md5のファイル名の一時ファイルを作成。
それと同時に、md5ファイル名対応ファイルを作成。
んで本書きこみは対応表から本ファイル名にリネーム保存、んでリストから対応データを削除つーのはいかが？
0528nobodyさん
03/05/03 01:13ID:???う～ん、10分程度の時間ならそれほど重複することもないかなとか
というか、問題は確認時に保存した一時ファイルの処理だったり
本書き込みの際に処理をさせるとなると確認だけで本書き込みに移行されない場合は
そのファイルが永遠に残ってしまうので
確認時に保存したファイルをどう削除するかスリープさせて一定時間で消去ってのも・・・
0529250
03/05/03 01:16ID:???それよりか、ファイルのバイナリデータ自体にMD5をかければ連投さけれるな・・・
例えば
12a6de24c6aec73c5c23da03c135a3c0.png
12a6de24c6aec73c5c23da03c135a3c0.txt
つーのをつくって、12a6de24c6aec73c5c23da03c135a3c0.txt
ファイル名を記述しとく。
ayaya.png
とか・・・
んで、statなりつかってリネーム、txtファイルは削除とかどうよ・・・
0530477
03/05/03 01:43ID:???ありがとうございます＾＾
配列を配列に入れられる物なんですね～、、
下半分はまだ駆け出しにはよくわかんないのでメモして調べて見ます、
あと、質問です、、
-----------------------------------------
@gyou([～間～'day'],
[～間～'20030202'],
[～間～'20021231'],
[～間～'20030101'],
);
for ($i = 0; $i <= 51; $i++) {
$j += $i;
if ($head[$i][7] < $head[$j][7]){
@temp1 = @head[$i];
@head[$i] = @head[$j];
@head[$j] = @temp1;
}
}
------------------------------------------
日付順に並べかえしようと思ったんですが、１部しか並べ変わりません、、
（日付をわざわざ打つのも自動にできればいいけど無理でしょうか？、
それはそれで、
入替えってすぐ頭がこんがらがってしまって上手く構想さえ練れません、、
52列は有るんですが、変数i+1 i+2 i+3 ～～ と52個取得して
forを51度も置いて並べ替えしなきゃだめでしょうか？、
前教えてもらった$～[○,○]での変換がまだ上手く使えなくって・・Ｔ Ｔ
できれば助言ください～、、
0531250
03/05/03 02:15ID:???何故に@gyou なのに@headをソートしてるにょ？
それはおいといて、もっと簡単に
@gyou([～間～'day'],
[～間～'20030202'],
[～間～'20021231'],
[～間～'20030101'],
);
@gyou = @gyou[sort{ $gyou[$a]->[7] <=> $gyou[$b]->[7]} 0 .. $#gyou ];
これでいけるよ。
0533477
03/05/03 12:42ID:???実はややこしい配列使ってるからちょっと内容変えてたらミスを ＴＴ
内容変えてた性と構文と専門用語よくわかってないせいでまったく動かずパニック、
ちょっと別の手段さぐってみます Ｔ Ｔ
ごめんなさい、、
0534477
03/05/03 12:58ID:???Sortのこと調べてたら$aと$bはSort用のなんですね、、
forで$aつかって$b += $aなんて作ってたから動かなかったみたいです、
繰返したりしなくても単品で全て入れかえるんですね、、
Ｃ++少しかじったのが仇になった気分です、
中身を宣言しなくてもいい変数が有ると覚えておきます、（＿ ＿、
ありがとうございました～、
0535nobodyさん
03/05/03 13:07ID:???perlでクッキー使わずにセッション管理って出来るのかな？
URLでセッションIDとかを引き継ぐのもアレだしどうしたもんかと
>1：自分はこう言う事がしたい
適当なページでログインした後はログイン状態の維持
スレ違いだったらｽﾏｿ
0536動画直リン
03/05/03 13:10ID:TBhkUsV+0538535
03/05/03 14:06ID:???やっぱそれぐらいしか無いのね・・・
出来ればhtmlはそのままでSSIぐらいで片付く方法探してたんだけど
リンク元・ホスト・IPなんかで絞る方法ってのも無理だろうなぁ・・・
0539nobodyさん
03/05/03 21:04ID:???こっちかなーっと迷ったのですが、とりあえずここで聞いてみます。
perlで書かれてる掲示板スクリプトで、書いて読む(読み込む記事数を指定できる)だけの簡単なやつをだれか知りませんか？探したんですが、どれも何か実用できるような機能がついていたので...
勉強に使います。
誰か教えてください、お願いしますm(_ _)m
0540nobodyさん
03/05/03 21:10ID:???0541動画直リン
03/05/03 21:10ID:TBhkUsV+0542途方にくれています
03/05/03 22:51ID:40KqJ28qcgiファイルに書いてたときは問題なく動いてたのですが
関数をplファイルに移し変えたとたん↓の行が動かなくなりました。
select(SOCKET); $|=1; select(stdout);
なんもエラーメッセージ出てないが、ここで処理が中断されてしまう。
なぜ？
0544nobodyさん
03/05/03 23:11ID:???0545542
03/05/03 23:19ID:40KqJ28q■ このスレッドは過去ログ倉庫に格納されています