トップページ⇒php
1001コメント389KB

くだすれPerl（超初心者用）

レス数が950を超えています。1000を超えると書き込みができなくなります。
0001nobodyさん2006/09/10(日) 13:33:48ID:???
このスレッドは、他のスレッドでは書き込めない超低レベル、  
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。  
Perl使いが優しくコメントを返しますが、  
お礼はPerlの布教と初心者の救済をお願いします。  
0862nobodyさん2008/02/06(水) 10:22:36ID:???
Kent
CGI.pm
Mason
Sledge
Catalyst
Jifty
Reaction
間にいろいろハサんで欲すぃ
0863nobodyさん2008/02/06(水) 10:35:41ID:???
おっとCGI::Applicationを忘れていた
Kent
CGI.pm
CGI::Application
Mason
Sledge
Gantry
Catalyst
Jifty
Reaction
0864nobodyさん2008/02/06(水) 11:59:40ID:???
system "taskkill /im calc.exe";
0865nobodyさん2008/02/06(水) 16:07:31ID:???
ん？しりとりでもやりたいのか？ｗ
0866nobodyさん2008/02/06(水) 17:39:26ID:z242xw4+
すいません、質問お願いします。
一行テキスト　と　テキストエリア　と　送信ボタン　と　hiddenがいくつか　のフォームを作りました。
jcode.plを通して、デコードする仕組みにしました。

テキストエリアに、６００文字以下の、少ない全角文字を入力し、送信ボタンをクリックすると、
ログファイルに記載され、意図した表示になるのですが。

テキストエリアに沢山の文字（662文字以上）を入れ、送信ボタンを押しても反応しません。

perlには、フォームに入力する文字制限などがあるのでしょうか？
600文字程度ですと、使用目的では文字数が足りないので、なんとか直したいのですがどうしたらよいでしょう？
08678662008/02/06(水) 17:42:41ID:z242xw4+
追記です。

IE6だと、ボタンをクリックしても無反応なのですが。

FireFoxだと、一応書き込みができました、
しかし、やはり全角文字600文字程のところから後が切れて、ログファイルに記録されます。

また、全てが半角の数字を入力した場合には、何文字でも入力できる感じです。
宜しくお願いします。
08688662008/02/06(水) 17:50:10ID:z242xw4+
すいません。訂正です。

半角数字でも、１０００文字程度しか書き込みができませんでした。
0869nobodyさん2008/02/06(水) 17:50:25ID:???
method="POST"
0870nobodyさん2008/02/06(水) 17:51:53ID:???
enctype="multipart/form-data"
08718662008/02/06(水) 18:04:28ID:z242xw4+
>>869,870
ありがとうございます
メソッドをポストにしたら出来ました！
0872nobodyさん2008/02/08(金) 17:15:00ID:???
#!/usr/local/bin/perl
eval { $test=; };
print "fin"

この三行スクリプトを実行するとfinが表示されずに

syntax error at test.pl line 2, near "=;"
Execution of test.pl aborted due to compilation errors.

が表示されるのは正常なActivePerl(forWin)およびevalの振る舞いですか？
08738722008/02/08(金) 17:24:04ID:ZczohSgB
上げ忘れ。
ActivePerlのperl -vはPerl v.5.8.8 / build817です。
08748722008/02/08(金) 18:04:44ID:???
わかた(´д｀)y-~~シンタックス系のいわゆるコンパイルエラーはevalで拾えないようで、
拾えそうなｲｷﾌﾝで記述してあるリファレンスが誤りです。大変ありがとうございました。
0875nobodyさん2008/02/08(金) 18:57:59ID:???
eval q{ $test=; };
$@
08767972008/02/14(木) 15:20:19ID:???
おまいら解決したので報告します。

実は>>798が教えてくれたページを参考に作ったプログラムだったのですが、そこに罠があったのです。
ファイル名をSJISにするということで、アップページの文字コードもSJISにしていたのですが、
SJISで特定の文字(表、ソ、十など)にはWindowsでパスの区切りに使う\のコードが入っているので、
その部分が区切りと解釈されて、ファイル名が切られていたのです。
そこで、アップページの文字コードをUTF8にした所、切られることなく正常動作するようになりました。

おまけ
最近遭遇し一応解決したネタを１つ。
なぜか、CGI::LiteとIE6(最近のパッチ以降？)の組み合わせで<INPUT type="file">が複数連続すると、
途中のファイル名が取得できません。ダミーで<INPUT type="hidden">を挟むと大丈夫です。
0877nobodyさん2008/02/14(木) 16:19:19ID:???
おまそれはPerlの一番最初に習う、しかも新規の人は既に誰も使わな（ry

>なぜか、CGI::LiteとIE6(最近のパッチ以降？)の組み合わせで<INPUT type="file">が複数連続すると、
あーわかるわかる。初心者にありがちなバグだね。
おれもHTTP拡張のバウンダリ周りで苦労した。10年ぐらい前に。
0878nobodyさん2008/02/18(月) 22:53:11ID:b8HgX1gh
お願いします。
配列、@listの中には5つの要素が入っています。
そのなかの3つ目を削除するにはどうすれば良いですか？
$list[3] = ''; だと中身が空のまま要素数は変わりません…。
0879nobodyさん2008/02/18(月) 23:31:32ID:???
splice @list, 2, 1;
08808782008/02/19(火) 00:10:37ID:???
>>879さん、ありがとうございました。
0881nobodyさん2008/02/20(水) 18:43:38ID:???
ここって超初心者の板じゃないの？
モジュール関係の質問見ると引くぞ
>>878のスレ見て少しホッとしたけど
0882nobodyさん2008/02/20(水) 18:51:36ID:???
板とスレ
スレとレス

間違えてるぞ
0883nobodyさん2008/02/20(水) 20:04:29ID:AT7Ymvry
掲示板で書き込んだ人のIPを取得するにはどうしたら良いのでしょうか？
$〇〇 = $ENV{'REMOTE_ADDR'};
でIPを取得したのはわかったんですが、ﾌｫｰﾑの中に<input type=hidden name=△△ value=$○○>などで他人に書き込みさせても自分のIPが表示されてしまいます
色々ググったりしたんですが良く分かりません
優しい解説お願いします
0884nobodyさん2008/02/20(水) 20:25:09ID:???
>>883
hiddenタグでやろうとしていることがいまいち分からないが、
通常は、書き込んだ時にログファイルに一緒にIPアドレスを
書き込むものなんだが。
0885nobodyさん2008/02/20(水) 20:30:56ID:???
>>884
スクリプトは時刻表示とコメントだけの、一行掲示板の簡易なものです
一緒にとはどういうことなのでしょうか？
ログファイルには時刻とコメントしか載りません
超初心者ですいませんm(_ _)m
0886nobodyさん2008/02/20(水) 20:42:58ID:???
>>885
その、時刻とコメントを書き込むファイルに、IPアドレスも一緒に
書き込む方法があるでしょといいたいのだよ。
表示する際はそのデータは必ずしも出す必要は無いのだから。
それが嫌ならば、書き込みをしたときに内部的に別なファイルにも
IPアドレスと時刻を書き込ませるようにプログラムを書けばよい。
0887nobodyさん2008/02/20(水) 20:55:23ID:???
>>885
フォームにセットしなくても、書き込んだ人のIPはこれで取り出せるよ → $ENV{'REMOTE_ADDR'}
0888nobodyさん2008/02/20(水) 20:55:38ID:???
>>886
IPｱﾄﾞﾚｽを一緒に書き込むﾌﾟﾛｸﾞﾗﾑの書き方を知りたいんです(；∇；)/~~色々ググって、配布されてるｽｸﾘﾌﾟﾄから該当する部分を抽出して頑張ったんですが...良く分からなかったんです、
0889nobodyさん2008/02/20(水) 20:57:55ID:???
>>887
レスありがとうございますm(_ _)m
それでIPは表示されるのは分かったんですが、それをどこに設置すればログに書き込んだ人のIPが表示されるかが分からないんです(；∇；)/~~
0890nobodyさん2008/02/20(水) 21:04:58ID:???
>>889

open(OUT,">> log.txt");
$line = $ENV{'REMOTE_ADDR'};
print OUT $line;
close(OUT);
0891nobodyさん2008/02/20(水) 21:07:00ID:???
>>889
コメントの後ろにくっ付けちゃえｗ
0892nobodyさん2008/02/20(水) 21:14:53ID:???
aska とか kent の BBS にはログにIPアドレスを記録するコードは
あったはずだが。
それらを読んでも分からないのであれば、何処かに君が書いたソースを
うｐしてここに貼りなさい。気分が向いたら改変してやるからｗ
0893nobodyさん2008/02/20(水) 22:19:30ID:???
先程はありがとうございましたo(^-^)oおかげさまで解決しましたｗ

もう一つ質問させて下さいm(_ _)m

($sec,$min,$hour,$day,$mon,$year,$wday) = localtime(time);
$week = $weekday[$wday];
$mon++;
$date = "$mon月 $day日 $hour:$min";
という時刻表示のｽｸﾘﾌﾟﾄ(年が無駄にあるのは気にしないで下さいｗ)を使ってる？んですが、$minの所だけを1ｹﾀの秒の時だけ01や02みたいに0を先頭に付けたいのですが、どのようにすれば良いのでしょうか？
ちなみに 2月20日 22:04
というような事です！
0894nobodyさん2008/02/20(水) 22:24:58ID:???
>>893
printf使うとか。

また、例のごとくそれの使い方が分からないということであれば、
以下のコードを付け加える。

if($min>9){
$min = "0" . $min;
}
0895nobodyさん2008/02/20(水) 22:40:01ID:???
$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday,$d,$d) = localtime;
$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d", $year+1900, $mon+1, $mday,
('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday], $hour, $min, $sec);
print $date;
0896nobodyさん2008/02/20(水) 22:48:10ID:???
>>893
これはどうなの？
$date = sprintf("%2d月%2d日 %2d：%02d",$mon,$day,$hour,$min);
print $date;
0897nobodyさん2008/02/20(水) 22:53:59ID:???
>>895
$dは無くても良いぞ。
どうしても書きたいなら、undefにすべし

それと、
my( $year, $month, $day, $hour, $min, $sec, $wday ) = ( localtime() )[5,4,3,2,1,0];
って言うのを覚えると見た目に麗しい
0898nobodyさん2008/02/20(水) 23:05:01ID:???
perlは配列の要素が足りなければ
足りない分の後ろの要素は無視されるから
必要なければ書かなくてよろし
08998952008/02/20(水) 23:06:42ID:???
>>894が正常に動かない気がして5年も前に書いたやつ貼っただけだから
0900nobodyさん2008/02/20(水) 23:12:33ID:???
下らない質問に親切に答えていただいて本当にありがとうございました！
23:06 とかできました(゜∀゜;ノ)ノ

また何かあったらよろしくお願いします!(b^ー°)
0901nobodyさん2008/02/20(水) 23:34:16ID:???
もう２度と来るな
0902nobodyさん2008/02/21(木) 03:45:40ID:???
>>897
$wday いらね
0903nobodyさん2008/02/21(木) 09:53:00ID:???
>>902
あぁ、ほんとだ。
0904nobodyさん2008/02/21(木) 16:13:36ID:VlnHmaCl
掲示板で
[3]内容
[2]内容
[1]内容
みたいにレス番号を付けるにはどうしたら良いのでしょうか？
0905nobodyさん2008/02/21(木) 16:50:55ID:???
おまえ>>883だろ。
全部聞きに来るなら一から勉強しろよ。
0906nobodyさん2008/02/21(木) 17:10:04ID:???
>>904
お前の質問の仕方は抽象杉でわけわかんねえんだよ。
質問したければお前が書いたコードをうｐれ。話はそれからだ。
0907nobodyさん2008/02/21(木) 17:42:47ID:???
自分なりに勉強してやってみたんですが分からなかったので質問しに来ました

まあもう良いです
0908nobodyさん2008/02/21(木) 18:09:09ID:???
>>904
全データ読み込んで、内容の数を数えて、
・ 一番上の内容を表示する前に数えた数を
・ 次の内容を表示する前に(数えた数-1)を
と出していけばいんじゃね？

データフォーマットも表示部分のソースも無いんじゃ
エスパーでもないかぎり（ｒｙ
0909nobodyさん2008/02/21(木) 18:17:46ID:???
「出来ないやつ」の典型的なパターンだなｗ
・自分なりの勉強したはずなのに「本当に調べたの？」といいたくなる程度であるところ。
・「もう良いです。」とすぐにさじをなげるところ。
もう良いというのならば、このままPerlも辞めた方がいいぞ。道はいくらでもあるんだから。
0910nobodyさん2008/02/21(木) 21:37:27ID:???
ちょっと直したい時に全部調べるのがカッタルイってのはすげーよくわかるよ。
おれも子供の頃「関数内から抜けるコマンド何だっけ？」と電話で聞いたことある。あれは助かった。
でも何カ所も直したり、まして新規でBBSを作るなら、オマエそれ全部おれに書かせるのかって。
0911nobodyさん2008/02/21(木) 23:40:01ID:???
数年前はぐぐるにしても、日本語サイトが少ないからある程度英語が読めないと
駄目だったとか、検索エンジンの使い方のコツをある程度体得しておかなければ
目的のコンテンツにたどり着けなかったりしたから、その気持ちは分かる。
Perlのサンプルソースを手に入れる時、検索を使うよりも、２ｃｈの専用スレの
テンプレのURL一覧を見た方が早いなと感じた場合もあった。

だけど、今は大分検索エンジンの使い勝手も良くなり、目的のものがヒット
しやすくなった。Perlのこの程度の事なら日本語だけでも大丈夫だしね。
この状況で、このレベルのことが分からないなら、もう無理だと思う。
0912nobodyさん2008/02/21(木) 23:46:33ID:???
ラリーもあきれ顔です
ttp://upload.wikimedia.org/wikipedia/commons/b/b3/Larry_Wall_YAPC_2007.jpg
0913nobodyさん2008/02/22(金) 07:19:54ID:???
一つの発言に対してこれ程執着するとは(^w^)
ここがどれだけ過疎ってるかを表してますね
0914nobodyさん2008/02/22(金) 07:55:30ID:???
よし、じゃPHPのくだすれと統合するか？ｗ
09159102008/02/22(金) 10:59:13ID:???
>>911
っつーかｸﾞｸﾞﾚが一番要らない。何でもｸﾞｸﾞﾚばわかる筈だよ。理論上。
「これどうやるの？」「正規表現」みたいな一行レスもｸﾞｸﾞﾚと同じで意味が無い。
ｸﾞｸﾞﾚ言っていいのは通常スレ内だけで、こういうスレは隔離用だから、答えたい人
だけが見て、答えたくない人は見なければいい。教えてgooと同じ。たとえば

「C 関数 戻る」

で検索すると、return()はなかなか出て来ない。だからといって普段Tcl/Tk専門で
やってるSUNの社員に、一時的な知識のために参考書を買わせるのも無駄が多い。
ただ全部は聞きに来るなよって。
0916nobodyさん2008/02/22(金) 11:35:20ID:???
レスの内容が「ググレカス」と「正規表現」とは大きく違うと思うが。
後者は、情報にたどり着くまでの手助けを十分にしているといえる。
ひろゆきも、この簡潔な回答が出来るのは、２ｃｈの特徴であり、
他のサイトのくだらない挨拶をしなければならないところとの
大きな違いだといってたぞ。
0917nobodyさん2008/02/22(金) 11:40:32ID:???
質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドなのに
正規表現で分かるのかよｗ
0918nobodyさん2008/02/22(金) 12:38:27ID:???
まぁ時間と金をかけて勉強すりゃわかるだろうけど、当面の一つの目的さえ達成できれば、
あとはPerlなんて一生触りたくない層が最も多い。つまり言語がPerlなのはあるツールが
元々Perlで書かれていたからで、欲しいのはINとOUTのデータだけ。
こういう層に正規表現をわざわざ勉強させる必要は無いし、あればとっくにやってる。
そういうわけで具体的に一連の処理を書くことが望ましい。べつに10秒で書けるんだから。

また追加モジュールの紹介も価値が低い。モジュールのインスコが一番難しいんだから。
rootが必要だし、客先のネットワークによって無保証のモジュールの導入を禁止されている。
必ずしも導入できなくはないが、自社でアップデート対応を保証しなくてはならない。
0919nobodyさん2008/02/22(金) 13:47:46ID:???
ぬるぽ
0920nobodyさん2008/02/22(金) 14:15:30ID:???
>>919
ガッ！
0921nobodyさん2008/02/22(金) 16:15:50ID:???
>>918
元のソフトがPerlで書かれててPerlなんか一生触りたくないなら、
INなりOUTなりを使い慣れたプログラム言語で作ったフィルタで修正すりゃいいだろ。

一生触りたくないプログラム言語で書かれたソフトのメンテなんて断ればいい。
「どうしても」と言われたら使い慣れたプログラム言語に移植する方向で交渉すればいい。

くだすれで質問した答えを意味も分からずコピペしたソフトを使わされる顧客は悲惨だな。
よほどCPANのモジュールぶちこんでもらった方が安心できるとオモワレ。

モジュールのインストールってそんなに難しいか？
インストール先を自分の権限範囲にすればroot権限いらないモジュールも多いと思うが？
ああ、>>918みたいなクレクレ厨じゃ英語のメッセージは読めないんだな。納得。
0922nobodyさん2008/02/22(金) 20:36:06ID:???
「思うが」は典型的なバカの言葉だからあんま相手したくないけど、もう少し具体的に
言えば、配布されているCGI-Perlスクリプトを少し直して使いたい人が非常に多い。
こういう層に向かって「勉強しろ」はありえない。
その人はそこで節約した時間を社会奉仕にあてるかもしれない。
Perlはおれの方が少し詳しいかもしれないけど、Perl知ってりゃ偉いわけじゃなし。
ｸﾞｸﾞﾚとかモジュールのご紹介とかアホを晒す暇があったら処理を書けばいいし、
それが出来ない奴は消えりゃいい。
0923nobodyさん2008/02/22(金) 20:39:07ID:???
ああそうそう。こういうスレでｸﾞｸﾞﾚだのLWPだのほざいてる奴は
ソープランドでセックスしながら説教してるバカオヤジと同じだよ。
普通相手の人生なんて関係ないし興味もないよ。出た問いに答えればいい。
そういうスレなんだから。
0924nobodyさん2008/02/22(金) 20:47:34ID:8Vusg7lr
ソープランドでセックスしながら説教してる奴なんていねーよｗｗｗｗｗ
0925nobodyさん2008/02/22(金) 20:48:52ID:???
くだすれで顧客とか言ってる奴って何なの？
0926nobodyさん2008/02/22(金) 21:26:16ID:???
>925
くだすれで顧客とか言ってる奴＝>918と>921で桶？
>918
＞客先のネットワークによって無保証のモジュールの導入を禁止されている。
>921
＞くだすれで質問した答えを意味も分からずコピペしたソフトを使わされる顧客は悲惨だな。

どっちにしろ最初に客先とか言い出した>918がアフォだと思うが。
0927nobodyさん2008/02/22(金) 21:28:15ID:???
>918 >921 >922　
どこを縦読み？
0928nobodyさん2008/02/22(金) 21:40:20ID:???
Perlの質問マダァー？
0929nobodyさん2008/02/23(土) 02:02:05ID:???
> その人はそこで節約した時間を社会奉仕にあてるかもしれない。

何で話の流れとは関係の無い仮定の話が出てきてるの？ｗ
0930nobodyさん2008/02/23(土) 02:07:11ID:???
ま、Perl関連はまったりとしてきているので、統合もいいと思う。
例えばこっちと一緒にするとか。

Perlコーディング初心者質問スレ Part 56
http://pc11.2ch.net/test/read.cgi/php/1189939783/
0931nobodyさん2008/02/23(土) 03:04:09ID:mggQq9GV
>>928
掲示板にレス番号を付けるにはどのようにすれば良いのでしょうか？
３.内容
２.内容
１.内容
みたいにして行きたいのですが...具体的に教えて下さい
0932nobodyさん2008/02/23(土) 03:27:22ID:???
>>931
お前の書いたソースを出せと言っただろうが
0933nobodyさん2008/02/23(土) 03:31:09ID:???
『詭弁のガイドライン』 より、引用
5. 資料を示さず持論が支持されていると思わせる
　例：（世界では、犬は哺乳類ではないという見方が一般的だ）
09349212008/02/23(土) 16:43:38ID:???
>>922
>配布されているCGI-Perlスクリプトを少し直して使いたい人が非常に多い。
>こういう層に向かって「勉強しろ」はありえない。

スクリプト直すのに、意味も分からずコピペして直すのか。すげえな。
「客先の」とか言ってるって事は、それを金取って(もしくは客へのサービスとして)提供するわけだろ？

拾ってきたスクリプトに掲示板で質問してコピペで手直し加えて金儲けとか、せこすぎる。
そんなもん外注に出せよ。
0935nobodyさん2008/02/23(土) 16:44:46ID:???
>>931
>908
0936nobodyさん2008/02/24(日) 03:14:09ID:G7lDCCAr
>>932
http://nurupo.biz
さんのdownloadの簡易コメントって奴です
[2/24] 内容
みたいになるのを
[2/24]3.内容
[2/24]2.内容
[2/24]1.内容
みたいにしたいんです
0937nobodyさん2008/02/24(日) 06:46:40ID:???
>>936
ダウソしてソース見た。分かった事は下記の通り。
・ データファイルには 日付<TAB>内容　が1件1行で入っていて、レス番は入ってない
・ 最大記事数を超えた分はデータファイルから消える
・ 新しいレスはファイルの先頭に追加される(古いレスほど後ろにある)
・ 表示する時に@DATA（配列）に全レスを読み込んでいる($DATA[0]がファイル内のレス総数)
・ sub print 内では、$begin、$end、$iにファイルの先頭から何行目かを示す数値が入る

とりあえず考えてみた。
試してないから、ちゃんと動くかどうかは保証しない。

どんなレス番の振り方をしたいかわからんので思いつくのを並べてみた。
　1. 表示してるページ内でのレス番
　 　 97行目　print "[$date] ". ($end - $begin - $i + 1) .". $text\n";

　2. ファイルに残ってるレス総数中のレス番
　 　 97行目　print "[$date] ". ($DATA[0] - $begin - $i +1) .". $text\n";

　3. それまでに書かれた全部の中でのレス番
　 　 何行も修正しなきゃならんしデータフォーマットも変わる(=今使ってるとしたらデータ読めなくなる)から、
　 　 最初からレス番機能が付いてる別のソフト探したほうがヨサゲ。
　 　 どうしてもってんなら考えてやらんこともない。
0938nobodyさん2008/02/24(日) 10:48:11ID:???
printで連結演算子使うなんてもったいない。
0939nobodyさん2008/02/24(日) 16:26:23ID:mX6RyV0T
>>937
わざわざ本当にありがとうございます
2.のファイルに残ってるレス総数中のレス番
で表示をしたいのですが、2.を試してみたところ
[時間]3.内容
[時間]2.内容
[時間]1.内容
[時間]0.内容
[時間]-1.内容
といった風に、どんどんマイナスになってしまいます・・・
0940nobodyさん2008/02/24(日) 18:48:04ID:???
>>939
スマソ。
97行目　print "[$date] ". ($DATA[0] - $i +1) .". $text\n";
0941nobodyさん2008/02/24(日) 19:21:05ID:mX6RyV0T
>>940
97行目　print "[$date] ". ($DATA[0] - $i +1) .". $text\n";
でやっても>>939と同様の結果になってしまいます・・・
0942nobodyさん2008/02/24(日) 20:13:54ID:???
>>941
75行目 my $max = @DATA;
76行目 my $res_no = undef;

96行目と97行目の間に追加 $res_no = $max - $i + 1;

97行目　print "[$date] $res_no. $text\n";

でどうYO？
0943nobodyさん2008/02/24(日) 20:33:50ID:mX6RyV0T
>>942
できました！！！
すごいですヽ(　　´　　∇　　｀　　)ノ ﾜｰｲ
本当にありがとうございましたﾜｰｲ!!＼(o￣￣￣￣￣￣￣￣￣▽￣￣￣￣￣￣￣￣￣￣o)/ﾜｰｲ!!
0944nobodyさん2008/02/24(日) 22:00:31ID:???
printはカンマで出力しようよ。
0945nobodyさん2008/02/25(月) 00:21:00ID:U/vtQwh8
二重投稿を禁止するためには
データを読み込んで1行目とフォームの内容が同じの時にエラー表示させればいいんですよね？
0946nobodyさん2008/02/25(月) 01:29:27ID:???
>>945
そうだな。
0947nobodyさん2008/02/25(月) 01:33:39ID:???
連投防止のノウハウといったら、何があるかな？俺が思いつくものは・・・
・時間が近すぎる場合、ＩＰアドレスが同一かをチェック
・投稿内容が（数回前までと）同じかをチェック

>>945の方法だと、二重投稿を防止することは出来ても、あらしの連投は防止出来ないよね。
ま、質問自体が二重投稿を防止する方法なので、特に言うことは無いと思うが。
0948nobodyさん2008/02/25(月) 06:27:19ID:???
print の出力をカンマで区切ると
画面出力命令のオンオフ切替が頻発し
連結してから纏めて出力した方が速い云々
ベンチマークしてないし本当かどうか知らんけどね
0949nobodyさん2008/02/25(月) 06:44:13ID:???
そんな事より、printでカンマ使ってると、
仕様変更でその場で出力じゃなく変数に代入とかになるとウザイ。
0950nobodyさん2008/02/25(月) 09:45:58ID:???
>>948
http://boobar.hp.infoseek.co.jp/bench/print.txt
0951nobodyさん2008/02/25(月) 22:07:36ID:???
大差ないってことか
0952nobodyさん2008/02/26(火) 22:28:43ID:TAx5gJzC
ファイルのMIME-Typeってどうやって取得するの？

PHPではmime_content_type()という関数があるみたいなんだけど、
Perlではどうやるの？
0953nobodyさん2008/02/27(水) 00:36:15ID:NLm3jzH+
掲示板で仮にログファイルを@LOGと置いて、それの最新の投稿を取り出すにはどうすれば良いの？
@LOG[0]でやったんですがどうも違ったみたいで
0954nobodyさん2008/02/27(水) 02:31:06ID:???
>>952
use CGI;
my $q = new CGI;
$q->uploadInfo($filename)->{'Content-Type'};

>>953
@LOG[@LOG-1]
09559542008/02/27(水) 02:37:08ID:???
>>954
use CGI;
my $q = new CGI;
my $filename = $q->param('uploaded_file');
$q->uploadInfo($filename)->{'Content-Type'};

1行書き忘れた。
0956952,9532008/02/27(水) 03:43:32ID:???
馬鹿は無理に回答しなくていいよ
0957nobodyさん2008/02/27(水) 07:27:20ID:???
最新って・・・
一番最後の要素ってことなら
$LOG[$#LOG]
0958nobodyさん2008/02/27(水) 11:51:23ID:???
$LOG[-1]でよくね？
0959nobodyさん2008/02/27(水) 18:16:19ID:???
>>956
こういう質問するでも無く答えるでも無いゴミは何がしたいんだろうね？
0960nobodyさん2008/02/28(木) 04:40:38ID:???
君みたいな馬鹿を釣って遊ぶ
09619522008/02/28(木) 08:35:02ID:5gTQ/iME
>>954-955
レスありがとう

それはロダとかでファイルをアップロードした時の判別方法だよね？
書き忘れたんだけど、LWP::Simpleで外部画像を取得した時に判別する方法を教えてほしいです。

お願いします。
0962nobodyさん2008/02/28(木) 11:37:27ID:???
>>961
LWP::Simple はシンプル故に、レスポンスヘッダと
コンテントボディを同時には取得できない。
http://search.cpan.org/dist/libwww-perl/lib/LWP/Simple.pm

普通に LWP でリクエストを送って得たレスポンスからなら
同時に取得できる。
http://search.cpan.org/dist/libwww-perl/lwpcook.pod
http://search.cpan.org/dist/libwww-per/lib/HTTP/Headers.pm

PHP の Fileinfo() 相当のモジュールはこれ。
http://search.cpan.org/dist/File-MMagic-1.27/
レス数が950を超えています。1000を超えると書き込みができなくなります。