Perl コーディング初心者質問コーナー Part28

>>951
とりあえず、use strict; をお勧めします。

>>944
<!DOCTYPE ~
<p></p>
入れようよー（泪）

全然関係ないツッコミだな

>>950
コードに問題はないし、モジュールに制限はない
何秒くらいかかる？タイムアウトの可能性はあるかな
あとはクオータとかtmpのサイズとかって、、、30kしか容量ないというのもあれだな・・・

open(DAT, "aaa") or die("Can not open file : ($!)");
#binmode(DAT); # Win ならば行頭のコメントを外す。
@datadata = <DAT>;
close(DAT);

ファイル終了コードを取り込んで while が無限ループしているような悪寒。（憶測）

>939
Cとか埋め込まれてたりするモジュールあるの？

>>957
普通にあるでしょ。lib/perl5の下の.soファイル探してみればわかる

>>957
標準モジュールとかはほとんどそうなんじゃないの？

.soぅなんですかぁ・・・

http://zurubon.strange-x.com/source.cgi
こんなアップローダでHTML書き出しができるやつがあったのですが、どこで配布してるかご存知ないでしょうか？

スレ違いみたいかな？

スレ違いだと思ったので違うスレで質問させていただきました。
ご迷惑おかけしてすいませんでした

こんな可愛い子が・・・
http://www.nukix.net/index2.html

>>957
Storableモジュールは有名だね。
高速化のために肝の部分をCで作ってるって。

if ($base_url) {
$ref = $ENV{'HTTP_REFERER'};
$ref =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ($ref !~ /$base_url/i) { &error("不正なアクセスです"); }
}

質問です。
一部の方が投稿出来ないと言われ
a-zA-Z0-9にした方が良いのですか？

>>966
ノートンバカが HTTP_REFERER を斬っているから。

&error("不正な日本語です");

C-Board掲示板（Ver354）のstyle\bse.txtに　$page{'info'}　という
部分があるのですが、これは関数（サブルーチン）ですか？
Perlの紹介ページなんかではサブルーチンは「　( )　」らしいの
ですが・・・

>>966
http://www.din.or.jp/~ohzaki/perl.htm#JP_Escape
http://flex.ee.uec.ac.jp/texi/perl/perl_34.html

>>969
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perldata.html

>>967
サンクス

>>970
なるほど、配列ですか。Perlでは定義以外にも｛｝使うんですね

>>952,955,956さん、ありがとうございました。
ご指摘を参考に、もう少し試してみます。

>>969
まずは、C-BoardをDeleteする事をお勧めする。

掲示板で、書き込み者のユーザエージェントを表示したいのですが、

my(@user) = split(/\//,$ENV{'HTTP_USER_AGENT'});　とか
$user = $ENV{'HTTP_USER_AGENT'};　とか記述して、

別のサブルーチン内で$userを表示するために

print<<"_EOM_";
$user
_EOM_

としたんですが、何も表示されません。
どうすればちゃんと表示されるのでしょうか？

>>975
print "HUA:[$ENV{'HTTP_USER_AGENT'}]\n";

>>976
それだと書き込み者じゃなくてアクセス中の自分のUserAgentが
表示されるだけになりませんか？って私のやり方がおかしいのかな

>>975
ちゃんとログに$user書き込んでるかどうか確認しる。
藻前の書いてるのは>>976と同じことだぞ。

>>978
おおーできました。基本的なことに気付いていなかったようで。
>>976さんと合わせて、ありがとうございました。

$a = 'test';

上記の変数aの中身の'test'を展開して、$testといったような変数を作りたいのですが、
可能でしょうか？

可能です

>>981
ありがとうございました。

純粋にPerlの質問か微妙ですが…。
JavaScriptのdocument.reffererで取得したリンク元を、
CGIに送ってプレーンテキストとして表示したいのです。

↓htmlに貼り付けたJSはこちら
<SCRIPT Language="JavaScript">
<!--
document.write("<img src='http://www〜〜〜cgi?");
document.write(document.referrer+"' width=1 height=1>");
// -->
</SCRIPT>

↓CGIはこちらです。
#!/usr/bin/perl

#---データ受け取り

$buffer = $ENV{'QUERY_STRING'};
$buffer = ~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$buffer = ~ s/<([^>]|\n)*>//g;

#---出力

print "Content-type:text/plain\n\n";
print "$buffer\n";

実行すると8桁程度の数字のみが表示されるのですが…
どうしたらまともに表示できるのでしょう？
ご存知の方よろしくおねがいします；

>>983
print $ENV{'QUERY_STRING'};

配列の頭二つを取り除くのに

shift @array;
shift @array;

と二回やってるんですが、これを一回で纏めてやる方法ってありますか？

>>984
うーん。何も表示されないです…

>>985
spliceで簡単にできるよ。

>>983
漏れも昔よくやったよ

$buffer =~ s/

すみません、表示された4294967295という数字が…
JSのエラーらしいです。調べてみます。
984さんありがとうございました(^^；

上手く質問できないんですが、
人間の目で読めない文字（コンピュータ文字？）を取り除く
正規表現とかって可能ですか？
例えば、バイナリファイルをそのままテキストで書き出したとき、
とかに化けて表示される部分だけを取り除きたいんですが・・・。

http://ari-sin3.hp.infoseek.co.jp/arisin5.html
ここのアップローダなんだけど一日にUPできる量を設定したいのですができないのでしょうか？

>>990
化けて表示される文字だって人間が読める文字だろうが

>>991
【 スクリプト改造工房 PART 7 】
http://pc2.2ch.net/test/read.cgi/php/1063780103/

>987
ﾃﾞｷﾀｰと言う事でどもでした。

>>992
(　･∀･)つ〃∩ ﾍｪ~ﾍｪ~ﾍｪ~ﾍｪ~ﾍｪ~

次スレ用意しました

Perl コーディング初心者質問コーナー Part29
http://pc2.2ch.net/test/read.cgi/php/1066286828/

HTML::Templateをインストールしようと思い
perl -MCPAN -e "install HTML::Template"
とやったのですがC:\.cpan\build\HTML-Template-2.6\に展開されるだけで
インストール出来ませんでした。

その後perl\site\libに展開されたファイルを置いてもuse出来ず、
仕方ないので以前聞いたようにHTML::Templateを
使いたいPerlスクリプトと同じディレクトリに置いてみたのですがやっぱり使えずと困っています。

どうすればインストールできるのでしょうか…。


Win2K; Apache1.3.27; ActivePerl5.6.1

2

銀河鉄道

１０００だ場かども

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。