Perl 初心者コーナー Part21
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
03/03/18 18:47ID:Dujz7IUF【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
1：自分はこう言う事がしたい。
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 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/
過去ログやお勧めサイトは >>2-10
0265nobodyさん
03/03/29 01:48ID:8vJPU8loなぜ6個でどういう動作しているのでしょうか？
#! /usr/bin/perl
if($FORM{'frame'} eq 'test2'){hidari();}
elsif($FORM{'frame'} eq 'test3'){migi();}
else{test();}
exit;
sub test{
print <<END;
Content-type: text/html; charset=Shift_JIS
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN">
<html><head><title>test</title></head>
<frameset cols="50%, 50%">
<frame name="t2" src="$ENV{'SCRIPT_NAME'}?frame=test2">
<frame name="t3" src="$ENV{'SCRIPT_NAME'}?frame=test3">
</frameset></html>
END}
sub hidari{
print <<END;
Content-type: text/html; charset=Shift_JIS
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html><head><title>test2</title></head><body>test hidari</body></html>
END}
sub migi{
print <<END;
Content-type: text/html; charset=Shift_JIS
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html><head><title>test3</title></head><body>test migi</body></html>
END}
0266bloom
03/03/29 01:55ID:i2vNq3FD0268nobodyさん
03/03/29 02:43ID:wFiuyLe9よく考えてから質問してくれ
0270nobodyさん
03/03/29 09:39ID:???0271nobodyさん
03/03/29 13:11ID:???後のことは知らんが。
0272nobodyさん
03/03/29 13:35ID:???通信がセキュアであることを判定するようなメソッドが欲しいと思い、
いろいろ環境変数などを探してみたのですが、ぜんぜん見付かりません。
どうやったら確実に判別できるのでしょうか。
もしかして、「https://から始まっていたらセキュア通信!」みたいにすればOKですか?
0273nobodyさん
03/03/29 14:06ID:???isSecua() メソッドとは何をもって通信がセキュアであると判断するんだ？
あと、どこまでのセキュリティレベルを必要としてるんだ？自分で理解してるのか？
それに環境変数ごときで判断して良いなら SSL_* 変数をチェックすりゃ十分だろうし、
https:// から、なんてレベルなら SERVER_PORT でも見りゃいーじゃん。
Perl と関係ねーじゃん。よそ逝け。
0274nobodyさん
03/03/29 15:06ID:GyYYsUNOそげなこといわんと、実装方法教えてくんろ。
0276nobodyさん
03/03/29 19:16ID:???何をもってセキュアだとするのか、定義を決めなければ実装もできんだろうが。
自分がやることやらないで他人に頼ろうとするな。
0277nobodyさん
03/03/29 20:46ID:rt7Ytb+z$value = jcode::sjis($value);と記述しています。
同じことをEncodeモジュールで行うには
どういう風に書き換えたらいいのでしょうか。
一応グーグル検索して
http://www.cise.ufl.edu/depot/www/perl/pod/perljp.html
などを読んでみたのですが、よく分からなかったです；
すみません。
0278nobodyさん
03/03/29 20:59ID:NU31LA3c＞ネット上のページを取得するのに、LWP::Simpleとwgetを使う方法があるとのことで、
＞それぞれで実際に取得するところまで漕ぎ着けました。
どうやるの？？
0280nobodyさん
03/03/29 22:17ID:NU31LA3carigatou
0281nobodyさん
03/03/29 23:42ID:NU31LA3c#!/usr/local/bin/perl
use LWP::Simple;
my $url = "http://www.google.com";
my $content = get($url);
print $content;
exit(0);
ってのをアップしたんだけど５００になってしまいます。
なんでだろう。
0282nobodyさん
03/03/29 23:53ID:???LWPが使えないから。
tu-ka,テストはローカルでやれ。
0284nobodyさん
03/03/29 23:56ID:???何でだろうも糞も無い。
0285nobodyさん
03/03/30 00:01ID:???0286nobodyさん
03/03/30 00:15ID:???0289nobodyさん
03/03/30 00:21ID:???500エラーって事はHTTP経由だろ？なら要るだろうが。
>>285
#! /usr/local/bin/perl
print 'Content-Type: text/html', "\n\n";
eval {
require LWP::Simple;
};
if ( $! ) {
print $!
} else {
print 'OK'
}
0291nobodyさん
03/03/30 00:54ID:???ないから使えないだけなのと、自分で置いても使えないのと。
0293nobodyさん
03/03/30 03:20ID:DsnrZpx8なんですけど、すごく遅くて困ってます。
他のマシンでやると速いんですが、自マシンでやると遅いです。
スペック的には一番速いんですが。なんででしょうか？
ご教示ください。お願いします。
0296nobodyさん
03/03/30 04:10ID:???春厨の季節でつね
0297nobodyさん
03/03/30 04:11ID:???なんでも春のせいにする厨房の季節でつね
0298nobodyさん
03/03/30 04:16ID:???「なんでも春のせいにする」と「特定の現象を春厨のせいにする」の違いが分からない厨の季節でつね。
0300299
03/03/30 04:46ID:???特定の現象とはどの現象を指しているの？
0301nobodyさん
03/03/30 05:26ID:C4JPPs9nPerlで掲示板を作り、携帯からそれを利用できるようにしました。
するとａｕの携帯から書き込む際に
cgi-lib.pl:
Unknown
Content-type:
application/x-www-form-urlencoded;
charset=shift_jis
というエラーが出ます。この原因（とできれば解決法）を
一言でいいのでどなたか教えてください。
パソコンとi-modeからはちゃんと書き込めるんですけど…。
0302nobodyさん
03/03/30 05:48ID:pEUiOEbB結構巨大なcgiとかになってくるとサブルーチンからサブルーチンとか
ピョンピョン跳び回って、なかなか変数や配列の後を追えないと言うか
今、ココに格納されるべき変数は・・え〜っと何だっけ？アレ？
ってな具合になってしまいます。サブルーチンの引数の中にサブルーチンが
含まれててその引数にまたサブルーチンが・・見たいなことになるとマジで
混乱してしまいます。
何か良い方法はないでしょうか？
0303nobodyさん
03/03/30 05:56ID:???0304302
03/03/30 07:12ID:???使わせて貰ってます。変数エクスプローラーってのがあってサブルーチンや
各変数にピョンピョン飛べるのが凄く助かります。
0306nobodyさん
03/03/30 11:31ID:???0307nobodyさん
03/03/30 11:40ID:???http://www.au.kddi.com/ezfactory/tec/index.html
嫁。
0308nobodyさん
03/03/30 16:51ID:???306 ：nobodyさん ：03/03/30 11:31 ID:[ コレ ]
こういう風に、毎回IPが一緒とは限らない実行側を
どのように判断して毎回同じIDを与えているのでしょうか？
判断材料としてはやっぱり IP、HOST、ブラウザなんかを読んで判定してるんでしょうか？
質問へぼくてすみません。
0309nobodyさん
03/03/30 16:57ID:???0310nobodyさん
03/03/30 17:34ID:???0311nobodyさん
03/03/30 18:20ID:???Perlと何の関係が？
そのうち「Perl初心者な者ですがハヤシライスの作り方について質問です」なんていう
質問が来そうで鬱だ。
0312nobodyさん
03/03/30 18:30ID:???#! /usr/local/bin/perl
print "Content-Type: text/html\n\n";
print 'ハヤシライス';
exit;
0313nobodyさん
03/03/30 18:36ID:???それなら
#! /usr/local/bin/perl
print "Content-Type: text/plain\n\n";
print 'ハヤシライス';
exit;
だろうよ。
0314nobodyさん
03/03/30 20:04ID:lN4HiIUc0315nobodyさん
03/03/30 20:18ID:lN4HiIUc「値に改行コードを含む CSV形式を扱う」
http://www.din.or.jp/~ohzaki/perl.htm#CSVwithCRLF
を使ってみたのですが、
結果、改行を含むセルが、２行として分析されてしまいます。どうすればいいのでしょうか？
■csvファイルは、以下の通りです。
a,1,2,"あああ
いいい",かかか
あ,2839,sw,5,6
■cgiの実行結果は以下の通りです
a12"あああ<br>
いいい"かかか<br>
あ2839sw56<br>
■スクリプトは以下の通りです。
open (IN,"read_csv.csv") or die;
while (my $line = <IN>) {
$line .= <DATA> while ($line =~ tr/"// % 2 and !eof(DATA));
$line =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
@values = map {/^"(.*)"$/s ? scalar($_ = $1, s/""/"/g, $_) : $_}
($line =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
# @values を処理する
foreach $column (@values){
&jcode::convert(\$column, "sjis");
print $column;
}
print "<br>";
}
close IN;
0318315
03/03/30 21:24ID:oGZ4ZySMPerlメモにある排他制御を使いたいのですが
（http://www.din.or.jp/~ohzaki/perl.htm#File_Lock）
とりあえず中身がどういう仕組みかわからないながらもとりあえず使いたいのですが、
使用方法がわかりません。。。。
# ロックする(タイムアウトあり)
$lfh = my_flock() or die 'Busy!';
# アンロックする
my_funlock($lfh);
とあるのですが、具体的に、
たとえば、./log/bbslog.txt にロック／アンロックするには、どういう書式にすればいいのでしょう
0319nobodyさん
03/03/30 21:34ID:???いや、仕組みを知るのが先だろう。
こちらのスレが参考になるかも。↓
http://pc2.2ch.net/test/read.cgi/php/1024795138/l50
0321nobodyさん
03/03/30 23:58ID:???http://search.cpan.jp/
ここなんかどうでしょ
で、私の質問ですが、
multipart/form-dataでデータを受け取って
CGI..PMでアップロードしようとしています。
で、
use CGI;
my $cgi = CGI->new;
こうした時点で/cgi-bin(実行path)にtmpファイルが作成されるのですが
これを回避することってできるんでしょうか？
あるいはせめてtmpファイル作成場所の指定をしたいわけです。
ご存知の方教えてください。
0323321
03/03/31 01:15ID:???それやってみましたがダメでした。
あと環境変数TMPDIRを見るようなので
値を設定しましたがダメでした。
http://member.nifty.ne.jp/hippo2000/perltips/Cgi.htm
-private_tempfiles
回避策としてFHをcloseしてやるとtmpファイルは消されました。
結局出力先指定は上手くいきませんでしたが・・。
0324nobodyさん
03/03/31 02:28ID:U3RJ6jN1UNIX環境で云々と書いているので、UNIXなんですかね。WindowsにActive Perlとhttpadじゃだめですか？
0325nobodyさん
03/03/31 02:36ID:???0326nobodyさん
03/03/31 02:48ID:poa5fGTP0328p0604-ip02sasajima.aichi.ocn.ne.jp
03/03/31 05:14ID:E9hS93FY0329nobodyさん
03/03/31 06:04ID:???自分が初心者で、これからPerlをやっていこうとしてて、
使えるサーバスペースがWindowsしかないのなら、とりあえず
UNIXのサーバを借りた方が勉強楽だと思うよ。
0331nobodyさん
03/03/31 06:24ID:???0332nobodyさん
03/03/31 06:33ID:???0333nobodyさん
03/03/31 07:03ID:z41dsEAY将来どこまでやる必要があるかによる。
素人が遊びでやるならWindows+AnHttpd+ActivePerlが簡単でいい。
情報も集めやすいし。
将来、顧客に提供するWebサイトを目標にするなら、すくなくとも
Windowsは避ける。定番のUnix+Apache+Perl だろうね。
敷居が低いからと言ってWindowsを採用すると、保守できないシステム
になり、無理やり保守しようとしてとんでもない人件費がかかったりします。
0338nobodyさん
03/03/31 14:16ID:???Linuxとかの環境での動作確認はしてるだろうけど。
0343nobodyさん
03/03/31 16:04ID:???動いたらOKとかいうより、Perlのバージョンに依存する部分があるか、
コマンドも使うならサーバによって使えないこともあるなど
書く前か書いてる最中にわかること。
0344nobodyさん
03/03/31 16:14ID:???なるほどぉ。。。
ちなみにVine Linuxってやつでもいいんですか？あれならCD持ってるからインスコしてみようかなぁ、とおもうんだけど。
WinとLinuxのデュアルブートっていうのは問題ないんですか？
0347nobodyさん
03/03/31 18:17ID:???漠然とした不安をそのまま投げるなよー。
なんでもかんでも誰かに聞いて苦労をせずに済ませたいなんてのは
ﾌﾟﾛｸﾞﾗﾏ向けな性分じゃない。
取りあえずそのﾕｰｻﾞ側的思考から抜けれ。
0348nobodyさん
03/03/31 18:45ID:???最初からやめとけってこった
0350nobodyさん
03/03/31 19:02ID:a8GlaiRt0351nobodyさん
03/03/31 19:06ID:???無料会員登録で、もれなく商品券が貰えるキャンペーン実施中！！
http://camellia16.fc2web.com/cafesta.html
0352nobodyさん
03/03/31 19:09ID:???0353nobodyさん
03/03/31 19:20ID:WQCBJdN90354nobodyさん
03/03/31 19:24ID:???厳密には無理。
一応、Perl スクリプト内でできるレベルとしては、
環境変数 HTTP_REFERER を見て判断するという方法がある。
その他、.htaccess を利用する方法もある。
こちらの解は該当スレへ。
そもそも、検索かけりゃ一発で答が出ると思うが？
0356nobodyさん
03/03/31 19:37ID:???まぁこの手の質問って、こう返すしかなくない？
0357nobodyさん
03/03/31 19:37ID:a8GlaiRt0358nobodyさん
03/03/31 19:38ID:???ほらよ〜
http://www.google.com/search?num=100&hl=ja&ie=UTF-8&oe=UTF-8&c2coff=1&as_qdr=all&q=%E6%8E%B2%E7%A4%BA%E6%9D%BF%E3%81%B8%E3%81%AE%E7%9B%B4%E3%83%AA%E3%83%B3%E3%82%AF%E3%82%92%E9%98%B2%E3%81%90&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=
特定のページを直リンクされたらどうすることも出来ませんがね。。。
0359353
03/03/31 20:04ID:WQCBJdN90360nobodyさん
03/03/31 20:19ID:???0361nobodyさん
03/03/31 20:33ID:???「特定のページ」とやらが同一サイト内なら、有効期限付きのCOOKIEを使う手もあります。
しかし、Perlの話じゃなくなるので、相応しいスレを探してください。
0362nobodyさん
03/03/31 20:34ID:???サーバーの設定に関することは、UNIX板などで聞いた方がいいと思われます。
■ このスレッドは過去ログ倉庫に格納されています