Perlコーディング初心者質問スレ Part 42
レス数が950を超えています。1000を超えると書き込みができなくなります。
0001nobodyさん
2005/05/25(水) 06:36:28ID:PVpWgcdf【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0896nobodyさん
2005/08/04(木) 15:32:53ID:???DBIがインストールされてないというエラーと思われ
windows環境という前提でいうと、
１.activeperlインスト
２.windowsのコマンドライン(cmd)からinstall DBI
３.windowsのコマンドライン(cmd)からinstall DBD-mysql
でDBIが入る。
0898nobodyさん
2005/08/04(木) 15:42:39ID:???俺はよく使うけど、使うときに調べればそれで十分だと思う。
けど、正規表現は面白くて好き。オライリーの詳細正規表現お薦め。
0899nobodyさん
2005/08/04(木) 15:54:47ID:Ako7Yv7qなるほど！
ちょっと安心しました。
オライリーってあの表紙が動物園みたいなやつですよね。
自分もネズミが表紙のperl本持ってます。
4000(これ、書式は%4dですかｗ)円は高かった・・
正規表現で一冊できちゃうとは・・・
今度探してゲットします。
ありがとうございます。
0900892
2005/08/04(木) 20:46:43ID:???レスｻﾝｸｽ。
ＤＢＩ入ってるみたいです。SSHで確認しました。
phpMyAdminから見るとセッションのデータをちゃんとMySQLに入れてて
取得も出来ています。
-wオプションをつけなければなにも問題なくうごいてるので
どうしてこんなエラーになるのかまったくわからなくって・・・
↓こんな感じのモジュール組んでます
0901892
2005/08/04(木) 20:48:26ID:???use strict;
use CGI::Session qw/-ip-match/;
use DBI;
use CGI qw/:standard/;
use vars qw($dbh $session);
sub new {
my $pkg = shift;
bless{
userid => undef
},$pkg;
}
sub GetID {
my $self = shift;
my $sid = shift;
$dbh = DBI->connect('DBI:mysql:+++:localhost', '+++', '********') or die "DBI connect不可\n";
$session = new CGI::Session("driver:MySQL", $sid, {Handle=>$dbh});
if($session->param("userid")) {
$self->{userid} = $session->param("userid");
} else {
$session->delete();
$self->{userid} = "guest";
}
return $self->{userid};
}
0902nobodyさん
2005/08/05(金) 10:16:46ID:???%form = $query =~ /([^=&]+)=([^=&]+)/g;
この1行でも問題ありませんか？
0905nobodyさん
2005/08/06(土) 08:08:56ID:???use strictしているソースを見たことがないのですが
use strictするメリットって何なんでしょうか
0906nobodyさん
2005/08/06(土) 10:35:31ID:???0907nobodyさん
2005/08/06(土) 10:38:17ID:???全部perl信者の妄想だから
0908nobodyさん
2005/08/06(土) 11:50:04ID:???意図しない変数の使用をチェックしてくれる
意図しない裸のワードの使用をチェックしてくれる
意図しないシンボリックリファレンスの使用をチェックしてくれる
特に変数チェックは超重要。今やuse strictしないとコードがかけません。
0909nobodyさん
2005/08/06(土) 17:13:48ID:???頭の悪い人たちが書いたコードでつか？
0910nobodyさん
2005/08/06(土) 19:40:45ID:???0911nobodyさん
2005/08/06(土) 19:43:21ID:???たとえばここなんか有名ですが
ここのスクリプトはuse strictが無いので
勝手に記述して実行すると完全に就職されていないグローバル変数エラーが
山ほど出てきます
他にもアップローダで一番よく使われているなずるぼんアップローダや
あっぷっぷも勝手にusestrict記述して実行すると
山ほどエラーが出てきます
0912nobodyさん
2005/08/06(土) 19:55:08ID:???0913nobodyさん
2005/08/06(土) 20:22:06ID:???漏れもKﾖNTでperlを習った口だ。
だが、そのせいで社会復帰がままならない。
KﾖNTのスクリプトは今すぐ捨てろ！
全部捨てろ！
そして、奴の事はもう思い出すな。
0914nobodyさん
2005/08/06(土) 20:25:07ID:???0915nobodyさん
2005/08/06(土) 21:16:56ID:???一般人にはuse strictなんて関係ないし、
少しぐらいバグがあっても、文句言いつつ使い続けたりするだろうし。
世の中ってそんなもん。
0917nobodyさん
2005/08/06(土) 23:18:50ID:???0918nobodyさん
2005/08/07(日) 00:26:07ID:???0919nobodyさん
2005/08/07(日) 01:09:48ID:???localはダメですよね？
0920nobodyさん
2005/08/07(日) 02:34:49ID:???それはチェックコストを抑えるため？
CPANで配布されている多くのコードはuse strictしたままだよね。
私も仕事ではつけたままにしてます。
先頭に#が付加されてしまう事が多いですが。
0921906
2005/08/07(日) 14:54:03ID:???仕事なら付けたままのほうが良いかと。
0922nobodyさん
2005/08/07(日) 15:07:05ID:???0923nobodyさん
2005/08/07(日) 15:37:39ID:???0924nobodyさん
2005/08/07(日) 17:18:25ID:???0925nobodyさん
2005/08/07(日) 18:37:02ID:IqAoEAkrブログからRSSを取得してPerlで解析して、jsを出力し、
エントリー概要をhtmlに表示するスクリプトなのですが
open OUTPUT, ">./data/rss.js";
foreach my $item ( @{$rss->{'items'}} ) {
print OUTPUT<<TEXT;
document.write('<a href="$item->{'link'}" target="blank">$item->{'title'}</a>');
TEXT
}
そのブログのエントリー名にシングルクォートが使われると
document.write(' ');でかこんでる部分が、シングルクォートの中に
シングルクォートが入ってhtmlに出力されなくなります。
その問題を解決するにはどういったスクリプトを書けばよいでしょうか？
どうぞヨロシクお願いいたしますm(_ _)m
0926nobodyさん
2005/08/07(日) 19:12:33ID:???0928nobodyさん
2005/08/07(日) 20:47:44ID:???つーか、そういうウンコなの同居させるなら TT とか使えよ。
0929nobodyさん
2005/08/07(日) 21:48:36ID:???0930nobodyさん
2005/08/07(日) 21:54:39ID:???0931nobodyさん
2005/08/07(日) 22:40:40ID:lD997J78と、本題と全く関係ないレスを誇らしげにしてみる。
0932nobodyさん
2005/08/08(月) 01:19:14ID:t9fLm/wi初めてサブルーチンを使ったプログラムを作ったのですが、以下のエラーがでます。
syntax error at C:/Apache2/htdocs/login.cgi line 225, at EOF
225行目には＿END＿しかないのですが、何がいけないのでしょうか？
0933nobodyさん
2005/08/08(月) 01:24:36ID:???おそらく225行目より前で何か間違えてる。それより前の部分よくチェックしてみるといいかも知れない
0934nobodyさん
2005/08/08(月) 02:05:42ID:???＿END＿
__END__
0936nobodyさん
2005/08/08(月) 02:43:01ID:???0937nobodyさん
2005/08/08(月) 02:50:55ID:???0938nobodyさん
2005/08/08(月) 02:54:30ID:???0939nobodyさん
2005/08/08(月) 02:56:27ID:???0940nobodyさん
2005/08/08(月) 03:23:25ID:???0941nobodyさん
2005/08/08(月) 04:08:49ID:???AppConfigは@INCの中にないディレクトリ[/home/hoge/module]にインストールされているとします。
perl Makefile.PL --libs="/home/hoge/module"
のような感じで指定出来れば問題なくコンパイル出来るのですが
そのようなオプションはありますでしょうか？
0942nobodyさん
2005/08/08(月) 12:55:58ID:???require './cgi-lib.pl';
require './jcode.pl';
って動かないんですか？
モジュール使わないとダメ？
0943nobodyさん
2005/08/08(月) 12:58:28ID:???0944nobodyさん
2005/08/08(月) 15:11:51ID:???IEやFirefoxのポップアップ抑制機能にじゃまされないで出すようにするにはどのようにすればよいのでしょうか？
vectorなどのサイトではちゃんとダウンロードできるので、何かやり方がありそうなのですが・・・。
0945nobodyさん
2005/08/08(月) 16:00:00ID:???だまって @INC 増やせ。
>>942
動くよ。 スクリプトと同じフォルダに設置しれば？
>>944
zip とかならポップアップしなくても普通にページ移動 (location) すればページ切り替わらずにダウンロード画面になることを知らないのか？
そゆことで、Content-Type がしっかり (ダウンロードされるように) してれば、そのように動く。
0946nobodyさん
2005/08/08(月) 16:13:29ID:???まともな会話の仕方を知らないのか？
0947nobodyさん
2005/08/08(月) 17:02:15ID:???ダウンロードダイアログとポップアップ抑制は関係ないから。
ヘッダとしてContent-Dispositionを出力してみるよろし。
Content-TypeとContent-Lengthも合わせて出力することをおすすめする。
0948nobodyさん
2005/08/08(月) 22:07:27ID:???CGI でしこしこデータを吐いてもいいんだけど、サイズが大きいと色々問題が
出てくるので Location で飛ばす方がいいと思うぞ。
警告なしに飛ばすには色々条件がある。
・Location は必ず HTTP ヘッダで吐く。HTML の <meta> は駄目。
・Location よりも前に Status: 303 See Other を吐く。
メソッドが POST でなければ 302 Found も可。302 の方が対応ブラウザが多い。
これは現在のメソッドに関係なく Location を GET で回収しろという意味。
・Location には絶対 URI を指定する。
さらにこの URI のホスト部分と $ENV{'HTTP_HOST'} は一致させる。
IP アドレスでのリクエストとかもあり得るので必ずチェックすること。
・メソッドが HEAD ならボディは吐かない。
それ以外なら Location へのリンク (<a>) を含む HTML を吐く。
これらが満たせない場合は <form> でのリクエストはあきらめるしかない。
<a> で CGI にリンクすれば回避できるけど、検索エンジンに侵されるのでそのつもりで。
0950nobodyさん
2005/08/09(火) 00:23:13ID:pZHbukIk#! c:/perl/bin/perl
print "Content-type: text/plain\n\n";
print "Hello Perl !";
これって普通ならブラウザー画面に文字が表示されるはずなのに
何故か実行するとファイルダウンﾛｰﾄﾞになるのですが
何故でしょうか
0951nobodyさん
2005/08/09(火) 00:28:33ID:???でアクセスしてる？
0952nobodyさん
2005/08/09(火) 00:30:11ID:pZHbukIkまあローカルホストに違いないが
http://127.0.0.1/です
0953nobodyさん
2005/08/09(火) 00:31:06ID:???conf
0954nobodyさん
2005/08/09(火) 00:33:03ID:pZHbukIkやはりファイルダウンロードになりました
レンタルサーバーのほうは何故か不安定で、ローカルだと表示できるものが、
表示できたり出来なかったりします
パーミッションやパス、その他設定はちゃんとしてるはずなのに
0955nobodyさん
2005/08/09(火) 00:39:46ID:pZHbukIkコンフファイルもソースも付属ＣＤのを使ってるから
間違ってるとは考えにくい
0956nobodyさん
2005/08/09(火) 01:15:37ID:???IE は text/plain をダウンロードしたりしなかったりするよな。
text/html のが確実よ。
0957nobodyさん
2005/08/09(火) 01:32:37ID:???0958nobodyさん
2005/08/09(火) 02:02:31ID:???0959nobodyさん
2005/08/09(火) 18:08:04ID:???$i=1;
while($in{'a[$i]'}){
print OUT "$in{'a[$i]'}\n";
$i++;
}
print $in{'a[1]'};
という風にやってみたんですけど中に何もはいってませんでした
0961960
2005/08/09(火) 18:31:23ID:???$in{'a[1]'}ってハッシュの中の配列？リファレンス使う方がいいかもよ。
0962nobodyさん
2005/08/09(火) 19:40:12ID:???PHPとかで <input name="a[1]"> とされてる a[1]？
なんで流用してるのか知らないけど、クエリを%inに格納してないんじゃないの？
0963nobodyさん
2005/08/09(火) 19:49:58ID:???print "Content-type: text/html\n\n<pre>\n";
てやってるよ
サーバ云々よりもブラウザの問題
0964nobodyさん
2005/08/09(火) 20:49:47ID:???0965nobodyさん
2005/08/09(火) 21:06:24ID:???0966nobodyさん
2005/08/09(火) 21:36:56ID:???現在もほとんどのブラウザが対応してる。
0967nobodyさん
2005/08/10(水) 00:24:25ID:???0969nobodyさん
2005/08/10(水) 20:44:59ID:yT5SVbbLHello Perl !
こんな感じ
0970nobodyさん
2005/08/10(水) 21:45:46ID:oTWuci57ログイン画面（ＩＤ、パスワード入力フォーム）があって、一度ログインしたら
その後どのページに行ってもログイン済みという認識をさせたいのですが、各ペ
ージでフォームデータ（標準入力）を取得し、ＩＤ、パスワードがあるかという
判断をするやり方で良いのでしょうか？
また、フォームデータ（標準入力）はいつまで保存されているのでしょうか？ど
んどん次のページに行っても残っているものなのでしょうか？
0971nobodyさん
2005/08/10(水) 22:17:10ID:???保存するようにしてれば保存される。
それにコーディングに関係ないぞなもし。
cookieとかセッション管理とか調べてください。
0972nobodyさん
2005/08/10(水) 22:18:56ID:???CGIだとセッションIDを仕込んで、毎回チェックするだけなんだけどね。
仕込み先はCookie、URL、フォーム。なんだっていい。
セッション管理でぐぐるに一票。
0973nobodyさん
2005/08/10(水) 23:06:05ID:???必要とするモジュールの一部が使用中のレンタルサーバーに用意されていない場合、
CGI内に、
use lib = "/home/hogehoge/lib"
と記述してやると、 /home/hogehoge/lib 内に、サーバーにすでにある
モジュールもないモジュールもすべて用意しなければならなくなるのでしょうか？
0974nobodyさん
2005/08/10(水) 23:16:31ID:???0975nobodyさん
2005/08/11(木) 00:28:25ID:???ちゃんと実行されてんじゃん。
たまたま君の使ってるブラウザ（環境）がtext/plainなデータをダウンロードするようにしているだけ。
text/plainを表示するようなブラウザだったら表示される。
0976nobodyさん
2005/08/11(木) 07:59:40ID:emP9NQBRサーチパスに追加するだけ
0977nobodyさん
2005/08/11(木) 09:50:51ID:???配布スクリクトでPerl::Authを使うのでインストールしたら
Fatal error: Cannot redeclare class auth in /web/....../lib/pear/Auth/Auth.php on line ○○
というエラーが出ました。
過去ログとか読むと、authが二重宣言しているためにエラーが出ているところまで分かったのですが、
これの回避方法とかあるのでしょうか？
該当部分(auth)を別な名前に書き換えるのも、色々な場所で使われていて大変そうですし、
他の何と重複しているのか分からないのですが…。
0978nobodyさん
2005/08/11(木) 10:01:10ID:???0980nobodyさん
2005/08/11(木) 11:52:28ID:???ここはperlスレなんだが。
0981nobodyさん
2005/08/11(木) 11:58:15ID:???977の質問はPHPのPEAR::Authについて
のものだというところかと...
質問者の脳内でPEARがPerlに置き換わっ
てるようだが激しくスレ違い。
0982977
2005/08/11(木) 13:21:03ID:???勝手に脳内変換してました…。PEAR→Perl
スレ違いorz...
0983nobodyさん
2005/08/11(木) 19:28:28ID:OSKViUMD（ブラウザのウィンドを閉じるまでは残っているのでしょうか？）
各ページでhiddenの受け渡しによるログインのセッション管理を行おう
としていますが、途中にＨＴＭＬページがある場合、
a.cgi → b.html → c.cgi
a.cgiで渡したhiddenの情報を、c.cgiで受け取ることはできるのでしょう
か？それとももう消えてしまっているのでしょうか？
もしくは、ＨＴＭＬでもhidden情報を渡すことはできるのでしょうか？
素人なのでアホな質問をしていたらすいません。
0984nobodyさん
2005/08/11(木) 19:39:00ID:???0985nobodyさん
2005/08/11(木) 20:29:04ID:???----------------------------
#!/usr/local/bin/perl
$view = "画像フルパス.jpg";
print "Content-type: image/jpeg\n\n";
open IMG,"$view";
binmode (IMG);
print <IMG>;
close (IMG);
exit;
---------------------
アクセスカウンタみたいに<img src="xx.cgi">
って感じで画像を呼びたいんだけど、
この後処理を付け足して条件分岐で表示される画像が変わるという感じのを作りたいんですが
最初のとりあえず決まった画像を表示させる段階でつまづいています
なにか分かれば教えて頂けますか？
0986nobodyさん
2005/08/11(木) 20:29:11ID:???a.cgiでb.htmlを出力する際にhidden情報も書き込ねば、c.cgiが受け取れる。
でも、セッションならcookieでやる方がいいよ。
GETメソッドで変遷すると、hidden情報がアドレス部分に含まれちゃうから。
0987nobodyさん
2005/08/11(木) 21:10:44ID:???Windowsなら
binmode(STDOUT);
が要るけど。
# print <IMG>は勘弁してほしい。
0988nobodyさん
2005/08/11(木) 21:12:57ID:???構文的にマズイのであれば
よくわかってないので是非教えてください
0989973
2005/08/11(木) 21:29:11ID:???そこのところを具体的にご教示ねがえないでしょうか？
ちなみに、telnetもshhも使えないサーバーをつかってます。
なにとぞよろしくお願いします。
0990nobodyさん
2005/08/11(木) 21:34:23ID:???山形括弧は行ごとに処理を行うので、
バイナリモードで使うのは気持ちが悪いということ。
# 巨大ファイルを使わない限り気分的な問題だけど、どこかに落とし穴があるかも知れず。
>>985のコード動いたよ。(FreeBSD+Perl5.8.7)
0991nobodyさん
2005/08/11(木) 21:38:14ID:X0+Sv8OM処理が重くなるとかメモリの節約とか全然考えてない
0993nobodyさん
2005/08/11(木) 23:29:59ID:???ってのが http:// からのアドレスで書いてることに 3000点。
ってか >>995 も大変だな。
↓↓
0994995
2005/08/12(金) 00:55:40ID:???まさにその通りでした^^;
しかも995…orz
993には３０００点が加算されます。
なんでこんなミスすんだろ
思いこむとこんなミスにも気づかないものねぇ
レス数が950を超えています。1000を超えると書き込みができなくなります。