|
はじめまして，こんにちは． つい１週間ほど前にFreeBSDに手を出した者です． さっぱり解らないので色々と探してここにたどり着きました． ”UNIXのお部屋”は大変参考になりますね．すごく重宝します． また何か解らないことがあったらこちらに伺おうと思っているので その時は何卒よろしくお願いします． |
|
どもども。今後ともよろしくです。 表現がわかりにくい/構成が悪い部分があったら教えて下さいね。 どうも肥大化しすぎて、どこをどうすれば利用しやすくなるのか わからなくなってしまいましたので。 |
|
たぶん完成しました。(^_^; http://www.raidway.ne.jp/~nouveau/dc/sh/ に置く、race.htmlとrrr.cgiです。(cgiはrrr.txtにしておいてあります) どんなもんでしょう？ wrapperが非常に役に立ちました、ありがとうございます。 ところでハッシュというものは一時的にでも並べ替えは出来ないんですね。 代入した数値順での並べ替えでずっと詰まってました...。 |
|
> http://www.raidway.ne.jp/~nouveau/dc/sh/ > に置く、race.htmlとrrr.cgiです。(cgiはrrr.txtにしておいてあります) では拝見…と思ったら not found。 どこにあるんでせう? > 代入した数値順での並べ替えでずっと詰まってました...。 毎回ソートする必要がありますね。解決されたようですが、 一応書いておくと、キーを数字順でソートしたいなら foreach ( sort {$a<=>$b} keys %hash ){ print "$_ $hash{$_}\n"; } 値を数字順でソートなら foreach ( sort {$hash{$a} <=> $hash{$b}} keys %hash ){ print "$_ $hash{$_}\n"; } 文字としてソートなら <=> ではなく cmp、などなど。 |
|
すみません、置く前に書いたんで...。 設置にも手間取ってたりしました、何故かエラーが...。 ハッシュの件は解決しなかったので処理が終わったら 別の変数に代入しちゃいました。 この辺はかなり無駄がありそうですし、エラーがあるなら この周辺でしょう...。 むぅ、foreach ( sort〜ですか...、組み込めるかな...。(-_-; お手数おかけしました。 |
|
あ、見れた。で、気づいた事。 - $monが0月〜11月になっちゃいませんか。 うーん、これくらいかなぁ。後はどーでもいいというか、些細な事というか、 好みの問題というか。 - EOF は End Of File の略なので、EOTが適当…なんでしたっけ? (EOT=End Of Textのつもり)。 - if ($... <10) { $... = "0..." } の羅列より、 $now = sprintf("%4d/%02d/%02d ...",$year+1900,$mon+1,$mday,...) の方がすっきりするかも。 全体的に特に問題はないんじゃないでしょうか。 |
|
後は > ($dtm,$soft,$point,$reho) = split(/\,/, $data[0]); ($dtm,$soft,$point,$reho) = split(/,/, $data[0]); > $temp = $now."\,".$FORM{'soft'}."\,".$FORM{'point'}."\,".$ureho."\n"; $temp = "$now,$FORM{'soft'},$FORM{'point'},$ureho\n"; くらいかなぁ。ほんとに細かいことですけど。 それからこれは根本的な問題ですが、FORMから渡される値をチェックして ないので、変なのを入れられる可能性がありますね。旧SEGA BBSのように。 渡された値が適切かどうかを調べるのは(僕は)必須だと思います。 |
|
あ、３月だ...、全然気付きませんでした。(-_-; 変な書き方してますね私、指摘されると自分でも思う...。 sprintfは便利ですね。でもなんで%02dの時だけ『0』が...。 私の持ってる本も%02dだけ0が付いてる...。 > FORMから渡される値をチェック... とりあえず$ENV{'HTTP_REFERER'}のチェックを入れてみます。 って、コレだと投票できないブラウザがあったか...。＜ＳＳとか 全部の値をチェックするんだったら投票フォーム部分も組み込んだ方が 楽そうだし、そうしようかな...。＜いづれ(^_^; 勉強になりました！ >変なのを入れられる可能性がありますね。旧SEGA BBSのように。 ギクッ！ |
|
１１１１１１ |
|
2222222 |
|
こんばんは。 Perlのreaddirでの現象でお聞きしたいのですが。 普通、以下の様な記述で@filesには、ディレクトリ内のファイル＆ ディレクトリが入りますが、この配列の中に返される文字列の中に 複数のバイナリが混じるというのは、ディレクトリエントリが壊れ ているのでしょうか。 opendir(DIR, "./"); @files = readdir(DIR); closedir(DIR); 特にヌル(\x00)が多量に含まれます。 さらにこの状態のディレクトリを、他のディレクトリにコピー した時に症状が引き継がれるのは、壊れていると仮定すると 親ディレクトリからの影響が出ているのでしょうか。 またこの症状が出るのは、nfs等で共有しているディレクトリです。 何か分かる事が有りましたら、よろしくお願いします。 ちなみに以下のスクリプトでは問題無く表示されます。 #!/usr/local/bin/perl $|=1; print "Content-type: text/plain\n\n"; $_ = system("ls -l ./ 2>&1"); print "$_\n"; |
|
> でもなんで%02dの時だけ『0』が...。 要は桁合わせですな。 Ex. printf("%d,%4d,%04d\n",10,10,10); > この配列の中に返される文字列の中に複数のバイナリが混じるというのは、 > ディレクトリエントリが壊れているのでしょうか。 うーん、どうなんでしょうねぇ。漢字のファイル名ってこともありますし、 バイナリが混じっているだけで壊れているとは言い切れないです。 > 特にヌル(\x00)が多量に含まれます。 ファイル名にヌルってありだったかなぁ…? 具体的な出力結果を見てみないことには、なんとも言いがたいです。 |
|
あ、しょうもないことかも知れませんが emiclock の costumes で Transparent dress (一番下のコスチューム) を、どうやったら拝めるのでしょうか? |
|
>漢字のファイル名 これは無いです。 本によると「システムによって保守されるディレクトリ構造の内容」 とあります。という事からエントリが壊れているのかと思った訳です。 しかし、意図的に壊してみることまではさすがにできないので、 困ってしまいました。 もう少し調べてみます。ありがとうございました。 |
|
> Transparent dress (一番下のコスチューム) > を、どうやったら拝めるのでしょうか? あはははは。誰もが一度は思った疑問ですね。 僕も知らなかったんで調べてみました。 1. 30分チャイムを鳴らす設定にする。 2. alarmを....年............に.....。 3. 30分チャイムが鳴るまで待つ(0分or30分) 4. Costumesに…なんとアレが! ちなみにオリジナルのMac版のドキュメントには以下の記述がありますなぁ。 > < ひとりごと > > ある日、もとそふと探検隊は某秘境の洞窟の壁に書かれた落書きを発見した。 > 壁には、「１９５８年１０月２４日０６時３３分」と落書きされていた。これ > が、いったい何を意味するのかはわからない。 > 洞窟は、さらに奥へと続いていた。仲間と３０分に待ち合わせることにして、 > チャイムをセットし、隊長はさらに奥へと進んだ。 > ３０分を知らせるチャイムが鳴った。そのとき、隊長の顔は、笑顔に変わって > いた。ついに秘宝を発見したのだ。 …で見れますか? うちのemiclockは30分チャイムがなぜか選べないようになってるんですが… なんでだろ。というわけでソースを1行書き換えて見てしまいました(^^; |