【Perl】初心者コーナー Part19
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
03/02/09 00:24ID:s0tpWWxg1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
CGIだけど、なんか質問ある？ Part 9
http://pc.2ch.net/test/read.cgi/php/1041530204/
参考書籍の話題は【Perl,CGI】参考書籍 第三版
http://pc.2ch.net/test/read.cgi/php/1030209573/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般/Part2】
http://pc.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は 【 スクリプト改造工房 PART 5 】
http://pc.2ch.net/test/read.cgi/php/1028193595/
あとは>>2-10。
0237233
03/02/17 21:24ID:???あ、ありがとうございました！
教えて頂いたところは見つけていたのですが、
回答にあるdecode.plを探さずに「だめか…」とへこんでいました。
探してみたらありましたので、もうちょっと調査してみます。
0239nobodyさん
03/02/17 21:44ID:???応用力無くても別にかまわないかと。
0240nobodyさん
03/02/17 21:51ID:4gk/zjjHどうも最新版のモジュールリポジトリに DB_File がないようなのですが、何か理由でもあるのでしょうか。
古い方のActivePerlのリポジトリにはあるようです。
0241236
03/02/17 21:53ID:???0242nobodyさん
03/02/17 22:33ID:1e74kzGJ0243nobodyさん
03/02/17 22:43ID:???0245nobodyさん
03/02/17 22:47ID:???http://pc2.2ch.net/test/read.cgi/php/1014357485/l50
0248nobodyさん
03/02/17 23:37ID:EIQogyxLmp3ファイルをopenしてprintしたら
バイナリがそのまんま文字化けしてブラウザに表示されてしまいました。
一応"Content-Type: audio/mpeg"は送っているのですが
やはり拡張子がmp3でないファイルは音声として扱ってもらえないのでしょうか？
やりたいのは、cgi要求に対してmp3のバイナリを返して
それをブラウザがmp3プレイヤーに渡して音楽を鳴らす。
というのを考えているのですが・・・・
0249nobodyさん
03/02/18 00:03ID:EDQzMDCwAPACHEのホームディレクトリにてCGIスクリプト置いたのですが、
属性を、711にしています
たとえばWWWダウンローﾀﾞソフトで根こそぎもってかれると、このCGIも
もってかれるのでしょうか？
（CGIの中身はDBIにてPASSを入れちゃっていて思いました）
0251249
03/02/18 00:14ID:EDQzMDCw基礎的なものが無知ですいませんでした。。
（；´Д｀）もうちょっと勉強して自分で調べてみまつ
0252nobodyさん
03/02/18 00:51ID:???audio/mp3
ってのはどぉよ？
しれでもダメなら、ちゃんとMP3ファイルを吐き出しているサイトへtelnetで接続してみて、
レスポンスのエンティティヘッダ「Content-type:」を調べてみる。
それでもダメなら、ブラウザが対応していないだけ。ファイルヘルパーの対応を設定してみる。
0253nobodyさん
03/02/18 02:31ID:GFaap2mWんー、某所でtelnetで試してみたら
apacheがaudio/mpegって吐いたんで
(もちろんCGIじゃなくてMP3直指定ですが)
それを真似してみたんですけどね。
ブラウザはIE6SP1です。
audio/mp3はまた試してみます。
0255nobodyさん
03/02/18 05:04ID:Dcv1K+PRif ($count =~ /\n$/) { chop($count); }
$count++;
上のカウントアップ処理は1カウントずつアップしますよね？
これを2カウントずつアップするようにしたいのですがどう書き換えれば
いいでしょうか？
0257nobodyさん
03/02/18 07:09ID:MmRlkG1z本当に凄い奴だと思った。
http://homepage3.nifty.com/digikei/ten.html
0258nobodyさん
03/02/18 07:22ID:Dcv1K+PR天才！！！
0261マリモーマ ◆r6PDGT6Xd2
03/02/18 08:06ID:2FacSekMエロサイト
0262nobodyさん
03/02/18 08:36ID:???++$count;
++$count;
0263nobodyさん
03/02/18 15:05ID:???0264nobodyさん
03/02/19 00:14ID:???変数名が重複しない場合でも、サブルーチン内ではmy宣言したほうが
スクリプトの実行速度は速くなるのでしょうか？
換言すると、(1)サブルーチンにグローバル変数を渡し、受け取った変数はmy宣言し、
処理したのちにreturnで返すのと、
(2)サブルーチン内でもグローバル変数のまま扱って処理するのとでは、
どちらが速いのか、ということです。
0265nobodyさん
03/02/19 00:15ID:P468uHQ80266nobodyさん
03/02/19 00:28ID:5breTLee下記程度のコードがInternal Server Errorになって動きません。
ローカルの環境設定の問題かと思って、パスを変えてサーバーにあげて動かそうとしましたがやはりエラーになります。
何故でしょうか？
#!c:/perl/bin/perl
require 'cgi-lib.pl';
&ReadParse(*input_data);
print "Content-type: text/html\n\n";
print "<html>\n";
print "<body>\n";
print "value1 = $input_data{'value1'}<br>\n";
print "value2 = $input_data{'value2'}<br>\n";
print "</body>\n";
print "</html>\n";
exit;
0267nobodyさん
03/02/19 00:42ID:???変数自体にかかるコストは、シンボルテーブルに入らない分、myの方が速い。
でも、コピーにはコストがかかる。だから、遅くなる、だと思う。
遅くなる以上にメリットがあると思うんだけど・・・
それに、巨大なものを扱うなら、上手にリファレンスを使ったら、
コピーしなくてもよくなって、速くなるかも。。
0277nobodyさん
03/02/19 01:08ID:???PERLがローカルに入っているなら、
それ使った時に出たもっと具体的な
エラーメッセージは？
0281nobodyさん
03/02/19 01:26ID:???0282nobodyさん
03/02/19 01:58ID:???use Benchmark qw(cmpthese);
$b = '';
cmpthese(-5, {A=>sub{&a(1); sub a{my $a = shift;}}, B=>sub{&b(1); sub b{local $b = shift;}}});
--
ここまでこだわる前にアルゴリズムを見直す方がいいに一票。
0284264
03/02/19 02:47ID:???レスありがとうございます。
>>282を実行したところ、Aのほうが早かったです。
＞ここまでこだわる前にアルゴリズムを見直す方がいいに一票。
単なる素朴な疑問だったもので、おっしゃるとおりです。
効率的なアルゴリズムのなんたるかを勉強してきます。
0285nobodyさん
03/02/19 03:20ID:IJ5Nv9d6「ファイルを開くアプリケーションを選んでください」
になってしまいます、どのアプリケーションで開けば良いのでしょうか？
0287nobodyさん
03/02/19 03:44ID:IJ5Nv9d6編集するんじゃなくて、カウンタとして表示させたいのですが。
cgi設置法の基礎なんて、PERL以前の話。
スレ違いだよ。
0289nobodyさん
03/02/19 04:04ID:???http://tohoho.wakusei.ne.jp/wwwcgi6.htm
http://homepage1.nifty.com/glass/tom_neko/web/web_cgi_osx.html
(･∀･)ｶｴﾚ!!!!
0291マリモーマ ◆r6PDGT6Xd2
03/02/19 06:49ID:tT+FI6u3これだと思うだけど
#!c:/perl/bin/perl →#!/usr/bin/perl
0292nobodyさん
03/02/19 06:55ID:V0z+N0Slhttp://homepage3.nifty.com/digikei/ten.html
0293nobodyさん
03/02/19 15:12ID:CC31r6wC0295nobodyさん
03/02/19 16:14ID:???0298nobodyさん
03/02/19 18:47ID:???$times = time;
($sec,$min,$hour,$mday,$mon) = localtime($times);
$mon++;
if ($hour < 10) { $hour = "0$hour";}
if ($min < 10) { $min = "0$min"; }
if ($sec < 10) { $sec = "0$sec"; }
英国の鯖に置いているのですが、時差を日本標準時間に修正するには
どのように設定すれば良いでしょうか。
0301 ◆nBdXIOeCFk
03/02/19 22:02ID:qxP6cynE0302nobodyさん
03/02/19 22:05ID:???もしかしたらそのコードは、悪評高きCGIレ○キューのもののような気が..
配布する方も無責任だよな。少し勉強すればわかるはずなんだから。
0を前に付ける正しい方法は、sprintfで整形する。だ。
0303nobodyさん
03/02/19 22:29ID:???0304nobodyさん
03/02/19 23:25ID:a2cu6yGF例えば、
read.cgi?key=96477&st=40&keywd=%A5%C6%A5%B9%A5%C8
と言うふうになり、変換する途中、
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg
を使いますが、
この
~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/egと
全く逆の動作をする式…文字から１６進へ変換する式
を教えて下さい。
お願いします。m(_ _)m
0305nobodyさん
03/02/19 23:26ID:???かくいう漏れも昔は>>298のように書いてたし。
そんなわけで
($sec,$min,$hour,$mday,$mon) = gmtime(time+9*60*60);
でどうよ？
0308nobodyさん
03/02/19 23:37ID:???いや、タイムゾーンを直そうよ。。。
0309266
03/02/19 23:48ID:r5CAiNQE>>273,279,280.281
エラーメッセージというのはデバッグで確認できるものとは違うのでしょうか？
ちなみに自分の思っているデバッグとはdosプロンプトでperl -cwでやる文法チェックのことです。
それではエラーもアラートも出ません。
フォームから起動するとプレーンテキストのままcgiファイルが表示されるだけです。
ローカルでもサーバーでも起動しないということはやはりどこか文法がおかしいのでしょうか？
ちなみにパスはローカルとサーバーとで当然変えてテストしています。
0310nobodyさん
03/02/19 23:55ID:???最初のソース見る限り、一応タイムゾーンはいじってあるみたいなんだけども。
それで変わらないんだから、変わらない理由は他にありそう。
だったら、次善の策でもいいんじゃないか？
本当にタイムゾーンが変わらないんだったら、鯖缶の怠慢かも知れんけど。
0311nobodyさん
03/02/19 23:58ID:???>>272の質問にこたえろヴォケ！
理解できない or 都合の悪い質問を無視するのは厨房のやることだ。
……あれ？ 厨房だったか？
使ってるのはActiveperlだと思うけど、
完璧なチェックでは無いので過信しないように。
それより、291がいいこと言ってるぞ。
先頭行が違う=>cgiと認識していないのでそのまま吐く。
0313nobodyさん
03/02/20 00:14ID:???$ENV{'TZ'} = "Japan";
とかでもやってみるとか。
0315266
03/02/20 00:21ID:Hhj+m+Kjあるよ
0316nobodyさん
03/02/20 00:24ID:???perl -cでチェックできるのは、コンパイルエラーのみだから、
実行したときに発生するエラー(require失敗、関数が見つからない)は、
存在するかしないかは分からない。
0317nobodyさん
03/02/20 00:25ID:???0318266
03/02/20 00:32ID:Hhj+m+Kjどうもありがとうございます。
もう一度先頭行を確認してみます。
0319nobodyさん
03/02/20 01:06ID:???http://www.harukaze.net/~mishima/perl/cgi-debug-env/deb-tech.html
0320マリモーマ ◆r6PDGT6Xd2
03/02/20 08:45ID:ZbzyrSlfｗｉｎｄｏｗｓタスクマネージャーで perl.exeを 終了させると
いいらしい
0321nobodyさん
03/02/20 09:04ID:hpPhmqwv初心者らしい意見を有り難う。
0322304
03/02/20 09:05ID:Am46dVIUURLエンコードというのですか。
勉強になりました
0324nobodyさん
03/02/20 09:50ID:???って具合のが見易くて良いかもね。
0325nobodyさん
03/02/20 09:57ID:???一行内に特定文字列(>>\d+)がいくつあるか
数える方法というのはありますでしょうか？
現在、代案として下記のように>>\dで
splitし配列を数えているのですが
いかんせん正攻法じゃないので...
local @tmp = split(/>>\d+/,$_);
print $#tmp;
0326nobodyさん
03/02/20 10:15ID:???適当な配列にコピーしてs//gして帰ってくる数値を見ればいいんでない？
もしくはwhile(/>>\d+/g)ってやってカウンタを増やすとか…
0328nobodyさん
03/02/20 10:51ID:???> 一行内に特定文字列(>>\d+)がいくつあるか
これを読んでいなかったｽﾏｿ
my $count = 0;
foreach(split(/\n/,$_)){
print sprintf(qq{">>\\d+"の数：%0d 行目 %0d 個},++$count,(s/(>>\d+)/$1/g));
}
0330nobodyさん
03/02/20 20:18ID:ve8bV8Zf「このまま一生彼女ができないのでは…」
私は社会学を専攻している者です。社会学や周辺の学問を利用し、実践的な
恋愛理論を開発しております。机上の空論に終わらず、あくまで実践的。効果
は絶大です。この理論は私自身の苦悩から生まれました。モテないことに深く
悩んでいた私は社会学部に入り、恋愛をはじめとするコミュニケーションにつ
いて考察することを決意。開発期間およそ６年。やっと研究が実を結びました。
ルックスなんて恋愛に関係ないということを自ら証明したのです。今回はその
集大成を公開しようと、メールマガジン発行を決めました。すでに数回発行し
ておりますが、購読者にはバックナンバーが閲覧できますのでご安心を！
今ならまだ間に合います。春、出会いの季節に幸せが訪れるかどうかは、あな
たの選択次第です。絶対に後悔はさせません。「９０日彼女ゲットプログラム」
もちろん購読は無料！ → → http://www.h5.dion.ne.jp/~psysys/index.html
0331nobodyさん
03/02/21 01:07ID:f3aIdgTvRaQ3で正常に動いていた画像掲示板が、RaQ550にサーバーを変えてから
エラーが出て動かなくなってしまいました。
エラーログを見ると
「Premature end of script hedders : /usr/cgiwrap/cgiwrap」
となっています。
これはどういう意味のエラーなのでしょうか？いろいろ調べたのですが
わからずほとほと困っています。
perlのバージョンが上がったのが原因なのかとも思いましたが、
なにぶん初心者なのでよくわかりません。
もしよろしければ教えていただければありがたいのですが。
よろしくお願いします！
0332nobodyさん
03/02/21 01:40ID:???・1行目の Shebang が違う。
・require の該当するファイルがパスの通ったところにない。
・適切な Content-type: エンティティを吐き出していない。
・外部ファイルへのアクセス時に、該当ファイルのパーミッションが不適切であった。
・長いので省略。全部見るには >>1
0334nobodyさん
03/02/21 02:12ID:???0335nobodyさん
03/02/21 02:46ID:p5R52YmNPerlﾓｼﾞｭｰﾙを作ってるのですが、
拡張子.pmだと、ﾌﾞﾗｳｻﾞでｱｸｾｽされると中が見えてしまいます。
で、拡張子.cgiでﾓｼﾞｭｰﾙ使おうと思ったのですが、
それだと、useで呼び出せません。
拡張子.pm以外は、useで呼び出せないのでしょうか？
また、.pmﾌｧｲﾙの中が見えないようにするにはどうすればいいでしょうか？
0336nobodyさん
03/02/21 03:13ID:???perldoc -f useを参照。.cgiでも使えるかも。
通常は鯖側で見えないように設定かと。
.htaccessの偉い人 Part3
http://pc2.2ch.net/test/read.cgi/php/1019888234/l50
■ このスレッドは過去ログ倉庫に格納されています