Perl コーディング初心者質問コーナー Part33
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/03/01 02:46ID:1GeWO7LH【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0238nobodyさん
04/03/08 23:19ID:???# ランダムで数字を表示
$n = int(rand 43) + 1;
# CGIヘッダの出力
print "Content-type: text/html\n\n";
# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>ランダム数字</title></head>\n";
print "<body>\n";
print "<p>今回の数字-----------★<big>$n</big>★</p>\n";
print "</body></html>";
というプログラムを作りましたが、この「今回の数字」という部分の
文字の色を変えるにはどのように修正したらよいでしょうか？
0240nobodyさん
04/03/08 23:34ID:???（・∀・）ｶｴﾚ!!
0241nobodyさん
04/03/09 03:37ID:???use CGI;
$n = int(rand 43) + 1;
print "Content-type: text/html\n\n";
$obj = new CGI;
print $obj->p($obj->font({color=>'red'},'今回の数字').'-----------★'.$obj->big($n).'★')."\n";
0242nobodyさん
04/03/09 03:39ID:???と言うのなら答えてもいいが…
0243238
04/03/09 09:30ID:???それなのに丁寧な回答ありがとうございます。
昨夜、ヒアドキュメントを使う事で簡単に解決出来ました。
タグはXHTMLしかやってなかったので、それが原因のようでした。
241さんのプログラムは今日家に帰ったら試してみます。
もしよければ242さん教えて頂けませんか？
それと今やろうとしている事で質問させて下さい。
$x = int(rand 5) ;
@abc = ( A , B , C , D , E ) ;
@key_a = ('Apple','Age','And','Angry') ;
@key_b = (頭文字Bの単語 ）;
@key_c = (頭文字Cの単語 ）;
@abcの中からランダムに選んだアルファベットに対応した
@key_？の中からまたランダムに選び出すという
プログラムを作りたいのですが、これにはどうしたらよいでしょうか？
0245nobodyさん
04/03/09 10:14ID:???ﾓﾏｴは質問の前にもうちょっとドキュメント読んだ方がいい
新しい事やる度に質問する事になる
あーやべ俺ちょうしんせつ涙が出てくるワ
0246nobodyさん
04/03/09 10:28ID:???0247nobodyさん
04/03/09 11:46ID:???ハードリファレンスよりもシンボリックリファレンスの方が
直感的にわかりやすいらしい。
>>243
真面目に答えると、二次元配列などを使うのが普通の発想だと思う。
%abc = (A=>['Apple','Age','And','Angry'],B=>[頭文字Bの単語],C=>[頭文字Cの単語]);
とかそんな感じ。これだと例えば $abc{A}->[2] が 'AND' になる。
ラクダ本だと「リファレンスとネストされたデータ構造」の章あたりを読むとよい。
0248nobodyさん
04/03/09 11:47ID:???%abc;
for ($ii=0; $ii<@abc; $ii++){
$abc{"$abc[$ii]"}{'key_a'} = $key_a["$ii"];
$abc{"$abc[$ii]"}{'key_b'} = $key_b["$ii"];
$abc{"$abc[$ii]"}{'key_c'} = $key_c["$ii"];
}
print $abc{'A'}{key_a}; #=> Apple
hash勉強せい
0251nobodyさん
04/03/09 14:49ID:???ShiftJISに含まれていない文字(半角カナなど)だけを実態参照に変換したいのですが,
どうしたらいいのでしょうか。
0252nobodyさん
04/03/09 14:59ID:???validatorには注意されるけど「HTML的」にはstrict(validではなく)。
詳しい事は製作板で識者にでも教えて貰って下せえ。
0253nobodyさん
04/03/09 15:00ID:???0255nobodyさん
04/03/09 16:42ID:???0001.html.gz って名前のファイルを
gzsend.cgi?0001
みたいに呼び出してますが画面真っ白で何も表示されません。
鯖はxreaです。
HTTPD + ActivePerl な環境のローカルだとうまくいくのですが…
ソースはこんな感じです。
print <<HERE;
Content-type: text/html; charset=Shift_JIS
Content-Encoding: gzip
Content-Language: ja
Pragma: no-cache
Cache-Control: no-cache
HERE
if ($ENV{'REQUEST_METHOD'} eq "GET") {
$key = $ENV{'QUERY_STRING'};
}
open(ALL,"$key.html.gz");
binmode(ALL);
binmode(STDOUT);
print <ALL>;
close(ALL);
exit;
これで <a href="gzsend.cgi?0001">表示</a> <a href="0001.html.gz">Download</a>
みたいな使い方したいのですが…いったい何が悪いのやらさっぱりです。
0257>>251 1/2
04/03/09 17:01ID:???use Jcode; もしくは require 'jcode.pl';
$_ = "ｱｲｳｴｵ";
Jcode::convert(\$_, "euc"); もしくは &jcode'convert(\$_, "euc");
s/｡/？/g;
中略（ちなみに61行分）
s/ﾟ/？/g;
Jcode::convert(\$_, "sjis"); もしくは &jcode'convert(\$_, "sjis");
あとは以下を参照して。
HTML4 で使える文字実体参照 http://www.ne.jp/asahi/minazuki/bakera/html/reference/charref
あとEUCで書く事
SJISでかくなら s/ｱ/？/g; → s/竺/？/g みたいにわざと文字化けさせた状態にする事
0258255
04/03/09 17:07ID:???使えます。
普通にgzip圧縮転送は
ヘッダーに Content-Encoding: gzip と
if (-d "\\") { open(STDOUT,"| gzip.exe -1 -c"); } #ローカルテスト用
else { open(STDOUT,"| /bin/gzip/ -1 -c"); }
こんなんでうまく動きます。
gzipで圧縮済みのファイルをcgiから送るのがうまくいかなくて悩んでるんですけど。
0261nobodyさん
04/03/09 18:31ID:???あぁ そういうことか
ごめん勘違いしてた
単なるgzファイルをCGIから吐かせたいのね
それって根本的にContent-type: text/htmlじゃなくないか？
0262255
04/03/09 19:20ID:???自動広告挿入無効の"x"ディレクトリに設置してみたところ動作しました。
普通に鯖側で圧縮して送る時は"x"ディレクトリじゃなくても動作するのに…
まぁ、そういう思いこみもあって盲点でした。
助かりました。ありがとうございます。
しかし今度は gzsend.cgi? の？以降になんか変なの書いたり何も書かなかった時に
何も指定されてません とか そんなファイルありません ってHTML吐くようにしてたのに
それが表示されなくなりました。
"x"ディレクトリに変える前はうまくいっていたのに…
エラー画面でなくてもさほど困らないしとりあえずこのまま使います。
>>261
Content-type: text/html; charset=Shift_JIS
Content-Encoding: gzip
なヘッダー書いてから.gzなファイル送ってやるとgzip圧縮転送と等価にブラウザにはHTMLで表示され
なおかつ圧縮済みだから鯖に負荷掛からない。
さらに以下みたいにして
<a href="gzsend.cgi?0001">表示</a> <a href="0001.html.gz">Download</a>
一つのファイルで表示用とダウソ用を兼ねる→(ﾟдﾟ)ｳﾏｰ を狙ったんですよ。
0263へたれ
04/03/09 21:51ID:vgAvuUAX掲示板を設置して、そこにアクセスしている端末のUSER_AGENTやアクセス数を解析したなぁ…って
思ったんですがCGIからCGIを呼び出すことって出来るんでしょうか？
掲示板のCGIの中で、端末解析用のCGI（手元にあるのはSSI動作のです）を呼べばいいんだろうと思うんですが
やり方がわからないんでうまくいかないんです。どうやったらいいんでしょう？？
よろしくおねがいします。
0264nobodyさん
04/03/09 21:52ID:vgAvuUAX掲示板を設置して、そこにアクセスしている端末のUSER_AGENTやアクセス数を解析したなぁ…って
思ったんですがCGIからCGIを呼び出すことって出来るんでしょうか？
掲示板のCGIの中で、端末解析用のCGI（手元にあるのはSSI動作のです）を呼べばいいんだろうと思うんですが
やり方がわからないんでうまくいかないんです。どうやったらいいんでしょう？？
よろしくおねがいします。
0265nobodyさん
04/03/09 21:55ID:vgAvuUAX掲示板を設置して、そこにアクセスしている端末のUSER_AGENTやアクセス数を解析したなぁ…って
思ったんですがCGIからCGIを呼び出すことって出来るんでしょうか？
掲示板のCGIの中で、端末解析用のCGIを呼べばいいんだろうと思うんですが
やり方がわからないんでうまくいかないんです。どうやったらいいんでしょう？？
0266へたれ
04/03/09 21:57ID:vgAvuUAX表示されなくて何回も…やっぱりヘタレです
0267nobodyさん
04/03/09 22:07ID:???0268nobodyさん
04/03/09 22:21ID:???あるフォルダに、.htaccessと.htpasswdによるアクセス制限を
掛けています。アクセスすると、認証ダイアログが立ち上がることになるのですが・・・。
これを、フォームか何かで入力して、cgiで受け取って処理して認証画面が
出ないようにすることは可能なんでしょうか？
ご存知の方おられましたら、よろしくお願いします。
0269nobodyさん
04/03/09 22:47ID:4E/0UBZO<a href="test.html#hoge">
と同様の処理を行うには
どうしたらよいでしょうか？
--a.html--
<frame src="test.cgi" >
--end--
--test.cgi--
my ($html) = << "__END_HTML__";
<html>
<head>
</head>
<body>
<a name=hoge id=hoge>ほげ</a>
<body>
</html>
__END_HTML__
if (open(HTML, "test.html")) {
print $html
}
--end--
教えて下さい。
0270nobodyさん
04/03/09 23:05ID:???例えば同じディレクトリに hetare.cgi があったとして、
$a = `hetare.cgi`;
と書けば、一応 hetare.cgi を実行できんこともない。
いろいろ細かい制約もあるので、常に期待した通りに動くとは限らんが。
>>268
必ずしも質問の意図を正しく捉えていないかもしれないが、
「.htaccess で制限かけたディレクトリがあって、普段だとBASIC認証しないとアクセス不可だが、
あるフォームからCGIにID/パスワードを送ると、BASIC認証に成功した状態になって、
例のダイアログを経なくてもそのディレクトリ内のファイルにアクセスできるようになる」
ということをしたいのだったら、不可能だろう。
付け加えると、この質問は「WebProg 初心者の質問」スレの方がふさわしかった。Perl と関係ないから。
>>269
なにをしたいかよくわからないが、少なくともこのスレの範疇では無さそうだな。
なにをしたいかよくわからないので、どのスレに誘導していいかもわからん。すまん。
0271nobodyさん
04/03/09 23:27ID:???http://id:password@servername/
0272268
04/03/09 23:34ID:???ありがとうございます。やはり不可能ですよね・・。
>>271
先日までは、それでＯＫだったんですが、IEの2/2のパッチを当てると
URLを使った、BASIC認証が不可能になってしまったので・・・。
0273nobodyさん
04/03/09 23:57ID:???今、アクセスカウンターを作っています。
カウント数のみ表示されるのはうまくいったのですが、
「sprintf」を使って数字の前に0を付けて桁数を揃えようと
修正したものが何度やってもうまくいきません。
for ($i=0; length($count)>$i; $i++){
$number=substr($count, $i, 1) ;
$dinumber=sprintf("%06d",$number) ;
print "<IMG SRC=$gifdir/$dinumber.gif $size ALT=$dinumber>" ;
}
これだと画像が表示されない上に数字の前に0がつかない状態です。
どこが間違っているのでしょうか？
ちなみにうまく動いていたときのプログラムです。
for ($i=0; length($count)>$i; $i++){
$number=substr($count, $i, 1) ;
print "<IMG SRC=$gifdir/$number.gif $size ALT=$dinumber>" ;
}
0274nobodyさん
04/03/10 00:02ID:???まずはそこから勉強した方がいいと思うぞ。
0275nobodyさん
04/03/10 00:44ID:qF7ZudiB$|=1;
use Fcntl qw(:flock);
$outfile = "outtmp.html;
print "Content-Type: text/html\n\n";
open(OUT,"> $outfile");
flock (OUT, LOCK_EX);
print OUT "aa";
close OUT;
print "Done";
たったこれだけなのに、outtmp.html;が作成されません。
なぜなのでしょうか・・・。凡ミスだとは思うのですが、数時間考えても分からず。。。
0276nobodyさん
04/03/10 00:50ID:???0277nobodyさん
04/03/10 01:00ID:???ファイルが読み込めないのは単にファイル名が違うだけとかだったりしないか。
下(元)の奴だと0.gif〜9.gifを読み込むようになってるが
上(改造後)の奴だと000000.gif〜000009.gifを読み込むようになってるし。
0278275
04/03/10 01:17ID:qF7ZudiBあれ・・・おはずかしい。ありがとうございます。
しかし、これでも500エラーにはならないんだ。。。
0279nobodyさん
04/03/10 04:10ID:???まずコマンドからコンパイルエラーメッセージと変な記述の警告をあてにしようよ。
0280nobodyさん
04/03/10 04:45ID:???エラーログ見るとかCGI::Carp使うとか、とにかくPerl自体のエラーを見られる環境を
作ってからいじるべし。できれば use strict; と -w オプションも使うのが望ましい。
数時間考える暇があるんならこっちに時間をかけれ。
0281nobodyさん
04/03/10 10:09ID:???length関数とsubstr関数についてはもう一度調べなおしてみました。
forの部分で$countの長さを取り出し、それを0番目から１文字分
抜き出すという事でよいですよね？ということは、この$count自体を
先に整形する必要があるのかと思い、先にsprintfで数字の前に
0をつけてからfor文で処理するようにしました。
これは今日帰ってから試してみます。
$gcount = sprintf("%06d",$count);
for ($i=0; length($gcount)>$i; $i++){
$number=substr($gcount, $i, 1) ;
print "<IMG SRC=$gifdir/$number.gif $size ALT=$number>" ;
}
0282nobodyさん
04/03/10 10:14ID:SqQ9bd0u下のプログラムは、PRINTメソッドが無いよ〜って怒られてしまいます。
mainパッケージは触らず、
PRINTやREADといったメソッドを定義せずに済む方法はありませんか？
よろしくお願いします。
#!/usr/bin/perl
package main;
open(F,">hoge.txt");
tie *F , 'tieHandle' , *F;
print F "test\n";
close F;
package tieHandle;
sub TIEHANDLE {
bless \$_[1];
}
sub CLOSE {
my $fh = shift;
*FILEHANDLE = $$fh;
print FILEHANDLE "\n","=== CLOSE method called. ===","\n";
close FILEHANDLE;
}
0283ヘタレ
04/03/10 10:50ID:huq9wT6Vありがとうございます、でも$a = `hetare.cgi`;としてどうするんでしょうか？
変数に設定したあとどんなスクリプトを書けばいいんでしょうか？
また、制限ってどんな事があるんでしょうか？
もし参考になる文献とかありましたら調べてみますんで教えていただけないでしょうか
質問ばっかりで申し訳ありません。
0284nobodyさん
04/03/10 12:13ID:???`hetare.cgi`; と書くだけで hetare.cgi が実行される。
$a = `hetare.cgi`; とすると、hetare.cgi を実行した出力結果が $a に入る。
ポイントは、' (シングルクォート) でなく ` (バッククォート) を使うところにある。
「perl バッククォート」で google 検索かけてみそ。
制限だが、今回はアクセス解析CGIだということなので、たぶん問題は無い。
しかし、環境変数やカレントディレクトリは呼び出し元プロセスのがそのまま使われるとか、
CGI引数を渡したい場合にはちょっと知恵がいるとか、
そういうことがあるので、便利だからと言ってほいほい使っていると後でハマる。
0285nobodyさん
04/03/10 12:27ID:???動かない→悩む→ココで質問な人が多いようですね。
チェックの仕方知らない人も結構いるんじゃないかな？
自分がやってるチェック法を紹介しておきます。
−−以下−−
cmd /k perl -c %1
−−以上−−
って内容のバッチファイルを作り、それのショートカットにソースファイルをドロップ。
ローカルの環境です。Perl は Active Perl です。
use strict; と -w は今のところ使ってません。
ここに、Perl Checker ってのもあります
http://www.kent-web.com/utility/index.html
open(PROC,"perl -c $file 2>&1 |");
なんて事やってるだけだけど。
0286ヘタレ
04/03/10 13:31ID:huq9wT6Vありがとうございますm(_ _)m実は簡単に出来るんですね、
print"<!--#include ....とか、変な事やってました、恥ずかしいです。
ありがとうございました。
0287nobodyさん
04/03/10 15:29ID:???$input = 10;
としまして、
@dataに1,2,3,4,5･･･と数字が入っていまして、
$inputの値がこの配列の中に入っているかどうかを調べるのはどのようにすればいいのでしょうか？
配列に対してindexは使えないですよね？
0290nobodyさん
04/03/10 15:42ID:???>何と言っても最大の誤りは、さまざまなエラーを指摘してくれる -w スイッチを
>指定し忘れるというものである。
>2番目に大きな誤りは、use strict を使うべきところで使わないというものである。
とにかく、error.log(デフォルト設定)に出されたエラーの内容を把握する事が、
バグを取り除く為に最も効率の良い手段。
もしエラーの内容がわからなければ、らくだ本の9章に載せられている解説を読めば良い。
らくだ本を持っていなければ、エラーの一部分で検索してみるとか、
或はここで聞けば誰かが教えてくれるかも知れない。
0291nobodyさん
04/03/10 15:58ID:???0292nobodyさん
04/03/10 15:58ID:???grepだと、上の例なら
配列内に1 ・・・ 100ってあって、
$inputが1だったら、凄まじい量が出てくると思われ。
0293287
04/03/10 15:59ID:???すいません、grepを今使ってみたのですが、
$input = 5;
@match = grep (/$input/,@data);
foreach (@match) {
print "$_ ";
}
@dataが1から30までなのですが、
5だけでなく、15や25も出てきてしまうようです。
この場合ですと5だけを取り出したいのです。
0294nobodyさん
04/03/10 16:20ID:???@match = grep{$input eq $_}(@data)#数値比較なら ==
0295nobodyさん
04/03/10 16:23ID:fPcyCnVNくどく言ってる香具師がいるけど、初心者は、そんな
ことより、正確なコーディングに集中すべし。
例えば、>>293のだって、いちいちそんなことしている
必要はないだろ。strict厨、ｍｙ厨引っ込め！
0296nobodyさん
04/03/10 16:30ID:???(grep{$input eq $_}(@data))? print 'match': print 'unmatch';
で良い気がｓ
>295
煽りなのかネタなのか、単に勘違いしてるのか良く判らんが、
「正確なコーディングに集中す」るのに my や use strict はこれ以上なく有効だぞ。
そもそも、何故相手を厨と罵ってまでこれらを使いたくないかの方が意味不明(´ω｀)
0297nobodyさん
04/03/10 16:45ID:fPcyCnVNはぁ？
普通の入門書の最初のほうには、ｓｔｒｉｃｔやｍｙを
使ったスクリプトは出さないのだが、それだけのことが
分からず、まだ、ｓｔりｃｔやｍｙにこだわってるから
厨になるんだよ。
0299nobodyさん
04/03/10 17:01ID:???それでもやはり特殊な事情が無い限り use strict を使う事を奨める。
と言うかこのスレでも使った方が良いと言う理由は出てるんだけどな。
初心者にとって、むしろ初心者であればあるほど、
正確な、バグの無いスクリプトを書く手段として
最もお手軽で良い方法が use strict だと言う事だ。
#勿論、my 変数についての理解はある程度必要だが
#これは現在の Perl の基本中の基本の一つなので早めに学習しておく事
もし俺みたいな匿名が言うのが気に食わないのならば、
Larry が使った方が良いと言っているよと教えておこう。
0300nobodyさん
04/03/10 17:03ID:???やさしくするためだよ。無駄な負担を減らすために名。
ｓｔりｃｔやｍｙはずっと後で出てくる。
最初からｓｔりｃｔやｍｙを使えって主張を取り消しますか？
0301nobodyさん
04/03/10 17:05ID:???0302nobodyさん
04/03/10 17:26ID:fPcyCnVN>Larry が使った方が良いと言っているよと教えておこう。
問題は、どの段階かからだ。
さぁ、Larryがc言語の知識もプログラミングの知識もない
まっさらな素人に最初からmyやstrictを使えって言っている
箇所を引用してもらいましょうか。
0303nobodyさん
04/03/10 17:42ID:???Larryはstrictを知らない人にまでstrictを強要しないということなのかもしれない。
0304nobodyさん
04/03/10 17:45ID:???何行目のどの辺がおかしいか出てくるんだよ。最初は、それで
十分。
0305nobodyさん
04/03/10 17:54ID:???と書いてあります。
0306nobodyさん
04/03/10 18:26ID:XGcN6IuW$title='掲示板';
1;
等と書いた設定用plなどを
requireしてやるとうまく読み込めないんですけど、
読めるようにする事はできますでしょうか？
0307nobodyさん
04/03/10 18:31ID:???0309306
04/03/10 18:43ID:???返答ありがとう御座います。
解除すると問題なく動作するのですが、
strictしたままでの方法は無いものかと疑問になりまして。
>>308
試してみましたけどダメでした＿|￣|=○
0310nobodyさん
04/03/10 19:05ID:???>302
なんで、そう極端な例を出すのかわからない。
少なくとも、初心者の誤りとして Larry は>290が引用したところの文を挙げている。
「使うべきところで」使わないのは誤りだと。
そして、Perl ではつまらないエラーをなくし、正しいプログラミングをする為に
use strict は「特殊な事情が無い限り使うべき」。
余談だが、俺の言ってる初心者の定義は少し広いかもしれない。
言葉ではやや説明し難いが、貴方の言っている完全な素人の範囲には留まらない。
もし、最初からそのような完全な素人の事だけを初心者と言っていたのであれば、
こちらの言っている事はある程度撤回しよう。
それでも、出来る限り早い段階からレキシカル、グローバルを意識したプログラミングを
覚えて置くべきだとは主張する。
#因みに、Larry もラクダ本ではループ等と同じくらいの章(2.6)と比較的早い段階で教えている
0311nobodyさん
04/03/10 19:13ID:???それだけなら
設定ファイル
package MyConfig;
$title = '掲示板';
1
本体
use strict;
print (HTTPへっだ);
print $MyConfig::title;
でやれないかな。
0313nobodyさん
04/03/10 19:44ID:???俺は、結構大きなもの作る（といってもたかがしれてる）。
今までで一番時間かけたのは、DBを使った成績の管理かな。
成績入力、平均算出、順位順に並び替え、などなど。
全部グローバル変数でやりましたよ。
一人でやるなら、全体が把握できてるから構わないけど、チームでプロジェクトをやるときにはmyで局所化したほうがいいってことだ、と思い、毎日グローバル変数でがんばっております。
0314nobodyさん
04/03/10 19:58ID:???殆どの人は使うべきとか使った方が良いとは言ってるが、
何が何でも使えと言ってる人は逆に少数だろう。
要は、さまざまな利点が自分にとって意味がない思うのならば使う必要はないし、
そうでなければ使った方が良いんじゃない? 程度の事を主張しているに過ぎないのだと思う。
0315nobodyさん
04/03/10 20:38ID:???でも、そのうち気づくさ。
0316nobodyさん
04/03/10 20:42ID:???0317nobodyさん
04/03/10 20:46ID:???0318nobodyさん
04/03/10 20:56ID:???俺はTransitionalで妥協。
0319未承諾広告※ ◆TWARamEjuA
04/03/10 21:35ID:???慣れれば簡単。tu-ka、文章の意味づけが理解できるようになる。
SEO 対策にも使えるんだけどねぇ（哀）＠相変わらずtable厨不思議マークアップな職場
0320nobodyさん
04/03/10 21:46ID:???0321nobodyさん
04/03/10 22:00ID:???$QUERY_STRING = $ENV{'QUERY_STRING'}
のように代入してるスクリプトを良く見かけるのですが、
単に読み込むだけなら代入する必要はありませんか？
0322へたれ
04/03/10 22:03ID:huq9wT6VにCGIの中でCGIを呼び出すのはバッククォートで出来るって教えていただいたんですが
実際にbbsのCGIからアクセス解析のCGIをにやってみたらダメでした、同じディレクトリに呼ぶCGIを
おいてやってもダメでした。dopvCOMETを`dcw.cgi?md=s&&pg=indexx`;
ってやって呼んだんですがウンともスンとも…やり方が間違ってるんでしょうか？
ご存知の方居られましたらお助けください。
0323nobodyさん
04/03/10 22:40ID:QACy8cAZ0324nobodyさん
04/03/10 23:39ID:???それだとアクセス解析にならんぢゃろな。アクセス元とかrefererとか集計したいんだろうし。
>>322
えーと
>CGI引数を渡したい場合にはちょっと知恵がいるとか、
の制限に引っかかっちょるんぢゃよ。
バッククォートでやる場合は、?以降の引数をそのまま引き渡すことはできない。
環境変数を使って渡さなきゃいかんのだが、ちょっと修行がいる。
0325nobodyさん
04/03/11 00:03ID:???フォームからCGIにパスワード渡したらCGIがアクセス制限掛かってるフォルダの
ファイルと等価の内容を吐く用にするじゃ駄目？
0326nobodyさん
04/03/11 02:35ID:YAYdGisPhttp://XXX/test.cgi
とアドレスバーに入れたときに「ファイルのダウンロード」となるときがあるのですが
どうしてでしょうか？本当に分かりません。
0327へたれ
04/03/11 02:45ID:X5d27yF/その修行ってどうやればいいでしょうか？
いい参考書みたいなのってあるんでしょうか？
0330nobodyさん
04/03/11 04:22ID:???正確には%8b%43ですよね？以下がコードです。おかしなところは無いと思うのですが、
&url_encode("気");
sub url_encode{
$str = shift;
$str =~ s/(\W)/'%'.unpack("H2", $1)/eg;
$str =~ tr/ /+/;
print $str;
}
0331nobodyさん
04/03/11 04:41ID:???\W は [^0-9A-Z_a-z]
'C' (\x43) はこの正規表現にマッチしない。
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlre.html
0332nobodyさん
04/03/11 11:20ID:rL/aIPwV自宅サーバ設営のため、Kent Webさまよりyybbsをダウンロードしました。参考書
（Mac OSX Unix的活用講座）の指示通りperlの居場所を指定し直し、アクセス権を
設定しましたが、「Internal Server Error」となって動きません。KentさまのFAQ
をみてチェックしましたが、いちおう問題なく設定されているようにおもえます。
いったいなにがダメなのでしょうか？Askaのほうはうごくのですが・・・
環境はサーバもクライアントもMac OS X 10.3.2です。
0333nobodyさん
04/03/11 11:26ID:???＊ こ こ は コ ー デ ィ ン グ の ス レ で あ り 、 設 置 云 々 は ス レ 違 い な の で 悪 し か ら ず ＊
0334nobodyさん
04/03/11 11:30ID:???＞Kent Webさまよりyybbsをダウンロードしました
これはどーでもいい。
perlpass->perlのコンパル->httpd->実行の確認
の順番で確認しろ。
あと完全にスレ違いだから。これ。
■ このスレッドは過去ログ倉庫に格納されています