【臨時】 perl総合ｽﾚ【@難民】

1 ：名無しさん＠お腹いっぱい。：04/03/26 23:28 ID:???

perlコーディング初心者ｽﾚや、その他perl関係の臨時ｽﾚ
見当たらなかったんで立てました。

2 ：名無しさん＠お腹いっぱい。：04/03/26 23:28 ID:96AFqbX6

3 ：名無しさん＠お腹いっぱい。：04/03/26 23:28 ID:VfP5bkVN

4 ：名無しさん＠お腹いっぱい。：04/03/26 23:56 ID:QiRWggL8

久々に来たら・・何が起きたんでしょうか・・
apacheで聞きたい事があるんだがそんな空気じゃなさそうですな・・

5 ：あぼーん：あぼーん

あぼーん

6 ：名無しさん＠お腹いっぱい。：04/03/26 23:58 ID:m1YiHT/o

perlスレで何バカ言ってんだ。

7 ：名無しさん＠お腹いっぱい。：04/03/27 00:05 ID:QZpfQDra

apache-2.0.49も↓のような例で


などと書いても、コマンドの dirname が無視され、
カレント内のものしか実行出来ないんでしょうか？

と、いきなり質問スマソです

8 ：名無しさん＠お腹いっぱい。：04/03/27 00:08 ID:???

>>7
てめぇｽﾚﾀｲも嫁ねーのか

9 ：名無しさん＠お腹いっぱい。：04/03/27 00:10 ID:???

スマソです
apacheスレがないもんで
一応、perl関係という事で聞いてしまいました

10 ：名無しさん＠お腹いっぱい。：04/03/27 00:15 ID:???

目玉焼きのスレでフライパンの質問をするようなもんだな。

11 ：名無しさん＠お腹いっぱい。：04/03/27 00:19 ID:???

perlが重複？

12 ：1：04/03/27 00:20 ID:???

もうこんな状況なんだし、なんでもｲｲよ。
Apache詳しい人教えてあげて。
漏れapache1系しか入れてないしよくわからん。。。ｽﾏｿ

13 ：名無しさん＠お腹いっぱい。：04/03/27 04:17 ID:???

あげよう。

14 ：名無しさん＠お腹いっぱい。：04/03/27 08:20 ID:???

使用先のサーバーでplファイルをevalしてエラーメッセージを出力したら以下のものが得られました。
syntax error at (eval 1) line 4, near "our @ISA "
これはサーバー側のperlがourをサポートしてないってことでしょうか？
サーバーのperlのバージョンは知りません。

evalした記述は、win98, ActivePerl5.8の環境ではなんの警告もなく動きました。

15 ：名無しさん＠お腹いっぱい。：04/03/27 08:43 ID:???

>>14
>サーバーのperlのバージョンは知りません。
調べたら済む話だろ

16 ：名無しさん＠お腹いっぱい。：04/03/27 08:54 ID:???

>>14
そのエラーみる限り多分そうじゃねーの？

>>15
エラーメッセージが得られてるのにわざわざ逆戻りしてバージョン調べる意味はないだろ。
って言うか14程度の質問にも答えられないのにしゃしゃり出るな。
>>14もエラーの見当がついてるなら、our消してみりゃいいじゃねーか。
ourがエラーだって書いてあんだからマズそれ消してみろよ馬鹿。

17 ：名無しさん＠お腹いっぱい。：04/03/27 09:07 ID:???

>>15 HTTPごしのバージョンの調べかた教えて下さい(´Д｀; )
>>16 すみません、our消してみたら動きました。

18 ：名無しさん＠お腹いっぱい。：04/03/27 09:38 ID:???

>>17
print $];

ちなみに our は 5.6.0 以降で使える use vars LIST 相当の関数。
http://perldoc.com/perl5.8.0/lib/vars.html
http://perldoc.com/perl5.8.0/pod/func/our.html

19 ：名無しさん＠お腹いっぱい。：04/03/27 09:46 ID:???

>>16
はぁお前馬鹿か
簡単に調べられるものを「perlのバージョンは知りません。」
なんて言って質問してくるから
「いや、調べればいいじゃないか」って言ってるんだろ？おかしいか？
それに対して
「>>15 HTTPごしのバージョンの調べかた教えて下さい(´Д｀; )」
これで一つ勉強になってるじゃないか。

大体とらぶったときにバージョンも調べられないなんて話にならんだろうが
ま、おまいはずっと"過程"は教えず"答え"だけを教えてたらいいよ。
何回も何回も質問されてそのつど答えだけ教えてろよ

20 ：名無しさん＠お腹いっぱい。：04/03/27 13:12 ID:???

ありがとうございますたー。

21 ：名無しさん＠お腹いっぱい。：04/03/27 15:45 ID:???

>>7
aaa.plのパーミッションと、SSIでexecが使えるか
(IncludeNoExecが指定されてないか)をもう一度確認。

22 ：名無しさん＠お腹いっぱい。：04/03/27 15:48 ID:???

>>21
×IncludeNoExec
○IncludesNoExec

23 ：名無しさん＠お腹いっぱい。：04/03/27 16:16 ID:???

あ、Aliasが効いていて、使えないっぽいのかな…。

24 ：名無しさん＠お腹いっぱい。：04/03/27 17:59 ID:tFPwCDtB

質問です
バーチャルホストとかの設定をweb上から
cgiとかその他でやる方法あるでしょうか。
あるらしいんだがよくわからん

25 ：名無しさん＠お腹いっぱい。：04/03/27 18:09 ID:???

imagemagick勉強したいんだけど、
imagemagick使ったあぷろだcgiとか探しても中々見つからんのです。
別にうぷろだじゃなくてもいいんでimagemagick使ったｽｸﾘﾌﾟﾄ知ってる方教えて下さい。

26 ：名無しさん＠お腹いっぱい。：04/03/27 18:24 ID:???

>>25
俺が使ってるのはこんな感じ

# 画像読み込み→リサイズ→書き込み
use Image::Magick;
$img = Image::Magick -> new;
$img -> Read ("$img_file");
$img -> Scale(width=>200, height=>200);
$img -> Write("$img_file");

27 ：名無しさん＠お腹いっぱい。：04/03/27 20:11 ID:???

>>25
有難うございます。
んと、そういうのはわかるんですが、
もうちょっといろんなメソッド使ってるのとか、そういうのの詳しい説明とか、
あと、例えば訪問者が一枚画像を上げて、
携帯から見たときにサイズを変更した画像を表示する場合、
まず変更した画像があるかどうかを調べなければimagemagickで作ってから表示、
既にあればそれを表示。とか
なんかそういうのの例を見て勉強したいなと思ってるんですが。
ないですかね？ってか説明わかりにくいですねスイマセン。

28 ：24：04/03/27 21:47 ID:???

ttp://www.rescue.ne.jp/cgi/minibbs-a/
とりあえず一個ｽｸﾘﾌﾟﾄ見つけました。ｽﾚ汚しｽﾏｿでした。

29 ：名無しさん＠お腹いっぱい。：04/03/27 22:31 ID:GF0bXi+B

アスキーのLightweight Language Magazine買った人の感想きぼん

30 ：名無しさん＠お腹いっぱい。：04/03/27 23:46 ID:Yldp1YH0

今、ヨーロッパ言語の単語帳CGIをperlで作ろうとしているのですが、
アクサンなどの値の引渡しに困っています。

Encyclopedia みたいな方式でリンクを生成するとき、
Get で
<a href="./hoge.cgi?mode=show&name=ö">
という形で受け渡そうと思っているのですが、
どうすれば効率よく処理できるでしょうか。
無理がありますか。

31 ：30：04/03/28 00:49 ID:Icr6wjVJ

自己レス
どうやら、こうやって GET で引き渡すと、
ö って o になってしまうのですね。
ほかの方法を考えます。

32 ：30：04/03/28 02:12 ID:Icr6wjVJ

すれ違いぎみになってきた＋連続投稿ごめんなさい

ö が o になってしまうのは、
>>30 のように「GET で値を渡すとき」だけのようです。
POST や普通のリンクでは実体参照のまま受け渡しているようですが、
何が ö を o に変えているのでしょうか。
ブラウザの問題ですか？

33 ：まちがって名前消しちゃいました。：04/03/28 04:01 ID:VkhX2P1J

>>31-32 たぶんブラウザじゃなくてOSがやらかしてる。
つーかunpack/pack使えや。

34 ：まちがって名前消しちゃいました。：04/03/28 10:57 ID:WosgFual

htmlでネストされたtableタグ内の要素を簡単に抽出する方法を教えて下さい。
HTML::Parserを使ってみましたが、使い方がよく分からないため、上手く逝きませんでした。

35 ：まちがって名前消しちゃいました。：04/03/28 12:50 ID:6NSEAewY

CGI::Sessionつかってセッション処理しようとしています。
それでCGI::Sessionの解説ページ
http://perldoc.jp/docs/modules/CGI-Session-3.11/Session.pod
読んだのですが、クライアントが使用したセッションIDが有効かどうか
を判断する手段がどうもわかりません。おしえてください。

36 ：まちがって名前消しちゃいました。：04/03/28 13:32 ID:???

>>34
HTML::TreeBuilderはどう？
CPANで探せば、もっと便利なのがありそうだけど。

>>35
読み込んできたセッションIDとid()メソッドで発行されるセッションIDが違えば、
無効と判別するしかないのでは。

37 ：34：04/03/28 14:06 ID:???

>>36
レス有り難う御座いました。
HTML::TableExtractというのが便利そうなので使ってみます。

http://www.mojotoad.com/sisk/projects/HTML-TableExtract/
http://www.geocities.co.jp/SiliconValley-Sunnyvale/6128/perl/tableextract.html

38 ：まちがって名前消しちゃいました。：04/03/28 14:28 ID:???

まんまなのがあったのね…。
HTMLテーブルをtiehashで扱うモジュールもあるらしい。

http://member.nifty.ne.jp/hippo2000/perltips/AnyData/Format/HTMLtable.htm

39 ：35：04/03/28 15:16 ID:???

>>36
idメソッドが吐くセッションIDは毎回違うんじゃないんですか？

40 ：まちがって名前消しちゃいました。：04/03/28 16:35 ID:???

久しぶりにwebprog板に行ってみようと思ったら無かったのでここで質問します。
JAPU氏はまだ生きておられますか？
サイトの方が動いてないので事業に失敗したんじゃないかと想像してしまうのですが。

41 ：36：04/03/28 17:10 ID:???

>>39
私のところでは、同じセッションID出してくれますよ。

my $cgi = CGI->new();
my $session = CGI::Session->new('driver:File', $cgi, {Directory=>'./session'});
my $id = $session->id();
my $cookie = CGI->cookie(-name=>'CGISESSID', -value=>$id, -expires=>'+1h');
$session->expire('+1h');

クッキーを利用してるから、こんな感じです。

>>40
ハンドルはお見かけしませんね。

42 ：まちがって名前消しちゃいました。：04/03/28 20:34 ID:/R/RdK93

透過したアニメーションgifを、何枚か重ねてモンタージュを作りたいんですけど
ImageMagickを使って合成すると、静止画になってしまいます。
動画のまま保存できる方法があれば教えてください。

43 ：まちがって名前消しちゃいました。：04/03/29 01:47 ID:???

そんなことまで対応してません

44 ：まちがって名前消しちゃいました。：04/03/29 13:11 ID:???

対応してないって教えてもらったんだからどーにかしよーぜ
無理やりバールでｗ

45 ：まちがって名前消しちゃいました。：04/04/03 12:41 ID:glPer1Vm

perlでは,Cのconstのように、定数(読み込みだけできる変数)を作ることできますか？

46 ：45：04/04/03 13:00 ID:???

すいません自己解決しました
*a = \100
みたいにすればよかったそうです。他にも方法はあるみたいですが

47 ：まちがって名前消しちゃいました。：04/04/03 17:36 ID:???

perl5なら、use constant なんてのもあるぞ。
こっちは#defineに近いが。