Perl コーディング初心者質問コーナー Part33
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
04/03/01 02:46ID:1GeWO7LH【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0166nobodyさん
04/03/05 03:00ID:???エディタで起動させて同時にカレントディレクトリを移動させたりすれば便利
0167nobodyさん
04/03/05 03:04ID:ReR1r8Jbいまいちなにがしたいのかよくわからないけど、
スクリプトの文法チェックならperl -c hoge.plで可能。
0168nobodyさん
04/03/05 03:41ID:???俺の根性がびーーーん。
エディタで起動ってなんのエディタだろう？？
無知ですんません。
>>167
＞いまいちなにがしたいのかよくわからないけど、
単にダブルクリックしたいだけです。エッヘン！
0169168
04/03/05 03:48ID:???あ。意味分かった。
今までperlをエディタから起動した事なかったf(^_^;)
0170nobodyさん
04/03/05 03:59ID:ReR1r8Jb俺はEmEditor使ってるけど、エディタから直接ボタン一個でプロンプト起動して
自動で走らせるようにしてある。この方法だとdieで終了しても閉じないから
エラー内容もちゃんと見れる。
0171nobodyさん
04/03/05 04:27ID:???ありが㌧！
俺も秀丸からボタン一つで新規秀丸ファイルに出力されるようにしてきた。
evalしてた俺ってなんて馬鹿MAXなんだろう。。。＿|￣|○
0172nobodyさん
04/03/05 07:21ID:???0173nobodyさん
04/03/05 13:13ID:???0174nobodyさん
04/03/05 23:51ID:yEaLcmjc$test=1
だったら、
$hoge{'test'}=1
にしたいのです。「test」の部分は未知の場合にどうやったらいいかわかりません。
よろしくです。
0175nobodyさん
04/03/05 23:59ID:???Perlソースは読めるから 未知な場合がどういう場合なのか・・・
0176nobodyさん
04/03/06 01:52ID:???@pairs = split (/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$FORM{"$name"} = $value;
}
0177nobodyさん
04/03/06 01:57ID:???0178nobodyさん
04/03/06 09:33ID:???次のステップとして
たとえば、発言一覧などをいちいちアクセスされるたびにＣＧＩがＨＴＭＬソースを吐くようではサーバに負担が掛かるので
発言一覧のような閲覧頻度の高いものはＨＴＭＬファイルに出力して変更があった場合更新するようにすれば負荷が軽減されるように思うのですが
他のスレで
146 名前：nobodyさん 投稿日：2004/03/04(木) 01:31 ID:???
なんでHTMLへ書き出したいんだ？
メリットだけじゃなくてデメリットもあることを承知の上でか？
と言うような書き込みを見つけました
具体的にデメリットとしてはどのようなことが挙げられるでしょうか
0179nobodyさん
04/03/06 09:43ID:???cookieとか使ってた場合、HTMLにすると意味がなくなるからな。
JavaScript使えばできないことはないが、切られるとどうしようもないしな。
0180nobodyさん
04/03/06 10:16ID:???次のステップとして自力で作った掲示板スクリプトを他人に評価してもらうのがいいぞ。
もう廃れてしまったスレだがな。
自作CGIを評価するスレ
http://pc2.2ch.net/test/read.cgi/php/1049514428/l50
0181未承諾広告※ ◆TWARamEjuA
04/03/06 11:14ID:???1 行にしてみるてすと
%FORM = map { (split /=/)[0,1] } split /&/, $buffer;
0182nobodyさん
04/03/06 14:15ID:???HTML書き出しのデメリット
設置できる条件が厳しくなる(CGIディレクトリに置いたHTMLへアクセスできないとダメ。とかね)
リアルタイムに更新されない(だれかが書き込むまでずっと「最新」マークが表示されっぱなし。とかね)
まぁ、掲示板の場合はそれ以上にメリットはあるよ。
全部HTMLな掲示板つくってみたけど、表示負荷をあまり考慮しなくて済むからかなり無茶ができる。
0183nobodyさん
04/03/06 14:35ID:???というか、ファイルが既に開かれているかいないか、の方が
自分の考えてる事にニュアンスが近いです。
0184nobodyさん
04/03/06 15:56ID:???これで
0185nobodyさん
04/03/06 19:36ID:???%FORM = split /[&=]/, $buffer;
まぁ実用的なコードほどこんなハッタリじみた事はせず、
堅実にサニタイズしているもんだがな。
>>183
http://perldoc.com/perl5.8.0/pod/func/fileno.html
0186nobodyさん
04/03/06 22:13ID:???my変数を使うことのメリットって何ですか？
グローバル変数だけだと不具合とかってあるんですか？
0187nobodyさん
04/03/06 22:16ID:???複数人での開発になったら必須。
最大のメリットは保守性。
0190nobodyさん
04/03/06 22:56ID:???あまり大きくなく保守が楽な規模のものでも、
例えばブロック毎に変数名使い回せるとかいうのは
日曜すくりぷたな人にとっても結構嬉しい事なんじゃないだろうか。
まあ使って損は無いし(あっても得の方が大きい)
特に理由が無い限りmy宣言はした方が良いと思うよ。
0191nobodyさん
04/03/06 23:01ID:???あ、use strictと組み合わせること前提ね。
0192nobodyさん
04/03/06 23:57ID:???0194nobodyさん
04/03/07 01:08ID:???ディレクトリのリネームをしたいんですが、CGIを実行するディレクトリのリネームってできないんでしょうか？
例えば
http://hoge.com/aaa/rename.cgi
というのを実行して
http://hoge.com/bbb/rename.cgi
といったようなリネームがしたいんですが・・・
rename関数でもFile:copy moveでも無理でした
何かいい方法があればお願いします
0195nobodyさん
04/03/07 01:16ID:???useしないようにするという場合もありそうな気がしますが、
チェック時だけではなく常にuse strictする理由って何かありますか。
例えば、局所変数のチェックをするついでに何かしらのエラーチェックをしてくれるとか。
0197nobodyさん
04/03/07 02:15ID:???#!/usr/local/bin/perl
use strict;
(my $now_dir = $ENV{'SCRIPT_FILENAME'}) =~ s|/[^/]+$||;
(my $base_dir = $now_dir) =~ s|[^/]+$||;
print "Content-Type: text/plain\n\n";
$ENV{'QUERY_STRING'} =~ /^(\w+)/;
length $1 or error('No assigned new dir name.');
my $new_dir = $base_dir . $1;
-e $new_dir and error("$new_dir already exists.");
chdir $base_dir or error($!);
rename $now_dir => $new_dir or error($!);
chdir $new_dir or error($!);
print 'ok.';
sub error {
print "Not changed: @_";
exit;
}
>>195
http://perldoc.com/perl5.8.0/lib/strict.html
0198nobodyさん
04/03/07 02:36ID:???どうも素早い返信ありがとうございます～
さっそく試してみたいと思います
それにしてもchdir使えばいけるとは・・・思いもつきませんでした
危うくcpでフォルダ全コピーして削除する方法をするとこだったし
0199nobodyさん
04/03/07 05:46ID:???例えば、JcodeのOOは
Jcode->new(\$str)->utf8;
の様にすれば良く、これは
$char = 'utf8';
Jcode->new(\$str)->$char;
でも良いようなのですが、
%char(UTF-8 => 'utf8');
Jcode->new(\$str)->$char{'UTF-8'};
のようにハッシュを使うと構文エラーと言われます。
ハッシュを使うにはどうすれば良いのでしょうか。
0200nobodyさん
04/03/07 10:57ID:???実行時チェックはシンボリックリファレンス(${'var_name'}のようなやつ)の禁止だけなので、
厳密にいうとデバッグがすんだらuse strict 'refs'のみにしてもかまわない。
が、本当に些細な負荷でしかない(しかも、コンパイル時チェックなので実行速度には影響しない)ので
敢えてそこまでする意味はない。っつか、黙ってuse strictしとけ。
>>199
$enc = $char{'UTF-8'};
Jcode->new(\$str)->$enc;
または
Jcode->new(\$str)->${ \$char{'UTF-8'} };
しかし意味も無くメソッドを変数にするのはお勧めできない。読み難い。
Jcode::convert(\$str, $char{'UTF-8'})とするのが普通だと思うぞ。
0202nobodyさん
04/03/07 11:50ID:???HTMLで出力している意味をわざわざ遠回りしてまで殺して何の意味が？
0203182
04/03/07 13:04ID:???リアルタイムに更新されない。と考えるとデメリットだけど、
リアルタイムに更新されなくて済む。と考えるとメリットになる。
メリットとして生かせるつくりにすることが重要。
0204nobodyさん
04/03/07 15:18ID:hh7UC8WbWin2000にActive Perl ver 5.8.3を入れています。
flockの使用可否について調べているのですが、
$file = "data.dat";
open(OUT,"<$file");
eval { flock (OUT,2); };
if ($@) { warn "flock NG"; } else { print "flock OK."; }
こう書いてコマンドラインで実行すると、必ずOKと出力されます。
これってevalの使い方あってますか？
また、Winってflock効くのでしょうか？
0205nobodyさん
04/03/07 15:43ID:???>200
そうだったのですか。
Jcodeのマニュアルに Jcode->new(\$str)->euc; のやり方のほうが良い、
みたいな事を書いてあったので変更しようとしていたのです。
0206こば
04/03/07 16:33ID:E9jZV2PD以下の二つの違いを教えて頂けないでしょうか？
print "<FONT size=\"5\">\n"; #ダブルクオート入り
print "<FONT size=5>\n"; #ダブルクオートなし
0207nobodyさん
04/03/07 16:36ID:???HTMLの事をなぜここで聞く？
0208nobodyさん
04/03/07 16:37ID:???極めてスレ違いでござる。
0209nobodyさん
04/03/07 16:39ID:???0210こば
04/03/07 16:49ID:E9jZV2PD0213nobodyさん
04/03/07 19:18ID:???どうしてもサーバエラーになってしまいます（デバッガで見ると
「Too late for "-T" option at copy.cgi line 1.」と出ます）。
#!/usr/bin/perl -T
$a_dir = '../a/data';
$b_dir = '../b';
system("cp -r $a_dir $b_dir");
内容としては、あるディレクトリを丸ごとほかのディレクトリに
バックアップするような ものなのですが、
taintモードで動かすこと自体が不可能なのでしょうか？
もしくはどうすればtaintモードで動くでしょうか？
0214nobodyさん
04/03/07 20:04ID:hh7UC8Wb鯖として運営してるマシンで、いまどきflockを効かせないようにしてる鯖ってあるんか。
0216nobodyさん
04/03/07 21:48ID:???http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsec.html
0217194
04/03/07 22:03ID:???いろいろ変数かえたりしたんだが全くダメだ
UNIX系のサーバーで試しにやったら動いたんだけど
Windowsで動かしたいんだけどなぁ
やっぱフォルダ全コピーしかないのか＿|￣|○
0219nobodyさん
04/03/07 23:25ID:???こうしたとかも書かずにただダメなのかとだけ言ってる連中って、
何の意味があって書き込んでるんだ？
同情して欲しいのか？
0220nobodyさん
04/03/07 23:41ID:???それがわかれば他の解決法もあるかもしれないのに。
0221nobodyさん
04/03/08 02:04ID:???($id,$name,$value,$other) = split(/\,/,$line);
if($name =~ /$search/ or $value =~ /$search/) {
という具合に、「名前」か「本文」に、「検索用の単語」が含まれていれば、という仕組みを作ってみたんですが、
検索用単語がエスケープする必要のある文字（表示とか）だと、エスケープしないと検索結果に出ません（表\示で検索しなければならない）。
どうしたらいいんでしょうか？ そもそも間違ってますか？
0222nobodyさん
04/03/08 02:12ID:???0223221
04/03/08 02:16ID:???$nameや$valueの中身が「表\示」になっている、というわけではない、ということですかね。
0224nobodyさん
04/03/08 02:31ID:???http://homepage1.nifty.com/nomenclator/perl/shiftjis.htm
0226225
04/03/08 03:48ID:???0227221
04/03/08 06:25ID:???有難う御座います。
$name =~ s/\\//g;
$value =~ s/\\//g;
とやって、該当部分の\を無くす、でマッチさせるやりかたで出来ました。
ただ、そうすると、
$name =~ s/$search/<em>$search<\/em>/g;
$value =~ s/$search/<em>$search<\/em>/g;
で強調してる部分が適応されません。
$valueの中の$search（表示）に該当する部分、ってのは実質（表\示）なわけですからマッチされない、ってわけですよね。
また詰まりましたです。
0228221
04/03/08 06:37ID:???$value =~ s/$search/<em>$search<\/em>/g;
の直前にも、
$name =~ s/\\//g;
$value =~ s/\\//g;
入れたら解決しました。
ただ、本文の\が全部消えてしまいますけどいいんですかね。
0229221
04/03/08 08:17ID:???$name（\を抜いたもの）と$search（\がないもの）がマッチするか確認する、ってするよりも、
$searchがエスケープシーケンス込み、になるようにした方が、em要素も適応できてよさげな気がするんですが、
$searchにどういう処理を加えたら「表\示」のような中身になるんでしょうか？
0230nobodyさん
04/03/08 08:20ID:???0234nobodyさん
04/03/08 10:50ID:???0235221
04/03/08 11:09ID:???0236nobodyさん
04/03/08 11:24ID:???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を呼べばいいんだろうと思うんですが
やり方がわからないんでうまくいかないんです。どうやったらいいんでしょう？？
■ このスレッドは過去ログ倉庫に格納されています