Perlコーディング初心者質問スレ Part 45
■ このスレッドは過去ログ倉庫に格納されています
0001988
2005/12/08(木) 22:48:27ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0223221
2005/12/24(土) 23:34:41ID:???やりたいことは、ソースコードをShift_Jis(cp932)で統一したいのと、
実際に、CGI.pmを使った場合でも、GET、POSTされた Shift_Jisのデータ、
正確には、URLエンコードされたもの、が正常に取得できないので、
これをどうにかしたい、ということです。
0225nobodyさん
2005/12/25(日) 10:06:00ID:MhkrUB/B0226nobodyさん
2005/12/25(日) 10:50:26ID:sTNGkhi50227221
2005/12/25(日) 12:10:36ID:???ありがとうございます。podの方はまだ少ししか読んでませんが、
>>8 の方は読んでみました。
というか、以前から読んでいましたが、理解できていなかった...
#!/usr/bin/perl
use strict;
use Encode;
use encoding "cp932";
binmode STDERR, ":encoding(cp932)";
my $wc = '%95%5C%8E%A6'; #表示
#ただのアスキーコードだけど、utf8フラグがたつ
my $nwc = Encode::encode('cp932',$wc);
#1Byte単位でpackするために、utf8フラグを落とす
$nwc =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
#utf8フラグの立っていない$nwcに対してpackする。1Byte単位で扱える
#$nwcには、cp932の生バイナリが入る
$wc = Encode::decode('cp932', $nwc);
#$nwcのままでは表示できないので、再びutf8フラグを付ける。
print $wc;
#$wcはutf8フラグが立っているので、STDOUT出力時に
#Encode::encode('cp932',$wc)が内部的には動いている
こんな理解で大体OKでしょうか？
だけど、ずいぶんと回りくどいことしていると思います。
0228nobodyさん
2005/12/25(日) 17:27:10ID:???よく分かってるじゃないか。
encoding は一見お手軽に見えるけど、使い勝手悪いよ。
日本語は全て外部ファイルに追い出すのが遥かに楽。
0229221
2005/12/25(日) 18:24:14ID:???実はencodingをはじめて知ったとき、『これは使える』と思ったのですが、
URLデコードのところで躓いて、導入をあきらめていました。
そのときは、ソースに日本語べた書きでしたが、やっぱり外部ファイルに分離
するのがいいですね。
encodingを使えば、=~(マッチ演算)などで、半角カナなど(何も考えず）上手く処理できる？
print "本能"; などが文法エラーにならないなど、メリットはありますが...
逆に使えなくなるモジュール等を考えると、デメリット(副作用)の方が多いような。
あと、何かとデバックのために Data::Dumperを使って表示するのですが、
Dumperを使って日本語(の入った変数)を表示した場合、Perl内部コードがそのまま
表示されるので、不便といえば不便ですな。
0230nobodyさん
2005/12/25(日) 18:25:21ID:???てすとhttp://hoge.hoge/index.htmlてすと
が入っていたとします。
そこで$resultに上記のURLを変換（置換）して
てすと<A HREF="http://hoge.hoge/index.html" TARGET="_blank">http://hoge.hoge/index.html<;/A>てすと
としたいのですがどうしたらよいのでしょうか？
ググったら正規表現とか出てきたのですが、良く分かりませんでした。
自分でやってみたこと
$result = $comment =~ s/(http:\/\/[^ \"\r\n\<]+)/\<a href=\"$1\" target=\_blank\>$1\<\/a\>/g;
print <<END;
$result
END
これをやったら$resultには何も入りませんでした・・・。
0231nobodyさん
2005/12/25(日) 19:29:51ID:???必要な所にno encoding入れれば、それほど面倒でもなくなるよ。
それも結構、落とし穴があったりするけど。
>>230
(my $result = $comment) =~ s/ (以下略
それと正規表現も修正。
0233230
2005/12/26(月) 00:25:11ID:???(my $result = $comment)
にしたら無事できました。
あとは正規表現を修正しようかと思って
ttp://www.din.or.jp/%7Eohzaki/perl.htm#httpURL
こちらを参考に
s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+
この正規表現を使わせて頂いたのですが
今度はURLのみ表示されません・・・。
どうしたらよいでしょうか？
0234nobodyさん
2005/12/26(月) 01:03:13ID:???TMPL_VAR で、改行コードを含んだ文字列を置換するとき
改行コードを<br>や<br/>に変換する便利な方法は無いのでしょうか。
要求される仕様上、<pre>やスタイルシートなど、<br>以外で改行させる方法は不可とします。
現状：
改行コードが自動的に置換されないので、ブラウザ上では改行されて見えない
やってみた方法：
(1) 自前で改行コードを<br>に変換、HTML::Templateのサニタイジング機能を使う
→ <br>というタグが見えてしまう
(2) 自前で改行コードを<br>に変換、HTML::Templateのサニタイジング機能を使わない
→ 正常に改行されるが、セキュリティ上かなりやばい
(3) 自前でサニタイジング、HTML::Templateのサニタイジング機能を使わない
→ とりあえず問題なく動くが面倒＆重い。他の方法はないものか？
Perlのバージョンは5。
HTML::Templateのバージョンは不明。（申し訳ない、比較的新しいとは聞いた
0235230
2005/12/26(月) 01:19:00ID:???(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$%#]+)
にしたら上手くいきました。
変更点は
（1） ()で挟んだ
（2） 後ろの方の$と%の間の,を無くした
です。
何でこうなるのかまだ理解してないので自信ないのですが
これであってますよね？
0236nobodyさん
2005/12/26(月) 02:03:15ID:???出力する文字列を配列にしてTMPL_LOOPで回すのは無し？
サニタイズぐらい自分でやれよって気はする。
>>235
括弧で挟むのは、置換するところで$1として使ってるから。
カンマは有っても動きそうだけど。
0237234
2005/12/26(月) 02:10:56ID:???まあ、サニタイジングくらい自分でやるですよ。
これくらいHTML::Templateの機能にあっても良さそうなもんなんですけどね。
0238230
2005/12/26(月) 02:18:17ID:???できなかったのは他に原因があったのかな・・・。
何はともあれありがとうございました。
0239nobodyさん
2005/12/26(月) 10:03:49ID:???Template Toolkitならhtml_line_breakというフィルタがあるので
[% foo | html | html_line_break %]
てな感じでいけるんだけどね。
use strict;
use Template;
my $t = Template->new();
my $input = <<INPUT;
[% foo | html | html_line_break %]
INPUT
my %vars = (
foo => "foo<>\nbar\n&hoge\n",
);
$t->process(\$input, \%vars);
0240nobodyさん
2005/12/26(月) 19:53:21ID:w9go55d/俺は、VC++で自分でつくったやつ使ってるよ。
上半分はエディタで、「実行」をおすと、下半分のブラウザに実行結果がでてくれるんだよ。
だれか、ほしいやついる？いるなら、Vectorにでもうｐするけど。
0241nobodyさん
2005/12/26(月) 19:59:15ID:???0242nobodyさん
2005/12/26(月) 20:09:20ID:???0243nobodyさん
2005/12/26(月) 20:15:02ID:???0244nobodyさん
2005/12/26(月) 20:20:26ID:???0245nobodyさん
2005/12/26(月) 20:21:04ID:???0246nobodyさん
2005/12/26(月) 20:42:19ID:???nameの部分は変わることがないので、これを test.cgi?XXX とゆふうに使えるようにしたいんですが
どうすればいいでしょうか？
0247nobodyさん
2005/12/26(月) 21:01:43ID:???0248nobodyさん
2005/12/26(月) 21:09:20ID:???できました！ありがとうございました！！
0249nobodyさん
2005/12/27(火) 14:36:05ID:???my $so='ソ\';
if(/\Qソ\E/){
print "含まれています。";
}
これを実行してもソがひっかかりません。
どうしてですか？
0250249
2005/12/27(火) 14:36:55ID:???○表示させたいんですが
すいません。ミスりました。
0251nobodyさん
2005/12/27(火) 15:07:40ID:???if (/\Qソ\E/) { は if ($so =~ /\Qソ\E/) { の間違いとして、
'ソ\' は "\x83\x5C" 、
qr/\Qソ\E/ は \Q\x83\\E → \x83\x5C\x5C\x45 。
よってマッチしない。
参考: http://homepage1.nifty.com/nomenclator/perl/shiftjis.htm
0252249
2005/12/27(火) 15:10:51ID:???\x83\x5cだよな。
0253nobodyさん
2005/12/27(火) 15:48:24ID:???0254nobodyさん
2005/12/27(火) 18:30:24ID:???0255nobodyさん
2005/12/27(火) 23:40:00ID:???0256nobodyさん
2005/12/28(水) 00:47:06ID:???0257nobodyさん
2005/12/28(水) 01:30:43ID:rgfSZuvi0259nobodyさん
2005/12/28(水) 02:01:04ID:???0260nobodyさん
2005/12/28(水) 09:22:40ID:???0262nobodyさん
2005/12/28(水) 09:55:45ID:???0263nobodyさん
2005/12/28(水) 10:10:27ID:???use Benchmark;
$buf = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
timethese(10000000, {
1 => sub { if($buf =~ /JKL/){} },
2 => sub { if(index($buf, 'JKL')){} },
});
----------------------------------------------------------------------
Benchmark: timing 10000000 iterations of 1, 2...
1: 5 wallclock secs ( 4.53 usr + 0.01 sys = 4.55 CPU) @ 2199736.03/s
(n=10000000)
2: 3 wallclock secs ( 1.97 usr + 0.03 sys = 2.00 CPU) @ 4997501.25/s
(n=10000000)
0265nobodyさん
2005/12/28(水) 10:34:57ID:???>>254 や >>261 は同じ人ですか？
あまり関係無いですが、if(index($buf, 'JKL')){} なんて書くのはバグの元ですよ
0266nobodyさん
2005/12/28(水) 10:38:06ID:???0267265
2005/12/28(水) 10:53:48ID:???index と正規表現の速さの違いを比べるなら支障は無いので
あまり関係無いと書いたんですが、異なる機構を比較してるのは事実ですし、
やはり目的が何であれベンチとして駄目なものは駄目、と書いた方が良かったですね。
0268nobodyさん
2005/12/28(水) 10:59:44ID:???0269nobodyさん
2005/12/28(水) 11:04:31ID:???http://boobar.hp.infoseek.co.jp/bench/index_vs_m.txt
UTF8 フラグがかんできたりするとまた違うのかも知れん。
0270253
2005/12/28(水) 11:40:27ID:???おれの意図としては速さ以前に、簡単な正規表現を正しく書けないようなら
index使えと言うほうに比重を置いたつもりだったんだが。
0271nobodyさん
2005/12/28(水) 12:31:39ID:???ここのMulti Wing BBSをDLして設定してうｐまで
終わったんですが、メインのwingmulti.cgiにアクセスして
設定したパスワードを入力しても、パスワードエラーと出ます。
何度設定しなおしてもパスワードエラーに引っかかるんですが
これって単なるバグでしょうか？
分かる方いたら、試してもらえませんか？
0272nobodyさん
2005/12/28(水) 12:33:32ID:VO6oi9GXｽﾚ （´∀｀（ ´∀｀） ﾁｶﾞｲ
0274nobodyさん
2005/12/28(水) 12:54:31ID:???設置に関する質問ならこちらへ
ＣＧＩ設置について質問 【Part2】
http://pc8.2ch.net/test/read.cgi/php/1104624784
0277nobodyさん
2005/12/28(水) 13:10:29ID:VO6oi9GXって一言書いておけばいいと思う。
0278nobodyさん
2005/12/28(水) 13:14:22ID:RY3kh/X5ありがとう。あなた達、本当に人が出来ているね。
0279nobodyさん
2005/12/28(水) 21:13:55ID:FTSvjaEDでは大丈夫だけど、
eval {
require $self->{App};
1;
};
では出来ないのってなんでですか？
0280nobodyさん
2005/12/28(水) 21:36:23ID:???0281nobodyさん
2005/12/29(木) 01:45:17ID:fGeDbioe<うにゃ> <うにゃ>
にたいして、<と>に挟まれた部分すべて(この場合3カ所)に対して処理したいのですが、どうすればいいんですか？
最短でも最長でもなく、すべてにマッチさせたいのです。
0282nobodyさん
2005/12/29(木) 02:01:56ID:???print join('/', /(?<=[<>])([^<>]*)(?=[<>])/g), "\n" for qw(
a<b>c<d>e
a>b<c>d<e
a<b<c<d<e
a>b>c>d>e
);
0283nobodyさん
2005/12/29(木) 02:20:00ID:???普通にできるが。
#--- foo.pl ---
print "foo!\n";
__END__
#!/usr/local/bin/perl -w
use strict;
my $self = { App => 'foo.pl' };
eval { require $self->{'App'} } or die $@;
eval { do $self->{'App'} } or die $@;
delete $INC{ $self->{'App'} };
eval "require '$self->{'App'}'" or die $@;
eval "do '$self->{'App'}'" or die $@;
__END__
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item_do_EXPR
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item_require_VERSION
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item_use_Module_VERSION_LIST
0284nobodyさん
2005/12/29(木) 08:24:52ID:fGeDbioe舌足らずでした。すみません。
>>281は
<はげ> <ほげ>
に対して
はげ
はげ> <ほげ
ほげ
をマッチさせたいのです。
0285nobodyさん
2005/12/29(木) 09:12:37ID:???sub match {
my($str, $match, $flag) = @_;
my $re = $flag
? qr/ (?<=<).*(?=>) | ^.*(?=>) | (?<=<).*\z /x
: qr/ (?<=<).*(?=>) /x
;
if (my @str = $str =~ /$re/g) {
push @{$match}, @str;
match($_, $match, 1) for @str;
}
}
for (qw(
a<b>c<d>e a>b<c>d<e a<b<c<d<e
a>b>c>d>e <a>b<c<d>e>f<g>
)) {
my @match;
match($_ => \@match);
print join(' / ', @match), "\n";
}
Perlでリクに答えるスクリプトを作るスレ
http://pc8.2ch.net/test/read.cgi/tech/1086143976/
■こんなCGI作ってください■ Part.2
http://pc8.2ch.net/test/read.cgi/php/1133361560/
0286nobodyさん
2005/12/29(木) 12:43:26ID:???あとみんな使ってるもの？
普通にちょっと弄って使ってる程度の人なら使わなくてもいいものかな。
今までは情報としてへ〜使った方が良いんだぐらいに考えてたんだけど、
cgi改造してたらこういうときに便利なのかなって初めて思ったので質問してみる。
0287nobodyさん
2005/12/29(木) 12:46:04ID:???規模にもよるけど、変数のスコープでバグ出すことはなくなるので使う。
ただ、改造にはあまり有用でない。（元がstrictで作られているならともかく）
0288nobodyさん
2005/12/29(木) 12:57:29ID:???うんち
しっこ
うんち
しっこ
みたいなテキストを、
うんち*3
しっこ*2
とゆうふうにカウントしたいんですが、どうすればいいかわかりません。
切り出した文字列を変数にしてカウントアップすればいいんでしょうか？
方法があればおしえてください。
0290nobodyさん
2005/12/29(木) 13:11:47ID:6Q9kRgBG$obutsu{$_}++;
}
これでおけだけど、コレからは“例”にも気を付けた方がいいかと思う。
0291nobodyさん
2005/12/29(木) 15:32:15ID:???なるほど。
こなれた人が1から組んでく時には有効って感じで考えるぐらいでよさげだね。
こまめに動作確認したり、規模が大きくなければ特に問題なそうだ。
サンクス。
0293nobodyさん
2005/12/29(木) 21:23:37ID:???0294nobodyさん
2005/12/29(木) 22:54:07ID:???そのへんの判断はもちろん自由だけれど、Perl を始めたばかりということなら何も考えずに use strict と use warnings の使用をおすすめしておく。
0295294
2005/12/29(木) 22:58:10ID:???と一応補足。
0296nobodyさん
2005/12/30(金) 02:50:44ID:???0297nobodyさん
2005/12/30(金) 04:40:27ID:???0298nobodyさん
2005/12/30(金) 05:19:31ID:???0299nobodyさん
2005/12/30(金) 05:53:13ID:???0302nobodyさん
2005/12/30(金) 07:53:10ID:???KENT WEB 総合スレ Part2
http://pc8.2ch.net/test/read.cgi/php/1078991985/
0303nobodyさん
2005/12/30(金) 15:49:53ID:???動けばイイや程度で書いてるとソースが汚いし無駄ばかり
挙げ句に処理も遅く回りくどいことをして回りからはバカにされる
俺のポジションはアイデアの参照スクリプトだけで他の奴が清書する
情けないポジション「抜けようか？」と言うと、それはマジに困ると言うから
何か晒し者のように顔色を伺いながらメンバーに居る感じである。
スキルのチョイとある新参の中堅に笑われて不用みたいに言われ続けﾊｩｩ
0304nobodyさん
2005/12/30(金) 18:16:33ID:???プログラム言語の最低限の知識だけのプログラマ
http://pc8.2ch.net/test/read.cgi/prog/1135701242/
■■■技術を習得するのが辛い■■■
http://pc8.2ch.net/test/read.cgi/prog/1118856179/
ぐち0x13 〜分かったから仕事させてくれ〜
http://pc8.2ch.net/test/read.cgi/prog/1131375876/
年末年始の休み雑談
http://pc8.2ch.net/test/read.cgi/prog/1135924708/
0305nobodyさん
2005/12/31(土) 00:50:18ID:LK7Aj/aS------------------
#[0]は一意なid
my @a = ('aioue', 'sdfgsdf', 100, 'dsfhsf', 2);
my @b = ('noriri', 'sdfgsdf', 100, 'dsfhsf', 2);
my @c = ('nanndemoi-', 'sdfgsdf', 100, 'dsfhsf', 2);
my @arrr;
push @arrr, (\@a, \@b, \@c);
------------------
上記の@arrrのような二次元配列から、
例えば配列の頭に「noriri」が格納されている行を取り出したい場合、
どのようにして該当する行を求めるのが好ましいでしょうか。
ベタベタに考えると
------------------
my $stmp = 'noriri';
my $pt;
foreach (@arrr) {
if ($${$_}[0] eq $stmp) {
$pt = $_;
}
}
------------------
という感じになってしまうのですが…
もっと効率のいい方法は、ありますでしょうか？
ご教授お願いしますm(_ _)m
0306nobodyさん
2005/12/31(土) 01:48:39ID:???[0] が一意である事が保証されるなら最初からハッシュで持てばいい。
もしくはそのように加工後、$arrr{$stmp} のようにアクセス。
順序が必要なら順序のデータを持たせればいい。
my %arrr = (
aioue => [ 0, 'sdfgsdf', 100, 'dsfhsf', 2 ],
noriri => [ 1, 'sdfgsdf', 100, 'dsfhsf', 2 ],
'nanndemoi-' => [ 2, 'sdfgsdf', 100, 'dsfhsf', 2 ],
);
これらの前処理に問題があるなら素直に君が書いたように処理。
0308nobodyさん
2005/12/31(土) 02:25:02ID:???「列を検索して行を特定する」ことが目的なら、行と列の置き方が逆の気がする。
マスターキーが決まってるならもちろんハッシュを利用するけど。
my @a = ('aioue', 'noriri', 'nanndemoi-');
my @b = ('sdfgsdf', 'sdfgsdf', 'sdfgsdf');
my @c = (100, 100, 100);
my @d = (2, 2, 2);
0309ヽ(´ー`)ノ ◆.ogCuANUcE
2005/12/31(土) 03:52:04ID:???構造を変更しない、もしくは前処理をしないのが前提なら高階関数の方が
好みかなぁ。
use List::Util qw(first);
my $pt = first { $_->[0] eq 'noriri' } @arrr;
0310nobodyさん
2006/01/03(火) 01:42:04ID:???> "Class::DBI::Sweet" at /usr/share/perl5/Class/DBI/Sweet.pm line 630."
これって、どうやったら解決できる？
0311nobodyさん
2006/01/03(火) 04:24:03ID:???0312nobodyさん
2006/01/03(火) 15:22:09ID:lh2VfF1u{ "title"=>"Config A", "name"=>"A", "type"=>"TEXT", "value"=>"352" },
{ "title"=>"Config B", "name"=>"B", "type"=>"TEXT", "value"=>"" },
{ "title"=>"Config C", "name"=>"C", "type"=>"TEXT", "value"=>"" },
];
連想配列の配列を作ってみたのですが、これでlength($Defs)とすると16が帰ってきます。
これをループで処理するために3を得たいのですが、どうすればいいのでしょうか？
0313ヽ(´ー`)ノ ◆.ogCuANUcE
2006/01/03(火) 15:36:00ID:???foreach my $it (@$Defs) {
# 各要素は $it でアクセス
}
もしくは、
for (my $i = 0 ; $i < @$Defs ; ++$i) {
# 各要素は $Defs->[$i] でアクセス
}
0314nobodyさん
2006/01/03(火) 18:10:35ID:6LWi5P1Tどうみてもソースが汚いです。
use strict;なｽｸﾘﾌﾟﾄに修正してもらえませんか？
サブルーチン初めてなので間違いが多いと思うのでアドバイスお願いします
#!/usr/bin/perl
my $time = &Get_Time;
print "content-type: text/html\n\n";
print "$time\n";
exit;
sub Get_Time{
my $times = time();
my($sec,$min,$hour,$mday,$month,$year,$wday,$stime) = localtime($times);
my @week = ('日','月','火','水','木','金','土');
my $time = sprintf("%04d\/%02d\/%02d\(%s\)%s%02d\:%02d:%02d",$year+1900,my $mon+1,$mday,$week[$wday],my $aft,$hour,$min,$sec);
return $time;
}
0315nobodyさん
2006/01/03(火) 18:27:27ID:???0317３１４
2006/01/03(火) 18:37:03ID:???このままで良いという事ですか？
( ﾟДﾟ )
それじゃあもうひとつだけお願いします。
サンプルから引き抜いた部分が多いので、$monと$aftの意味が良く分からないのですが、
表示に影響もないみたいなので、削除しても大丈夫なんでしょうか？
0318nobodyさん
2006/01/03(火) 18:40:34ID:QwphIqM20319nobodyさん
2006/01/03(火) 18:42:12ID:???あ、ちょっと待った。機能的な部分まで見てなかったｗ
$monは$monthのつもりで間違ってるんだろうし（今は0+1月だから問題ないように見えるが）
$aftは何したいのか良くわからんし。自分で流れをよく追ってごらん。
0320３１４
2006/01/03(火) 18:48:13ID:???見逃してた訳ではなかったんですが、おかげさまで理解できました。
ありがとうございました。
他にも見つかったらレスお願いします
■ このスレッドは過去ログ倉庫に格納されています