Perlコーディング初心者質問スレ Part 40

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10

関連スレ
△▲　WebProg 初心者の質問 Part11　▼▽
http://pc5.2ch.net/test/read.cgi/php/1101635909/

CGIだけど、なんか質問ある？ Part 12
http://pc5.2ch.net/test/read.cgi/php/1097334246/

【Perl,CGI】参考書籍 第三版
http://pc5.2ch.net/test/read.cgi/php/1030209573/

【Perl】ファイルロック(排他処理)について語ろう
http://pc5.2ch.net/test/read.cgi/php/1024795138/

★負荷軽減対策委員会（Perl、PHP)★
http://pc5.2ch.net/test/read.cgi/php/1034645635/

Perlモジュールについて
http://pc5.2ch.net/test/read.cgi/php/997829243/

CGIに依存しないPerlの話題一般/Part2
http://pc5.2ch.net/test/read.cgi/php/1030548610/

★三　【 スクリプト改造工房 PART 8 】　★三
http://pc5.2ch.net/test/read.cgi/php/1077525387/

【 スクリプト改造依頼スレ 】(丸投げ) part3
http://pc5.2ch.net/test/read.cgi/php/1105046286/

［過去ログ] 1 of 2

Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980　参照不能
　DAT: http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087　参照不能
　DAT: http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521　参照不能
　DAT: http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156　参照不能
　DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part5　http://pc.2ch.net/php/kako/988/988728069.html
Part6　http://pc.2ch.net/php/kako/996/996075607.html
Part7　http://pc.2ch.net/php/kako/1000/10002/1000267444.html
Part8　http://pc.2ch.net/php/kako/1003/10039/1003900311.html
Part9　http://pc.2ch.net/php/kako/1009/10095/1009549309.html
Part10 http://pc.2ch.net/php/kako/1014/10145/1014556702.html
Part11 http://pc.2ch.net/php/kako/1017/10172/1017201229.html
Part12 http://pc.2ch.net/php/kako/1019/10199/1019917048.html
Part13 http://pc.2ch.net/php/kako/1022/10227/1022731565.html
Part14 http://pc.2ch.net/php/kako/1026/10269/1026977659.html
Part15 http://pc.2ch.net/php/kako/1028/10288/1028816385.html
Part16 http://pc.2ch.net/php/kako/1032/10320/1032070299.html
part17 http://pc.2ch.net/php/kako/1034/10345/1034583844.html
part18 http://pc.2ch.net/php/kako/1037/10377/1037797479.html
part19 http://pc.2ch.net/php/kako/1042/10422/1042260745.html
part20 http://pc2.2ch.net/php/kako/1044/10447/1044717887.html (タイトルに19と誤記)

[過去ログ] 2 of 2

part21 http://pc2.2ch.net/php/kako/1047/10479/1047980851.html
part22 http://pc2.2ch.net/php/kako/1050/10503/1050369328.html
part23 http://pc2.2ch.net/php/kako/1053/10530/1053051519.html
part24 http://pc2.2ch.net/php/kako/1054/10549/1054992610.html
part25 http://pc2.2ch.net/php/kako/1056/10567/1056730690.html
part26 http://pc5.2ch.net/php/kako/1059/10590/1059043704.html
part27 http://pc5.2ch.net/php/kako/1060/10608/1060808783.html
part28 http://pc5.2ch.net/php/kako/1063/10635/1063562491.html
part29 http://pc5.2ch.net/php/kako/1066/10662/1066286828.html
part30 http://pc5.2ch.net/test/read.cgi/php/1069846177/
part31 http://pc5.2ch.net/test/read.cgi/php/1072896288/
part32 http://pc5.2ch.net/test/read.cgi/php/1075545279/ (タイトルに31と誤記)
part33 http://pc5.2ch.net/test/read.cgi/php/1078076768/
part34 http://pc5.2ch.net/test/read.cgi/php/1081148490/
part35 http://pc5.2ch.net/test/read.cgi/php/1085557731/
part36 http://pc5.2ch.net/test/read.cgi/php/1089779036/
part37 http://pc5.2ch.net/test/read.cgi/php/1093106507/
part38 http://pc5.2ch.net/test/read.cgi/php/1097158988/
part39 http://pc5.2ch.net/test/read.cgi/php/1101522903/ (前スレ)

ム板Perlスレより

[プログラミング自体の経験が無い奴はまずココを読め]
Perlプログラミング講座: http://www5a.biglobe.ne.jp/~n_rieko/perl/

[本]
リャマ: http://www.oreilly.co.jp/BOOK/lperl3/
駱駝: http://www.oreilly.co.jp/BOOK/pperl3v1/
Effective Perl: http://www.ascii.co.jp/books/detail/4-7561/4-7561-3057-7.html
クックブック: http://www.oreilly.co.jp/BOOK/pcook/

[オンラインマニュアル]
Perldoc.com: http://perldoc.com
perldoc.jp: http://perldoc.jp
perl5.005_03 のドキュメント: http://www.kt.rim.or.jp/%7ekbk/perl5.005/

[モジュール]
CPAN.com: http://search.cpan.org/
河馬屋二千年堂: http://member.nifty.ne.jp/hippo2000/

[テクニック]
Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
Perlのページ: http://homepage1.nifty.com/nomenclator/perl/

即死回避兼ねて>>1乙

>>1
ぼみょー

やりたい事はハッシュの配列をサブルーチンで作り
それを受け取って表示したいのですが・・・。

sub test {
　my ( $ref ) = @_;
　$ref->[1]->{'a'} = "A1";
　$ref->[1]->{'b'} = "B1";
　$ref->[2]->{'a'} = "A2";
　$ref->[2]->{'b'} = "B2";
}
↑こんなサブルーチンを作って

my ( @data, %tmp1, $tmp2 )
test( \@test );
foreach $tmp1 ( @data ) {
　foreach $tmp2 ( keys %tmp1 ) {
　　print qq($tmp2=$tmp1{$tmp2},);
　}
　print qq(|,);
}
↑こういう呼び出しを書いたのですが
a=A1,b=B1,|a=A2,b=B2,|
という結果を期待したのですがなにも表示されませんでした。

これを期待どうりにするには、何処をどうすれば良いのでしょうか？

誤 test( \@test );
正 test( \@data );
…です。

自己解決しました。
foreach $tmp2 ( keys %$tmp1 ) {
　print qq($tmp2=$tmp1->{$tmp2},);
}
これで解決しました。
…ところで、サブルーチンの中の
$ref->[1]->{'a'} = "A1"; 等は
$ref->[1]{'a'} = "A1"; でも同じ結果なのですが
どうしてなのでしょうか？

>>10
ブラケットとブレースの間にはさまれた矢印は
省略可能だから。

ラクダ本3版8.3.3「矢印演算子を使う」参照。

まいったわ

test.txtの中に
%hash = (
"a-1" => "今日はお日柄もよく・・・",
"a-2" => "今日はみなさんに大切なお話があります・・・"
);
というスクリプトを書いています。

これをメインで
open FH,"test.txt";
eval FH;
close FH;
print %hash;

としてみたのですが、何も表示されません。
test.txtを１行にして、
eval <FH>;
とすればできるんですが、１行にすると見づらくなってしまいます。

何か方法はありますか？

>>13
doとかrequireを調べてみるといいかも。

でもそれよりファイルフォーマットを決めて
%hashにその値を読み込むルーチンにした方が
幸せになれると思う。

>>13
eval <FH>;じゃないの？

>>15
そういう話じゃないから。

>>13
if (open FH,"test.txt") {
　　local $/;
　　eval <FH>;
　　close FH;
}
print %hash;

特殊変数 $/ について調べてみ

(^-^)/

>>13
test.txtのパーミッションはしっかりしておいてね。
万が一でも書き換えられたら目も当てられないから｡

前スレ>>991
・カンマ演算子はリストを作る。
・リストをスカラーコンテキストで評価すると最後の要素が返る。
・式の中に別の式を埋め込みたかった。
これで察してください。

>>14-19
一杯ありがとうございます！
とりあえず応急で
eval join '',<FH>;
で済ませてしまいましたが、やはり色々なやり方があるのですね。

>>14さんがいうようにperl構文をそのまま入れるならtextファイルにする意味も
微妙なところなんですが、実は結構値が長文だったりするのです；

目的は素人でもテキスト自体を追加・修正できるようするためです。
外部ファイルにして一定のわかりやすいフォーマットにするというのが前提だったのですが、
csvもどきだと長文がはいると行・列が把握しづらくなってしまいます。

できれば本当は"a-1"の中にハッシュリファレンスを入れて10項目くらいの
プロパティ的なものをもたせたいんですが、複雑化すればするほど
csvって視認性が悪くなるんですよね。

掲示板などのdatファイルってどうやってるんでしょうか？
視認性がよく、プログラムでの処理もしやすいものがいいんですが・・・

場合によってはPerl以外のプログラム言語でも使用するのでやはり現状の
Perlの構文そのまんまっていうのはいまいちですよね。

みなさんが掲示板など作るときに作るdatのフォーマットなどを参考に聞かせていただけると
助かります。

$hoge =~ /a (\w*?) go/;

これで$1の中にマッチした文字列が入りますが、
$1って1回中身を参照したら削除されてしまうのですか？

($a) = $1 =~ /\d/;
($b) = $1 =~ /[a-zA-Z]/;

試しにこういうことをしたら後からやるほうには何も代入されないんです。
windows版activePerl5.6.1での話です。

もしも$1の中身を何度も参照したければ一旦他の変数に入れる以外に策はありませんか？

>>22
中身を参照したら消えるのではなくて次のパターンマッチ成功
またはブロックの終わりまで有効なのだが、どちらにせよそれを
越えて値が必要なら変数なりなんなりにしまっておくしかないね。

そういうことですか
レスありがとうございます

for文でインクリメントする時は
　for(1..100)
って書けるけどデクリメントする時はどう書くんだろう？
　for(100..1)
は無理だよね。

>>25
http://perldoc.com/perl5.8.4/pod/func/reverse.html
for (reverse 1..100) { ... }

すみませんCのwindows.hに入っているSleep関数とperlのsleep関数の違いはなんですか？

>>27
http://perldoc.com/perl5.8.4/pod/func/sleep.html
http://www.microsoft.com/japan/msdn/library/ja/jpdllpro/html/_win32_sleep.asp

if($ENV{'HTTP_USER_AGENT'} =~ /$_/){
$flag = 1;
}
どうしてもこれが上手く行きません。
なぜなのでしょうか？
ご教授お願い親します。

>>29
追加。
$_に入るのは
DoCoMo/2.0 F900i(c100;TB;W22H12)
です。

>>29
括弧が正規表現の括弧として扱われている。
クオートメタするか、eq演算子やindex関数を検討。

>>30
カッコやピリオドは正規表現のメタキャラクタなので
そのまま埋め込むと別の意味になってしまう。

if($ENV{'HTTP_USER_AGENT'} =~ /\Q$_\E/){
$flag = 1;
}

とかすればいいだろう。

よくわからんが、
$ENV{'HTTP_USER_AGENT'} と $_ をプリントして同じものか見れば？
単に$_ にセットされていないって話じゃないだろうな。

\Q$_\E
だけでは上手く行かず
my(@data) = ("$tmpDefine[0]","$tmpDefine[1]");
と配列に入れるさいに""をつけて解決しました。
ありがとうございました。

>>34
後半はundefが空文字列に変換されるあたりの関係かねぇ。

test.cgiをｅｕｃで書いて、シフトjisで出力するにはどう書いたらいいのですか？
携帯で見れるようにしたいのですが文字化けしてしまいます。
jcode.plはあるのですがどう使っていいのかわかりません。
perlコーディングというかプログラム自体初めてです。
文字コードのことがよくわかりません。
わかりやすいサイトなどありましたら教えてくださ
どれではおながします

最初からShift_JISで書け。
そしてスクリプト内で
use encoding 'Shift_JIS';
と宣言しろ。

>>36
最後の2行、グダグダやね。

>>36
CGIの中には日本語を一切書かない。
HTMLの類はすべて外部ファイルに。
これで解決。

>>36
nkfでShift-JISに変換してしまっては？
test.cgiをまた編集したくなったらnkfでEUCに。
ちょっと面倒だけど。

>29-34を読んで、気になったのでお聞きしたいのですが、
--------------------------------------------------
#@ip_listは下記のようなリストです。
@ip_list = ('333.139.141.','333.20.117.','333.255.29.');#という感じ

$addr = $ENV{'REMOTE_ADDR'};
foreach (@ip_list){
　　if ($addr =~ /^$_/){
　　　　$flag = 1;
　　last;
　　}
}
--------------------------------------------------
これで一応うまくいっていたので、これまで何も考えて無かったのですが、
これは「.」が正規表現のメタ文字で「任意の1文字」なためにたまたまうまくいってただけで、
　　if ($addr =~ /^$_/)
は
　　if ($addr =~ /^\Q$_\E/)
とした方がいいのでしょうか？

>>41
アホ。
$_内にピリオド等のメタ文字が入っていてもメタ文字評価されるわけないだろ。

>>42
おまいがアホ。されるっつーの。

>>41
yes.
今まではたまたまうまくいってただけ。
エスケープしたほうがいいな。

マッチする相手が正しいipアドレスならば
パターンの「.」の部分が数字にマッチするよう
だとたいていはアドレスの中の「.」がパターン
の中の数字の位置に来るような気がするので
かなり必然に近い偶然とはいえるな。

しかしだから大丈夫だということを証明しようと
がんばるよりは素直にエスケープしとけ。

>>41
これでもOK。
@ip_list = map{ quotemeta } ('333.139.141.','333.20.117.','333.255.29.');

みなさん、どうもありがとうございました。
考えてみたら、
if ($addr =~ /^333\.139\.141\./)
ひとつだけの場合だったらこうやってエスケープして書いているのに、
リストの要素ひとつひとつとの比較の場合はエスケープしてないっておかしいですよね。
ちゃんとエスケープ処理をするよう気をつけたいと思います。

>46さん
map関数調べてみました。
こういう便利な関数もあるんですね。たいへん勉強になりました。

質問です。

|ddddddd|momddomo|aaaaaaaaaa|
|wwwwwww|fddddddd|ssssssssss|
|eeeeeee|pppppppp|rrrrrrrrrr|

'|'を区切りとしてテーブルタグに変換させる正規表現
を作れる人いませんか？

どうか宜しくお願い射ます

>>48
何を「どのように」変換したいのかをはっきりさせてから↓で聞いてください。

正規表現道場@2ch Part4
http://pc5.2ch.net/test/read.cgi/php/1105930285/

そもそも'333'で始まるIPアドレスって存在するの？

ただの例だろ

ですよね（苦笑）
でも、一致しないときは全部サーチしなきゃだから、やっぱりハシュに入れちゃった方が効率よさそうですね。

Perl であるシンボリックリンクを調べて、リンク先のファイルのフルパスを
知りたいのですが、どう書けばよいのでしょう?

system で、ls -l した結果を切り貼りすれば、とりあえずできそうなのですが、
もう少し何か方法がありそうな気がしまして。

>>43
マジかよ！？
何でそんなセキュリティホール量産体制を作っちゃうのよ？
ユーザが送ってきた文字列を正規表現に使う前にサニタイジングしないと
いけないなんて面倒じゃないか？

っていうか何のメリットがあってそんな仕様なんだ？

perl=CGIと思い込んでる奴がまた一人

>>53
readlink

みなさまへ
「／ほげほげ」という文字を消したいんですよ。
$line =~ s|／ほげほげ||g;
↑で消えないんですが、どうしてって気持ちです。
「ほげほげ」だけなら↓で消えるのですが。「／」←コイツ(全角)が消えないのです。
$line =~ s|ほげほげ||g;
どうしてご存じかいませんか？

↑日本語になってないぞ。自己っす。

$line =~ s\Q／ほげほげ\E||g;
か？

$line =~ s|\Q／ほげほげ\E||g;
こうだったか…orz

>>57
別の話になるが、マッチするしないは見た通りと一致しないこともある。
暇があったらこういうのも読んでおくといい。
http://homepage1.nifty.com/nomenclator/perl/shiftjis.htm

↑あ、なった！
ありがとう・・・・・
(>_<)
今日一日はずっとこれ考えてました。
早くココで聞けばよかった…

全角の「／」も、それなりの仕事をしていると、今日初めて知りました。。。
今まで、全角はずっと文字あつかいでした。

>>54
>っていうか何のメリットがあってそんな仕様なんだ？

多分、\Q と \E をタイプする程度のことに文句を言うユーザを
排除しようとしたんじゃないかな。

>>63
SJISで書いただけじゃねーの?

「／」は815eだから正規表現のメタ
文字の「^」を含むので。

use encodengする場合除いてSJISで
スクリプト書くとはまるからやめた
方がいいと思う。

$| = 1;
プログラムの冒頭に書いてあるこれはどういう意味でしょうか。

>>66
perlvar(1)よめ

my ($a,$b) = qw/1 2 3 4 5/;

こういう場合って345はどこへいくんですか？
テストしたら$a==1,$b==2でしたので、$bの中身が後続で上書きされ続ける
ような動作はしないことを確認しました。

メソッドからの返り血が複数で合った時に受け取り側ではリストを用意さえすれば
リストの数が合わなくても前列のみが必要な時は通用するんですね。

>>68
捨てられるだけ。ラクダ本3版の「2.8.1リスト代入」を読むことをお勧めする。

>>68
別に前列だけじゃなくてもいいし

皆さんはリスト返す関数の途中の値がいらないときは

($x, undef, $y) = foo();

と

($x, $y) = (foo())[0,2];

のどっち使いますか?

私は拾う値が少ないときは後者、捨てる値が少ないときは前者で
ビミョーなときはなんとなく気分で使い分けなんですが。

2 が最後の値だ、ということは第三者には分からないし、
最後が 2 番目だという保証もないので前者でしょ。

後者しか使わんな

Shift_JISのマルチバイト文字列を正確にURIエスケープしたいんですが
Perlメモにある

$str =~ s/(\W)/'%' . unpack('H2', $1)/eg;

このスクリプトはeucを前提にしてるようですが
Shift_JISでは間違った置換をする可能性がありますか？

基本的には大丈夫なような気がするんですが；
一応まだ間違う瞬間を見つけれてませんし・・・
不安なので宜しくお願いしますm(_ _)m

SJISの1バイト目だけがエスケープされて2バイト目（たまたま\wと一致）はそのまま
というケースが多数出てきそう

実用上は支障なさそうだが
はたしてそれって「正確にURIエスケープ」したと言ってよいものなのか?

>>75
やはりそういうことが起きるのですかorz
Shift_JISの文字列を正確にURIエスケープするのは無理なのでしょうか？

>実用上は支障なさそうだが
・・・？
あ、もしかしてエスケープする時点でバイトの途中で区切られても大抵の
アンエスケープ処理後に何の問題も起こらないということですか？

それならうれしいのですが・・・・

>>76
EUC前提とは書いてあるが、Shift_JISやUTF-8でも全然問題ない。気にするな。

>>77
それなら安心です。
ありがとうございましたm(_ _)m

Shift_JIS って限定するなら、ちゃんと場合分けでやればいいんじゃねーの？ とも思うが。
ひとつ前の文字が [\x81-\x9f\xe0-\xfc] の範囲なら [\x40-\x7e] も置換する、とか。

perlを使い背景に画像を持ってきたいんですがうまくいきません。
backgroundでは駄目なんでしょうか？

perlを使い魚沼産コシヒカリを炊いたのですが美味くありません。
evianでは駄目なんでしょうか？

ってかマルチ

1, 10歳の消防
2, 真性の馬鹿
3, 実はインド人だ

はじめまして。perl初心者です
今gazou.cgiの直下にgazouフォルダがあり中にはn個のjpg画像があります。
これをgazou.cgiが呼ばれたら、ｊｐｇ画像があるだけ（ｎ個）htmlで出力したいのですが
どう書いたらいいのでしょうか？ちなみに10個ごとに改行を入れたいのですが、そういうことは可能なのでしょうか？

もしよろしければご教授ください。

>>84
あるディレクトリに入っているjpgファイルの一覧ページを作りたいのなら可能。
自分でできるだけのことをやって、行き詰まってからまたおいで。

今日からperlでCGI作るどーって意気込んだはいいけどapacheの設定が難しくて
4時間かけてやっとhello.cgiを動かした俺。

てめぇらなんかに負けるものかぁぁぁぁぁぁぁぁぁてかﾊﾗﾍｯﾀｧｧｧ

>>86
スレ違いなので他でほざけ

#!/usr/bin/perl
require './jcode.pl';
$dir = "./img/";
$title = "画像リンク";

opendir DIR, $dir;
@files = grep { !m/^(\.|\.\.|Thumbs\.db)$/g } readdir DIR;
close DIR;

if ( @files ) { &htmlheader;
exit;}

sub htmlheader {
$GAZOU = "画像";
$p= <<"HTML";
<HTML><HEAD><TITLE>$title</TITLE></HEAD><BODY>
HTML
&jcode'convert(*p,'sjis');
&jcode'convert(*GAZOU,'sjis');
print "Content-type: text/html\n\n";
print $p;
foreach $a (@files){
$a =~ s/\.jpg//g;
print "<a href=$dir$a>$GAZOU</a><br>";
}
print "</body></html>";
}
>>84ですが一応あるディレクトリに入っているn個のjpgファイルへのリンク集を作ることはできました。上の汚いソースがそれです。
ですがたとえば10個ごとに改行を入れることや、100個ごとにべつのファイルを作成といったことはできるのでしょうか？
見当がつかなくここの先輩方にご教授いただけたら幸いです。

foreachのどこかに、毎回＋１される変数用意。
後は、条件分岐でごにょごにょと指定するだけ。

ほれ、改行だけ入れてやったぞ

#!/usr/bin/perl
$w=10;
print join"\n",'Content-Type: text/html','','<table>',map('<tr><td>'.
join('</td><td>',@$_).'</td></tr>',do{$otakara[$i/$w][$i++%$w]=
qq{<img width="80">}while<img/*.jpg>;@otakara}),'</table>';

@arrayの最後の要素を参照したいんですが、下記の方法で大丈夫ですか？

@array[-1]

確か以前にマイナス値を与えると逆から数えると読んだのですが、今探しても
そのソースが見つからないのでお願いします。
一応動作はうまくいってますが、@array[$#array]とは違う働きをする瞬間が
存在したら怖いので賢者に聞きにきました。

>>91
http://www.kt.rim.or.jp/~kbk/perl5.005/perldata.html#Variable_names
http://www.kt.rim.or.jp/~kbk/perl5.005/perlfaq4.html#What_is_the_difference_between_
http://www.kt.rim.or.jp/~kbk/perl5.005/perltrap.html#General_data_type_traps

-1で検索しても該当箇所が見つかりません・・・・・・

私が思っているほど-1についての動作は単純じゃないんでしょうかorz

>>89
ありがとうございます。これからいろいろ試してみたいと思います。
>>90
わざわざコードをかいてもらって本当ありがとうございます。
これから解読しつつ試してみたいと思います。

>>93
ちゃんと読みなよ。日本語で書いてあるんだから。

(Arrays)
配列の添え字が負であったとき、それは配列の終端から数えられるようになりました。


@a = (1, 2, 3, 4, 5);
print "The third element of the array is $a[3] also expressed as $a[-2] \n";


# perl4 の出力: The third element of the array is 4 also expressed as
# perl5 の出力: The third element of the array is 4 also expressed as 4


つまりPerl5からは-1と$#arrayは同じ作用をするってこった。
まあ巷のPerlはほぼ5だから気にせず使えよバカ。

素朴な疑問なのですがよろしいでしょうか？
foreachなどのループ文を書くときによく何回目のループかを知りたくて
my $i = 0;
foreach.....$i++;.....

のようにして$iを使用しますよね。
これはきっと昔から使われている手法だと思います。
でもちょっと面倒ですよね。

そこで思ったのですが、何故にデフォルトで何回目のループかを専用の特殊変数
に代入するような仕様にならないのでしょうか？

例えば
@+R
などを作って内側から１つ目のループが何回目かを調べる時は
$+R[0]
で、こういう感じで実装してあると結構便利だと思います。

まあ何故に仕様がこうであるかはここで言ってもしょうがないですし、
素人の脳みそでは理解できない事情があるのかもしれません。

こういう特集変数めいたものを自分で作ることは可能でしょうか？
例えばhogeモジュールをuseすれば自動的にそういう特殊変数が作成されるような。

しょうもないことですがあると便利だと思うんですよね。

必ず使うとも限らないのにそんな実装してパフォーマンス落とすなんて・・・

>>97
for(my $i = 0; $i < @array; $i++){
# ...
}

>>97
whileのループならあるよ

>>98
パフォーマンスの問題でしたか。
そうですよね；
>>99
for以外のループ文でも使えないと・・・・・
それに汚いですよね。
>>100
どういうことですか？whileだけ特殊変数が用意されてるんですか？
ちょっと特殊変数一覧見直してみますm(_ \)m

>>97
何が面倒なのかわからないんだが

そういうループをするためにfor文があるんじゃないのか。

84ですが皆様のおかげで目的のものが一応出来ました。ありがとうございました。

rename関数を使ったファイルロックを考えています
#施錠
$try=3;
while(! rename('off.loc','on.loc')){
　if(--$try <= 0){die;}
sleep(1);
}
#解錠
rename('on.loc','off.loc')

ただ、これでは施錠してから解錠する間にプロセスが逝った時施錠されたままになってしまいますが、
そこで、最後にrenameした時間を求めるにはどうすればよいのでしょうか

>>105
http://www.din.or.jp/~ohzaki/perl.htm#File_Lock

しかしたかがロックをいちいち書くのめんどくさいよな。
cpan検索するとないわけではなくて結構たくさん出て来
るんだがどれがいいんだかよくわからん。

でもhttpで何かゲットというとLWP使えって速攻で返って
くるのに、ロックだとそういうの見たことないし、実は
どれもあまりよくないというオチだろうか?

>>107
まぁ99%はflockを使ってるだろうからな。

そのflockが環境によっては動かなかったりするからだろ。

>103
では配列を取り出し名がらやるにはどうやるんですか？

>>110
@array = (1,2,3,4,5);

for ($i=0; $i<=$#array; $i++) {
　print $array[$i];
}

>>109
きょうび、flockが動かないサーバーなんてあるか？

flockの仕様がやや使いづらい、というのなら分かるがな。
そういう意味ではPerlメモで紹介しているmkdirによるlockを使うことも十分あり得る。

指定したweb上のファイルを取得して、上書き保存したいんですが
以下のように書いても動きませんでした。
何が間違ってるか教えてください。

#!/usr/local/bin/perl

require 'extlib/LWP/Simple.pm';

use LWP::Simple;
$doc = get('http://www.xxx.com/xxx/test.html');
$filename = "./data/test.html";
open( FH , ">$filename" );
print FH $doc;
close( FH );
exit( );

__END__

>>113
何がどう動かなかったのか。

>>113
require 'extlib/LWP/Simple.pm';

と書く芸風ははじめてみたがそれは置いといて、

$doc = get('http://www.xxx.com/xxx/test.html');
defined $doc or die "cannot get";

と

open( FH , ">$filename" ) or die "cannot open: $!";

ぐらいはしろよ。どこでだめになったかさっぱりわからんだろ。

どうせまた500エラーに頼ってんだろうよ

質問させて下さい。
Ｗｅｂ板の内容でしたらすいません。

print "<SELECT NAME=\"nenrei\">\n";
print "<OPTION VALUE=\"10\">10\n";
print "<OPTION VALUE=\"20\">20\n";
print "<OPTION VALUE=\"30\">30\n";
print "</SELECT>\n";

と表示させ、事前にselectedで選択させるのではなく、後から変数の値
を参照し、変数値が10だったら10を、20だったら20を、30だったら30を
選択した状態にしたいのですが、良い方法はないでしょうか？

>>117
選択状態にするには、次のようにselected を付ける。
<option value="value" selected>

>>118
いや、>>117は動的にselectedを付けたいと言う

>>117
条件分岐して selected 付きprintしたりしなかったりしたりしなかったりしたりしなかったりしたりしなかったり…
すればいいんじゃないの？

$hoge{$hensuu} = " selected";

print qq{<OPTION VALUE="10"$hoge{10}>10\n};
以下略

"をエスケープするのは個人的に好きじゃない

for (1..10) {
    print qq|<option value="$_"|;
    print qq| selected| if $str eq $_;
    print qq|>$_</option>\n|;
}

こうかな？

>>121
print qq{<OPTION VALUE="10"$hoge{$hensuu}>10\n};
じゃないの？

申し訳ありませんが質問させて下さい

cgiの入力フォームで送信ボタンを押した後など
ブラウザでリロードを行うと同じ処理が繰り返し行われてしまいます

そのせいで、例えばリストの中の２番目のデータを削除していた場合
リロードの度に新しく２番目となったデータが削除されていってしまうのですが
こういった場合に、ある程度経験のある方は
どのようなやり方で解決しているのかお伺いしたいのですm(__)m

>>124
2chの書き込み後の処理をまねてみるとか。。

>>124
refreshを使いなさいという事です。
頑張って下さい。

>>113
require 'extlib/LWP/Simple.pm';

と書く不思議コーディングはははじめてみたがそれは置いといて、

dataディレクトリがないだろ。

>>124
1.locationやrefreshで飛ばしてブラウザにGETメソッドを記憶させる。
2.最後の投稿を記録しておいて、二重投稿(この場合削除)をチェック。
3.削除する前に確認画面を出す。
4.固有の番号指定で削除するようにする。

>125
2chの書き込み後の処理というのは、やはり入力フォームと表示部を分けるということでしょうか
確かにそれが一番いいのかもしれませんね
でもできればフォームと一体型で、根本的な解決方法がないものか気になるのでもう少しこのまま頑張ってみます
ありがとうございましたm(__)m

>126
refleshというものがあるのですね
これから検索をして勉強してみたいと思います
ありがとうございましたm(__)m

>128
おお、具体的な方法を４つも教えて頂いて本当に感謝です
１番目の方法だけまだ勉強不足で分からないので、いろいろ試してどの方法が一番いいか考えてみます
本当にありがとうございましたm(__)m

送信ボタンを押した後に画面を偏移させないの？
そういえばどこかの掲示板の作者がサポートの質問で
で二重投稿になるのは仕様だとバカみたいなこと平気で言ってたな

>128
1はよく使われるけど、ボタンの2度押しは防げないよね。
手軽で便利なんだけど。

入力フォームでセッションID食わせて先着1名様有効が
確実じゃないかと。

二次元配列の中身をテーブルにして出そうと思ったんですが・・・

$tbl[0][0] = "00";
$tbl[0][1] = "01";
$tbl[1][0] = "10";
$tbl[1][1] = "11";

print "<TABLE BORDER=1>\n";
foreach $value (@tbl) {
　print "　<TR>\n";
　foreach $value2 (@value) {
　　print "　　<TD>$value2</TD>\n";
　}
　print "　</TR>\n";
}
print "</TABLE>\n";

何もでてきません
何がだめなんでしょうか？誰か教えてください・・・

>>134
まずperl　二次元配列で調べてみ。

>>134
二次元の読み出し方も間違っているが仮に読み出せたとして
$valueはどこで使われてるのよ？
表示させる@valueっていったい何よ？

まぁスカラーと配列は別の領域なわけだが。

そもそも必要があって二次元にしてるのかさえ疑わしい

>>134
サンプルコード書いたけど、いくらで買う？

>>139
あのコードから何を出力したいかわかるとは・・・
お前、エスパーだな？

137じゃないけど何を出力したいかはわかるでしょ。

三次元になったらどうやって出力しようか迷っていたところだ。

すみません。ものすごい初心者なんですが
Perlの起動が上手くいきません…
XPでPerlのVerは5.8.3です

とりあえずデフォルトでインストールは終わったのですが
コマンドプロンプトを開くと即閉じてしまいます。
サイトみてもXPの説明が…

>>143
スレ違いです。

△▲　WebProg 初心者の質問 Part11　▼▽
http://pc5.2ch.net/test/read.cgi/php/1101635909/

すみません〜。そちらで聞いてみます

>>134
どうすればいいんだこのコード

>>134
9時までに返事しないとコード内の改行とタブ、不要なスペースを全部消す。

>>134
とりあえず2個目の foreach の @value を @$value に変えて正常に出力されるのを確認したら、
http://www.google.co.jp/search?hl=ja&q=Perl+%E9%85%8D%E5%88%97%E3%81%AE%E9%85%8D%E5%88%97
で勉強してくれ。

>>147 なんつーか…
print'<table>',(map{('<tr>',map("<td>$_</td>",@$_),'</tr>')}@tbl),'</table>';

掲示板スクリプトを作っています。

if ($name = ~/fusianasan/){
$name = ~s/fusiansan/<strong>$host<\/strong>/
}
注）$name…名前欄の文字列　$host…$ENV{'REMOTE_HOST'}

とすると、名前欄にfusianasanが入っていてもいなくても
名前欄が4294967295になってしまいます。

また、同様に
foreach (@post_check_list){
~ s/</</gi;
~ s/>/>/gi;
~ s/\r\n/<br \/>/gi;
~ s/\r/<br \/>/gi;
~ s/\n/<br \/>/gi;
~ s/"/&guot;/gi;
~ s/&/&/gi;
~ s/\0//g;
${"$post_check_list2[$i]"} = $_;
$i++;
}
注）@post_check_list = （\$name ,\$mail, \$honbun…
　　$nameは名前欄、$mailはメール欄、$honbunは本文
　　　@post_check_list2 =('name', 'mail', 'honbun'…

とするとメール欄などが全てREF(0x814d354)となってしまいます。

文字コードはeucなのになぜなのでしょうか…知っている方ご教
授いただければ幸いです。

>>149
× = ~
○ =~

>>149
fusianasanのほうは他の処理に原因があるのだろう。
@post_check_listは中身がリファレンスなんだから当然の結果。
eucとかそういう話は無関係。

format関数でテキストの位置制御を行っているんですが
日本語をwriteすると文字化けるというのは仕様でしょうか?
#以下ソース

$hoge = 'test1';
$hoge2 = 'あ';
format STDOUT =
TITLE : @<<<<<<<<<<
$hoge
TITLE2 : @<<<<<<<<<<
$hoge2
.
write (STDOUT);

#$hoge2が化けてます。

>>149
if ($name = ~/fusianasan/){
    $name = "<strong>$host<\/strong>";
}

>>153
アホ

どうでもいいが、こうじゃないのか？

if ($name = ~/fusianasan/){
　　　　$name = "<strong>$ENV{REMOTE_HOST}<\/strong>";
}

$ENV{'REMOTE_HOST'}でホスト名が返ってくる鯖って少なくね？
つか、漏れの借りてる鯖は$ENV{'REMOTE_HOST'}禁止なんだよね。

$name =~ s/fusianasan/<strong>$ENV{REMOTE_HOST}<\/strong>/;

でもいいな。

>>156
禁止だとしたら、$hostってどっから取ってくるんだよ（ｗ

>>155
アホ

>>158
げっとほすとばいあどれす

なんだか楽しそうですねぇ。。。

>>150
ありがとうございました。スペースを削除したら上手くいきました。

>>151
リファレンスにせずに、普通に
@post_check_list = （$name ,$mail, $honbun…
としたら上手くいきました。ありがとうございます。

>>155,>>157
それだと、名前欄に「ほげほげ fusianasan」などと入れたときに
ほげほげが消えてしまいます。

>>162
勘違いしてるみたいだけど、~ は正規表現の先頭に付ける文字じゃないからね。
後半のソースは左辺値がないからたまたま期待通り動いてるだけ。
どういう意味があるのかは調べてみてください。

>>149>>153>>155
$name = ~/fusianasan/;
これは
$name = (~($_ =~ m/fusianasan/));
と同じ意味。

ちょっと聞きたいんだけど、沢山出力を吐きたい時に

print << "　END_OF_PRINT";
　処理
　END_OF_PRINT

って書くけど、
こんな時に処理部に例外処理が沢山あって

print << "　END_OF_PRINT";
　処理A
　END_OF_PRINT
print << "　END_OF_PRINT";
　処理B
　END_OF_PRINT
･･･

ってな感じで細かく使わないといけないけど普通のprint文を使うまでも無いって時はどうしてる？
なんかソースが汚く見えるんだよね。

ヒアドキュメントの中に処理が入ってるのが
意味わかんないんだけど。
スペースも意味わかんない。

確かに意味不明だよな。
例えとしてもそんなこと書いているようでは汚いのは当然かも。

万華鏡でも覗きながらソース見れば、綺麗に見えるんじゃないの？

マン毛鏡って素敵♥

なんかﾑﾗﾑﾗしてきますた

>>165
サブルーチンを分けるか、ファイルを分ける。
スペースは意味わかんないから __END_OF_PRINT__ とか書く。

>>165ってなんでもヒアドキュメントで書いてるのかな。

死ぬわ。

>>165
一度変数に入れてしまう。

my $str_a =<< "　END_OF_PRINT";
　処理A
　END_OF_PRINT
my $str_b =<< "　END_OF_PRINT";
　処理B
　END_OF_PRINT

print $str_a;
# 何か処理
print $str_b;

print <<EOT1, <<EOT2;
　処理A
EOT1
　処理B
EOT2

そもそもなぜヒアドキュメントの中に処理があるのだろうか。
@{[...]}とか使えばなんでも書けるけどさ...

perlはそういう記述ができるんだからグダグダいってもしょうがない。

別に、自分が納得するように書けばいいだろ。

綺麗とかそういう基準なんて、誰かが勝手に言い出した物で、
別に基準なんかじゃないんだからさ。

自分が後から見て理解できるように書けばいい。

自分の基準だって経年変化する。

Windows環境でPerl5+Apache1.3.xでサーバ動作させています。
複数ファイルのCRC16チェックを行い、その結果を表示するCGIを作ったのですが
１ファイル毎に結果が送られなくて、１０個ほど毎にブラウザに返してきます。
これを１個づつこまめにレスポンスを送るにはどうすれば良いのでしょうか？
Unixの場合は $|=1 等で手段が有るようですが、Windows環境では無理でしょうか？

>>180
スレ違い

△▲　WebProg 初心者の質問 Part11　▼▽
http://pc5.2ch.net/test/read.cgi/php/1101635909/

そうでしたか、向こうに再度カキコしてきました

シロートな質問ですいません。
テキストエリアに表示させる時、改行文字は何になるのですか？

<TEXTAREA COLS=65 ROWS=5 NAME=\"ets\">$ets</TEXTAREA>
と記述し、$etsのデータの改行したいところに\nとか\rとか\r\r\nとか
入れてみたのですが、そのまま表示されます。

>>183
スレ違い

△▲　WebProg 初心者の質問 Part11　▼▽
http://pc5.2ch.net/test/read.cgi/php/1101635909/

え？

いやそれは半分は合ってるんじゃｗ
$ets = '〜\n'; みたいにシングルクオーテーションだと \n 、
$ets = "〜\n"; みたいにダブルクオーテーションで書けば 改行 で入ると思う。

遅かった・・・orz

誘導荒しの登場か…。

>>187=>>186？
ドンマイ。

つーか、初心者スレなんだから、問題の切り分けも含めて質問なんじゃないの？
普通に質問に答えてあげればいいと思うが。

>>189
同意。

誘導するなら、その根拠を質問者に示してあげられるといいと思う。

>>186-189
ありがとうございます。
まだうまく行きませんが、WebProg 初心者の質問 Part11の方で
継続して質問しています。

>>189
お前がどう思っているかは関係ない。

>>192
お前がどう思っているかも関係ない。

覚え立ての誘導をやってみたかんたんだよ。

自治初心者スレとか必要だな（ｗ

やってみたかんたんを流行らせたい。

メールアドレスを入力してもらってそこに特定の文字列を送るというCGIを作成してます。
メールアドレスをそのまま入力してもらうと正規表現がたいへんなので、
@はこちらで用意して左辺と右辺を別々に書いてもらうことにしました。

入力スペース　@　入力スペース

こんな感じです。そして不正なアドレスだと感知したらメールを送るのをやめます。
右辺は英数字とピリオド以外が混入していたら中止。
左辺は何が混入していたら中止にすればいいのでしょうか？

確かメールアドレスに含んでよい記号ってかなりありますよね；
@を除いてそれら以外が混入してれば中止とすれば安全なのでしょうか？

素朴な疑問です。
よくXSS対策などと言いますが、リファラーを取ってマッチングしない場合は
別の処理をするみたいな事をすればXSSなんて起こりませんよね？

もちろん結局はしないと変なスクリプト掲示板に埋められたり、注文客が
思いっきりスクリプト攻撃したりということがありますが、それってXSSでは
ないですよね。

つまりXSS対策って実はリファラーだけ取れば回避できるんですよね？
それともXSSっていうのの意味には前段落で挙げたようなことも含まれているんでしょうか？

>>196
既存のスクリプトを使用した方が早くないか？
>確かメールアドレスに含んでよい記号ってかなりありますよね
普通はアルファベットと数字、アンダーバーやハイフン程度だろ

>>197
しかしそう簡単にはリファラーを渡さないのがノートン先生ですよ

>>198
ドメイン側は
$domain =~ /[^\w\.]/;
としていてこれにマッチするなら不正と考えます。
ユーザ名側は確か通常URIに含められる文字列なら全て含めることができたような記憶があるんですよね；

print MAIL "to: ".$user.'@'.$domain."\n";

みたいにするんですが、UNIXには詳しくないのでどういう文字列を渡すと危険なのかが
把握できていません・・・

$user =~ /[^\w\-]/;
これだと実際には正常なアドレスなのに送れないケースが出てくると思うんですよね。
やはり既存のフォームメールスクリプトを探すのが早いですかね？
さっきPerlメモ読みましたが、ユーザ名側で何をエスケープするべきかは書いてなくて
ややこしいコードだけがありました。

ユーザ名側に含めることができる記号一覧があるRFC文書を探してますが、
英語に悪戦苦闘ですorz

>>196
正規表現以外でやろうとする方が大変。
ちなみに携帯のメールアドレスとか規格に則してなかったような。

>>197
リファラは偽装できる。

そういうことか・・・・・・
やっぱ俺って天ちゃんなのね

>>196
>>198
メールアドレスのローカルパートって他の世界のメールシステムとの
やりとりもありうるので適切にエスケープすればほぼなんでもありの
仕様になっています。rfc2821の4.1.2にBNFがあるのでLocal-partって
とこを見ればいいですが、「"」でくくってQuoted-stringにすれば\を
前に置くことでCR,LF以外の任意の文字を書くことが出来ます。

くくらない場合は、英数字または「!#$%&'*+-/=?^_`{|}~」からなる1文字
以上の文字列、またはそれをを「.」をはさんで複数つなげたものが許され
ます。ただし、一部のケータイなどで連続した「.」を含んだり末尾が「.」
で終わる仕様に違反したアドレスを許しているので、あまり厳しくチェック
すると文句がでるかもしれません。

これを気にしなくてよければEmail::Validそのままでいいんだけどね。

２ｃｈが使ってる公開串リストによる規制が簡単に組み込めるみたいなので
http://bbq.uso800.net/code.html
にあるＢＢＱによる方法で導入してみました
動作確認したいのですが公開串って何処で公開されてるんでしょうか

>>196
perlに関係ないじゃん。
rfcでアドレスに使える文字を調べないさいよ。

>>203
板違いだね。
初級ネット板かセキュリティ板へ。

>>201
天然ちゃん？

>>203こそ誘導すべきなのに、誘導厨は、いつも見当外れだな。

誘導されてるけど？

ファイルを開いて書き込み中に他のプロセスがファイルを開けて囲うとすると
壊れますよね。
いわゆる排他処理って言うと思うんですが、今まで一度もやったことがありません。

Perlの経験はネットショップをmysqlとの連携で構築したりその他ちまちましたものばかりです。
基本的にファイルではなくDB連動ばかりだったので勝手に排他処理をしてもらってたせいで。

どこかPerlでやる排他処理について詳しいサイトありますか？
一応windowsでもUNIXでも共通の方法を探してます。

>>208
排他処理は難しい
多分このスレの半分はできないだろう
それくらい難しいし面倒だ

>>207
今回は違う人が誘導したんでしょ。
誘導厨フォーマットじゃないし。

↓

>>000
スレ違い

△▲　WebProg 初心者の質問 Part11　▼▽
http://pc5.2ch.net/test/read.cgi/php/1101635909/

>>203
【BBQ 3本目】公開串登録所 【ピンポイント規制】
http://qb5.2ch.net/test/read.cgi/sec2chd/1105274729/l50

ここを眺めればいくらでも（ｗ

>>210
おまい何でそんなに必死なん？

誘導厨の方が、明らかに必死だ罠

いいや、反応してるほうが相当に必死に見える。

nfkやmob_PaqlだったらFLOCK最強！

>>215
お前のエンゲージリングはプルタブ

だから誘導してみたかったんだけだろ

# main.cgi
#!/usr/bin/perl
require './require.pl';
&hogehoge;
# hogehoge2を呼び出さずに終了
exit;
-------------------------
# require.pl
sub hogehoge{
(中略)
}

sub hogehoge2 {
(中略)
}
--------------------------

この場合に呼び出していない、require.plのhogehoge2はコンパ
イルされるのでしょうか。
それとも、呼び出さなければコンパイルされないのでしょうか。
教えていただければ幸いです。

>>208
ttp://homepage1.nifty.com/glass/tom_neko/web/web_04.html
http://web.archive.org/web/20040216083853/www98.sakura.ne.jp/~jun/perl/flock.html

>>218
コンパイルされるはず。

それをなんとかしたければAutoLoaderについて調べてみるといい。

>>196
Email::Valid
Email::Valid::Loose
Docomoの変なのもおっけ
到達可能かもみます

>>220
コンパイルされますか…

# main.cgi
#!/usr/bin/perl
$_ = 1;
if ($_ == 1){ require './require1.pl }
elsif ($_ == 0){require './require2.pl'}
&hogehoge;
# require2.plを呼び出さずに終了。hogehoge2を
# コンパイルしない分負荷が減る
exit;
----------------------
# require1.pl
sub hogehoge {
(中略)
}
----------------------
# require2.pl
sub hogehoge2 {
(中略)
}
-----------------------
みたいな感じで別ファイルにして対処しようと
思います。ありがとうございました。

そんなんで負荷が減るとでも？

つまんないことに熱心になるやつっているもんだな。

ああ、誘導とか？

いや、その誘導に拘っていつまでもグダグダ言ってるやつのこと。

誘導を注意してる奴って複数居るけど、誘導厨って一人だよね？
なんでこんなに即レスなの？

暇なんじゃない？

誘導を注意してる奴のほうが一人だろ。
いつも誘導に反応する奴なんてまったくいないのに。
何人もいるように見せかけているが、近い時間に書いてるし。

いずれにしても注意してるヒマがあったら、ここでも誘導先でも
答えてやればいいのに。

>>224-229
暇だなお前ら。

>>231
質問ﾄﾞｿﾞ。

>>230
ご趣味はなんですか？

ショップとか掲示板とか何ページあろうが1個のCGIで済ませるときって
みなさんはページ移動をどうやってますか？

私は今まで
if ( $form{page} eq "hoge") {#hogeページの処理

}elsif( $form{page} eq "hage" ){#hageページの処理
}

こうしてました。で、ふと思ったのですが、もしかしてページごとにサブルーチンに
しておいて、$form{p}の値を見てどのルーチンを呼ぶかを分岐させた方が
わかりやすいかもって。

みなさんはどうやってますか？

>>232
ページごとに小さかったらサブルーチン、大きかったらファイルに分けちゃう。

>>229
誘導厨には誰も賛同しないからレスが着いてないだけだろ

お！注意厨が現れたね。
同じぐらいに時間に登場とはわかりやすい。

なんか、道ばたでタバコ吸ってるの注意されたけど、
お前に何の権利があるんだよとか、いちいち注意してんじゃねーよとか
意味不明な反抗をする高校生みたいになってきてるな。

あと、こんな時間に見回りなんてヒマだなとか、お前の息子だってやってんだろ？とか言うな。

>>232
4つぐらいならifで分岐させるけど、
それより多くなったらテーブル使うかな。

画像掲示板でHTMLを書き出すタイプのスクリプトを組みました。
そこで画像サイズを取得し、<img width="***" height="***" src="***">のように書き出そうと
Image::Size を使用しようとしましたがサーバーにはインストールされておらず、 Size.pm を設置する事にしました。

ローカルでは README.win32 に書かれたとおりの編集をし
perl/site/lib/Image/Size.pm に置く事で動きました。

サーバーに設置する事も想定し、スクリプトのあるフォルダに
lib/Image/Size.pm と設置し、スクリプトに use lib "lib"; の記述で動くことも確認しました。

そして、サーバーに同様の構造で「未編集」の Size.pm を設置しましたが動きませんでした。
# 正確にいうと ($width, $height) = imgsize("$file_name"); で止まるようです。
しかし、 README.win32 に書かれた編集を施した Size.pm では無事に動きました。

実際にした編集というのは use AutoLoader 'AUTOLOAD'; と __END__ の2行を消しただけです。

何故、 Win 用の編集で動くようになったのでしょうか？
動くようになったこと自体はいいのですが、サーバー側に迷惑をかけてる可能性はありますでしょうか？

tsv形式のデータをcgiで呼び出してリスト表示(html)　内容は担当者名や企業名、案件の内容等
　↓
表示したリストからpptファイルへリンク

これって出来ますか

>>239が生きていること自体が世間に迷惑をかけている。

>239
君が初心者なのはわかった。
でも君がやろうとしてる事はちょっとだけ初心者の域を抜けかけてる。
初心者が下手にやると危険。
中級者になってから挑んでください。

レスありがとうございます。
危険な事だという事はわかりましたので、素直に Image::Size を
サーバー管理者にインストールして貰うようにメールしてみます。

あと、私の犯した過ちは Win 用のファイルをあげた点で間違いないでしょうか？

つーか主要な画像(JPEG, PNG, GIF)のサイズくらいなら、
自分のスクリプト内に、サイズ求めるソース組みこだらいい。
検索したら何かあるでしょ。

>>244
そうですね。私にはまだモジュールは早すぎたようです。
勉強して出直してきます。

レスありがとうございました。

>>239
いいや。今のまま使い続けても、何も心配する必要は無い。
Image::Size は様々な形式の画像ファイルのサイズを得る機能を有しているが、
ある特定の形式（例えばgif）のみのサイズを得たい場合
には、その形式に必要な機能のみを、メモリに展開すれば済む。
そこで、実際に指定された画像形式に応じて必要な機能のみを
実行時にメモリに展開するのがAUTOLOADだ。

> 実際にした編集というのは use AutoLoader 'AUTOLOAD'; と __END__ の2行を消しただけです。
それをやると、Image::Size が対応しているあらゆる画像形式の
機能が全てメモリに展開されることになる。だから、メモリ容量が
多少無駄になるが、特に支障があるというわけではない。

民明書房刊「イメージとメモリ〜鈴木支障と世界の中田〜」より

８文字以上の文字列の暗号化を行いたいのですが
cryptは８文字目以降は無視するようなので
crypt以外で８文字以上の文字列を暗号化する良い方法を教えてください

>>248
8文字ごとに切ってcryptする

>>248
MD5で暗号化する

ず〜っとハマってるんですが・・・
CGI.pmを使用して、クライアントからファイルのアップロードをさせたいのですが・・・
コードはこちらです。

#!/usr/bin/perl

use　strict　"vars"；
use　strict　"subs"；
use　CGI；

print　"Content-typt：　text/html；　charset=euc-jp\n\n"；

our　$fh；
our　%columns｛upload_file｝　=　$query->param（’upload_file’）；

&hozon（）；

sub　hozon（）　｛
　my　$query　=　new　CGI；
　$fh　=　$query->upload（’upload_file’）；
　print　”$fh<BR>”；
　while(<$fh>)　｛
　　print　"$_<BR>"
　｝
｝

というコードだと、ブラウザにwhileの中の$_の内容を出力できないのです。
print　”$fh<BR>”；はきちんとファイルパス名が出力されます
ここでour　$fhと宣言しますが、これを削除し、
my　$fh　=　$query->upload（’upload_file’）；
とローカルとして宣言するとブラウザに出力される事になります。
何が原因なんでしょうか？

>>251
空白や記号が全角になってるのを半角に直してperlに食わせてみたが
そもそも構文エラーでるじゃん。実際におかしいものと違うコードを
見せられてもなぁ。

>>252
まじっすか？

ごめんね。
ちょっとチェックしますね。

すいませんでした。
書き込むときってみやすいように全角使ったんですけど、
こういうのって直接コード書いたほうがいいんですかね？

#!usr/bin/perl

use strict "vars";
use strict "subs";
use CGI;

print "Content-typt: text/html; charset=euc-jp\n\n";

our $fh;
our %columns;


&hozon();

sub hozon() {
my $query = new CGI;
$columns{upload_file} = $query->param('upload_file');
$fh = $query->upload('upload_file');
print "$fh<BR>";
while(<$fh>) {
print "$_<BR>";
}
}

複数行をコメントアウトするにはどう書いたらいいんでしょうか？
Cでいったら/* */見たいなやつです。

>>255
ググればすぐ出てきます。

>>254
Content-typtという打ち間違いがある状態でまともに動いて
いるとは思えないのだが、そのコードでちゃんとおかしな現象が
再現してるのを確認してるかい? おかしい現象が起きてるものを
そのまま出してもらわないと付き合いきれんよ。

ちなみにそのtypoを直して実行してみたところ、そのコードで
普通にファイルの中身も出力された。

ごめん。
実際に動かしているコード
#!/usr/bin/perl

use strict "vars";
use strict "subs";
use CGI;

print "Content-type: text/html; charset=euc-jp\n\n";

our $fh;
our %columns;

&hozon();

sub hozon() {
my $query = new CGI;
$columns{upload_file} = $query->param('upload_file');
$fh = $query->upload('upload_file');
print "$fh<BR>";
while(<$fh>) {
print "$_<BR>";
}
}
やっぱりこれで、ブラウザに表示されないですね。
$fhにはC:\Documents and Settings\hogehoge\デスクトップ\新規テキスト ドキュメント.txtと出力されます。
$fh = $query->upload('upload_file');　　を　my $fh = $query->upload('upload_file');　　にして
our $fh;　を　#our $fh;
にするとすべてブラウザに出力されますね。

リファレンスとか絡んでるんだろうか？

ファイルにcsvもどきみたいな感じで
時間,名前,コメント
時間,名前,コメント
時間,名前,コメント
というようなデータの列挙が1000件以上あります。
これを元に色々な処理をしたいので、ハッシュに入れようと思ったけど、キーがないので入れられません；
1000件以上になるのでabcd...なども無理です。

そこで「a行数」のキーを与えようかとも思ったのですが、論理的なキーではないのでイマイチ気が乗りません。
何か良い方法はないでしょうか？普通はこういうときってどうするのでしょうか？

やはり「a行数」というキーを持たせるしかありませんか？

キーが無いならハッシュでなく配列に入れれば良いような気がするけど
特にハッシュにしなきゃいけない理由って何かあるの?

キーは数字からはじまってもいいんだよ。

>>258
手元で試した限りではそのままで出ますね。

>>260
そうか・・・・・
>>261
それは知りませんでした；

しかし>>260さんが言うようにa行数のようにしたい時点で配列を使えばいい状況
ということですねm(_ _)m
配列の中にリファレンスでいれておきます。解決です。ありがとうございました！

>>259
配列に入れちゃダメなの？

open(FHIN,'csvfile') or die "can not open csvfile\n";
$i = 0;
while(<FHIN>) {
($time[$i],$name[$i],$coment[$i]) = split(/,/,$_);
}

とかで、いろいろ出来ると思うけど。

逆の他の人に聞きたいのは
while(<FHIN>) {
@datas[$i] = split(/,/,$_);
}
とかで
@datas0にデータ入れて
じゅんじゅんに
@datas1とかに入れるのってどうやってやんの？

>>264
インクリメント忘れた

俺の環境じゃダメだわ、もう逝くわ

みんな、ありがとう。

いい夢みろよ！！

>>264
#!/usr/bin/perl -w
my @data;
chomp, push @data, [ split /,/ ] while <DATA>;
print $data[1][2]; # h
__DATA__
a,b,c,d,e
f,g,h,i,j
k,l,m,n,o

http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perldsc.html
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perllol.html
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlref.html

>>264
pushだろ

って書こうとしたら267に先越された

>>267
chomp, push @data, [ split /,/ ] while <DATA>;

はいくらなんでも詰めすぎじゃないかと。

普通に書くなら

while (<DATA>) {
chomp;

push @data, [ split /,/ ];
}

ぐらいじゃないかなー。

>>269
そうかくと分かりやすいね。

人それぞれじゃない？
私は
chomp, push @data, [ split /,/ ] while <DATA>;
の方が直感的に頭に入ってくるな

育ってきた環境かね？
俺ってオライリーのperl本で勉強したから
>>269がわかりやすいなぁ

上我流
下主流

だな。

オライモンのperl　CGIってのあると思うけど、
あれ面白い？っていゆーか実践的な内容？

リダイレクトで'Location:http://hogehoge/'と出力させるとGETメソッドでしか
データを送ることができないと思うのですが、POSTで送る方法などはありますか？

>>276
http://homepage3.nifty.com/hippo2000/perltips/lwpcook.html#POST

@hoge=<IN>;
とするとき、改行\nを消す方法があれば教えてください

@hoge=<IN>;
chomp @hoge;

use strict;

$::info{'no_dir'} = [ q[test], q[test2] ];
BEGIN {
  #▼なんかディレクトリからファイルを返す関数
sub file_list (&$;$) {

  my ($code, $dir_name, $mode) = ($_[0], $_[1], $_[2]);

  my $pass;
    {
      $pass = $dir_name . q[./], last if(qq[\l$mode] eq q[p] or !$mode);
      $pass = "", last if(qq[\l$mode] eq q[f]);
    return();  #モードが変なのは処理しない。
    }
  opendir DIR, $dir_name or return ();
     my @file_list = grep{ $_ = $pass . $_; &$code; } (readdir DIR);
  closedir DIR;
  foreach my $file (@file_list){$file =~ s[/\./][/]g;}

  return(@file_list);

  }

#▼対象ディレクトリ全取得
{
search($::info{'pass'});    #対象ディレクトリ全検索

sub search {
  foreach my $dir (@_){
    my @list;
      @list = file_list {  #ディレクトリ全取得
        -d                      #範囲をディレクトリに絞って…
      and !(m/[\/\.]+$/)                #自己参照ディレクトリの類は排除して…
      and my $now_dir = $_            #ちょっとキモい処理をして…
      and !( grep { $now_dir =~ m[/$_$]; } @{$::info{'no_dir'}} )  #除外指定ディレクトリは無視。ところがこれがエラー
      } $dir;
      @list = map {$_ . '/'} @list;    #なんかUNIXではこれやらないとダメっぽい。(winではいらない)

    push @::dir_list, @list;      #ディレクトリ追加
    search(@list) if(@list);      #ディレクトリがまだあったら再帰
    }
  }
}

and my $now_dir = $_ #ちょっとキモい処理をして…
and !( grep { $now_dir =~ m[/$_$]; } @{$::info{'no_dir'}} ) #除外指定ディレクトリは無視。ところがこれがエラー

↑ここんことが変になるんですけど、どーしたらいいんかね？

あ、上げるの忘れてた。
あと、>>280の最後んとこでBEGINブロック閉じるの忘れたのは突っ込まないで。

スレ違いだったすいません。
新しいサイトでフォームを使いたいのですがうまくいきません。
書き込み用のform.html(仮名）とform_mail.cgiは古いサイトでは
フォームの送信後メールがちゃんと届いたのですが、
新しいサイトでは何故か機能しません。
cgiのパールへのパスとドメイン所属のメールアドレス、
form.html内のform_mail.cgiへのパスは正しく書き換えている
（つもり）のに。。。ディレクトリーも同じように設定してます。
フォーム送信にhtmlとcgiファイル以外でしなければいけない事、
必要なファイルってありますか？　
ひとつ疑問に思ったのは古いサイトではcgiのパーミッションを入力して
再接続すると前回に入れた数字(755)が残るのに、
新しいサイトでは入力後に再接続してもその数字は残っていません。
あとフォームを機能させるためにhtaccessって必要ですか？？？？　
分かる人どうか宜しくお願いします！！

284ですが、CGI質問スレ発見　あちらで聞きまスルー。

if (条件a){
$a = 1;
}elsif(条件b){
$a = 2;
}else{
$a = 0;
}

これを1行ないし2行で収めることはできませんか？
?演算子を使えばできるかと思ったのですが、3つは無理みたいで；
知恵をお貸し下さいm(_ _)m

>>286
$a = 条件a? 1: 条件b? 2: 0;

で普通にいけると思うけどなんか変になるのかね?
条件の部分は場合によってはカッコいるかも。

>>287
！？
そういうのもありなんですねm(_ _)m

追加質問ですみませんが、以前から気になっていたことがありまして；

XSS対策にメタ文字エスケープをするときってCGI関係ではよくありますよね。
基本的には埋め込む直前にケースバイケースのエスケープをするのですが、
みなさんはどうやってますか？

元の文字列を加工したものを『他の新しい変数に入れて』ますか？それとも
『元の変数に上書き』してますか？
後者だと元データがなくなるので何かと不都合の原因になりますよね。
しかし新しい変数を用意すると、色々なところで色々なエスケープが必要になるので
だんだん頭がこんがらがります；簡潔性を欠くといいますか・・・

>>289
俺は普通に上書きしてる
>元データがなくなるので何かと不都合の原因になりますよね
これの意味がわからん。必要なときは元に戻せばいいじゃないか。不可逆変換やってるわけじゃないんだから。

>>289
私は最終出力時にエスケープ派であります。といっても
最近はほとんどテンプレートライブラリ使うので、テンプレート
側でエスケープ形式を指定するだけのことがほとんどですが。

>>290-291
ありがとうございます。

やはりみなさんそれぞれなのですね。
見易さ・わかりやすさの点でやはり変数を用意したほうがいいのかなと思ってます。
%form
%form_html
%form_sql
現在こういう感じです。

>>292
SQLはプレースホルダ使うのでデータをエスケープすることは
ないなぁ。

mysqlのテーブルにデータを挿入時にユニークキーとして任意の数字列を使っています。（挿入時に重複でインクリメント）
インクリメントのせいで、一度入れないとユニークキーが何かわからないのですが
挿入した直後にそのユニークキーを表示させたいのですが、どうすればいいでしょうか？

ユニークキー以外は重複している可能性が十分にあるデータ群なので、途方にくれています

そのプロセスが今挿入したデータに挿入時に自動的につけられたユニークキーが
何だったのかを調べるにはどうすればいいでしょうか？

>>294
無理だろ。
だって極端な話にすれば、ユニークキー以外が全部同じ内容のものなら
自分のユニークが何なのかを調べる方法なんてない。

DBI使ってるならインクリメントしたかどうかを調べられたんじゃなかったか？
最近使ってないから忘れたｗ

面倒な方法だが、プロセスIDと挿入時の時間もとっておけば
それを元に取り出せるけどな。
まぁそのためだけに二つもフィールドを増やすのはあまり気分がよくないわな。

>>295
そうなのですかorz
実際にどういうデータが入ったかを確認するすべはないんですね…
>>296
本当ですか！？DBI使ってます。調べてみます。
>>297
そのためだけに増えるのはちょっとしんどいですよねorz

自分が挿入したレコードに付けられたユニークキーを調べることができないって…
つまり自分が何を入れたのかを確実に調べる方法が用意されてないってことですよね；

>>298
俺いまPostgreでユニークキーをインサートするためにやっているのが、
普通に順序のテーブルからnextvalでとってきて、
INSERTするときにnextvalからとってきてのをvalueで指定してるけど、
その考え方はだめ？

>>294
autoincrementじゃいかんの

>>300
いえ、ユニークキーがautoincrementになってるので、実際に挿入するまでは
どういうユニークキーになるのかわからないんです。
それで挿入した本人に自分が今入れたユニークキーを知らせることができずに困ってるのです。

>>299
nextvalって使ったことないです。ちょっと勉強してきます。

>>301
auto_incrementならば、select last_insert_id()で取り出せるし。
http://dev.mysql.com/doc/mysql/ja/miscellaneous-functions.html
> LAST_INSERT_ID([expr])
> AUTO_INCREMENT カラムに挿入された値のうち、最後に自動生成された値を返す。
> mysql> SELECT LAST_INSERT_ID();
> -> 195

>>294の説明では、自前でユニークキーを作成しているみたいに読めるが。
SQLの問題だね。

>>282
use vars qw(%info @dir_list);

$info{no_dir} = { map{$_ => 1} qw(test test2) };

...

{
search($info{path}); #対象ディレクトリ全検索

sub search
{
my @dirs = @_;

foreach my $dir (@dirs){
my @list = map{$_. '/'} file_list { #ディレクトリ全取得
-d #範囲をディレクトリに絞って…
and !(m/[\/\.]+$/) #自己参照ディレクトリの類は排除して…
and !$info{no_dir}->{(m|/([^/]+)$|)[0]} #除外指定ディレクトリは無視。
} $dir;

push(@dir_list, @list); #ディレクトリ追加
search(@list) if(@list); #ディレクトリがまだあったら再帰
}
}
}
ちょっと書き換えちゃったけど、適当に戻しておいて。

変数【$bbb】の後ろに【.txt】と書きたいのですが、どう区別したらいいのでしょうか？

my $aaa = "$bbb.txt";

>>304
区別って$bbbと".txt"の境界をはっきりPerlに伝えたいってこと？
とりあえず、"."は変数の一部とは見なされないから、そのままでもOKだけど、
もっと安全に書きたいというのなら、

my $aaa = $bbb . ".txt";
my $aaa = "${bbb}.txt";

>>305　　サンクス

でもできない...　　他にない？

>>306
なぜ出来ないの？

>>303
やべー。恥ずかしい。pathとpassを間違いまくってた。＿|￣|○
そっか、ハッシュを使うんですね。ハッシュ。
しかも所々細かいアドバイスありがとう。
って事で今からテストしてきます。

変数に複数行のHTMLを格納したいのですが、できますか？

$sazae = "<p>でら<br />\nべっぴん</p>";

>>504　

$sazae = "

<table width=675 border=0 cellspacing=0 cellpadding=0 height=5>
<tr>
<td><img src="http://img.yahoo.co.jp/images/clear.gif" alt="" width=1></td>
</tr>
</table>

";

>>304
$masuo = <<"EOM";
<p>
でら<br>
べっぴん
</p>
EOM

>>311
エスケープ汁。バーヤ。

Win2000環境にてAN HTTPD+Perlで2chの板一覧を取得したいと考えています。
しかし、「www6.ocn.ne.jp」からは取得できますが、「www.ff.iij4u.or.jp」からは「Access Denied」となります。
当然ブラウザからならアクセス可能。User-Agent等を変えてもうまくいかず・・ご助言宜しくお願いします。

#!/usr/local/bin/perl -w
use Socket;

#$address = "http://www.ff.iij4u.or.jp/~ch2/bbsmenu.html";
#$host = "www.ff.iij4u.or.jp";

$address = "http://www6.ocn.ne.jp/~mirv/2chmenu.html";
$host = "www6.ocn.ne.jp";

$myagent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322)";
$rhost = "hoge.com";
$port = getservbyname('http','tcp');
$iaddr = inet_aton($host) or die "aton-err\n";
socket (SOCKET,PF_INET,SOCK_STREAM,getprotobyname('tcp'));
connect(SOCKET,sockaddr_in($port,$iaddr));
binmode(SOCKET);select(SOCKET); $| = 1; select(stdout);
print SOCKET "GET $address HTTP/1.0\r\n";
print SOCKET "Host: $host\r\n";
print SOCKET "User-Agent: $myagent\r\n";
print SOCKET "Accept: */*\r\n";
print SOCKET "Accept-Charset: *\r\n";
print SOCKET "Accept-Language: jp\r\n";
print SOCKET "Referer: http://$host/\r\n";
print SOCKET "Remote-Host: $rhost\r\n";
print SOCKET "\r\n";
while (chop($buf=<SOCKET>)) {print "$buf\n";}
close(SOCKET);
exit;

LWP使(ry

#!/usr/local/bin/perl -w
use Socket;

$address = "http://www.ff.iij4u.or.jp/~ch2/bbsmenu.html";
$host = "www.ff.iij4u.or.jp";



$myagent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322)";
$rhost = "hoge.com";
$port = getservbyname('http','tcp');
$iaddr = inet_aton($host) or die "aton-err\n";
socket (SOCKET,PF_INET,SOCK_STREAM,getprotobyname('tcp'));
connect(SOCKET,sockaddr_in($port,$iaddr));
binmode(SOCKET);select(SOCKET); $| = 1; select(stdout);
print SOCKET "GET /~ch2/bbsmenu.html HTTP/1.0\r\n"; #ここがおかしい
print SOCKET "Host: $host\r\n";
print SOCKET "User-Agent: $myagent\r\n";
print SOCKET "Accept: */*\r\n";
print SOCKET "Accept-Charset: *\r\n";
print SOCKET "Accept-Language: jp\r\n";
print SOCKET "Referer: http://$host/\r\n";
print SOCKET "Remote-Host: $rhost\r\n";
print SOCKET "\r\n";
while (chop($buf=<SOCKET>)) {print "$buf\n";}
close(SOCKET);
exit;

あぁ　途中で書き込んでしまった。

$address =~ m|^http://([-_\.a-zA-Z0-9]+)/?(.*)$|;
$host = $1;
$path = $2;

と付け加えて、

print SOCKET "GET /$path HTTP/1.0\r\n";

と変更すると汎用性があっていいかも。

>>302
ありがとうございます。
ユニークキーは一応Perl側で作成してますが、万が一の重複の可能性を考えて
インサート時にauto_incrementになってます。
なのでユニークキーについては役割は半々ですね。

LAST_INSERT_ID()ではアクセスが集中した時にミスりますよね？
プロセスAが入れる→プロセスBが入れる→プロセスAからのLAST_INSDERT_ID()を処理
＝プロセスBが入れたものがプロセスAに渡されてしまうorz

すみませんサイト読んでたらそういうことは起こらないと書いてありましたm(_ _)m
今回のCGIではPerlで半分ユニークキーを作成してますので、auto_incrementする可能性は
ほとんどないので、last_insert_id()がauto_incrementしてない時には初期値の0まま
（もしくは前回値ですが今回はinsert1回しかないので）という仕様を利用して、

my $your_id = $last_insert_id == 0 ? $perl_creat_id : $last_insert_id;

のようにして確実に自分が入れたデータの取り出しが可能になりました。
お世話になりましたm(_ _)m

よかったね

activeperl5.6
テスト環境は(local)→winXP
サーバ→Linux

@array = qw/a b c d e f g/;
@arrayの中に７個あります。インデックスは0-6になります。

これをランダムに表示させたいんですが単にrand関数を使っただけでは均等には
なりませんよね？(rand関数自体どこまで完全確率に近づけられているのかはわかりませんが、
それはおいといてください。)

print $array[(rand 6)];
これだと圧倒的に最後の$array[6]だけ選択率が落ちます。
0-5は小数点も付きますが、6だけ付かないのでまあ当然なのですが。

かといってrand 7にして7が選ばれたらマイナス-1するというのではまだ不公平ですよね。
rand 7にして7が選択されたらマイナスもrandで決定するというのも結局
そのときもマイナス7が選ばれる可能性が・・・・次に続けます

$number = rand 7;
$number = $number == 7 ? $number - rand 7 : $number;
print $array[$number];

前回言いかけましたがこうしても結局今度は$array[0]が選ばれる可能性がちょっと増える
ので不公平ですよね。

公平に0-6を抽選することはできないのでしょうか？

>>322

言ってることがよくわかりませんが

http://www.rescue.ne.jp/CGI-BBS/cgi/perl/20020909010545.shtml

このへん読んでみれば？


というかrand関数を使えば均等になるし、ちゃんとrand呼び出す前に
srand関数で初期化してますか？

>315-316さま
教えていただいた方法で無事取得できました。
ありがとうございました。

>>323
Perl5.1以降は自動的にsrandされてるみたいです。

もしかしてrand 8;
って0-8をランダムに選ぶのではなく0-7(小数点つき)を選ぶんですかね？
確かにprint rand 8;として
>8
となった経験はありませんが、ただ確率が極端に8だけ落ちるからだと思ってました・・・
私の勘違いだったのでしょうか？

rand(8)は、０以上８未満を返す。

>>326
すみませんでしたorz

print gmtime(time+32400)[5]+1900;

これで今年が何年なのかを表示させようと思ったらエラーがでました。
near ")["
となってたのですがこの形式はダメなのでしょうか？
gmtime(time+32400)自体はリストなので大丈夫だと思ったのですが。

かっこつけろよ

(time+32400)
↑これをリスト扱いしてるでしょ。どう見ても。

W3C形式の日時を YYYY年 MM月 DD日 hh時 mm分 に変換したいです。

参考
Perlメモ/W3C形式の日時の解析
http://digit.que.ne.jp/work/index.cgi?Perl%A5%E1%A5%E2%2FW3C%B7%C1%BC%B0%A4%CE%C6%FC%BB%FE%A4%CE%B2%F2%C0%CF

2005-02-10T14:54:18+09:00　を変換する場合、どう書けばいいのでしょうか？

open FH,"+>>test.txt";
seek FH,0,0;
print FH "ファイルの先頭";
close FH;

これを実行したら何故かファイルの末尾にかかれました。
seekが効いてないのでしょうか？

>>327
init(rand(7));
でいいんじゃね？

print (gmtime(time+32400))[5]+1900;
でも同じエラーがでます。

>>332
+>>
ではseekは使えない。ポインタの移動自体が不可能。
もし先頭に追加したければ一度中身を配列に読み込んでから
unshiftで先頭に入れて上書きするしかない。

>>334
当たり前。かっこなんかつけてどうこうなる状況ではない。
@{[gmtime(time+32400)]}[5]
とすればいい。

>>334
print((gmtime(time+32400))[5]+1900);

>>332
">>"はO_APPENDがつくのでwriteがかならずその時点でのファイルの
末尾からになる。

ファイルをもしなければ作成して読み書き両用で開きたいんじゃないかと
思うが「>」使うのでちょうどいいのはたぶんない。openでシステムコール
のオプションを明示的に指定できるのでそれを使うのがいいと思われる。

>>334
print+(gmtime(time+32400))[5]+1900;

perl初めてなんですけど、

print(
"引数",
"引数",
);
↑こーゆーのってコーディングスタイルとしてどーなんですか？
エラーはでないみたいなんですけど。

if (){
my $test;
〜処理〜
undef $test;
}

ブロックの終端で人間が見たときにこのブロックでどういうローカル変数を使っているかを
わかりやすくするためにわざわざundefしてます。

私のテキストエディタでは関数名は太字になりますので、もの凄く見やすいです。
それでそのブロックないで作った（いじった）グローバル変数もまとめて列挙したいんですが、
# $global
とかしてもコメント用の色にはなりますが、太字にはならず見づらいです。

そこで何か変数に対して何もしない関数があればいいなと思ったのですが、何かいいのはありませんか？
scalar $global;
みたいな感じです。

undefにしろ完全に処理効率を落とすものでしかないのでなるべくその影響が
小さいものがいいです。undef以下の処理時間の関数だと最高です！

>>339
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlstyle.html
あとは君が書いたスクリプトを誰が保守するのか考えた上でご自由に。

>>340
エディタの為のコードを書くな。コードに合わせてエディタを設定しろ。

>>341
エディタの設定ではできないのです。

>>339
リストの最後にカンマが付いているのを懸念しているのか？
結論から言えばアリ。ハッシュでも良く使うね。
{
foo => 1,
bar => 2,
}
後で項目追加したりするときに、ミスが出なくていい。

ちなみに根拠は
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perldata.html#List_value_constructors

>>331
use HTTP::Date qw(parse_date);

my @date = parse_date("2005-02-10T14:54:18+09:00");
my $date_str = sprintf('%04d年 %02d月 %02d日 %02d時 %02d分 %02d秒', @date);

CGIで使う時にprintが乱立するのが見苦しいから
こっちのほうがいいな、と。
Cのprintfだと引数1つしかだめなんでちょっと
おどろいたついでに確認してみたんですが・・
アリということなのでがんがんつかいますｗ

あ、あと
print と　print() だとなんか前者の方がよくみるんですが
print()の方でもいいんですよね？
関数に()がないのがなんか気持ち悪くて・・

http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlstyle.html
↑に書いてありましたね、連投ｽﾏｿ

>>345 できた。　サンクス

>>340
あまりいい趣味とは思えないが、どうしてもやりたければ

use Filter::cpp;
#define NOOP(x)

とか?

>>347
俺は関数に限らず極力()を付けない。
基本的に見易さと理解しやすさが第一だから。
もちろんぱっと見たときにどういう優先順位かわからなくなりそうな時はつけるけどね。

>CGIで使う時にprintが乱立するのが見苦しいから
それとこれは君がしょぼいだけと言わざるを得ない。
出力内容はユーザによって変えないといけないことが多いCGIではprintを始める
以前にほとんどのデータを用意しておく。

そして何行にもなるならヒアドキュメントを使ってスッキリさせる。

まぁプログラミングなんて誰でもできるものだけど、
読みやすく効率のいいものが作れるかが馬鹿と賢者の分かれ目かな。

ってえらそうにごめんねm(_ _)m
とりあえず処理効率よりも読みやすさを薦めるよ。

一般的に、多くの場合関数には()をつけ、
演算子には()をつけないほうが読みやすいとされるそうです。
俺もそう思いますが、printは演算子です。

>>351
なるほど〜、うまいことやる方法がきちんとあるのですね。
なんせCGIは初めてで正直まだ何もわかっていないんです。
でも351さんがおっしゃっていることは自分も同意で、普段書く時
は気をつけています、綺麗なコーディング。

とにかくがんばります。

>>352
え、、、PerlやPHPだとprintは演算子なんですかぁ、ちとびっくり。
てっきり関数かと思ってました。
だから()がいらないんですね、なるほどなるほど。

>>346
そもそもCGIでprint文なんていくつも書かないだろ。
出力用のルーチンに投げてprintは1つでお終い。そこで変数展開してやればいい。

()の省略をprintとprintfでしかやってなかった俺は馬鹿者ですか、そうですか。('A`)

>>354
正確に言うと少し違う。Perlの組み込み関数はある意味で全て演算子であるといえる。

>>356
それでいいよ。その方が分かりやすい。

文字「&」をpostで送りたいんですが、受け渡し後&を区切りとしているので
うまく読み取ってくれません。どうやればいいのでしょうか？

>>358
エンコード

>組み込み関数はある意味で全て演算子であるといえる
こら。好き勝手書くんじゃない。

>>360
関数は名前付単項演算子かリスト演算子になるのです。
perlfunc(1)の最初の方にそう書いてあるよ。

>>358
%26

サブルーチンではプロトタイプ宣言するべきですか？

>>363
プロトタイプ宣言を行うとどうなるかわかれば必要の有無もわかるはず

関数は名前付単項演算子かリスト演算子になるのです。

print ←リスト演算子
scalar ←名前つき単行演算子
rand ←引数が一つの関数
sort ←関数

演算子はコンパイラが変換形式と答えを知っている。
関数はインタプリタにて処理が実行される。

2文字ごとに%を入れたいんだけど、どうすればいいのか教えて欲しいです。
例
82CA82E982DB
を
%82%CA%82%E9%82%DB
にしたいのです。

使われる文字はa-zA-Z0-9の半角英数です。
ちなみに漏れが考えたのは、2文字ごとにsplitで分割して配列に入れ、joinでくっつけて頭に%をくっつけるって方法だけど、これでいいっすか？

>>366
それでいいよ

s/([a-zA-Z0-9]{2})/%\1/g

これでもいいし

>>367
即ﾚｽthx!
> s/([a-zA-Z0-9]{2})/%\1/g
採用させていただきました。

>>368
× \1
○ $1

perl modulesのhttpプロトコルを実装したモジュールの使い方を紹介したページは無いでしょうか。

googleでperl http webなどとしてもURLのスキーマがヒットするので要領を得ないのです。

>>370
httpプロトコルを実装したモジュールなどいくらでもあるから
どういうものを探してるのかわからんが、LWPなどよく使うものなら
↓に少々載っている。
http://homepage3.nifty.com/hippo2000/perltips/index.htm

>>371
ありがとうございました。実装できました。

if文で
$a == 1　かつ $b == 2
みたいに条件にaかつbみたいな複数条件を付けるにはどう書いたらいいんでしょうか？

教えてエロイ人

>>373
andか&&。
両者で演算子の優先順位が違うので要確認。
下名は何でもかんでも括弧でくくるのでその辺曖昧です。

>>374
即レスサンスコ

配列変数の中の物を消したいのですが、一行で済ませる方法ないですか？
@xx=();とやってもだめでした。

for($i=0;$i<=$#xx;$i++){
$xx[$i]="";
}
↑こうすればできましたが、やっぱり一行で何とかなりませんか？

@array = ();
でできるけど。

>>376
できなかった時のテストコード書いてみなさい。

>>376
@xx=()でだめということは、要素数を保ったままで全要素を
空文字列にしたいという問題なのかな?

もしそうなら、

map $_ = '', @xx;

$_ = '' for @xx;

for (@x) { $_='' }

あたりからお好きな奴を。下のほうに行くにしたがって
微妙に遅くなるけどそれほど差はない。map使う奴はvoid
コンテキストじゃないと遅くなるので注意。

空文字列じゃなくてundefでよければ、
@xx = ();
したあとに
$#xx = 要素数-1;
で要素数あわせる方が速いけど。

なぜか、今回やるとできました。ありがとうございます＆お騒がせしました。

入力されたメールアドレスが変じゃないかどうか調べるのはこんなのでいいですか？

!~ /[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,6}$/

なんかもうちょっといいのあったら教えてください

>>381
メールのアドレスはまじめにやるとかなりメンドウななので、
Email::Valid(または日本の携帯のRFCに違反したアドレスにも
対応したければEmail::Valid::Loose)を使うのが楽だよ、
というかすこしまえにこのスレで話題になってたぞ。せめて
現行のログぐらい読め。

ttp://search.cpan.org/~maurice/Email-Valid-0.15/
ttp://search.cpan.org/~miyagawa/Email-Valid-Loose-0.04/

$mail =~ /[\w\-\.]+\@([\w\-\.]+)/;
$host = $1;
if ( !$host || !gethostbyname($host) ) {
print "不正なメールアドレスです";
}

俺はこうしてる。

　　　　　　　　　ナ ゝ　　　ナ ゝ　/　 　 十＿"　 　 ー;=‐　　　　　　　　　|! |!
　　　　　　　　　　cト　　　　cト　/＾､_ﾉ　 | ､.__　つ　 （.__ 　 ￣￣￣￣ 　 ・ ・

　　　　　　　　　　　 ,. -─- ､._　　　　　　　　　　　　 　 ,. -─v─- ､._　　　　　＿
　 　 　 　 　 　 ,. ‐'´　　　　　　`‐､　　　　　　　　__, ‐'´　　 　 　 　 　 ヽ, ‐''´~　　 ｀´￣`‐､
　　　　　　　／　　　　　　　　　　　ヽ､_／)ﾉ　　 ≦　　　　　　　　　ヽ‐'´　　　　　　　　　 　 `‐､
　　　　　　/　　　　 ／￣~`'''‐- ､.._　　　ノ　　　≦　　　　　　　　 ≦　　　　　　　　　　　　　　 ヽ
　　　　　　i. 　　　／　　　　　　　　 ￣l　7　　　　１　 ｲ/l/|ﾍ ヽﾍ　≦　　　,　,ﾍ ､　　 　 　 　 　 i
　　　　　　,!ヘ.　/ ‐- ､._　　　u　　　　|/　　　　　 l |/ !　! | ヾ ヾ ヽ_､l　ｲ/l/|/ヽlﾍﾄ､　　　　　　│
.　　　　　 |〃､!ﾐ:　　 -─ゝ、　 　 ＿_ .l 　 　 　 　 ﾚ二ヽ、 ､__∠´＿ |/ |　! |　 | ヾ ヾﾍﾄ､　　　 l
　　　　　　!_ﾋ;　　　 Ｌ(.:)＿ `ｰ'"〈:)_,` /　　　　 　 rｉヽ_(:)_i　　'＿(:)_/ ! ‐;-､ 　 ､__,._-─‐ヽ.　,.-'､
　　　　　　/｀ﾞi　u 　 　 　 ´　　　 ヽ　 !　　　 　 　 !{　　　,!　　 `　　 （ } ' (:)〉　　´(.:)｀i　 　 |//ﾆ !
　　　　_／:::::::!　　　　　　 　 　 　 ,,..ゝ!　　　　　　 ﾞ!　　 ヽ '　　　　　 .ﾞ! 　７　　　 ￣　　　　| ﾄy'/
_,,. -‐ﾍ::::::::::::::ヽ、　　　 r'´~｀''‐､　 ／　　　　　　　 !、　 ‐=ﾆ⊃　 　 /!　 `ヽ"　　　　u　 　 ;-‐i´
　!　 　 ＼::::::::::::::ヽ　　　`ｰ─ '　／　　 　 　 　 　 　 ヽ　　‐-　　 ／　ヽ　 `￣二)　　　 　 /ヽﾄ､
　i､　　 　 ＼:::::::::::::::..､　　~"　／　　　　　　　　　　　　 ヽ.＿__,.／　　//ヽ、　ー

CSV形式のファイルってどう読み込めばいいでしょうか？
カンマ区切りでダブルクォートで括られてると中のメタ文字は評価しないってやつです。

http://www.rfs.jp/sitebuilder/perl/02/08.html

ここを見ながらファイル操作をためしてます。
しかし
open FH,"+>file";
こうした時に何故かファイルの既存データが読み取れません。
+<を使うと普通に読み取れますが、このサイトは間違った事を書いてるのでしょうか？
+>は読み取りも可能だと一覧表には書いてあるんですが・・・・

>>385
Text:;CSV_XS

>>386
'+>'はファイルを開くときにまずいったん空にするのでそうなる。
そのあと新たに書き込んだ内容は読み出せるので読み取り可能と
いうのはそういう意味でいっていて間違いではない。

open(2)のflagsパラメタでいうと

'+>'はO_RDWR|O_CREAT|O_TRUNC
'+<'はO_RDWR

>>387
分ると思うが:;は::の打ち間違いです。シフトキーの押しが足りなかったようでスマヌ(汗)

>>388
そういうことでしたか！ありがとうござます。

ActivePerl5.6.1
Apache1.3
WindowsXP
この環境で今しがたflockのテスト行いました。flock初めてです；
open FH,"+<test.txt";
if (flock FH,2) {print "ok";}
seek FH,0,0;
print FH "あいうえお";
close FH;

>ok

okと出たのでflockがwinXPで使えるんだと思ってよいのでしょうか？
そうでしたら今から契約サーバでもこれを試して排他処理を選択しようかなと
思ってるんですが。

すみませんそれとflockなのですが
+<の時もflockはモードを2にしておいていいんでしょうか？

読み込み時にモード2でやるとロックがかからない時があるようですが、
+<これはどうなのでしょうか？

>>390
flockは9x系では使えないけどNT系は使えるということになってたと
思った。未実装だと致命的エラーになるはずだし。

>>391
perlのflockがlockfやfcntlを用いたエミュレーションで実現されている場合は、
書き込みで開いてないとLOCK_EX使えないことがあるようだ。XpのActivePerlが
どうなのかは知らない。どちらにせよ'+<'は書き込み付だから問題ないと思う。

Note that the emulation built with lockf(3) doesn't provide
shared locks, and it requires that FILEHANDLE be open with
write intent. These are the semantics that lockf(3) imple-
ments. Most if not all systems implement lockf(3) in terms of
fcntl(2) locking, though, so the differing semantics shouldn't
bite too many people.

Note that the fcntl(2) emulation of flock(3) requires that
FILEHANDLE be open with read intent to use LOCK_SH and requires
that it be open with write intent to use LOCK_EX.

あと「モード2」とかって見づらいので、use Fcntl qw(:flock);して「LOCK_ほげ」
という名前の定数を使った方がいいと思う。

>>392>>393
+系は書き込みで大丈夫なんですね＾＾
ありがとうございましたm(_ _)m

>>387
どうもです

Email::Valid
Email::Valid::Loose
この二つを使いたいのですがwin版perl5.6にはプリインストールされてないようです。
そこでppmを使用してEmail::Validだけインストールしてみました。
しかしどうやらMail::Addressともう一つ何かが必要なようでMail::Addressの法を
ppmでインストールを試みてみたらどうやらPPDがないので無理なようですorz

実は今までppm以外のインストールをしたことがありません。
しかしこの度メールフォームを作成したいので、XSS対策？代わりにメルアドチェックを
Email::Validに任せたいのです。
多分鯖にもインストールされてないモジュールだと思うので、winXP環境の
ものをそのままLinux鯖のユーザスペースに移して使おうと思ってます。

やはりMail::Addressともう一つ必要になるものは自分でコンパイルするしかないのでしょうか？
しかしその場合はLinux上にコピーしたところで使用するのは不可能ですよね？

Email::Valid
Email::Valid::Loose
使用してる皆様アドバイスお願いします。

>>397
Email::Valid::Looseはperlだけで書かれているっぽいので、
コピーすればいけるんじゃないかな。

ちゃんとディレクトリを掘ったりuse lib追加したりは必要
だろうけど。

しかしLinuxなら普通の手順でインスコできそうなもんだが
貸し鯖かなんかですかね。

>>398
Email::Valid::Looseは
Email::Validのサブクラスですよね？

Email::Valid自体もpureperlなんでしょうか？
実は私は中身を見てもそれがpureperlなのかどうか判断できない馬鹿者なんですorz

実際の実行はLinuxのレンサバですが、テスト環境がwinXPなのです。
以前にpureperlのモジュールをLinuxレンサバのユーザスペースに移して
使用したことはあるので、今回もpureperlならできると思いますが、
結局Mail::addressとNet::DNSモジュールあるいはnslookupが必要なので
むりぽですorz

行き詰ってるのでとりあえずソースを自分でコンパイルしてインストールする
方法を勉強してみます。

>>399
開発手元に持ったほうがいいよ。
俺はデスクトップ環境にはLAN上にRH9置いてる。
持って歩くノートにはWinXPをホストにしてcolinux＋debianを使ってる。
perlモジュールはCPAN使ってインストしてる。
実機はレンサバだけどSSHできるのでCPANで ~/lib/perl5 とかにインストして use lib〜使ってる。

環境作るの少々めんどいけど、都度Win環境でごたごたするよりはまし。
マシンなければ colinux＋debian（デストリは何でもいいけど）で、これ最強。

>>396
あまり知識がないなら簡単なチェックで我慢したら？
@.-_
確かこれ以外の記号を使ってるメールアドレスってないよ。
だからこれと英数字以外を含んでるなら「メルアドが不正！」みたいな
メッセージを出してメールフォーム画面に戻せばとりあえず問題ないけどね。

まともなメールフォームなら
"<>スペース
あたりも許容するべきだけど、まあないならないでいんじゃないかな？

>>399
Net::DNSまたはnslookupが必要になるのはmxcheckを有効にしたときで、
無効にしとけばいらないはず。

>>400
colinux＋debian
聞いたことない名前ですが調べてみますm(_ _)m
>環境作るの少々めんどいけど、都度Win環境でごたごたするよりはまし。
そうですよねorz

>>401
そうなのですか！？
メールフォームといっても相手していするアドレスに固定文章を送りつけるだけなので
メールフォームとは呼ばないのかもしれません＾＾；
＞@.-_
でもrfc882か何かではサイトURLなどと同じ記号が許されてましたよね。
で、それが結構な数になりますが私も401さんが挙げてくれた記号以外を
使ったメールアドレスを見たことがありません。

でもちょっと不安です；
どなたか　@.-_ 　この４種類以外の記号が使われてるメールアドレスを
見たことがある方はいますでしょうか？

>>403
ttp://www.kawaijibika.gr.jp/kaomoji1.shtml

>>403
別の世界のメールシステム(多いのはLotus)に中継される場合なんかで

hoge/fuga/[email protected]

みたいのはよく見ますね。hoge/fuga/gagaは適当に分解されて
向こうの世界のユーザ名やドメイン名みたいなものになるらしい。

あと+=?あたりは普通に名前の一部として使ってるのをたまにみるかな。
404が紹介した顔文字アドレスはさすがにまだ見たことないです(笑)

>>404
おお！これはありがとうございます！
つまり自前サーバ立ててる人以外は大丈夫ということですね。
自前サーバ立ててる人はきっと私より知識が豊富なので説明もしやすそうですし。

さっき他のサイトを色々見てたらみなさんけっこうrfc準拠アドレスでも
@_.-以外を含んでる拒否するんですね。
とりあえず現状はこれでよしとして、なるべく早くEmail::validにイコウシマス！

初歩的ですみませんが、&test(1,3,{a => 1 , b => 2});
みたいな無名ハッシュリファレンスを引数にしますが、これってメソド側でどうやって
受け取るんでしたっけ？
sub test{
$a = shift;
$b = shift;
ここでどうやればいいのか忘れてしまいました。誰か知ってますか？

SSIのファイルサイズを返すものでfsizeというものがあるのですが
バイト単位で返すようにすると1,000という風にカンマ区切りが入ってしまうのです。
具体的には<!--#include virtual="filesize.cgi?file=パス"-->として自動的にページに
?fileクエリで指定したファイルのサイズを区切りなしのバイト単位で出力したいのです。

<!--#include virtual="filesize.cgi?file=/test/test.jpg"-->バイト
1000バイト

どなたかどのように書けばよいのか分かりませんか？

http://o.z-z.jp/?gongonbobo
最新情報

>>407
普通にスカラーで受け取ってデリファレンスすれば？

>>408
好きなのどうぞ

test1({a => 1 , b => 2});
test2({a => 1 , b => 2});
test3({a => 1 , b => 2});
test4({a => 1 , b => 2});

sub test1{
my %z = %{shift()};
print map{"$_ => $z{$_}\n"}keys %z;
}

sub test2{
my %z = %{+shift};
print map{"$_ => $z{$_}\n"}keys %z;
}

sub test3{
my $z = shift;
my %z = %$z;
print map{"$_ => $z{$_}\n"}keys %z;
}

sub test4{
my $z = shift;
print map{"$_ => $z->{$_}\n"}keys %$z;
}

>>411は>>407のレス

MCPANについての質問です。 (PC等のプログラムスレにも投稿してしまいました、すみません)

MCPANでImage::Magickモジュールを入れようとしましたが、エラーになってしまいました。
そこで、ついforce installをしてしまいました。その結果か、入っていないにもかかわらず、
MCPANではImage::Magick is up to dateと表示されてしまうようになりました。

現状どおり、Image::Magickが入っていないと表示されるようにするには、どのようにしたら
良いのでしょうか。よろしくお願いします。

>>413
uninstallしろよ。
できなきゃOSから再インストールしろ。
自己責任でforce installなんかやったんだろ。
ついでにスレ違いだ。

Perlモジュールについて
http://pc5.2ch.net/test/read.cgi/php/997829243/

$hoge内の
数字アルファベット以外のすべての文字に
\をつけるにはどうすればいいんでしょうか
$hoge=~s/([^0-9a-zA-Z])/(?:\\)\1/g;
とかやってもうまくいきません

>>415
$hoge=~s/([^0-9a-zA-Z])/\\$1/g;

ハッシュ変数ってリファレンスにしないとルーチンに渡せないのですか？
&hoge(%hash);
こうすればリスト形式で渡りますよね？

sub hoge{
my %hash = (@_);

こうすればハッシュが壊れることはないでしょうか？とりあえずテストは成功しましたが、
私の知らないおかしなことが起こる瞬間があると怖いです。

>>417
my %hash = ...の代入で新しく確保した%hashにコピーされるから
元の方が壊れることはない。

それとこのような方法がダメですと代替方法って何かありますか？
リファレンスにするとルーチンで作らせたハッシュは全てリファレンスになり
出力整形時に
->
が大量に出てくるので嫌なのです；

やじるしで書かない。

>>420
そういうことなのですか？＾＾；

例えばルーチンが複数のハッシュリファレンスオブジェクトを返してくるとします。
その時に受け取り側でデリファレンスしながら受け取ることっでできませんか？
１個なら
my %hash = %{[&method]};
でいいですが返り血がだと、あ、
my %hash = %{[(&method)[0]]};
my %hash2 = %{[(&method)[1]]};
とすればいいのかな？

$c = $a;
$a = $b;
$b = $c;

$aと$bを入れ替える関数ってなかったでしたっけ？

グローバルな%aとローカルな%aがあった場合にはどちらが優先的に解釈されるのですか？
又、どちらかを意識的に呼び出すにはどうすればいいでしょうか？

>>422
($a,$b)=($b,$a);
こういう書き方もできますよ。

>>422
($a,$b)=($b,$a);
こういう書き方もできますよ。

>>424-425
おー！せんきゅー、ぶらざー

sub test{
my %hash = %{[shift]} ;
}
shiftにはハッシュロファレンスが入ってますが、デリファレンスできないのでしょうか？

PHPのrequire_onceみたいな機能はありませんか？
時々コンパイルできなくなってしまうのですが

>>427
>>411

>>429
ありがとうござました。%{(shift)}でやったら何故かできました＾＾

>>430
それはなぜかではない。%{[shift]}がだめなのは
shiftでとりだした値(たぶんハッシュのリファレンス)
ひとつからなる無名配列を作ってそのリファレンスを
%{}でハッシュとしてデリファレンスするという無理
なことをしているから。

[]とか%{}の意味わかってないんじゃ...

>>428
時々って事は変な薬をやりすぎ

>>423
試せば直ぐにわかることだが、レキシカル変数が優先される。
グローバル変数を参照するにはパッケージ名で修飾すればいいが、
グローバル変数とレキシカル変数に同じ名前をつけるのは奨励できない。

>>428
PerlのrequireはPHPのrequire_onceに相当する。

[Tue Feb 15 14:41:06 2005] [error] [client 127.0.0.1]
DBI::db=HASH(0x1a51d38)->disconnect invalidates 1 active
statement handle (either destroy statement handles or call
finish on them before disconnecting) at
ファイル名 line 231.\n

こういうエラーがでました。
apacheのエラーログです。
どうやら$dbh->disconnect辺りが問題点らしいですがどういうことなのでしょうか？
一応mysqlにDBIで接続してinsert構文の発行などはできています。
画面上もエラーがでません。

しかし何故かログにはエラーとして残るようです。
どなたかわかる方いませんか？

失礼しました。
$sth->finishがなかったせいでした。
しかしmysqlには不要なはずなんですがね；
disconnectも本来不要だから使うならfinishもしっかり使えとかいう感じですかね。

とりあえずすみません解決です。

>>433
有難うございました

1： GDで製作した画像を中間ファイルを使わずにImage::Magickへ引き渡したい。
2： my $image = new GD::Image(640, 480);
　　$image->Scale(width=>320,height=>240);
　　と
　　my $image = new GD::Image(640, 480);
　　my $image2 = Image::Magick->new;
　　$image2->Read($iamge);
3： 500 Internal Server Error

GDで画像を製作し、Image::Magickで縮小などの加工を行いたいと思っています。
（GDで縮小するとアンチエイリアズがかからず汚くなるのと、その他の加工も行いたいので、Image::Magickを使っています）

現在は、GDで製作した画像を中間ファイルに出力した後、Image::Magickで中間ファイルを読み込んでいるのですが、
中間ファイルを使わずに、GDからImage::Magickへ直接画像データを渡すことはできないのでしょうか？

質問ですが
オフラインでperlで作成したcgiを作成した場合で、cgiにパラメータを引き継がせたい場合
どのように起動すればいいのでしょうか?

./exsampl.cgi?a=abc

>>438
詳しく

>>438
--exsampl.cgi
#!/usr/local/bin/perl
print "$ARGV[0]\n";

$ ./exsampl.cgi aho?

>>438
このへんのことかな？
http://www.att.or.jp/perl/cgi-debug-env/deb-tech.html
QUERY_STRINGがQUERY_STRINGSになってるのは罠なので気をつけて。

WindowsならSET文ね。
SET "QUERY_STRING=item=hoge&item2=moge"
って感じ。

あぁ…マルチポストだった

T女の竹田って、鶴見女子のエリ？

Perlというよりプログラミングの手法についてですが、質問です。

ある関数内で必要な引数の数が、関数内の処理によって異なる場合、次のような方法はアリですか？

&hoge("2ch");
&hoge(["yahoo", "損", "氏ね"]);

sub hoge {
　my($kind) = shift;

　if($kind eq "2ch"){
　　print qq(オマエモナー);

　}elsif($$kind[0] eq "yahoo"){
　　print qq(とりあえず$$kind[1]$$kind[2]);
　}
}

きれいに書くにはどう言う方法を取ったら良いのでしょうか。

関数を二つに分けたら？

>>445
その後の処理が殆ど同じなのですが、やはりそれしかないですかね･･･うーん

引数の数によって、処理が変わるって事ではないの？

>>444
引数が複数の時には無名配列にしてる意味はなに？
引数の数で処理を分けるなら、

scalar @_ の数を見ればいいんじゃないの？

&hoge("2ch");
&hoge("yahoo", "損", "氏ね");

sub hoge($;@){
　unless( $_[1] ){
　　print "オマエモナー\n";
　}else{
　　print "@_\n";
　}
}

じゃ、ダメかい？

>>444
どのくらい共通でどのくらい共通じゃないか、
もうちょっとわかりやすい例にならない？
>>444では共通の処理がないからピンと来ないよ。

一箇所だけ例外処理があって、その例外処理の部分で複数の引数が必要になるんですが、、、
共通の処理の方がかなり多いです。
うーんどんな例を出せば良いんだろう

>>450
ありゃ、あんた中国語板にいなかったっけ？

画像ファイルをアップロードする為に
enctype="multipart/form-data"としているのですが
一緒に文章を受信しようと
cgi-lib.plのReadParseで読んだデータを表示してみると
Content-Disposition: form-data; name="comment"
となっていて、フォームに入力した文字がありません
どうすれば一緒に受信できるのでしょうか？

>>421
正直、リファレンスで参照しろよと言いたいけど
どうしてもいやなら、こんなサブルーチンを作るといい！

sub deref{
for my $hash( @{ $_[1] } ){
%{ $hash } = %{ shift @{ $_[0] } };
}
};

testサブルーチンの戻値がハッシュのリファレンスのリストだとするとこうかける。

deref( [ test() ] => [ \%y1, \%y2, \%y3 ] );

または

deref( [ test() ] => [ \( %y1, %y2, %y3 ) ] );

現在のページがSSLかどうかを判断することは不可能ですか？
現在のページがSSLかどうかが入ってる環境変数はないのでしょうか？

>>455 $ENV{'HTTPS'}

２つファイルがあって、中身はメールアドレス
そいつを、一行ずつ比較して同じなら削るPerl、、、

すまん、本職絵描きなんで誰か教えてくれ。

my @array = qw/1 2 3/;
この配列の要素それぞれに2を足した数字を表示させたいです。

print map{return $_ + 2}@array;
としてみましたが、何も返されてませんでした；
どうにか変数などには入れず、@arrayの元々の値も変えずにできないでしょうか？

>>457
違う行にある場合は削らないの？
同じ行毎の比較のみ？
で、削るのは２つのファイル両方から削るの？
それとも二つのファイルから重複しないアドレスリストを求めたいわけ？
もちっと詳しく

>>457
if ($a eq $b) { undef $b }

>457
マルチポストうざい。

http://pc5.2ch.net/test/read.cgi/hp/1106947416/177n

>>458
my @array = qw/1 2 3/;
print map{$_ + 2}@array;
print "\n";
print @array;

--result
345
123

returnがいらないだけでした

T-T

>>462
すいません；

これって
$hoge =~ s{}{}e;
これの右ブロックの中で使うにはどうすればいいですか？
$hoge =~ s{^([^\n]*)}{$1.
(join '',map〜).
"終端"
}e;

こんな感じで一応できましたがわざわざjoinしないといけないのがちょっと；
しかし強制的にスカラー評価されるところではこの方法以外にないのでしょうか？

すみませんできましあ。

>>457
その程度ならcomm(1)使え。

>467
マルチ野郎はスルーしる

ディレクトリs1の下にa1とa2を作り
a1にあるXXX.plファイルをa2にあるPPP.cgiから
参照しようとしています。

PPP.cgiの中で
require "../a1/XXX.pl";

とするのは良いのでしょうか？

Copalだとエラーが出てしまいます。

質問です。

$str =~ s/${value}/hoge/g;

をやるときに、$value の値に正規表現の制御文字（^$.[]…等）が
入っていると置換時にエラーとなってしまいます。

$value 内の文字をそのまま扱いたい場合はどのようにすればよいのでしょうか？
置換前に、$value の中の制御文字を全てエスケープするのかなと思いましたが、
他に簡単な方法があればご教授下さい。

>>469
よいでしょう。

>>470
$str =~ s/\Q$value\E/hoge/g;

>>471
ありがとうございます。
すみません、一つ忘れてました。。

$str =~ s/%__${value}\.begin__%(.+?)%__${value}\.end__%/hoge/g;
のような用途を予定しています。

\Q〜\E 内が全てエスケープされてしまうので、
本来使いたい正規表現が無効になってしまいますね…。

やはり変数個々に対してエスケープでしょうか。

自己レスです。

$str =~ s/%__${value}\.begin__%(.+?)%__${value}\.end__%/hoge/g;

を

$str =~ s/\Q%__${value}.begin__%\E(.+?)\Q%__${value}.end__%\E/hoge/g;

にすることで解決できたようです。（ホントに大丈夫かな…）
ありがとうございました。

事前に $pattern =quotemeta $value; しちゃダメ？

>>472
ありがとうございます。
端末の設定をもう一度見直して見ます。

正規表現でよくでてくる =~ はどういう意味ですか？

パターン結合演算子がなぜ = と ~ の２文字の組み合わせなのかを知りたいのか？

>>476
左項に対して右項でパターンマッチを行う演算子。

$hoge = "hoge1,hoge1,hoge1,\n";
@array = split(/,/,$hoge);
$array[1] = "hoge2";
$hoge = join(",",@array);

カンマで区切られた$hogeの指定個所を変更したいのですが、
今は上記のように、分割→変更→結合と3行に渡って行っています。
これをもっと効率の良い方法でやる事はできますでしょうか？

改行をprintで出力するにはどうすればいいですか？
print "hoge\nhoge";
とやると、
hoge\nhoge
とそのまま表示されてしまうんですが、なにか間違いがあるんでしょうか。

>>480
エスケープする
print "hoge\n\hoge";

>>480
ネタだろ？

>>480
print "hoge<br>hoge";

print "hoge<br></br>hoge";

>>479
この処理だけ100万回やるので全体の処理時間がここで決まるとかじゃなければ
あまり気にしてもしょうがないと思うが、

use Benchmark;

timethese(undef, {
SPLIT_JOIN => sub {
my $hoge = "hoge1,hoge1,hoge1,\n";
my @array = split(/,/,$hoge);
$array[1] = "hoge2";
$hoge = join(",",@array);
},
SUBSTITUTE => sub {
my $hoge = "hoge1,hoge1,hoge1,\n";
$hoge =~ s/,[^,]*/,hoge2/;
},
INDEX_SUBSTR => sub {
my $hoge = "hoge1,hoge1,hoge1,\n";
my $pos1 = index($hoge, ',')+1;
my $pos2 = index($hoge, ',', $pos1);
substr($hoge, $pos1, $pos2-$pos1) = 'hoge2';
},
});

Benchmark: running INDEX_SUBSTR, SPLIT_JOIN, SUBSTITUTE for at least 3 CPU seconds...
INDEX_SUBSTR: 3 wallclock secs ( 3.14 usr + 0.00 sys = 3.14 CPU) @ 222680.89/s (n=699218)
SPLIT_JOIN: 4 wallclock secs ( 3.12 usr + 0.00 sys = 3.12 CPU) @ 108552.56/s (n=338684)
SUBSTITUTE: 3 wallclock secs ( 3.19 usr + 0.00 sys = 3.19 CPU) @ 188749.53/s (n=602111)

>>485
ベンチマークまでありがとうです。
hoge2が計算式だったり、要素数が多かったりする事も考慮すると、
見易さの面（個々によると思いますが）でも、今まで通りでOKみたいですね。

(空想の関数/,/,$hoge)[99] = $age + $sage;
みたいな感じで$hogeをカンマで区切った場合、
要素100番目の位置にダイレクトに代入できる技が無いものかと思いまして。

my %a = (a=>1,b=>2,c=>3);
print $a{a,b,c};

こういう感じでハッシュも配列みたいにいっぺんに呼べるカナと思いましたが、
エラーでした；
@a{a,b,c}や%a{a,b,c}もやりましたがダメでした。

ハッシュって
print $a{a},$a{b},$a{c};
のようにいちいち一つずつでしかできないのでしょうか？

スライスとか

@a{'a', 'b', 'c'}

@{[%hash]}
使い道ないかもしんないけどこういうのも

>>488-489
クォートでしたか。
@a{qw/a b c/};
こんな感じですね＾＾

>>487
strict subsしているときは、サブルーチンとして
宣言されていない裸のワードの存在が許されるのは
「{}」の間に単独で存在するときと、「=>」の左側
だけ。

Bareword "a" not allowed while "strict subs" in use at ほげほげ

って感じのエラー出てたはずだからちゃんとよめよ...

エラーメッセージの意味わかんない人は、ラクダ本の
診断メッセージって章にアルファベット順に意味と並
べて書いてあるので調べる癖をつけましょう。

Windows2000
Apache 2.0.52
perl ActivePerl 5.8.6.811

クライアントの要求のヘッダを取得したいのですが出来るものでしょうか？
WEB サーバーからのヘッダは取得は出来たのですが、今やりたい内容ではないですし …

ご教授よろしくお願いします。

>>492
前に HTTP_ をつけて環境変数 %ENV にはいるよ

>>486
そうであればこんな正規表現があるけど

$hoge = "hoge1,hoge1,hoge1,\n";
$hoge =~ s/((?:[^,]*,){1})[^,]*/$1hoge2/;

これで前から2番目の「hoge1」が「hoge2」に置き換わる。
{1} の部分を
{0} とすれば先頭の「hoge1」が「hoge2」に置き換わるし
{2} とすれば前から3番目の「hoge1」が「hoge2」に置き換わる。
{3} とすれば最後のカンマの後ろに「hoge2」が追加(改行が置き換わる)されるし
4以上の数字を指定すと置換えは行われない。

カンマの数が増えれば置き換え対象の指定位置も増える。

>>494の続き

(空想の関数/,/,$hoge)[99] = $age + $sage;

みたいにしたければ

$hoge =~ s/((?:[^,]*,){99})[^,]*/$1.($age + $sage)/e;

ってやればよい。

回答者の皆さまはじめまして。
�@：やりたい事
データがカンマ区切り","されていない形式で、
データをソートして表示したい

4 平野　298 3
3 辻 286 5
2 秋山 325 26
1 清原 304 38

�A：やってみた事
各項目別にソートしたいのですが、

@mem = sort { (split(/\,/,$a))[0] <=> (split(/\,/,$b))[0] } @mem;
foreach $mem (@mem) {
($no,$name,$avr,$hr) = split(/\t/, $line);
（各処理）
}
現在、$noに関してソートして表示できています。
上記の[0]の部分を[2]に変更すると、$avr項目に関してソートできると思ったのですが
うまくいきません。
データの拡張子は.logですが、excelで開くと綺麗に並んで表示されます。
","で区切られていないと上記の処理は出来ませんか？
それとも、","の区切りは関係なく、別の問題なのでしょうか？

Perlでフリーソフトを作ってます。
モジュールに頼らずに入力されたパスフレーズをSHA1かけてファイルに保存しようと思ってます。
再配布可能でSHA1ハッシュ値を計算するサブルーチンをwebで検索したところ
ttp://www.mirrors.wiretapped.net/security/cryptography/algorithms/rc4/arcfour.pl
こちらでsha1サブルーチンがあったので、ちょっとここのサブルーチンを拝借して
$string = "ax";
print sha1($string);
という風にテストしてみたところSHA1ハッシュ値とは全然違う文字列が出力されました。
どのようにすればちゃんとしたSHA1ハッシュ値が得らるのでしょうか？

>>496
「データがカンマ区切り","されていない形式で」っていっているんだから
sort の中の split で","分割しちゃだめでしょ。

>>498
有り難うございます！
splitの\,を\tに変えたら作動しました！！
5〜6時間近く悩んでいたのに…。
本当にありがとう御座いました！！

>>494-495
親切な人ありがとー
一行でやるには関数では無くて、正規表現でやる事になるのですね。
勉強になりました。

DBI周辺質問
SELECT * FROM TEST_TABLE;
これで全レコードのゼンフィールドを取得したとして。
@arrayの中に全レコードのhogeフィールドだけをデリファレンスして入れたい。
hogeフィールドは0番目だと仮定。

fetchall_arrayrefで返されるのが配列リファレンス。更に中に配列リファレンスなので

my @array = @{@{$sth->fetchall_arrayref}[0..$#{$sth->fetchall_arrayref}]}[0];

とかでいけるかと思いきやダメでしたorz
誰かわかる方いますか？

ろくに読まないでレス。

my $rows = $sth->fetchall_arrayref;
my @array = map { $_->[0] } @$rows;

>>502
ありがとうございます。
変数作るの機雷なんで
my @array = map { $_->[0] } @{$sth->fetchall_arrayref};
としておきました。

もう一つお願いします。
sprintfで
$str = sprintf %d+100.%d-20.%d,@list;

こういう風に配列の中身にそれぞれ別の数字を足したり、文字列を付加したりしながらの
整形って不可能ですか？上記ではエラーでしたが；

やりたいことは
$str = $list[0]+100.$list[1]-20.$list[2];
です

truncate関数ってflockと同じくらいプラットフォームによって使えるかが左右される関数ってほんと？

上げ忘れた。
truncate関数がダメならそれ以外で
open FH,"+<test.txt";
flock FH,2;
この状態のファイルの中身を一旦0にすることはできますか？

ファイルを上書きモ−ドで開くのは不可能です。このファイルを開いてる間に
処理内容が重複しては困ることをしてるので。

あれ・・・誰もいないのかな・・・

>>504
そんな話聞いたことが無いけど釣りですか

>>507
失敬な！
http://perl.misty.ne.jp/function02/truncate.html
http://www.7key.jp/program/perl/truncate.html

--- original.pl ---
require './lib/lib1.pl';

--- lib1.pl ---
require './lib/lib2.pl';
open( FILE, "< file.txt" );

というファイル／ソースの時に、
original.pl を実行すると、
どこの file.txt, lib2.pl を読むのでしょうか？

この辺の位置関係を解説してるサイトがあれば
すみませんが教えてもらえると助かります。

俺Perl書けないけど試せば答えられそうだな

>>510
お前なんでここにいんの？

>>503
$str = sprintf '%d%d%d', sub{ $_[0]+100, $_[1]-20, $_[2] }->(@list);

#応用
$str = sprintf '%d/%02d/%02d %02d:%02d:%02d', sub{$_[5]+1900,$_[4]+1,@_[3,2,1,0]}->(localtime);

>>508
いやflockが使えないOSは聞いたことがあるがtruncateが使えないOSは聞いたことが無いってこと。

>>512
おお！
凄いですねそれ。どうなってるんですか？
無名関数のリファレンスを作ってるみたいですが、どうして->(リスト)が
引数として渡されるんでしょう？

print @hairetu[0..6];
これの降順ってのは無理？
print @hairetu[6..0];
for(0..2)の仕組みと同じっぽいから無理だと思うけど、ここならもしかして知ってる人がいるかもと期待してきてみた。

>>511
m9(^Д^)ﾌﾟｷﾞｬｰｰｰｯ

reverse

>>514
$code = sub{ $_[0]+100, $_[1]-20, $_[2] };
@list2 = $code->(@list);
$str = sprintf '%d%d%d', @list2;

これを一行にまとめているっていうのは理解できるよね。

参照演算子 "->" は、左辺値が関数リファレンスであれば
右辺に "()" を記述して関数を間接実行できる。
同様に左辺値が配列リファレンスであれば
右辺に "[]" を記述して配列要素を間接参照できるし
左辺値がハッシュリファレンスであれば
右辺に "{}" を記述してハッシュ要素を間接参照できる。

これは左辺値の評価結果が関数リファレンスでありさえすれば
"->()" でいつでも間接実行が行えるということ。

"sub{}" は無名関数リファレンスの値を持っているわけだから
無名関数を定義したと同時に実行させただけということになる。

もちろん関数を実行させているわけだから
"()" 内に指定したリストが引数として渡る。

>>515
>>517が示しているリスト関数を使う。

print @hairetu[reverse 0..6];

>>518
そういうことでしたか。わかりやすい説明ありがとうございました！
@{[]}や${\()}なんかと同じ位価値のある色々使えそうなテクですね＾＾

>>517>>519
長い名前だね。[6,5,4,3,2,1,0]も[reverse 0..6]も変わらないorz
とにかくレスサンクス

>>520
＞ @{[]}や${\()}なんかと同じ位価値
そんなのが好きならこんなのもあるよ

${\do{}}

文字列のなかにブロック処理を記述できる。

$x = 1;

$str = qq(これは！${\do{
if($x){
"真";
}else{
"偽";
}
}}です\n);

print $str;

ベンチマークっていうのを取ってみたいんですが、そのモジュールの使い方を
日本語で説明シテルサイトありませんか？

>>523
ﾓｼﾞｭｰﾙﾒｲﾃﾞｹﾝｻｸｼﾃﾐﾅｻｲ

http://www.pure.ne.jp/~learner/program/Perl_tips.html#benchmark

ここに比較はかいてありましたが、何秒かかったかのやり方はどこあないでしょうか？

http://hio.jp/tips/perl/perldoc-5.8.0/lib/Benchmark.html#SYNOPSIS

英語読めませんが
timestr()
timethese()
timeit()
timethis()
ってBencmarkの関数ですか？どうしてパッケージ名なしで呼べるのでしょうか？

それと
my $code = sub {
my $a = "あいうえおあかかうｓｋｓｌｋｄｊｆんｇｓｊｆｇｓｊｆｄｂｇｓｄｆはｆはｆｄ";
$a =~ s/(\x45)/$1\x46/g;
};
timethis(100,$code);
としたら
timethis 100: 0 wallclock secs ( 0.00 usr + 0.00 sys = 0.00 CPU) (warning: too few iterations for a reliable count)
こんなんでました。警告文は多分「しんらいできるカウントのためにあまりに少ない繰り返しなのでとてもできない。」
的な感じだと思いますが、秒数はこれで求めれるので主か？

単に処理が短いからｂヴェンチもくそもあるかと文句をいわれてるのでｓｙか？＞

>>526
うん

>>526
＞どうしてパッケージ名なしで呼べるのでしょうか？

モジュールがuseされた時にデフォルトのパッケージ関数が
呼び出し側にエクスポートされるようにモジュール側で記述されているから
呼び出し側でモジュールをuseするとパッケージ関数がインポートされて
パッケージ名を明示しなくても関数が使用できるようになる。

下のは正式なエクスポート方法ではないけど、エクスポートの真似事ができる。
実行するとtestサブルーチンが定義されてないとのエラーメッセージがでるが
コメントマークを外すとTESTパッケージのtest関数が実行できる。

package TEST;

#$main::{test} = \&test;

sub test{
print @_;
}

package main;

test(1,2,3);

>>528はちょっち失敗、これでどうかな

package TEST;

$main::{test} = \&test ;

sub test{
print @_;
}

package main;

test(1,2,3);

>>509
http://www.harukaze.net/~mishima/perl/man/perlvar.1.html
> @INC 配列 @INC には、do EXPR、require、use によって評価す
> る Perl スクリプトを探す場所のリストが納められていま
> す。　初期状態では、コマンドラインスイッチ -I の引数
> とデフォルトの Perl ライブラリディレクトリ (おそらく
> "/usr/local/lib/perl5") とカレントディレクトリを表わ
> す "." を順につなげたものです。

> file.txt
こっちはカレントディレクトリ。
CGIの場合、UNIX環境であれば動作しているスクリプトと同じディレクトリ。
ただし、mod_perlの場合は違うから注意が必要。

http://www.ietf.org/rfc/rfc3875.txt
7.2. UNIX
For UNIX compatible operating systems, the following are defined:

> The current working directory
> The current working directory for the script SHOULD be set to the
> directory containing the script.

>>522
そのテクもありがたく頂きますm(_ _)m

使える小技集めたサイトあったらいいな。

個人的には...split /&/......こういうデフォルトで$_を引数にとる関数が好き。
何でpushはとらないんかね。shiftｈ取るくせに。

>>533
shiftが暗黙に対象とするのは@_だろ。
pushは第二引数が配列でもいいからじゃねえか？

>>533
そっか。
ところで$_,@_の中身がセットされるときと削除される時のことを
詳しく説明してるサイトをどっかで見た気がするけど忘れてしまった。
誰か知らない？日本語のサイトなんだけど。

>>535
$_ は、map,grep を使ったときに、または、foreachで$_ が参照変数になったとき暗黙のlocal対象になるよ。
foreachで$_ 意外の参照変数を明示したらlocal対象にはならないけどね。

@_ は、サブルーチン内で暗黙のlocal対象になるよ。
だから、呼出されたサブルーチン内から呼出し元の@_の値を得ることはできない。
しかし、サブルーチン内でブロックがないまま、@_ にlocalを明示すると
呼出されたサブルーチン内のlocal前の@_ の値が、呼出し側の@_ に移るよ！

@_ = 0..9;
print "@_\n"; test1(); print "@_\n"; test2(); print "@_\n"; test3(); print "@_\n";

sub test1{
@_ = 10..19;
}

sub test2{
@_ = 20..29;
{
local @_;
}
}

sub test3{
@_ = 30..39;
local @_;
}

実行結果出力
0 1 2 3 4 5 6 7 8 9
0 1 2 3 4 5 6 7 8 9
0 1 2 3 4 5 6 7 8 9
30 31 32 33 34 35 36 37 38 39

maildropが入っているサーバで.mailfilterにto "|/home/username/example.pl"と書いて、メールをexample.plに渡しています。
$ENV{'LINES'}にメールの行数、$ENV{'SIZE'}にメールのバイト数が格納されているのは確認しましたが、メール本文がどこにあるかわかりません。

メール本文がどこに格納されているのかご存知の方がいましたら、教えていただけないでしょうか？

use strict; の状況下でグローバル変数を使用したい場合は、
use vars を使用しますが、これでは require した外部ライブラリでも使用できてしまいます。
引数として渡した変数以外は外部ライブラリに参照させないことはできますでしょうか。
よろしくお願いします。

package

そのファイル内でグロバール的に使いたいだけなら、use vars使わずに
サブルーチン外で普通に my しとけばいいと思うけど。

配列からランダムに1つ要素を抜き出すためにはどうすればいいですか？

@foo = qw(テスト Perl 適当);

$bar = $foo[int rand $#foo+1];

これより簡単になりますか？

$bar = $foo[int rand @foo];

$bar = $foo[<>];

>>542
$bar = $foo[ rand @foo ];

(http://hoge/1.jpg,http://hoge/2.jpg,http://hoge/100.jpg,http://hoge/200.jpg)
というふうに配列をソートしたいのですが、
普通にソートすると、
(http://hoge/100.jpg,http://hoge/1.jpg,http://hoge/200.jpg,http://hoge/2.jpg)
というふうになってしまいます。
よい方法はありませんか？

>>546
numetric sort

>>547
ぐぐってみましたがよくわかりません
モジュールですか？

ファイルハンドルをpackageやオブジェクトのメンバにする事は
できないのでしょうか?

>>546
sort{
my($an) = ( $a=~/(\d+)\.jpg\z/ );
my($bn) = ( $b=~/(\d+)\.jpg\z/ );
$an <=> $bn
}@array;
とか。

>>540-1
遅くなりましたがありがとうございました。

>>551
かちゅが死ぬる

そんなしょぼいブラウザは窓から（ｒｙ

>>546
@url = map{ $_->[0] }
sort{ $a->[1] <=> $b->[1] }
map{ m/(\d+)\.jpg$/; [$_, $1] } @url;
とか。

>>549
use FileHandle;
my $fh = FileHandle->new("hoe.txt") or die $!;

my $fh;
open($fh, "hoe.txt") or die $!;
# これは古いPerlと互換がないかも。

これで変数に入れられるから、オブジェクトでも扱える。
(クラスメンバなら、ファイルハンドルのままでも構わないのでは。)

ありがとうございました

forなどで連続値を指定したいときは
for(1..100){}
などとできますが、
飛び飛びの連続値を指定する場合はどうすればいいんでしょう？

for(1.20,30..100){}
とかじゃ無理だし、なにか上手いやり方はありますか？

>556
1と20の間に . が2個あれば行くぞ。

>>557
うわ、ほんとだ。

自分の場合は間に1つだけの要素を挟んだりするんですが、そのばあいは

for(1..3, 5..5, 7..9){}

こんな感じですかね。

for(1..3, 5, 7..9){}

あーそう書くのかぁ。ありがとうございます。

** fork について質問です。**

if ($pid= fork){
# ここは親プロセス
}elsif (defined $pid){
# ここは子プロセス
}elsif ($! =~ /No more process/){
# A
}else {
}

上記のようなソースをたまに見かけます（らくだ本など）が、A部分には
子プロセスが作れなかったのに何がくるのでしょうか？
わたしが思うに、子プロセス生成に失敗したので結果的に親プロセス部分
しか処理されないような感じがするのですが・・・。

>>561
エラー（そこを実行するプロセスは親と言うか流産しちゃった人）。

man fork

perlの変数をflashに渡す方法を教えてください。（テキスト以外で）

$hoge(perl)の数値（文字列）をそのまま hoge(flash)に。

よろしくお願いしますm(__)m

解決しました。ありがとうございました〜

>>564
結果書けボケ。

ぼく、ボケてないもん。

質問させて下さい。
print等で、

1. print 'あ　'.(ドット)"$hoge\n";

2. print 'あ　',(カンマ)"$hoge\n";

ドットを使うのと、カンマを使うのとでの違いはありますか？

見た目は違いなし

データベースからDBIを使用して全レコードの全フィールドを取り出したいです。
SQL文はわかってるのですが、どう受け取ればいいのか；

my $value = $sth->fetchall_arrayref;
これだと一応受け取れますが、フィールド名のハッシュになってないので扱いにくいです。
しかしハッシュ系は
my $value = $sth->fetchrow_hashref;
しか見つけられなかったのですが、無理なのでしょうか。
このやり方は1レコードだけなのですが・・・

my $hash = {a => "あいうえお" , b=> "かきくけこ"};

これの文字コードをjcode.plを使って変える時って
foreach (keys %$hash) { jcode::convert(\$hash->{$_},"sjis")}

で一応できましたが、なんか変な感じ。
そもそもリファレンスさえ渡したら向こうで中身を書き換えてくれるんですよね。
なので渡す時にデリファレンスしてからリファレンスを作るのって変。

ハッシュリファレンスの中身をjcode.plに効率よく渡す方法ってあるんでしょうか？

>>570
「ハッシュ全体へのリファレンス」と「ハッシュの個々のエントリへのリファレンス」は
全く無関係な別物だから、仕方ないだろう。そういうものだ。

mapでできるんじゃないの？
map内で配列に手を加えればいいけどね。

いい例なのがこれ。
map {jcode::convert(\$_,"euc")} @$arrayref
あ、これも同じデリファレンス→リファレンスだなｗ

てか最初のハッシュがリファレンスである必要がなければこう書けばいいと思うが。

my %hash = (a => "あいうえお" , b=> "かきくけこ");

foreach (keys %hash) {jcode::convert(\$hash{$_},"sjis")}

>>573
大前提をひっくり返してしまっては何を言っても意味はないと思うが・・・

>>574
あ、いや、>>570がjcode::convertにハッシュリファレンスを渡すためにわざわざ
最初の段階でリファレンスにして無意味だなと思っているみたいだったんで
だったらハッシュをわざわざリファレンスにしなくていいんじゃないと思っただけ。

＞jcode::convertにハッシュリファレンス
「jcode::convertにハッシュ要素のスカラーリファレンス」と読み替えてくれ。

$value = qq{oaoa_aaaa_test};
この$valueの中身を書き換えずに_を-に変えて出力するにはどうすればいい？

print ....
まったくわからないorz

print "content-type:text/html;charset=euc-jp;\n";
print "\n";
my $value = qq|aiu_oiy|;
print qq|${sub{$_[0] =~ s/\_/\-/g; print $_[0]}->($value)}あいうえお|;
print "<br>";
print "aiu",$value;

これやったら何故か「あいうえお」すら表示されない・・・
しかし置換後の文字列の出力はしっかりできている。
一体どういうことなんだろう。無名ルーチンに異次元につれてかれてSTDINへの出力を
したくてもSTDINがどこにあるか分からないとか？

print "content-type:text/html;charset=euc-jp;\n";
print "\n";
my $value = qq|aiu_oiy|;
print qq|@{[sub{my $a = shift; $a =~ s/\_/\-/g; $a}->($value)]}あいうえお|;
print "<br>";
print $value;

これでできたけどなんかなぁ。
まあいいけど>>578はなんでその後が表示されないんだろ？

$in{'ngword'} →馬鹿\n死ね\nあほ

$in{'ngword'} =~ s/\n/\'\,\'/g;
print BS <<"EOM";
# NGワード
\@ngword= ('$in{'ngword'}');
EOM

として、
ファイルハンドルBSに
@ngword = ('馬鹿','死ね,'あほ')；
と書きたいのですが、
・"鹿"と"'"の間
・"ね"と","の間
にメモ張で見ると文字化けしているような
文字("■"を小さくしたようなもの)、Perl編
集用で使っているエディタだと改行が入っ
てしまいます。

なぜなのかわかりません。。。

>>567
, は、リスト評価。 . は、文字列を結合してからスカラー評価。
, と . では、演算子の優先順位が違うので、計算式が入る場合は注意。

>>577
print join( '-', split( '_', $value ) );
とか
print "$1-$2-$3" if $value =~/([^_]+)_([^_]+)_([^_]+)/;
とか

>>578
use strict; すれば？
sub の中の$valueは、undefだよ。

>>577
my $value = 'oaoa_aaaa_test';

(my $tmp = $value) =~ tr/_/-/;
print "$value => $tmp\n";

sub _toh { (my $str = shift) =~ tr/_/-/; $str }
print "$value => ${\_toh($value)}\n";

print join '-', split '_', $value;

print "$value => ${\ (sub { (my $str = shift) =~ tr/_/-/; $str })->($value) }\n";

local $" = '';
print "$value => @{[ map { tr/_/-/; $_ } split //, $value ]}\n";

>>578
デリファレンスする前にリファレンス取らないと、シンボリックリファレンスになる。

>>580
http://www.din.or.jp/~ohzaki/perl.htm#CRLF_Unify

>>576-578
@_ は関数内で暗黙のlocalだけど、@_の各要素である$_[0],$_[1],...等は、
呼出し元の引数の別名だから、上書きすると、呼び出し元で引き数として渡した
対応する変数の中身が書き変るよ。

好きなのどうぞ

print qq|${\sub{$_[0]->[0] =~ s/_/-/g;$_[0]->[0]}->([$value])}あいうえお|;

print qq|${\map{$_->[0] =~ s/_/-/g;$_->[0]}[$value]}あいうえお|;

print qq|${\do{(local $_=$value) =~ s/_/-/g;$_}}あいうえお|;

サブルーチンがハッシュのリファレンスを2つ返してきます。
それをデリファレンスしながら受け取りたいんですが不可能ですか？

my (%a,%b) = map{%{$_}}&hoge;

こんなことを考えてみたけど、よく考えたら全くダメだった；

Can't find string terminator "^@" anywhere before EOF at C:\Program Files\Apache
Group\Apache\htdocs\test.cgi line 353.

こんなエラー内容なんだけど、誰かわかる？
^@こんな文字列検索しても出てこないんだよね。ライン付近を見ても異常が見当たらない。

;が抜けてるとか

^@ は、文字コード０だろ？

do{sub{%a = %{shift()}; %b = %{shift()}}->(&hoge)};

これで一応できました＾＾

>>585
ありがとうございました。できました。

>>591
ほんとはこういう必殺技があるんだけど型グロブが理解できなければ使わないほうがいい。

(*a,*b) = hoge();

変数の計算について質問

いきなり
my %a;
for (1..10){
$a{a} += 2;
}

とかやっても失敗しなかったのですが、偶然ですか？
my %a = (a => 0);
とはじめにしておいたほうが当然無難でしょうけど、なんか面倒なんですよね。

面倒でもやっておかないと失敗することはあるんでしょうか？

八代空きじゃなくて、
よし行く象を最後にすべきだろう

↑ああああああああああああ、激しくmiss m(_ _)m

>>594
未定義値を論理評価すると偽として解釈される。
未定義値を数値評価すると0として解釈される。
未定義値を文字列評価するとヌル文字列として解釈される。
未定義値の配列やハッシュは空要素として解釈される。
配列やハッシュの存在しない要素を参照すると値は未定義値である。
my指定した変数は、明示的に初期化しなければ未定義値で初期化されることが保証されている。

これを理解していれば>>594の場合で明示的に初期化する必要はない。

my %hash = ( a => 1 , b => {c => 1} );
&test({ b => {%{$hash{b}}} });
sub test{
my %hash = %{$_[0]->{b}};
$hash{c}++;
print $hash{c},"<br>";
}
print $hash{b}->{c};

これリファレンスの仕組みを理解するのに書いたんですが、
グローバルな$hash{b}にはハッシュリファレンスが入ってます。
それをルーチンに渡す時にそのまま渡すとルーチンないの作業によっては
グローバルな変数の中身に影響がでますよね。
そのため今までは
&test({
b=>{%{$hash{b}}}
});
としていました。しかしb=>\%{$hash{b}}でやっても何故かルーチンないでの作業が
グローバル側に影響を及ぼすことはありませんでした。

どうしてなのでしょうか？
jcodeなどに代表されるように通常は\これで作ったリファレンスを渡すと渡し側のものを
直接いじるのと同じ行為になると思ってたのですが・・・

ハッシュの場合は違うのか、それともデリファレンスしたものだから違うのかな？

>>598
my %hash = %{$_[0]->{b}};

で新しく作った%hashにコピーされてるから、

$hash{c}++;

はコピーされた方が変わるだけ。

元のプログラム全体については何をしたいのか意図がよくわからんので、
エスパー回答者にお任せします。

>>599
そういえばそうですね；
ではやはり\を使って渡すのは危ないということですね。

元のプログラムはたんなるリファレンスのテストです。

ポートチェックのスクリプトを書いたのですか上手く動作しません
おかしなところがあったら教えてください
メイン
#!/usr/bin/perl
@port = (80,1080,3128,8000,8080,8888); # チェックするポート番号

PrinthtmlHeader(); #htmlのヘッダーと<BODY>まで出力する関数

foreach(@port){
$result=IsOpenPort($_);
print $result;
}

PrinthtmlFooter(); #ｈｔｍｌフッタ出力

exit;

#---------ポートが開いていれば１を返す関数
sub IsOpenPort
{
my ($port) = @_;
my ($inad,$scad);

eval{
$SIG{'ALRM'} = "hAlarm"; # ハンドラ設定
alarm(5); # timeout5秒に

use Socket;
socket(SOCK,PF_INET,SOCK_STREAM,0) || die("Socket Error＼n");
$inad = inet_aton($ENV{'REMOTE_ADDR'}) || die("Iaddr Error＼n");
$scad = pack_sockaddr_in($port, $inad);
connect(SOCK, $scad) || die("Connect Error＼n");
select(SOCK);
$|=1;
select(STDOUT);
die("OUT!!!＼n");
close(SOCK);
alarm(0);
};

if ($@ =~ /OUT/){ return 1; }
else{ return 0; }
}

#---------アラームシグナルハンドラ
sub hAlarm
{
die("Alarm...＼n");
}

このスクリプトをレンタル鯖にアップロードしてたとえば
usen-219x123x129x154.ap-us.usen.ad.jp:3128
この串でアクセスしてみると
001000
と出力されれば正常なのですが
100000と出力されます
proxy.or3.marketscore.com:8000
この串でも100000と出力されます

>>601
まず結果を1と0に丸めるのをやめて、だめな時はどこで
ひっかかってるかをきちんと調べるところからはじめる
べきだな。あとシステムコール類がエラーしたときは
ちゃんと$!を表示すること。

具体的にどこでどういう状況になってるかを特定してから
出直してください。

>>598
# 呼び出し元をわざと中間変数を使って分解してみよう！

my %hash_c = ( c => 1 );
my %hash = ( a => 1, b => \%hash_c );

my %hash_b = %{$hash{b}}; # %hash_b = %hash_c; (1)
my %hash_arg = ( b => \%hash_b );
&test( \%hash_arg );

# つぎにsub test()を中間変数を使って分解してみよう！

sub test{
my $arg = $_[0]; # $arg = \%hash_arg;
my %hash = %{ $arg->{b} }; # %hash = %{ $hash_arg{b} }; --> %hash = %hash_b; (2)

$hash{c}++;
print $hash{c},"<br>";
}

# サブルーチンに引数を渡す前(1)も、渡した後(2)もコピーになってるでしょ。
# 呼出し元の%hashのリファレンスは、なにも渡ってないってことね。

ポルトガル語ある文章の中から、ある単語が含まれる文を抜き出す、といスクリプトを作りたいのですが、
/\b$hoge\b/
とやると、
$hoge = a の時だと
a~no や hu~a 等を含む文も引っかかってしまい、
$hoge = trouvero~ の場合
逆にどの文も引っかかってくれなかったりしてしまいます。

\bの仕様上、仕方ないのかもしれませんが、何か巧い方法はないでしょうか？

\bを使わない

>>606
ほい。

/^$hoge[^a-zA-Z\d~]|[^a-zA-Z\d~]$hoge[^a-zA-Z\d~]|[^a-zA-Z\d~]$hoge$|^$hoge$/

ただ、このやりかたはバックトラックが発生するからこっちがいいかもしれん

/^$hoge[^a-zA-Z\d~]/ || /[^a-zA-Z\d~]$hoge[^a-zA-Z\d~]/ || /[^a-zA-Z\d~]$hoge$/ || /^$hoge$/

>>>606
ポルトガル語に使う文字を定義して、?<!と?!を使うとか。

my $portuguese = "[a-z~]";
print "sim" if ($str =~ /(?<!$portuguese)$hoge(?!$portuguese)/i);

/(?:^|[^a-zA-Z\d~])$hoge(?![a-zA-Z\d~])/
でよさげ。

>607-610
ありがとうございました。
なんとか形にすることができました。

初めてperlに触れてみましたが、正規表現とかややこしいですね。
精進します。

２つの配列を両方同時に１つずつ取り出して処理したいのですが、Perlではそういうのは
できないのでしょうか？

print map "$_[0] ＋ $_[1] ＝ ",
@a
@b
こういうときにやりたいのですがｌ

print qq|
@{[sub{my $str = shift; $str =~ s/\r\n|\r|\n/<br>/g; $str }->($form{test})]}
|;

こういうことがしたいのですがエラーになりました。
原因は|です。qq[]などでやれば問題ないのですが、そうはしたくありません。
大元を変えると他にも影響がでそうなので；

qq||のなかの正規表現でor演算子的に|を使うにはどうすればいいでしょうか？

よくわからんけど。

二つでいいならハッシュにしたり。

それ以上の複数なら
for(my $count = 0; $count < ?? ; $count++){
$a[$count], $b[$count], $c[$count];
}
とか？

mapは無理だけど、自分でそんな関数は作れる。

sub (&\@\@){
my $code = shift;
my $a = shift; #ん？大丈夫かこれ？？
my $b = shift;
@a = @$a;
@b = @$b;
for(なんたらかんたら;略;略){　#使用の詳細が不明なので略
　　略;
}
}

みたいなイメージで。

>>614 なんか粗悪な記述でごめそ。

>>613
>大元を変えると他にも影響がでそうなので；
いみふ（ｒｙ
perlは処理の優先的にまず、区切り文字を探します。

>>613
不可能
無理
だめ
ばか
あほ

DBIを使ってmysqlからクエリを取り出す部分で問題が発生。
$sth = $dbh->prepare(q|select * from test_table where hoge=1|);
$sth->execute;
こういうSQL文を発行して

%hash = %{$sth->fetchrow_hashref};
これでそのレコードの全コラムを取得しようと思ったのです。

しかしwhereで引っかかるのがないときに、
%hash = %{$sth->fetchrow_hashref};
これがエラーの原因になります。

DBIはmysqlから「Empty set」を返された時にはfetchrow_hashrefに何も入れないのでしょうか？
それとEmpty setが返されたのかを知るすべはありますか？

>>613
ほれ！

print qq|
@{[sub{my $str = shift; eval qq[\$str =~ s/\\r\\n\|\\r\|\\n/<br>/g]; $str }->($form{test})]}
|;

>>612
ほれ！

@hoge = sub{map{$_[0]->(map{shift@$_}@_[1..$#_])}0..$#{(sort{@$b<=>@$a}@_[1..$#_])[0]}}->( sub{$_[0]+$_[1]+$_[2]}, [@x], [@y], [@z] );

>>618
お前はシングルクォートを知らんのか！

>>619
汚いソースを書くな！

>>618と>>619は、できないことはないけど、可読性が失われるという見本。
よくつかう処理はサブルーチンを用意すること。

変数展開の技巧や無名サブルーチンやリスト関数の技巧などは、理解できない内は使わない。
素直に書いた方が簡単な場合もある。
ただ、知ってて使う分には止めない。

>>621,620
おっとすまん、俺>>622=618=619なんだけど、皮肉で書いただけだから。

>>614を具現化

sub amap(&@){
my $code = shift;
my @array_ref_list = @_;

@array_ref_list = sort{@$b <=> @$a} @array_ref_list;
my $max_num = @{$array_ref_list[0]};

my @result_list;
for(my $i=0; $i<$max_num; $i++){

my @arg_list;
foreach my $a_ref(@array_ref_list){
push @arg_list, $a_ref->[$i];
}

my $result = $code->( @arg_list );
push @result_list, $result;
}

return @result_list;
}

@x = map{$_*1}1..10;
@y = map{$_*10}1..9;
@z = map{$_*100}1..5;

@hoge1 = amap{ $_[0]+$_[1]+$_[2] } \@x, \@y, \@z;
@hoge2 = amap{ 2*($_[0]-$_[1]) } \@z, \@y;
@hoge3 = amap{ $_[1].$_[0].$_[1] } ['a'..'z'], [reverse 'A'..'Z'];

できました。
excuteの返りを変数に代入して、その帰りが0ならって感じでした。

>>613
マジレスするとこうやね。

print qq|
@{[sub{my $str = shift; $str =~ s/\r\n\|\r\|\n/<br>/g; $str }->($form{test})]}
|;

ダブルクォート内のブロック処理は、ブロック内がコンパイルされる前に終端文字のエスケープだけ解除されるから
ブロック内の処理に終端文字が出てくるときは、'\' で普通にエスケープすればよい。

だからこんなこともできる。

print qq|
@{[sub{my $str = shift; $str =~ s/\r\n\|\r\|\n/<br>/g; qq\|<!--$str-->\| }->($form{test})]}
|;

もちろん読みにくいから終端文字を変えるなり、ヒアドキュメントを使うなりするのがいい。

sendmailが入ってないサーバでは絶対メール送信できないんですか？
何とかしてメール送りたいんですが・・・

>>627
Perl なら Net::SMTP モジュールを入れることで sendmail が無くてもメール送れる。
モジュールが使えない場合でも、
自分で SMTP 喋るようなスクリプトを Socket 使って書けば、メール送れる。

ただしサーバの出のポートが閉じてる場合は何やっても無駄だがな。

>>628
マジですか！？ちょっと調べてみます
サーバのポートが開いてるかどうかってのはどうやったら分かるんですか？

フォームメールCGIを作ってみたいんですが、エスケープしなければいけない文字や
その辺りの知識が足りません。

それで、とりあえず誰かが作ったエスケープが既にしっかりできてるCGIを見て
勉強しようと思います。

ちゃんとエスケープができてるものって探しようもないので、そこらへんを理解してる方で、
これなら勉強にもってこいってcgIを教えてくださいm(_ _)m

>>630
http://www.google.co.jp/search?hl=ja&inlang=ja&q=perl+%E3%82%A8%E3%82%B9%E3%82%B1%E3%83%BC%E3%83%97&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=

>>629
そのポート番号がどーなってるのか管理者に聞けばいいじゃん？

printf qq|<p><em>%s = %s</em>%s[%s]</p>\n|,
　eval {
　　my @ret_value;
　　：
　　：
　　return @ret_value;
　};

こういう書き方はよくするけれども、、、

sock(HOGE, &AF_INET, &SOCK_STREAM, $protocol);
これなんですけど、&をつける場合とつけない場合の
違いが分かりません。でも、結局&をつけた場合とつけない場合
をprintで調べたら同じ値なのにどうして、&をつけるタイプの人と
つけないタイプの人がいるのか分かりません。
何か＆に特別な意味はあるんでしょうか？

>>612
print map{ "$a[$_]+$b[$_]=" } (0..$#a);

>>634
内部的に
sub AF_INET(){ 2 };
こんな感じで定義されていると思ってちゃぶ台。
だから、
print AF_INET();
print &AF_INET;
でもOK。

>635
どうも、返答ありがとうございました。
AF_INETって定数じゃなくてサブルーチンだったんですか。
なるほど。よく分かりました。

>>631
？？？
どういう意味ですか？

私はHTMLレベルのエスケープなんて聞いてませんよ。
それともフォームメールに必要なエスケープがHTMLレベルだとでも思ってるのでしょうか。

今までずっとプログラム内で必要なテキストや設定をtxtファイルにcsvもどき
や特殊な書式で書いてました。

しかしそれだと私しか理解できず、他人に使わせるのにいちいち書式のマニュアルを作成しないと
いけませんので、こんど全てをメジャーなものに変えようと思います。

一番いいのはexcelのcsv形式かなと思うのですが、どうですか？
ほとんどexcelを触ったことないので、いわゆるHTMLのthにあたるものができるのか
わからないのでまだ微妙ですが。

アドバイスお願いします。

>>637
テメぇが聞きたいことなんか知ったこっちゃ無いし、聞き直してもえらそうだから教えてやんね。

まあ今から新しく作るなら XML かなと思う
Tomcat の設定ファイルみたいな感じで

>>637
「スレ違いだから自分でググって調べなさい」という皮肉だね、たぶん。
Perlのコーディングに直接にはなんの関係もない話をレスしないでねって暗に言っていると察っするが吉。

つまりフォームメールもまともに作れない回答者しかここにはいないってことか
さすがにここまで見当違いなレスをされるとあきれるね。

>>639
用がないならレスはしないでいいよ。暇だからって八つ当たりはやめとけ。

>>641
そうなんですかね。多分>>631は問題が何か理解できなかっただけでしょ。
HTMLレベルで考えてるとしか思えないね。

text::csv_xsを使ってみたんですが、素朴な疑問が；

何故かShift_JISのファイルをそのままパースできてるみたいですが、
これってEUCでもいいんですよね？

一応csvファイル事態はShift_JISですが、読み込んだときにEUCに変換して扱いたいんです。
パースして$csv->fieldsでとる前に変換はしておいたほうが回数も少なくて済みますし。

書き込み時には又、Shift_JISにしますけど。

あれだけでそんな判断するとはｗ
　 　＼　　__　　／
　 　＿　（ｍ）　＿ﾋﾟｺｰﾝ
　 　　　　|ミ|
　　　　　('A`)　　　　体技：スルー！
　　　　　ノヽノヽ
　　　　　　　くく

use Text::CSV_XS;
my $csv = new Text::CSV_XS({ binary => 1 });
open FH,"test.csv";
my @array;
while (<FH>){
jcode::convert(\$_,"euc");
$csv->parse($_);
push @array,$csv->fields;
}
close FH;

こういう$_これをjcodeに渡して変換してもらうのってありですか？
一応動くのですが、行儀悪い行為になるんでしょうか？
なんか<FH>を直接書き換えているみたいで怖いんですが；

>>645
とりあえずchompしとけ。

>>630
正直「エスケープ」というのがいまいちよくわからない。
open(PIPE," | sendmail $address") するときに $address の中に shell のメタ文字が
という対 shell サニタイズの話なのか?

俺がメールフォーム作るなら、そういう問題を考えなくて良いように Net::SMTP を使う。
もちろん、宛先アドレスが valid かどうかというのは検証するし、
Subject とかのマルチバイト文字は MIME エンコードするけど、
それって「エスケープ」の話じゃないよな。

...2005/02/23(水) 23:06 [Perl] タイトル
関東と北陸、近畿に春一番
...2005/02/22(火) 21:07 [Windows] 無題
あいうえお
かきくけこ
...2005/02/21(月) 23:15 [Perl] 勉強
ああああ
ええええ

上のようなテキストから、
指定した文字列が含まれる(行頭が...の)タイトル行と、
その本文（内容）を抽出して出力するスクリプトを作りました。
動作しているのですが、
このようなwhile (<>) {の中にさらにwhile (<>) のある使い方が
書籍などを見ても見つからず分からないのですが、誤った使い方ですか？
もし間違いなら、どのような処理にすれば良いのか教えて下さい。

$sample = "Perl";
while(<>){
　if(/^\.\.\..*\[$sample\]/){　# もし行頭に...がある場合
　　　$title=$_;
　　　print "$title";　　　　# タイトル行の出力

　　　while(<>){
　　　　　if(!/^\..*/){　　　 # もし行頭に.が無い場合
　　　　　　　$body=$_;
　　　　　　　print "$body";　# 本文の出力
　　　　　}
　　　　　if(/^\..*/){　　　　# もし行頭に.がある場合
　　　　　　　last;
　　　　　}
　　　}
　}
}

>>647
open MAIL,"| /usr/sbin/sendmail -t";
print MAIL 'To: '.$form{to}."\n";
print MAIL 'From: '.$form{from}."\n";
print MAIL 'Subject: '.$form{subject}."\n\n";
print MAIL $form{body};
close MAIL;

こういうときに@form{qw/to from body/}に含まれてる危険な文字をエスケープするって
意味ですが、そもそも始めはフォームメールにXSS対策的なエスケープが必要だとは
思っていませんでした。

メールのヘッダである@form{qw/from to/}の値には改行を許してはいけない程度でしか
考えていませんでした。

その後、人にフォームメールを作るならエスケープのために相当な知識が必要だといわれました。
なのでそうなんだぁと思って、今回まずはまともなフォームメールを教えてもらって、
それを見ながらどういう文字に気をつければいいかを勉強しようかなと。

ネット上でsendmail エスケープで見てもイマイチ関係のありそうなのが出てこないんですよね。
sendmail系で出てくるのはメールアドレスの正規表現やソレヨウノモジュール。
ついでにsubject用のエンコード方法あたりがほとんどですね。

>open(PIPE," | sendmail $address") するときに $address の中に shell のメタ文字が
>という対 shell サニタイズの話なのか?
そうだと思います。そんな感じで言われました。ただUNIX系の話ですか？と聞いてから
返事がないのでよくわかりません。

742 ：nobodyさん ：05/02/10 16:15:16 ID:???
CGIでエスケープすべき文字についてお尋ねします。
sendmailでメールを送るときに本文やToをユーザが入力した内容に
する場合はどういう文字をエスケープすればいいでしょうか？

743 ：nobodyさん ：05/02/10 16:59:49 ID:???
>>742 おぼえること大杉

744 ：742：05/02/10 18:59:35 ID:???
>>743 Toにクエリを埋め込む時もメールのヘッダーが終わった後の本文でも 同じエスケープではないですよね？
とりあえず現状ではToの方は\だけエスケープしてます。 本文のほうは何もしてないままです。
UNIXのコマンド文になるようなのを気をつけなければならないのでしょうか？

745 ：nobodyさん ：05/02/10 22:07:44 ID:???
>>744
もしお前が釣りなら、俺を感動させたことを誇っていい。お前には才能がある。
もし本気でメール出すCGIを作るつもりなら、かなり道は険しいぞ。

746 ：nobodyさん ：05/02/10 23:14:42 ID:???
>>744
つ[ ttp://www.ipa.go.jp/security/awareness/vendor/programming/ ]
とりあえずここでもどうぞ これ読んだ上でsendmailに特化した話

>>649
タイトルに$sampleを含むデータが連続してると、偶数番目のデータが表示されない。
二重ループでもできるが、単ループでフラグ使った方が簡単かと。

my $target;
while (<>) {
　/^\.{3}/ and $target = /\Q[$sample]/;　　# 行頭が...なら対象データか判断
　print if $target;　　# 対象データなら出力
}

>>652
レスありがとうございます。
仰るとおり連続してると偶数番目が表示されませんね。
気が付きませんでした。
フラグを使うとここまで短くなるとは。。。

もっと勉強してきます。
ありがとうございました。

今はファイルの中身を読んで変数に入れるのをサブルーチンにしています。
しかし今後を考えて外部のライブラリファイルにまとめたいと思います。

そこで一つ問題点。
UNIX環境でCGIを動かすと、ライブラリ内でcsvファイルパスを相対パスで設定しても
カレントディレクトからの相対パスになってしまいますよね。

これでは色々なファイルから読めません。
環境が違えばこの前提も変わるかもしれません。
なので読み込む側から読み込むファイルへのパスを引数として持たせようかと考えました。

しかしよく考えると、それっておかしいですよね；
ライブラリがどのファイルを読むかを呼び出し側で設定しないといけないと、
なんかオブジェクト志向チックではないというか；
まあモジュールにしなければいいみたいな勢いですが。

ああ。よくわからん、もういいや。

>>654
モジュールの中でファイルを絶対パスで指定しておき、デフォルトではそれを使う
デフォルト以外のパスを使う場合は、呼び出し側からコンストラクタの引数で指定する
というのがよくあるやりかただと思う

qw/a 1 2/;
この０番目をキーとしてそれ以降をそれぞれ違うハッシュの値としたいです。

my %hash;
sub{
@hash{qw/hoge hage/}->{$_[0]} = @_[1,2];
}->(qw/a 1 2/);

こんな感じで%hashの中にhogeとhageを作り、hogeとhageはそれぞれハッシュのリファレンスで、
それに大して値を一発で渡したかったのですが、エラーでした。

$hash{hoge}->{$_[0]} = $_[1];
$hash{hage}->{$_[0]} = $_[2];

ブサイクですがこういう方法しかないのでしょうか？

よくわからんけどこーゆーんがやりたいの？

$hash{'hoge'}->{$_[0]} = [ @_[1 .. @#_], ];

>>657
$hash{hoge}->{$_[0]} = $_[1];
$hash{hage}->{$_[0]} = $_[2];

これを一行で済ませたいんです。本当はhogeは10種類くらいあるのです。
なのでいちいち10行も使うと汚くなるので・・・

>>658
my $k = shift;
foreach (qw(hoge hage)) {
$hash{$_}->{$k} = shift;
}

でいちおうできると思うが、なんとなくデータ構造
見直したほうがいいんじゃないかという気もする。

>>659
ブロックですか・・・・

ブロックがいやなら:

my $k = shift;
$hash{$_}->{$k} = shift foreach (qw(hoge hage));

656に近い形で書くなら、
sub{
$hash{$_}->{$_[0]} = splice(@_,1,1) for qw/hoge hage/
}->(qw/a 1 2/);

でも、
>いちいち10行も使うと汚くなるので・・・
何ヶ所かで使うんだったら、659を関数化して使った方がいいと思うぞ。

>>661-662
やはり
@hash{qw/hoge hage/}->{$_[0]} = @_[1,2];
こういうのは無理なんですね。

色々あげてもらって悪いのですが、ぱっと見の読みやすさで
$hash{hoge}->{$_[0]} = $_[1];
$hash{hage}->{$_[0]} = $_[2];
こうしておきます。

これをするのは外部サブルーチンにすることで良しとしておきます。
すみませんですm(_ _)m

print qq|
@{[
map {"$i ： $_<br>"} @array
]}
|;

こういう出力中にやるmapの中で$iに何回目のループかを持たせるにはどうすればいい？
my $i;
まずこれができないんだよね。
さらにmap {"$i ： $_<br>"; $i++} @array
とすると$i++の渡されちゃう。なんか方法ないかな？

map { sprintf "%d ： %s<br>", $i++, $_ } @array;
とか。

>>665
myはどうする？

>>666
localにする。

print qq{
@{[
map( "$_ ： $array[$_]<br>", 0..$#array )
]}
};
じゃ、ダメなん？

１、特定のホストからアクセスを禁止したい
２、無知なので何もできず。。。
３、頭のエラーがでてできなかったｗ

>>667
どういうちがいがあるの？

>669
まずは頭のエラーを治してきて。
それはどうしようもねーや。

ハッシュの中にリファレンスも含んでる時ってどうやって安全にメソッドに渡すの？
&routin({%hash});
こうすると%hash自体は安全に見えるけど、もしもこの中身が
my %hash = (a=>1 , b=>[qw/1 2 3 4 5 6/] , c=>\("あいうえお"));

こんなのだったらbとcは渡された先でいじられた時にメイン側の$hash{b}にも
影響出るよね。

>>668
keys 使ったハッシュの場合とかじゃない？

>>672
参照を持つ言語は皆同じことで悩むね。

うむ、どうしようもないな

リファレンスの中身を再帰的に嘗めてってツリー全体を複製する手もあるのかもしれんが
ファイルハンドラやソケットを持ってると原理的にお手上げだし

さわんな禿げ！がベター。

改行コードの置換をしたくて
$value =~ s/\r\n|\r/\n/g;
としたのですが、これでは間違いようで馬鹿にされました。
$value =~ s/\x0A\x0D|\x0A/\0D/g;
JISの改行コードというサイトをみたらこれで合ってると思うのですが、大丈夫ですか？

それと改行コードはどうして\nでマッチを期待してはいけないのでしょうか？

>>674-676
おぅ、みんなそこらへんは適当にごまかしてるわけね＾＾；
まぁしょうがないかな。壊されては困るものは面倒でも一旦完全に紐解くよ。
ソケット云々はまだ知らないのでそこらへんはまたいずれ悩むかなｗ

>>677
>>585

>>672
弄られたくないものは渡さない。

print "Content-type: text/html\n\n";
print "ほげほげ";
と、一度printしたものを出力させたくないのですが、
出力バッファの削除というのはどのようにすればいいのですか？

>>681
> 出力バッファの削除というのはどのようにすればいいのですか？
無理。

> 一度printしたものを出力させたくないのですが、
一度だけ出力するように設計する。
変数を使って、出力したかどうかを記憶させるなど。

>>682
ありがとうございます。
人の書いたソースにモノ組み込む必要がでてきてそれで…
元ソース書き換えて対処します。

>>672
readonlyなんとかとかいうモジュールで一時的に書き換え禁止にする。
$a = { b => { c = 1} };　$a->{b}{c} = 0とかもエラー吐いてくれる。
遅くなるけど

>>679
そこも見ました。
\x0A\x0D
と
\x0D\x0A
はどちらが正しいのですか？両方見るんですが。両方あるのでしゅう？

今日はじめてCGI::Cookieを使ってcookieを焼いていました。
今まではexpiresも自分でルーチン作ってやってましたが、ちょっと使ってみようかと思って。

そこで気付いたのですが、CGI::Cookieを使ってやると
new CGI::Cookie (-value => "文字列")
-valueの中の文字列は
$value =~ s/(\W)/'%' . unpack "H2",$1/eg;
これとかでエスケープを自動的にしてしまうのでしょうか？

アスタリスクが%2Aに変換されて困りました。
あンエスケープすれば言いといわれればそれまででｓが。

>>650-651
セキリュティ対策バッチリのフォームメール制作経験がある方はいないでしょうか？

>>687
いやだから sendmail じゃなく Net::SMTP でなら作れるってば

sendmail の -t オプションの詳細仕様ってよく知らないのだが、
ちょっと考えただけでも以下のような疑問が浮かんでくる。

1. RFC822で許されている範疇の特殊文字でセキュリティ的な問題が生じるのか?

2. 生じるとしてそれをエスケープで回避できるのものなのか?

3. 回避できるとして、そのときに使うエスケープの方法は?
バックスラッシュをつける? URLエンコード? MIMEエンコード?

で、3まで考えると、エスケープするということ自体がかなり馬鹿馬鹿しいように
思えてきて仕方が無いんだが。

>>688
Net::SMTPですか。
ものすごい難しいそう・・・
sendmailでの話を知ってる方はいないのでしょうか？

>>689
Socketを使うよりずいぶん楽だぞ

変数の中に入ってる特定の文字列がありまして。
それがある回数以上でるようならそれ以後のその文字列部分は削除する正規表現
を書きたいです。

スイッチを持たせるのが一番？
my $swith = 0;
$value =~ s{(あいうえお)}{1}g;
あぁスイッチの保有方法忘れてるおｒｚ

my $s = '1gaga2gaga3gaga4gaga5gaga6gaga7gaga8gaga';
my $p = 'gaga';

my $count = 0;
$s =~ s/(\Q$p\E)/++$count>=3?'':$1/ge;

>>692
どうもです。

>>689
とりあえず、ヘッダに含まれるのの改行だけはきっときゃいいんじゃないの
それしとかないとMTみたいなことになるし

744 ：742：05/02/10 18:59:35 ID:???
>>743 Toにクエリを埋め込む時もメールのヘッダーが終わった後の本文でも 同じエスケープではないですよね？
とりあえず現状ではToの方は\だけエスケープしてます。 本文のほうは何もしてないままです。
UNIXのコマンド文になるようなのを気をつけなければならないのでしょうか？

745 ：nobodyさん ：05/02/10 22:07:44 ID:???
>>744
もしお前が釣りなら、俺を感動させたことを誇っていい。お前には才能がある。
もし本気でメール出すCGIを作るつもりなら、かなり道は険しいぞ。


こいつに聞くのが一番いいんじゃないか？
まあ俺はsendmailでエスケープ云々なんて今まで聞いたことがない。
っていうかそういうサイトを一度も見たことがない。
単純にだまされてるだけだろ。

>>685
Windows/DOSは\x0d\x0a
\x0a\x0dなんて環境は知らないなぁ。

ttp://www5.airnet.ne.jp/thepond/html/job/return.htm
ちょいとグーグルで見つけたサイトだけど、読んでおくといいよ。

>>686
value()を呼び出せばいいのでは？

ちょっと強引ですが
my %cookie = CGI::Cookie->fetch();
foreach(values %cookie){
$_ = $_->value();
}
とか

# CGI.pmから使うと、上の処理も不要になったりします。
# って、何か外してそうですね。

現在利用しているサーバーで、
> sendmailやSocket関数およびSocketモジュールはセキュリティ上、使用できません。
と書かれているのですが、ネットワーク関連はあきらめるしかないですか？

@category = ('flower','car','house','your','sky');

↑上のようにカテゴリを設定しています。このカテゴリは並べ替えや変更、増減が頻繁にあります。
album.cgiでは上のカテゴリ別ページに飛ぶリンクを一覧表示させています。
そのリンク先であるカテゴリ別ページは?category=houseという形になっています。
カテゴリ別ページに、前後へのリンクを付けたいのです。
houseを開いた時はcarとyour、skyを開いた時はyourとflowerというように。
後ろが無い場合に一番前に帰ることは出来なくても構いません。
現在はカテゴリを変更する度にいちいち書き換えているのですが…。
自動的にリンク出来れば嬉しいのです。よろしければヒント等戴けませんか？

>>698
Perl コーディングとは関係無いレベルで無理だろう

>>699
カテゴリ別ページで「自分が何番目のカテゴリとして呼ばれたか」を調べて
配列的に+1とか-1とかしてリンクを生成すれば良いのでは

>>699
CGIの質問ですか？スレ違いだけどちょっぴり
受け取ったカテゴリ名と@categoriの中身を比較すれば

あとは誘導先で聞いてね

△▲　WebProg 初心者の質問 Part11　▼▽
http://pc5.2ch.net/test/read.cgi/php/1101635909/
CGIとかPerlとか超初心者なんだけど、
http://pc5.2ch.net/test/read.cgi/php/995618200/
CGIだけど、なんか質問ある？ Part 12
http://pc5.2ch.net/test/read.cgi/php/1097334246/

>>700
やっぱりですか・・・どうもありがとうございました。

>700
>701
スレ違いだったのですね、すみませんでした。
スレ違いだったのにヒント下さってありがとうございます。
おかげさまで思い付いたことがありますので、スマートな処理ではないのだと思いますが、試してみます。
それでも駄目でしたら誘導して戴けたスレッドの方で質問してみますね。

スレ汚しすみませんでした。ありがとうございました。

>>699
完全にリンクをつなげるには、現在位置$posから
my $prev = ($pos-1)%@category;
my $next = ($pos+1)%@category;
というように剰余を使うと簡単にできますよ。

my $value = 'a=1&b=2&c=0';

$valueの中は常にこのフォーマットにしておきたいので、
$valueの中身が違うフォーマットだったら中身を削除するというスクリプトを書きたい。

フォーマットが異常かどうかの条件式を日本語でいうと。
1.区切りは&
2.サブ区切りは=
3.キーや値は[a-zA-Z\-]のみ許容

これをPerlで書くとどうなりますか？
$value =~ /^[a-zA-Z]*=[a-zA-Z](?:&[a-zA-Z]*=[a-zA-Z])*$/;

これでどうでしょう。穴があったら教えて下さい。それともっといい方法があるならお願いします。

あ、iオプシションを使うと
$value =~ /^[a-zA-Z]*=[a-zA-Z](?:&[a-zA-Z]*=[a-zA-Z])*$/;
これが
$value =~ /^[a-z]*=[a-z](?:&[a-z]*=[a-z])*$/i;
こうできるのかな？
そんなわけない？？？

基本的な部分ですが、Perlでは文字列を数字として評価した場合に0以外が返されることはあるのでしょうか？
%formの中から値が数字で1以上でないものは削除したいんです。

%form = map { $form{$_} > 0 ? ($_,$form{$key}):() } keys %form;

これで文字列ははじけますか？

条件式AがあってそのAは%hashのキーをいくつか返してきます。
foreach (grep /\-/,keys %hash){
delete $hash{$_};
}

でも条件Aが返してくるリストの数が3以上のときだけ、それ以降を全てdeleteしたいのです。
my $i =0;
foreach (grep /\-/,keys %hash){
delete $hash{$_} if $i > 1;
$i++;
}

これでできます。しかし$iとか作るのダサイので嫌です。
mapやgrepで$iを作らずにリストの？個以降には特別な処理をするということはできませんか？

>>707
ソレダメ。
文字列も数値で10とか出せる。

例)
qq{10あいうえお}

だから面倒でも
$form{$_} =~ /^[\d]*$/ and $form{$_} > 0
とかするべきだね。

[\d]ってやる必要あったっけ？

>>708
やろうと思えば

delete @hash{sub{@_[2..$#_]}->(grep /\-/, keys %hash)};

とかできるけど、見やすいかどうかは知らん。

>>711
やっぱこのスレの人頭いいわ・・・
delete 八種スライス
がありなのすら知らなかった。

Text::CSV_XSを使ってCSVファイルの作成をしているのですが、
とあるソフトではExcelの形式と違って改行はCRLFのみ、各項目は全てダブルクォートで
括ってないといけません。

どうすればいいでしょうか？改行問題は別にいいですが、どんな時も項目をダブルクォートの中に
入れるのはわかりません。宜しくお願いします。

>>713
always_quote。マニュアルよく読め。

正規表現のメタキャラを自分で決めることはできますか？

すごい初歩的なことなんだと思うのですがわかりません・・。

if ($NEDAN == "0"){$nedan_a = "非売品";}
elsif ($NEDAN == "rea"){$nedan_a = "レア";}
elsif ($NEDAN == "pre"){$nedan_a = "プレゼント";}
else {$nedan_a = $NEDAN."円";}

と書いてあり、$NEDANには「数字」か「0」「rea」「pre」がはいるのですが
「数字」の場合は最後のelse表記できちんと出るんですが
（100円とか200円というふうに）
「0」「rea」「pre」の場合、最後の「プレゼント」で表示されます。。
この部分だけでなにか悪いところがあるのでしょうか？

取り敢えず、そのアルゴリズム（？）はあんま良くないと思うよ。
実力にもよるけど全体的な見なおしを。

それをそのまま使うなら、
文字列を比べる時は「eq」を使ってぬ。

数値比較(==)では数に見えない文字列は0とみなされるので、
「非売品」になるならわかるが「プレゼント」になるのは
かなり不思議だ...

>>705
条件の\-は、どこへ？ 値は数字では？

> my $value = 'a=1&b=2&c=0';
を見る限りの勝手な解釈では

　/(?:(?:^|\&)[a-zA-Z\-]\=\d)+$/;

ちなみに[a-zA-Z\-]に数字と '_' も含むなら \w が使える [a-zA-Z0-9_\-]→[\w\-]

フォーマットで出力する物を変数に代入出来ないのでしょうか？
どなたかご教授して頂けると嬉しいです(_ _)
自分で探したのですが、ファイルハンドルにしか出力する例しかみつからなくて。。

>>720
perlform(1)に書いてあるよ。swriteってサブルーチンの
例があるのでこれを使うのが楽じゃないかと。

perlでクッキーの書き込みを行ったところうまくいかず、
クッキーの内容がブラウザに表示されてしまいました。
以下のプログラムは間違っているのでしょうか？

$cookie = "123";
$cookie =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;

print "Set-Cookie: test=$cookie; expires=Thu, 1-Jan-2030 00:00:00 GMT\n\n";

たぶん >>722 に書いた部分以外のところが間違っているのだと思う

>>722
あなたはきっとこうやってるのでしょう。

print "Content-type: text/html\n\n";
うにゃうにゃ
うにゃうにゃ
うにゃうにゃ
722のロジック

違うかい？

Perlについての質問箱 15箱目
http://pc5.2ch.net/test/read.cgi/tech/1105953092/623

>>722
ヘッダに各。

どこで聞いてよいかわからなかったのでこちらで。
mod_perlからPerl::RunにてPerlスクリプトを動かそうとしているのですが
ライブラリの参照先がApacheにおける標準のもの（？/apache/lib/perlとか）になってしまいます。
相対アドレスで任意に指定してやりたいのですが、可能でしょうか。
可能ならどうすればよいのでしょう？

use lib qw(/path/to/libdir);