【Perl】初心者コーナー Part17
■ このスレッドは過去ログ倉庫に格納されています
1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
CGIだけど、なんか質問ある？ Part 8
http://pc.2ch.net/test/read.cgi/php/1032704121/
参考書籍の話題は【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あたりを見よう。
0276nobodyさん
02/10/23 21:47ID:???そういえば、2chのAAをJcodeでShift_JISからEUCにすると
すると化ける文字があるけど。
0277nobodyさん
02/10/23 21:52ID:J0Bj1TbGSJISで送信してくるとわかってるUAに対しては
jcodeを通す必要がないのでは？
そうすれば文字化けも起こらないと思われ
0278_gunzip ◆eiH/XdoCNg
02/10/23 21:56ID:???$SIG{__WARN__} = \&my_warn_handler;
sub my_warn_handler
{
my $now = strftime "%a %b %e %H:%M:%S %Y ", localtime;
print STDERR $now, @_;
}
0279_gunzip ◆eiH/XdoCNg
02/10/23 21:57ID:???0280nobodyさん
02/10/23 23:07ID:???2chはSJISでしか投稿できないようになってるはず
EUCだと判断したら書き込めない仕組みだと思う
その判断はjcodeなのか何なのかはわからない
あと、スクリプトの文字コードって送信される文字コードとは関係ないのでは？
まあファイルに何か書き込むときにはスクリプト内の文字コードと送信された文字コードを一致させないといけないけど
それと「表示」が化けるのはS-JISでスクリプト内に書いた場合（print "表示";）
送信されてくる文字は無関係
0281nobodyさん
02/10/23 23:18ID:???0282nobodyさん
02/10/24 01:32ID:???>280
俺はページがSJISならSJISで送信されるもんだと思ってた。
詳しい人解説キボン。
0283眠いyo...
02/10/24 01:56ID:???#!/usr/bin/perl -w
use strict;
package LogHandle;
require Tie::Handle;
@LogHandle::ISA = qw(Tie::StdHandle);
sub TIEHANDLE {
open(SV, ">& $_[1]");
bless \*SV, $_[0];
}
sub PRINT {
*SV = $_[0];
my @t = (localtime);
print SV sprintf('%d%02d%02d-%02d:%02d:%02d: %s',
$t[5] + 1900, $t[4] + 1, @t[3, 2, 1, 0],
"$_[1]");
}
sub PRINTF { PRINT($_[0], sprintf("$_[1]", @_[2 .. $#_])) }
sub _fh { *{$_[0]} }
# つづく…
0284283
02/10/24 01:57ID:???package main;
tie(*LOG, 'LogHandle', 'STDERR');
*STDERR = \*LOG;
print STDERR "ハァ？\n";
warn('ヒィ？');
sleep(1);
printf STDERR "フゥ%02d？\n", 2;
*STDERR = tied(*LOG)->_fh;
close(LOG);
warn;
die('ヘェ？');
__END__
0285kiki
02/10/24 02:09ID:MQ2xHT1gアンケート用のCGI(Perl)についてです。
現在、枝分かれする質問から、
その質問の回答により質問ページが決まるようになっています。
以下のとおりです。
my ($next_tmpl, @loop);
foreach my $n (grep (/^enq_ans_\d+$/, (keys %form))){
$n =~ m/enq_ans_(\d+)/;
my $num = $1;
if($form{$form{enq_branch}} eq $form{$n}){
$next_tmpl = $form{"enq_template_$num"};
last;
}
}
my $template = HTML::Template->new(filename => "template/$next_tmpl",
(die_on_bad_params => 0)
);
enq_branchの質問の回答であるenq_ansからenq_templateを決めるというものだと思うのですが、これをただ単にenq_templateを決めるだけにしたいときはどのように記述すればいいのでしょうか？
HTMLのほうに
<INPUT TYPE="hidden" NAME="enq_template_1" VALUE="○○.html">
と埋め込んで、○○.htmlへ質問の回答を送りたいのです。
どうか教えてください。
0286nobodyさん
02/10/24 02:29ID:???ページがSJISでもEUCで送ることもあったはず。
ゆいチャットのページにそれ系の調査結果が載せてあったような。
とりあえずWindowsでページがSJISだったらSJISで送ると思っていいんじゃないかな。
0287nobodyさん
02/10/24 03:20ID:???最近HTML::Template使い始めたんですが、メインページのパーツ
のテンプレートから更にテンプレートを作ってそれをメインの
テンプレートに埋め込んで最終的にメインのページを作るってな
ことは普通にやるものですか？
0289nobodyさん
02/10/24 09:35ID:???８文字未満だとちゃんとエラーが出るんですけど、９文字以上だとスルーしちゃいます。
0291nobodyさん
02/10/24 10:13ID:???はい、すいません。lengethで見ることにしました。
あと、$numに４桁の数字が入っているとして４桁とも同じ数字（3333）とかだったら警告する時は
$num = "3333";
($a,$b,$c,$d) = split(//,$num);
if(($a eq $b) and ($b eq $c) and ($d eq $d)){
print "警告";
}
これでいいでしょうか。もっと簡単なやり方ある気がするんですけど。。。
0293nobodyさん
02/10/24 11:33ID:???0296nobodyさん
02/10/24 12:50ID:???少なくともWin版のIE6.0,Mozilla1.1,Opera6.05,NN4.78はページの
文字コードで送信しますが？
もちろん何かの拍子に別のコードで送ってしまう事もあるでしょうが。
0299nobodyさん
02/10/24 13:32ID:???@char = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/');
srand;
$salt = $char[int(rand(@char))] . $char[int(rand(@char))];
$crypt = crypt($inp, $salt) || crypt ($inp, '$1$' . $salt);
$crypt;
これの
$crypt = crypt($inp, $salt) || crypt ($inp, '$1$' . $salt);
この行の || 以降の部分が意味がわかりません。
$crypt = crypt($inp, $salt);
こうやってただcryptするだけじゃいけないんですか？
0300nobodyさん
02/10/24 13:47ID:???0302nobodyさん
02/10/24 18:14ID:???0303nobodyさん
02/10/24 18:23ID:???- - -
まとめると・・
ほとんどのブラウザは、ページの漢字コードと同じコードでエンコードする。
ページの漢字コードがSJIS以外の時にSJISでエンコードするブラウザがある。
- - -
ちょっとｲﾔﾝな気分だ。
0304nobodyさん
02/10/24 21:01ID:hTxulthNここにある匿名メーラー設置したら
http://suraimu.s21.xrea.com/tokumei/tokumei.html、
The script did not produce proper HTTP headers.
Please see the error log to see the detail of the errors.
Depending on the server configuration, you can also run this script under CGI
Wrap debugging. Usually, either rename or link the script temporarily to a file which ends with .cgid extension, or add a
AddHandler cgi-script-debug .cgi line to your .htaccess file.
ってエラーがでました。どうすれば直りますか？
0305主婦のサークルで〜す
02/10/24 21:19ID:2CJLXaF+私たち主婦が楽しめる安全でちょっとトキメキのある出会を求めて
只今男性会員を募集中です!! 女性会員も募集(^○^)/"
http://f-cc.com/~tokimail/
0306nobodyさん
02/10/24 23:18ID:???お前らちっとは勉強しろ。
ttp://www.w3.org/TR/2000/WD-DOM-Level-1-20000929/level-one-html.html#ID-40002357
0307nobodyさん
02/10/25 00:56ID:NH/dosqCこのページのソースを参考にして外部のHTMLを参照しようとしているのですが
特定のサーバーから正常に取得できません
例えば
http://www.yomiuri.co.jp/04/20021024ic42.htm
をこのクライアントで読み込むと
（以前省略）<H1>Invalid URL</H1>
The requested URL "？？ic42？htm", is invalid.<p>
</BODY></HTML>（以降省略）
となぜか/や.が文字化けして返ってきます
$pathは正常で、文字化けしていない状態なのですが
どなたか助言お願いします
0309nobodyさん
02/10/25 01:27ID:???print SOCKET "GET /04/20021024ic42.htm HTTP/1.0\r\n";
というふうに直接指定しても同じように
The requested URL "＆＃47；04＆＃47;20021024ic42＆＃46；htm", is invalid.<p>
と返ってきました
と、ためしにhttpからこんな風に入力してみたら
print SOCKET "GET http://www.yomiuri.co.jp/04/20021024ic42.htm HTTP/1.0\r\n";
無事正常に取得できました
お騒がせしてすみませんでした
0310nobodyさん
02/10/25 17:38ID:???counter.cgiのperlへのパスの所をpackage counter;に書き換えて
*.cgiに
require './counter.cgi';
と記述したのですが、ローカル(Win)鯖ではrequire 以下も表示されたのですが
ﾌﾟﾛﾎｽﾃｨﾝｸﾞにupすると、それ以下が表示されません。
エラーが出るわけでもないので、どうしたらいいか分かりません。
ヒントを頂けないでしょうか？
0312nobodyさん
02/10/25 23:22ID:???名前、タイトル、文章を書きこむページをbbs.htmで作っておいて、
送信ボタンが押されるとPerlの方で、STDIN・QUERY_STRINGで取得できるのは分かりました。
文字を取得してPerlの中にHTMLのタグを記述して取得した文字を表示したのですが、そこで終わってしまいます。
Perlからまたbbs.htmにジャンプする場合どうすればよいのでしょうか？
また２ｃｈなどのようにbbs.htm（書きこむページ）を作らずに、１つのPerl上で掲示板を作る場合、
print <<"END";
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<FORM ACTION="http://***.****.**.**/*****/******" METHOD="POST">
投稿者<INPUT TYPE="text" NAME="name" SIZE="100" MAXLENGTH="50"><BR>
タイトル<INPUT TYPE="text" NAME="title" SIZE="100" MAXLENGTH="50"><BR><BR>
<TEXTAREA ROWS="7" COLS="50" NAME="box"></TEXTAREA><BR><BR>
<INPUT TYPE="submit" VALUE="送信">
</FORM>
</HTML>
END
とした場合submitから送られた文字はSTDINで受け取るのでしょうか？それともQUERY_STRINGで受け取るのでしょうか？
まだPerl始めてまもないもので分かりづらいと思いますがお願いします。
0313nobodyさん
02/10/25 23:55ID:???http://www.aikis.or.jp/~s-suzuki/cgilabo/kouza/cgi2.html
の
５．ブラウザからの引数の渡し方
5.1 フォームから送信
5.2 METHOD="get"とMETHOD="post"
5.3 フォーム処理のＣＧＩ例（METHOD="get"の場合）
5.4 フォーム処理のＣＧＩ例（METHOD="post"の場合）
を読めばわかるべ。読んでわからなかったらまた聞いて。
0314312
02/10/26 01:34ID:???上の「Perl」って表現じゃなくて「CGI」のほうが良いのですね。すいません。
フォームから来た文字をPOSTの場合とGETの場合で取得するのはわかったのですが、
一度掲示板に書きこむと終わってしまうので、続けて２回３回と書きこむ場合はどうすればよいのでしょうか？
それと、HTMLとCGIを両方を使用した掲示板ではなく、CGIのみで掲示板を作る場合はどうすればよいのでしょうか？
今作っている掲示板の状況です。書き込み用のページをHTMLで用意しています。【bbs.htm】
<HTML>
<HEAD>
<TITLE>サンプル</TITLE>
</HEAD>
<FORM ACTION=http://***.*****.or.jp/*******/bbs.cgi METHOD=POST>
<FONT face="ＭＳ ゴシック">
投稿者：<INPUT TYPE=text NAME=name SIZE=50 MAXLENGTH=50><BR>
題名 ：<INPUT TYPE=text NAME=title SIZE=48 MAXLENGTH=50><BR><BR>
<TEXTAREA ROWS=7 COLS=40 NAME=textbox>メッセージ</TEXTAREA><BR><BR>
<INPUT TYPE=submit VALUE=送信>
</FONT>
</FORM>
</HTML>
0315312
02/10/26 01:38ID:???こっちがCGIです。【bbs.cgi】
#!/usr/local/bin/perl
$buffer="";
$data="";
@date_str_dim;
$num="";
$dummy="";
$count=0;
if($ENV{'REQUEST_METHOD'} eq "POST"){
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
}else{
$buffer=$ENV{'QUERY_STRING'};
}
@buf=split(/&/,$buffer);
foreach $data(@buf){
($dummy,$num)=split(/=/,$data);
$num=~ tr/+/ /;
$num=~ s/%0D%0A/<BR>/g;
$num=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
@data_str_dim[$count]=$num;
$count++;
}
($toukou_name,$toukou_title,$toukou_bunsyou)=@data_str_dim;
print <<"end_print";
content-type: text/html\n\n
<HTML><HEAD><TITLE>サンプル</TITLE></HEAD>
投稿者：$toukou_name<BR>タイトル：$toukou_title<BR>$toukou_bunsyou<BR></HTML>
end_print
exit;
0316nobodyさん
02/10/26 02:13ID:???最初からCGIにアクセスすればhtmlは要らない。
本文が空のときは表示だけする。
書込み後も表示する。
FORMも含めて全部CGIから送出すればよい。
0318272
02/10/26 13:42ID:???>>272 さん
ご回答ありがとうございます。これは、、、いけそうですね。
来週の月曜に試して、それから再度結果を書き込みます。
ここには書いてませんが、ご返答下さった皆さん、ありがとうございました。
0319272
02/10/26 13:46ID:???>>283 さん にお礼をいいたかったのです。
（自分で自分にお礼をいってどうする、俺）
0320312
02/10/26 17:32ID:???すこしずつ形になってきました。
書き込んだの文章を保存する処理はまだですけど、なんとか頑張ってみます。
ありがとうございました。
0322nobodyさん
02/10/27 00:11ID:???0323nobodyさん
02/10/27 00:20ID:???出来ることが違うんだからスピードなんか比較すんな。
AWKで出来ることしかしないならAWKつかっとけ。
0324rubyist@カラアゲうまうま
02/10/27 01:30ID:???0326nobodyさん
02/10/27 03:56ID:bCdIKdebAwkのできることはみなPerlにできるが逆は真でない。
よって、Perlでやるが吉。
0327nobodyさん
02/10/27 04:47ID:???0328nobodyさん
02/10/27 08:38ID:???#! perl
って文頭に書くのはどういう意味でショーか？
パス通さなくていいの？
0329322
02/10/27 08:40ID:???-rwxr-xr-x 2 root root 708188 8月 10 2001 /usr/bin/perl*
-rwxr-xr-x 2 root root 224860 7月 31 2001 /bin/gawk*
プロセスのサイズとかでワンライナーとかのときは、
プロセス起動（ロード）時間って関係してこないのでしょうか？
0331rubyist＠カラアゲうまうま
02/10/27 12:12ID:???程度ひくぅ
一からUNIXとシェルの勉強やり直したら？
Unixで実行可能コマンドにするためにはパスは必要だよ。
でも単に#!perlとするだけでもその行のコマンドラインオプションが有効だし、
どこからコードになるのかを明示するためにも(-xオプション参照)そうしてる。
0333nobodyさん
02/10/27 17:01ID:???0334nobodyさん
02/10/27 18:01ID:vtRyJ45Uどうしたらわかるんでしょうか？
ソースを表示したらなんて書いてあるのですか？
超初心者ですみません。
教えて下さい。お願いします。
0336nobodyさん
02/10/27 19:25ID:???0337nobodyさん
02/10/27 23:57ID:pqTA1DY8あいつ周期的に出てくるな。ム板のrubyスレでもあほ言ってる。
0338nobodyさん
02/10/28 00:02ID:???画像の高さ・幅のどちらかが200ピクセル以上ならば
大きい方を200にしてリサイズするスクリプトって
どんな風に書けばいいのでしょうか？
ぐぐっても情報がすくないんで よろしくお願いします。
0339_gunzip ◆eiH/XdoCNg
02/10/28 02:28ID:???$ ./thumb.pl infile.jpeg output.jpeg 200
のように使ってね。
#!/usr/local/bin/perl
use strict;
use Image::Magick;
die "usage: $0 infile outfile pixel" if @ARGV != 3;
my ($infile, $outfile, $pixel) = @ARGV;
create_tumbnail($infile, $outfile, $pixel);
sub create_tumbnail
{
my ($infile, $outfile, $pixel) = @_;
my $image = new Image::Magick();
$image->Read($infile);
my ($width, $height) = $image->Get("width", "height");
my $r = $width > $height ? $width / $pixel : $height / $pixel;
if ($r > 1) {
$image->Resize(width => $width / $r, height => $height / $r);
}
$image->Write($outfile);
}
0340nobodyさん
02/10/28 06:18ID:???この$hogeを数値として扱う方法は無いでしょうか？
ただ、0x01のかたちは崩さないようにしたいんです。
pack("C*",$hoge)とpack("C*",0x01)じゃ同じ結果が出なかったので。。
0342nobodyさん
02/10/28 17:41ID:???symlinkでシンボリックリンクファイルを生成したら
全部不可視ファイルになってしまいました。
どうすれば可視ファイルになるんでしょうか？
それから、symlinkで生成したシンボリックファイルを
読み込むことも消すことも出来ません。
0343nobodyさん
02/10/28 18:37ID:MVvLcWrnApacheならOptions +FollowSymLinkにしてみたら
0345nobodyさん
02/10/28 19:18ID:MHCjzLTrfunction a(){
with(document.forms[0]){
alert('testtest');
elements[0].value=100;
}
}
ってやっても普通に表示されると思いますが、
この場合はalertには(document.forms[0])は付加されないんですか？
付加されたらエラーですよね？
でもelements[0]には(document.forms[0]）が付加されないと
エラーですよね？
その辺の切り分けはjavascriptではどうなっているのでしょうか？
0346nobodyさん
02/10/28 19:18ID:MHCjzLTrPerlのスレでした…。
0347nobodyさん
02/10/28 19:21ID:???ループで
000000から、ffffffまでの全ての色を表示するＨＴＭＬ文字を出力したいんですが、
やばいかな？
６桁だから、10進数で考えても十万ループだよね？
しかもこれ１６進数。
ＣＧＩで動かしたいから鯖が落ちると困るんですよ。
このくらいのループって余裕なんですか？
それとも無謀ですか？
と言うか出力された画面を見るのも大変そうだね。
１０万以上だから。
0348nobodyさん
02/10/28 19:23ID:V8hOlb/Aさっきやったらどうしてもエラーが出るんですが・・
0349nobodyさん
02/10/28 19:29ID:???全部コピーすれば？
レンタルサーバの場合、ファイル構造の制限をちゃんと理解して
プログラムのファイル指定をしっかり変更する事。
0350nobodyさん
02/10/28 19:53ID:OVLPNyBEバックグラウンドでプログラムを走らせる実験として
test.phpというプログラムとtest_back.phpという
プログラムを作りました。
＝＝＝＝＝＝＝test.php＝＝＝＝＝＝＝＝＝＝
<?php
system ("/home/sites/home/test_back.php > /dev/null &");
echo "OK";
>
＝＝＝＝＝＝＝test_back.php＝＝＝＝＝＝＝＝
<?php
sleep (30);
>
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
という風に、test.phpから、test_back.phpを
呼び出して、30秒間sleepするものです。
しかし、ps で確認しても、うまく呼び出されていないようです。
そのため、test.phpのほうの > /dev/nullを抜いて試してみた
のですが、すぐにOKが表示されるので、やはり呼び出されていないようです。
色々と調べて、自分では、間違っていないつもりなのですが、
問題点が、分かりましたら是非、教えてください。お願いします。
0351350
02/10/28 19:57ID:???PHPスレに逝って来ます。。
スレ汚しすみませんでした。
0352nobodyさん
02/10/28 20:10ID:???0353名無しさん＠Ｅｍａｃｓ
02/10/28 20:16ID:???0354nobodyさん
02/10/28 20:49ID:???1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
0355rubyist＠カラアゲうまうま
02/10/28 21:08ID:???0356347
02/10/28 21:38ID:???馬鹿なんですか？
0357rubyist＠カラアゲうまうま
02/10/28 21:40ID:???…それは不可能だよ。0xffffffって約一千六百万だよ。
それだけのループも大変だけど、
それらの組み合わせ全てを出力すると100MB超えると言うことを考えると、
無茶にも程があるってもんです。
0359347
02/10/28 22:15ID:???出なおしてきます。
では、表示出来る色を全部一気に見る方法はありますか？
perlじゃなくなってきてごめんなさい。
0360nobodyさん
02/10/28 22:34ID:???画像エディタのグラデーションバーでも見てりゃいーじゃん
つか1色ずつ判別できるとでも言うのか
ttp://tohoho.wakusei.ne.jp/wwwjscol.htmこの辺で遊んでれ
0361nobodyさん
02/10/28 23:10ID:???ffffffというと16M色だぞ、どうやって一気にみると言うのだ?
0362nobodyさん
02/10/28 23:42ID:???絵の具でも混ぜてろってこった
0363nobodyさん
02/10/28 23:59ID:???（ ´,_ゝ`） ﾌﾟｯ 頭弱そう
0364nobodyさん
02/10/29 00:11ID:expKwbl4黄色でも食ってろよ
0366nobodyさん
02/10/29 01:38ID:???どこで見れないのさ？
FTP？ならFTPクライアントに設定項目あるはず。
UNIXシェル？なら ls -alLF で見れるはず。
そもそもほんとにシンボリックリンクが作成されてるのかどうかを疑う。
0367365
02/10/29 08:50ID:???Telnetでls -lで参照してみたらちゃんとシンボリックリンクが存在するんです。
でもFFFTPで見てみると不可視ファイルになってて
設定でLISTコマンドで取得で見てみたら
一応シンボリックリンクは存在するけどシンボリックファイルが全て
＜ＤＩＲ＞とかになってて、
Web上からアクセスしに行ってもForbiddenとかになってます。
Perlに関係無ければ他所の板行きますが、
Telnetでls -sで作った時はちゃんと可視ファイルになっていて
Perlで生成した時は何故か不可視ファイルになってたもので。。
0368365
02/10/29 08:54ID:???多分Perlでシンボリックリンク「ファイル」生成したはずが
「ディレクトリ」になっちゃってるのが原因だと思うんですが・・
symlink ("test.cgi","../$id/test.cgi");
でファイルにはならないんですか？
0369nobodyさん
02/10/29 09:21ID:NNir1Y8Iファイルを読み取って、その中の内容をPOSTするのに、
[ $file, $filename, Header => Value... ] とか
init => ["$ENV{HOME}/.profile"],とかあるのですが、
上手くいかないのですが。実際./test.txtをpostするときは
どう記述すればよいのでしょうか?おねがいすます。
0370369
02/10/29 10:29ID:NNir1Y8Itextfileのアップロードではなく、テキストエリアにファイルの内容を
入力したものを送信する状態です。
0371369
02/10/29 10:55ID:???ここに書き込むと自己解決できるすばらしいすれっ度ですね。
ありがとうございました。
0372365
02/10/29 11:24ID:???0373nobodyさん
02/10/29 13:31ID:rgUUtj5zエージェントを見るとマックからだけで、Winからはこの現象は発生しません。
対処法などわかりましたらお願いします。
0374nobodyさん
02/10/29 16:16ID:pVmQBlE60375nobodyさん
02/10/29 16:39ID:???４回スルーする。
0376nobodyさん
02/10/29 16:55ID:???toで100回送らないといけないですよね。
それの負荷ってどんくらいなんでしょうか。
同じ内容のメールならccで一度で送れますけど。
■ このスレッドは過去ログ倉庫に格納されています