Perl コーディング初心者質問コーナー Part34

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

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

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

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

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

関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍 第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
★三　【 スクリプト改造工房 PART 8 】　★三
http://pc2.2ch.net/test/read.cgi/php/1077525387/
【 スクリプト改造依頼スレ 】(丸投げ)
http://pc2.2ch.net/test/read.cgi/php/1076831972/
△▲　WebProg 初心者の質問 Part7　▼▽
http://pc2.2ch.net/test/read.cgi/php/1073460282/
【Perl】ファイルロック(排他処理)について語ろう
http://pc2.2ch.net/test/read.cgi/php/1024795138/
★負荷軽減対策委員会（Perl、PHP)★
http://pc2.2ch.net/test/read.cgi/php/1034645635/
【Perl】掲示板を使ろう！
http://pc2.2ch.net/test/read.cgi/php/988890976/
Perlモジュールについて
http://pc2.2ch.net/test/read.cgi/php/997829243/
CGIに依存しないPerlの話題一般/Part2
http://pc2.2ch.net/test/read.cgi/php/1030548610/

［過去ログ] 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

[過去ログ] 2 of 2

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と誤記)
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://pc2.2ch.net/php/kako/1059/10590/1059043704.html
part27 http://pc2.2ch.net/php/kako/1060/10608/1060808783.html
part28 http://pc2.2ch.net/php/kako/1063/10635/1063562491.html
part29 http://pc2.2ch.net/php/kako/1066/10662/1066286828.html
part30 http://pc2.2ch.net/test/read.cgi/php/1069846177/
part31 http://pc2.2ch.net/test/read.cgi/php/1072896288/
part32 http://pc2.2ch.net/test/read.cgi/php/1075545279/ (タイトルに31と誤記) 前スレ
part33 http://pc5.2ch.net/test/read.cgi/php/1078076768/

[ひまぢん氏のミラー]
Part1　http://www.angelfire.com/ak5/2ch-web-program/kako/957208980.html
Part2　http://www.angelfire.com/ak5/2ch-web-program/kako/971817087.html
Part3　http://www.angelfire.com/ak5/2ch-web-program/kako/979894521.html
Part4　http://www.angelfire.com/ak5/2ch-web-program/kako/984430156.html
Part5　http://www.angelfire.com/ak5/2ch-web-program/kako/988728069.html

[総合]
　・http://www.excite.co.jp/world/ # 英文のページ多いから一応
　・Perl Com: http://www.perl.com/
　・CPAN.com: http://search.cpan.org/
　・ActivePerl: http://www.activestate.com/
　・CGI-ML:http://forest.ne.jp/cgi-ml/

[お薦め]
　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm　★読んどけ
　・Perl Recipes: http://www.effectiveperl.com/recipes/ # 死んでるか?
　・Randal's WebTechniques columns: http://www.stonehenge.com/merlyn/WebTechniques/
　・Perlの部屋: http://www.cc.rim.or.jp/~midorin/mad-p/perl/index.html
　・Perl初心者の部屋：http://www.harukaze.net/~mishima/perl/
　・Perlリファレンス：http://www.big.or.jp/~mio/ga/pl/plref/pl_ref.htm
　・Perlのページ：http://homepage1.nifty.com/nomenclator/perl/

　[Document&Tutorial]
　・Home - Japanized Perl Resources Project: http://perldocjp.sourceforge.jp/
　・Perl Monks: http://www.perlmonks.org/
　・use Perl; : http://use.perl.org/
　・Learn Perl - Perl Education: http://www.devdaily.com/perl/edu/index.shtml
　・Perldoc.com: http://www.perldoc.com/
　・Using Perl5 in Web: http://docs.rinet.ru/Using_Perl5_in_Web/
　・Rex Swain's Home Page: http://www.rexswain.com/
　・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.html
　・Perl Tuts: http://savage.net.au/Perl-tutorials.html
　・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htm
　・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.html
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/
　・The Perl Archive : http://www.perlarchive.com/
　・Perl6 & Parrot VM についての情報: http://dev.perl.org/perl6/
　・use Object; : http://perl.infoware.ne.jp/

初心者の質問は8本目に移行しております。

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

過去ログで読めないスレは s/pc2/pc5/ とすると読めるかも知れません。

初歩的な質問で申し訳ないんですが教えて下さい。
所謂、動作が遅いといわれるモジュールを使用する場合、例えばCGI.pmとして、
オブジェクト指向じゃなく関数指向で利用し、
インポートする関数を極力抑えて少なくするのと、
よく見る:standardとして殆どをインポートするのとでは
前者の方が動作は速くなるのでしょうか？

>>9
http://www.google.co.jp/search?num=100&q=Apache+Bench&lr=lang_ja
http://perldoc.com/perl5.8.0/lib/Benchmark.html

・使わない関数をコンパイルさせない方が速い。
・メソッド呼び出しより関数呼び出しの方が速い。

理論上は、ね。

>>10
ですよねぇ
しかしベンチとったんだけどほっとんど変わらなかったんで聞いたんですが、
まぁ一応これからも関数指向・使う関数のみインポートでやっていきます。
有難うございました。

前ｽﾚのﾚｽ番ﾐｽがｱﾌｫすぎて泣けてきますね。

>12
仕事人★のおかげでログが完全復旧せず「空白の一日」が
出来たからじゃない？　専ブラ使っている人が、
「空白の一日」込みのログをそのまま使っていたせいだと思われ。

>>11
CGI.pm に限って言えば、現実問題として、誤差の範囲内だと思う
負荷が気になるなら CGI::Lite 使うとかそういう

sub loadPass
{
open(FILE,"$PASSFILE");
while(<FILE>)
{
s/[\n\r]*$//g;
my($id,$pass,$writer,$name) = split(/\t/);
$PASS{"$id"} = $pass;
$WRITER{"$id"} = $writer;
$NAME{"$writer"} = $name;
}
close FILE;
}
このようなコードを書いたのですが,
読み込むファイルの最初の行のデータだけが読み込めません。
何が悪いのでしょうか？

ちなみに読み込むファイルの内容は以下のようになっています

id1[TAB]pass1[TAB]writer1[TAB]name1
id2[TAB]pass2[TAB]writer2[TAB]name2
id3[TAB]pass3[TAB]writer3[TAB]name3
id4[TAB]pass4[TAB]writer4[TAB]name4

このうち,id1が読み込めていないようです。

↑のｿｰｽをｺﾋﾟってやったら俺は読めたぞ

#!/usr/local/bin/perl

$PASSFILE = "data.log";
open(FILE,"$PASSFILE");
while(<FILE>)
{
s/[\n\r]*$//g;
my($id,$pass,$writer,$name) = split(/\t/);
$PASS{"$id"} = $pass;
$WRITER{"$id"} = $writer;
$NAME{"$writer"} = $name;
print "1:$PASS{\"$id\"}\n";
print "2:$WRITER{\"$id\"}\n";
print "3:$NAME{\"$writer\"}\n";
}
close FILE;

ｽﾏﾝ、勘違い。読めてねぇや。ちとタンマ。

#!/usr/local/bin/perl
$PASSFILE = "data.log";
open(FILE,"$PASSFILE");
@data = <FILE>;
foreach $temp (@data) {
my($id,$pass,$writer,$name) = split(/\t/,$temp);
$PASS{"$id"} = $pass;
$WRITER{"$id"} = $writer;
$NAME{"$writer"} = $name;
print "1:\$PASS{\"$id\"} = $PASS{\"$id\"}\n";
print "2:\$WRITER{\"$id\"} = $WRITER{\"$id\"}\n";
print "3:\$NAME{\"$writer\"} = $NAME{\"$writer\"}\n";
}
close FILE;

結果。これで読めてるっしょ。

D:\>perl test.cgi
1:$PASS{"id1"} = pass1
2:$WRITER{"id1"} = writer1
3:$NAME{"writer1"} = name1

1:$PASS{"id2"} = pass2
2:$WRITER{"id2"} = writer2
3:$NAME{"writer2"} = name2

1:$PASS{"id3"} = pass3
2:$WRITER{"id3"} = writer3
3:$NAME{"writer3"} = name3

1:$PASS{"id4"} = pass4
2:$WRITER{"id4"} = writer4
3:$NAME{"writer4"} = name4

↑がなんでforeachにしてるかわからんが。表示させて確かめれ。俺はこうだ。
$PASSFILE = "data.log";
open(FILE,"$PASSFILE");
while(<FILE>) {
  s/[\n\r]*$//g;
  my($id,$pass,$writer,$name) = split(/\t/);
  $PASS{"$id"} = $pass;
  $WRITER{"$id"} = $writer;
  $NAME{"$writer"} = $name;
  print "\$PASS{\"$id\"} = $PASS{\"$id\"}\n";
  print "\$WRITER{\"$id\"} = $WRITER{\"$id\"}\n";
  print "\$NAME{\"$writer\"} = $NAME{\"$writer\"}\n\n";
}
close FILE;

1行目
$PASS{"id1"} = pass1
$WRITER{"id1"} = writer1
$NAME{"writer1"} = name1
2行目
$PASS{"id2"} = pass2
$WRITER{"id2"} = writer2
$NAME{"writer2"} = name2
3行目
$PASS{"id3"} = pass3
$WRITER{"id3"} = writer3
$NAME{"writer3"} = name3
4行目
$PASS{"id4"} = pass4
$WRITER{"id4"} = writer4
$NAME{"writer4"} = name4

>15
話とは関係無いんだが

$PASS{"$id"} = $pass;
$WRITER{"$id"} = $writer;
$NAME{"$writer"} = $name;

って

$PASS{"$id"} = $pass;
$WRITER{"$writer"} = $writer;
$NAME{"$name"} = $name;

じゃ無いの?

↑ごめんボーっとしてたスルーして。

誰かｴﾛい人まとめてー

s/[\n\r]*$//g;　ってなんだよ・・・
まあいいけど

>>25
zip -9 -o ./loadPasszip ./loadPass.pl

ここは質問者の感謝が最近足りていないｽﾚですね。

>>26
>>21じゃないけど、なんかおかしい？ chompは不安だから自前でやってるんでは？

>>29
/g は要らんし、より正確に書くなら \n \r ではなく \x0A \x0D
http://www.din.or.jp/~ohzaki/perl.htm#CRLF_Remove

俺はこう書いてるけど。
/\r\n|\r|\n/
何かﾏｽﾞい？

いま、UPされたファイルをCGI.pmを使ったりして一度保存し、
それをImageMagickでまた読み込んで編集して保存してるんですが、
これをわざわざ一度保存せず、編集して書き出すことって出来ないでしょうか？
いろいろ調べたのですが、どうもwin環境だからか、何度試しても動いてくれません。

CGI.pmを利用し、アップしたファイルのファイルハンドルが$fileに入ってます。
$img = Image::Magick->new;
$img->Read(file=>\$file);

↑こんな感じで動くと書いてあるｻｲﾄがあったりするのですが、
読み込んでくれません。
どのようにすれば可能なのか、また例えばwin環境では無理なのか等、
教えていただけませんでしょうか。

>>32
>>1
http://www.imagemagick.org/www/perl.html#exam

>>33
えっと、そのページは翻訳しもって一通り読んでます。
で、そのスクリプト例の項目がどう関係あるのかわからないのですが。。
つまり、そんなこと出来ないということでしょうか？

>>34
私のところでは、問題発生しました…で強制終了。
ファイルハンドルではなぜか使えない。

>>35
ああやっぱりそうですか・・・うちもperlが強制終了しちゃいます。
UNIX系の環境ではどうやら動くようなのですが、
レンタルしてる鯖につっこんで実験ってのはこわくてできないし(強制終了ですからねぇ)
そもそもローカルテスト環境と本番の環境で違うファイルにしなければならないというのは
少々困りものですし・・・。

出来ないなら諦めて今までどおり一旦保存して再読み込みでいくしかないですね。
しかし検索してもこのような問題が出てこないんで、やはり書き方に問題があるような気も。
もうちょっとだけ調べてみます。

>>16-31
なんとか解決できました。
ありがとうございました。

*hoge = 10;
とは、どういう事なのでしょうか？
よく分りません。
よろしくお願いします。

>>38
型グロブ

>>39
レスありがとうございます。
型グロブということは存じておりますが、
10を代入した結果、どうなるのか?、なぜそうなるのか?が分らないのです。

普通 *hoge = 10 なんてしない。誰だよそんなコード書いてる香具師は。
*hoge = \10ならまだ分かるが。

>>41
ｽﾐﾏｾﾝ､自分でどうなるかな・・・と。
*hoge = \10
なら型グロブに10へのリファレンスを生成するという事ですか？
型グロブにリファレンスって変な事ないですか？

>>42
型グロブはSCALAR, ARRAY, HASHなどのフィールドを持ったデータ。
(スカラー、配列、ハッシュにそれぞれ同じ名前で別の変数を定義できるのもこのため)
*hoge = \10 や *hoge = \%hash は型グロブのそれぞれのデータフィールドへの代入となる。
つまり、上記の代入を行った後は $foo は定数10の別名となり、print $fooは10を表示する。
定数の別名である為、$foo = 1等は10 = 1と等価となり、実行時エラーになる。
もちろん、%hogeは%hashの別名になる。
このフィールドは、直接 *hoge{SCALAR}, *hoge{HASH} として直接参照することも出来る以下略

csvのデータをよみこんで、ただ表示するcgiを作ろうと思っているのですが、
表示はされるものの文字コードの処理の仕方がわかりませぬ（´Д｀）

よくみかける
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*value,'sjis');

$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\n//g;
$value =~ s/\r//g;
$value =~ s/\t//g;
$value =~ s/\,//g;

を使うんだとは思うんですが、教えてください。。
ちなみに今は
if (!open(IN,"$file")) { &error('データベース読取エラー','復旧をお待ちください.'); }
while(<IN>){
($d,$DATE,$NAME,$SEX,$KATEGORI,$TEIKA1,$TEIKA2,$HANBAI1,$HANBAI2,$IMAGE,$KANRI) = split(/,/);
print qq(　・・・・
とかいております。。
よろしくお願いいたします。

おｋおｋ。
ｷﾐはGETでﾊﾟﾗﾒｰﾀを渡したとき、hoge.cgi?a=001+1&b=002&...というのは見たことはあるな？後ろにくっつくｳｻﾞい文字列だ。
日本語を渡すとわかるが、ﾜｹわからん状態になっているはずだ。
あれを正常な状態に戻す処理だ。

１．$value =~ tr/+/ /;
I am hoge.という文字列をQUERY STRINGに渡すと、I+am+hogeとなる。空白の部分が+になるわけだ。
これじゃ元のデータと違ってしまうから、+を半角スペースに置き換える処理。

２．$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value,'sjis');
%8B%B3%82%A6%82%C4%8C%4E%82%CD%8B%41%82%EAなどの文字列を普通の文字列に直す処理。
後半はjcode.plやらの文字コード変換ツールでsjisに変換している。

３．$value =~ s/</</g; $value =~ s/>/>/g; $value =~ s/\n//g; $value =~ s/\r//g; $value =~ s/\t//g; $value =~ s/\,//g;
ｷﾐが書いたときには、同じ記号が並ばずに&lt;とか&gt;ってなってたよな？
HTMLとかで読ませると、ｷﾐの書き込みのように記号扱いされてしまうが。
これを実態参照（だっけ？違ったら修正よろ）という。
ようするに、BBSなどで本文にﾀｸﾞとかを書かれると困るから、<や>記号を&lt;とか&gt;に置き換えようってことだ。

ｸｿ適当なんで誰か追記叩き修正ﾌｫﾛｰ暴言罵倒誹謗中傷お願いします。

>>45
そこんとこの意味はなんとなくわかるんですが
if (!open(IN,"$file")) { &error('データベース読取エラー','復旧をお待ちください.'); }
while(<IN>){
($d,$DATE,$NAME,$SEX,$KATEGORI,$TEIKA1,$TEIKA2,$HANBAI1,$HANBAI2,$IMAGE,$KANRI) = split(/,/);
print qq(　・・・・
のどこにどんな風に記述すればいいですかのう・・（´Д｀）

>>44
cgiで$fileを読み込んで表示したいだけではないの？
なぜデコードや文字コードの処理がでてくるのやら。

>>46
それだけのコードが自分で書けるのに、なぜ分からんのか不思議。

>>46
つか具体的にどういう不具合があるのさ

出力はSJIS。CSVファイルはEUC。そして文字化け。ってことかの？
それならjcodeの引数をもうひとつ追加すれば解決。
どっちにしろURIエンコードは関係なさそうだね。

>>47-50

いや、うまくいくと思ってたらうまくいかなかったので
なんでかなーと・・。
でももうひとつ引数追加すればいいわけですか。。
やってみるわ〜。
あんがと〜

情報を小出しにするとみんなが混乱する凡例でした。

では次の質問ﾄﾞｿﾞｰ

詰まったので質問させてください。
「ハンドルネーム＠〜」って名前を入れられた時に、＠以下を切り落としたいんですが
名前によっては上手く切り落とせないんです。

$str = "ファイア@炎";
$str =~ /^([^＠^@]+)/;
$str = $1;
print $str;

例えば、この場合「フ」とあとなんか変な文字が$strに入ってしまいます。
入力文字列によっては上手く切り落とせる事もあるんですが・・・
何が悪いんでしょうか？

$str =~ s/(＠|@).+$//;

>>54
$str = "ファイア@炎";
$str =~ s/(＠|@).+$//;
$str = $1;
print $str;

実行した出力結果：
@

切り落とせてないんですが・・・

勘違い。

$str = "ファイア@炎";
$str =~ s/(＠|@).+$//;
print $str;

出力結果：
フ（と、変な文字）

やっぱり出力できてないんですが・・・

EUCに変換してから処理するのが吉。
たぶん、sjisでやっていると思うんだけど、
ァの二バイト目=0x40、@=0x40っていうところに注目。

>>53
$str = "ファイア@炎";
$str =~ /^((?:\x81[\x40-\x7e\x80-\x96\x98-\xfc]|
[\x82-\x9f\xe0-\xef][\x40-\x7e\x80-\xfc]|
[\x20-\x3f\x41-\x7e])*)/x;
$str = $1;
print $str;

pack関数で困ってます。
10進数のIPアドレスを、2進数の文字列に変換したいのですが、

$num2 = unpack("B32", pack("C*", 192,50,218,168));　のIPアドレスの部分を、192,〜の固定でなくて、
ファイルから読み取りたいのですが、そこを $file と指定しても読み取ってくれません。
どう書いたらいいのでせうか・・・

>>58
凄い！それで無事行けました。
perlメモの、「正しくパターンマッチさせる」のsjisへの応用ですよね。

ところで、文字コードを表す部分は分かるんですが、最初の
?: と 最後の修飾詞 x の役目が良く分からないんですが・・・
? は「直前の１文字が0回または1回」ということですが、直前に何も付いてないみたいなんですが・・・
また、x （拡張正規表現）は、持ってるperl本を引いてみた所、「空白文字を無視し、#以降をコメント扱いする」とあります。
でも、空白もコメントも使ってないので、外してみたらマッチしなくなりました。
良ければこれら意味も教えて頂けないでしょうか？

>>59
>>1

常識じゃないのか

>>60
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlre.html

改行やタブも空白文字 (white space) 。
>>58 は改行されているので /x が必要。
/x を外したかったら
/^((?:\x81[\x40-\x7e\x80-\x96\x98-\xfc]|[\x82-\x9f\xe0-\xef][\x40-\x7e\x80-\xfc]|[\x20-\x3f\x41-\x7e])*)/
とするべき。

>>59
$fileには何が入ってるの?

>>63
あーっ、分かりました。
とんでもない勘違いしてました。空白文字を含むのは$strではなく、パターンの方ですね。
どうもこういう勘違い多いな自分・・・
これで納得できました。どうも有難うございます。
?: については、本調べてたら載ってました。前方一致、ってことですね。
perl5に追加された拡張構文であり、拡張正規表現の x修飾詞とは別に関係ない。
まぎらわしいけど、何とか覚えました。

これで何とか出来そうです。
・・・なんですが、おまけで書いて頂いた「/xを外したかったら」を実行してみたところ挙動が変です。
何度もすみませんが、こういうのどうしても気になる性質で・・・

$str = "ファイア@炎";
$str = /^((?:\x81[\x40-\x7e\x80-\x96\x98-\xfc]|[\x82-\x9f\xe0-\xef][\x40-\x7e\x80-\xfc]|[\x20-\x3f\x41-\x7e])*)/;
print $str;# マッチング判定結果表示
$str = "$1 $2 $3 $_";
print $str;

実行結果：
1

------------------------
マッチングは上手く出来てるようなんですが、その文字列がどこに格納されたのかが分からないんです。
$1 に入ってなかったので、それっぽい変数を色々乗せてみましたが全く当たりません。
いったい、どこに行ったのでしょうか・・・？

>>65
マッチング？
$strに代入して何がしたい？

もういいよ来るな
何でもかんでも人に聞かずにとりあえず黙って調べてテストしてを繰り返せ

>>66
あ（恥
すみません、単純なコードミスでした。
エラー出して欲しかった・・・ use strictしてもにエラーでなかったし

>>67
でも、本当に簡単なミスでも、指摘されるまで気付かないことだってありますよ。
いくらテストしても、エラー出ないからどの行が悪いのかも見当つかないし。

これで完全に解決できたので、以降書き込みには来ません。
答えてくれた方、有難うございました。

> 指摘されるまで気付かないことだってありますよ。

普段どんなデバッグ手法使ってるのか良く分かった。

んなもん、やってるうちに簡単なミスなんかしなくなるし
何処でミスしたかもすぐわかるようになるんだよ

一つ質問する
↓
回答どおりしたら解決した
しかし他のわからないことも質問
↓
解決。別の質問
↓
繰り返し

この一連の流れの中に「自分で調べる」を入れろ
せめて2,3時間調べろ

たしかに言語と自分の癖が分かってくると、あー糞またあのミスかってなるｗ

>>72
それは財産だ。大事にするﾖﾛｼ

＞指摘されるまで気付かないことだってありますよ

おまいプログラムやめろ
少なくとも共用サーバでスクリプト走らせるのやめろ

>>64 IPアドレスが一行づつかれたファイルです。
192.168.0.1
192.168.0.10
192.168.0.100
みたなものです。

>>75
$file = '192.50.218.168';
$num2 = unpack("B32", pack("C*", split(/\./, $file)));

http::liteで、対象のページの一部分だけ取り出す方法はありますか？
例えば、１ＭぐらいあるＨＴＭＬファイルの<title>だけを知りたいので、先頭１０００バイトだけ取るとか。

>>77
callback を使えばできるんじゃないかという気はするが、試してない

cgi-lib.plを使用して、HTMLのフォームから送信したテキストを新たなＨＴＭＬページに表示
させるコードが上手く動きません。（perl ver 5.8.0 cgi-lib.pl ver 1.14）

require 'cgi-lib.pl';

&ReadParse;
$namae=$in{'NAMAE'};

print "content-type: text/html\n\n";

print "<html>";
#print $namae;
print "test\n";
print "</html>";

としているのですが、ＨＴＭＬフォームからテキストを送ると「ページを表示できません」が出てしまい
うまく実行されません。cgi-lib.plをコマンドラインから実行すると、間違いなく動いているのですが、
ＨＴＭＬから上記ＣＧＩを実行すると　うまくいきません。
　お分かりのかたいらっしゃるでしょうか

ｽﾐﾏｾﾝ　↑のコード間違いです

#!/usr/bin/perl
require 'cgi-lib.pl';
&ReadParse;
$namae=$in{'NAMAE'};

print "content-type: text/html\n\n";

print "<html>";
print $namae;
print "</html>";

というコードを書いたのですが、うまくいきません

>>80
そのスクリプトのファイル名が myscript.cgi だとして

#!/usr/bin/perl
eval {
  require 'myscript.cgi'; # あなたのスクリプトを読み込む
};
if ($@) {
  print "Content-type: text/plain\n\n$@";
}

というスクリプトを実行するとどうなります？
詳しいエラーを見る事ができるはずなんだけど。

>>80
まずWWWサーバのエラーログを調べる

もしエラーログが調べられないときは、そうだな、
とりあえず改行コードでも疑ってみたらどうだ?

あと疑うべきは #!/usr/bin/perl の部分とか。

>>80
じゃあHTMLが間違ってるんだろ

>>77
http::liteはシランが、headerでrange:を送れば鯖が一部だけ送ってくれる。

>>81
ありがとうございます。下記のような表示が出たのですがさっぱりです（ちなみにcgiファイル名は「my.pl」

Can't locate my.pl in @INC (@INC contains: /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.
0 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_pe
rl /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/ve
ndor_perl .) at /var/www/cgi-bin/test.pl line 3.

>>84
ＨＴＭＬは間違っていないと思います
ちなみに下記
<html>
<meta http-equiv="Content-Type" content="text/html;charset=euc">
<body>
<form method="post" action="../cgi-bin/3-3-1.pl">
名前<input type="text" name="NAMAE"><p>
<input type="submit">
</form>
</body>
</html>

ＨＴＭＬの文字をperlで変数に格納し、それをＨＴＭＬで表示させるだけなのですが
>>83さんもおっしゃるように　perlのパスも本体ＣＧＩやcgi-lib.pl内のパスも確認したのですが
間違っていないと思うのですが、どうしてうまくいかないものでしょう

↑のＨＴＭＬ間違ってました（たびたびでｽﾐﾏｾﾝ）

<html>
<meta http-equiv="Content-Type" content="text/html;charset=euc">
<body>
<form method="post" action="../cgi-bin/my.pl">
名前<input type="text" name="NAMAE"><p>
<input type="submit">
</form>
</body>
</html>

test.pl の 3行目にある my.pl なんて見つかりませんよと言われているが？

>>88
うーん　おかしいなぁ　確かに指定したはずなのですが

ＣＧＩを実行したときのログをみてみたらこんな感じで書いてあった
Argument "NAMAE=ffffff" isn't numeric in subroutine
entry at /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi/ModPerl/RegistryCooker.pm line 160.!

もう少し調べてみることにします　ありがとうございました

既にヘッダーが送信されているか判断する方法ってありますか？
エラー表示する時に、ヘッダー（content-type）が２重になってしまう場合があるので…。
ヘッダー出力すると同時に、定数か何かでフラグ立てておけば良いんでしょうか？

ヘッダーなんてただ標準出力に文字を垂れ流してるだから、判別は無理と思われ。
普通にフラグで判断しましょう。

>>91
素早い返答ありが�d
フラグ立てることにします。

質問します

やりたいこと：
掲示板の投稿済み投稿内容編集フォームで
改行を<ＢR>に変換して保存した本文を
<BR>を改行コードになおして
テキストエリアに投稿済みの本文を表示する

こんな風にやってみた：
１．$text =~ s/<BR>/\x0D\x0A/g;
<textarea cols=60 rows=3 name=text value=$text></textarea>
２．$text =~ s/<BR>/\n/g;
<textarea cols=60 rows=3 name=text value=$text></textarea>

両方ともだめでした。
$textの内容が空になります

よろしくお願いします。

x <textarea cols=60 rows=3 name=text value=$text></textarea>
o <textarea cols=60 rows=3 name=text>$text</textarea>

>>94
できました。
タグ間違いだったとは(:;´.(Θ).`;:)

やりたいこと :
csvの中身を表示したい。

こんな風に自分は書いた ：

open(FILE, "test.csv");
$data = <FILE>;
close FILE;
($a,$b) = split (/,/,$data);
$i = 0;
while ($i < 5){
print "$a"
$i++;
};

結果。同じ列の文字が繰り返される。。
（whileを使わなかったらずっと表示されたので
今は食い抑えてる幹事になってます。）

基本的っぽいけどｻﾊﾟｰﾘなのです。
宜しくお願い致します。。

できました。。すいません。

せめてどうやったらできたのかぐらい書いてよ。

open (FILE, 'test.csv');
while (<FILE>){($_,@_) = split /,/; print;}
close (FILE);

75 ：59 ：04/04/08 22:31 ID:1altNbSl
>>64 IPアドレスが一行づつかれたファイルです。
192.168.0.1
192.168.0.10
192.168.0.100
みたなものです。


76 ：nobodyさん ：04/04/08 23:28 ID:???
>>75
$file = '192.50.218.168';
$num2 = unpack("B32", pack("C*", split(/\./, $file)));

↑ありがとうございました。変換できました。
変換後、改行がなくなりこのように↓変換したIP文字列がつながってしまいました。
これを32文字づつ、改行したいのですが、どのような構文？を使用すればいいのでしょうか。
とっかかりが分かりませんので、さわりだけ教えていただければ後は調べますので
よろしければ教えて下さい。

=======================================================
00001100100110110111010011110011000011001101001000110000111111100000110011100101
11010011010101110000110011100110000100010010011010000001000010110110100000000001
10000001000010110110111011011010100000010000101101110100000011011000000100001011
01110100100000101000000100001011011101000011100010000001000010110111010001001010
10000001000010110111011001111000100000010000101101110110111110001000000100001011
10001011000000011000000100001011000011100000000110000001000010111001000000000010
================================================

>>100
open (FILE, "ip.txt");
while(<FILE>) {
　$num2 = unpack("B32", pack("C*", split(/\./)));
　print "$num2\n";
}
close (FILE);

それくらい調べろやｳﾞｫｹｪ！
もうくんな発言スンナ

＞while ($i < 5){
＞print "$a"
＞$i++;
＞};
ﾜﾛﾀｗ
$aの中身入れてないなら同じのが出て当然だろｗ

>>103
そっとしておいてやれよ

$dellist = $query{'del'};

open(FILE, "./aborn.csv");
@list = <FILE>;
close(FILE);

@temp = ();
foreach $rr (@list){
if($rr eq $dellist){
print "$rrを削除しました<BR><BR>";
} else {
push(@temp, $rr);
print "$rrは削除せず<BR><BR>";
}
}

open(OUT, ">./aborn.csv");
print OUT @temp;
close(OUT);

以上のようなソースでプログラムを動かすと、
@listに$dellistと同じ文字列が含まれているのに、その文字列は削除されずに
else以下の「削除せず」をprintして、csvファイルからも削除されませんでした。
「eq」の部分が原因だと思うのですが、==では当然正常に動きませんし…
はて、どうしたものでしょうか。

>>105
http://tohoho.wakusei.ne.jp/wwwperl1.htm#CompStrOperand
http://tohoho.wakusei.ne.jp/wwwperl1.htm#MachingOperand

chomp じゃないのか

だな

Active Perlでローカルな環境で動かしたらリストからの削除ができなかったのですが、
今サーバーにアップロードして試してみると、リストからの削除が行えました。

変わりに、文字化けが起こるようになりましたが…

謎。


>>106-108
なるほど、eqにこだわらずneで組めばelse文がいらないというわけですか。
参考になります。

>>79ですが　自己解決しました
下記のようにコードを直したら無事cgi-lib.plが処理してくれました

（訂正前）　&ReadParse; 　　　　　　　　（訂正後）&ReadParse(*in);

実はこのコード、本にのっていたやつなんですけど、本が間違ってたんですかね。
いろいろ調べた結果&ReadParseの後ろに(*in)を付けないと　フォームから渡された
データが　in　に入らないんですね。　なんかやられたって感じです。

でもみなさんにいろいろ教わった結果、perlのエラーはapacheのログみれば分かることや
その他いろいろのことを知ることができました。アドバイスいただいたみなさん　ありがとう
ございました

>>110
&ReadParse; だけでもできるが。
cgi-libが古いんじゃないか？

多分もの凄く基本なんだと思いますが質問させてください。
日本語の表示についてです。
WindowsXP、AN HTTPD、ActivePerl5.8です。
ソースの文字コードはeucです。


use Encode;
use encoding 'euc-jp';

my $x = "あ";
print $x;


これだと文字化けしてしまいます。
Encode::from_toやEncode::encodeなどで$x文字コードを変換しても上手くいきません。

一応ググッてはみたのですが、見つかったPerl5.8の解説ページはどれも中級者向けといいますか、
読者が5.6以前の文字コードの扱いやjcode.plの扱いを理解しているという前提で書かれたようなものばかりで、
今から5.8でPerlを勉強しようという入門者向けに日本語の扱いを解説したページを見つけられませんでした。

>>112
おまいさんの思ってる「文字化け」の定義を述べよ。
ブラウザ側でエンコードを euc-jp として指定してやれば普通に見えるんじゃないか？

>>112
windowsのコンソールに表示させてる？
ならeuc-jpじゃなくてsjisで書いてencode指定すれば
とりあえず正しく表示される。

こんなのもちゃんと通る。
use encoding 'sjis';
my $x = "ソースを表示";
print "$x(";
print length $x;
print "文字)\n";
$x =~ s/表/提/;
print $x;

>>112
ソースの文字コードがeucで、ブラウザにeucを出力するのに
わざわざモジュールを呼ぶ必要があるのかと。

>>112
その$xはUnicodeだよ？

ありがとうございます。なんとか表示することができるようになりました。
新しく覚えたことはまず拡張子plでwindowsのコンソールで試し、その後CGIにして動かす、というやり方で勉強していました。
今回は最初のコンソールの段階で上手くいかなかったので、その後のCGIでブラウザ表示するのをやっておりませんでした。
レスを見て、CGIでのブラウザ表示を試したところ、eucで表示が確認できました。

>>113
というわけで、そもそもブラウザでの表示を試していませんでした。

>>114
ご指摘の通り、コンソールで表示させておりました。
ソースをsjisにすることでコンソールでも表示できました。
sjisだと色々問題が発生するのでソースはeucが基本、と書いてあるHPを読んだのでeucにしておりました。

>>115>
Perl5.8だと内部ではUTF8でどうのこうの、というあたりでかなり頭が混乱しております。
なんとか「あ」が表示できたので、これをとっかかりに詳しく勉強していこうと思います。

>>116
そのへん、まだ混乱しています。is_utf8($x)だと真になるので、UTF8なのか。
でも結局無変換のままで上手くいったので、やっぱりeucなのか。
UTF8フラグの立ったeuc？？
この辺がまだきちんと理解できてないので、近いうちにまた壁にぶつかる予感です。

Perlスクリプトでhttp-referrerの偽装は可能でしょうか？
リンク先に飛ぶときhttp-referrerに任意のURLをぶち込んで飛ぶということは可能でしょうか？

>>118
できます。
ぐぐればサンプルはいくらでも見つかります。

CGIスレへどうぞ。

>>119-120
レスありがとうございます。
CGIスレ見てみましたが、出来ないっぽいですね？

リファラはクライアントが勝手に吐くからね。
サーバーからはどうにもならんでしょう。
2chみたいにワンクッションさせてみるとか？

>>118
プロキシかブラウザを作るしかないでしょ。

とりあえず use strict; しとけっていうのを見たんでやってみたんですが、
下のスクリプトが上手く動かないんです

use strict;
{
package Config;
$host = "www.example.com";
}
package main;
print "host = $Config::host\n";

use strictしているときは、$Config::host = "www.example.com"; って書かないといけないみたいですが
これじゃあ、package Configの意味がないですよね？
package Config; のあとに no strict; っていうのを入れないといけないんですか？

どうしたらいいんだろう･･･おしえて。

>>122-123
やっぱそれしかないですね。

$e1=int(rand(6));
$e2=int(rand(6));
while($e2==$e1){
$e2=int(rand(6));
}
$enemy3=int(rand(6));
while($e3==$e1 or $e3==$e2){
$enemy3=int(rand(6));
}
１〜６から、ランダムで３つの数字を重複なしで、
取り出すプログラムなんですけど、
しょぼいですよね・・・
なにか華麗な方法知ってる方いれば、教えて下さい。

みすった＞＜
$e1=int(rand(6));
$e2=int(rand(6));
while($e2==$e1){
$e2=int(rand(6));
}
$e3=int(rand(6));
while($e3==$e1 or $e3==$e2){
$e3=int(rand(6));
}

>>124
プラグマの影響範囲を誤解している。
http://perldoc.com/perl5.8.0/pod/perlmodlib.html

>>126
1..6 をランダムな順序で持つ配列から 3 つ取り出す。
http://www.din.or.jp/~ohzaki/perl.htm#ArrayRandom

>>124
use strictの意味も分からずuse strictしても意味無いですよね？

perl5.6.0未満のバージョンなら
{
package Config;
use vars qw($host);
$host = "www...";
}
perl5.6.0以上のバージョンなら
{
package Config;
our $host = "www...";
}
# ...
print $Config::host;

>>126
何スレか前に同じ質問があった。
そのときは確か、List::Utilが使えれば一番早くて楽だっていう
結論だった気がする。

use List::Util qw(shuffle);
($enemy1,$enemy2,$enemy3) = shuffle 1..6; #@enemy[0..2] の方がいいと思う。

>>130
これやね。
ttp://boobar.hp.infoseek.co.jp/bench/randlist.txt

>>129
Perl 5.8.0使っているので、下のほうを参考にさせてもらいます。
use strict;はとりあえずつけとけと よく見るのでつけてみました。
とりあえず変数はmyつけて宣言しとくといい らしいので。
packageのなかでは our というのをつけるんですね。
>>128
プラグマですか。自分の持っている本にも少ししか触れていないし、
難しそうな考え方ですね･･･。

知らないのに何かができるわけも無いので、
頑張って勉強します。どうもありがとう、でした

分かった！
package内ではourをつけて宣言するんだ
（mainの中でmyをつけて宣言するのと同じように･･･ってmyの複数形なんだな）。
package内で$varとしたらグローバルになっちゃうわけですね。

>>133
全然違うし。
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlmod.html

my 変数はシンボルテーブルで管理されていないので、同じファイル上で
宣言されていれば名前空間が変わっても参照できる。strict プラグマの
影響範囲も同様。

#!/usr/bin/perl
use strict;
package Foo;
my $foo = 'foo!'; # strict vars の影響範囲内
package Bar;
print $foo; # foo!
__END__

vars プラグマや our によって宣言された変数は strict のチェック
対象外となるだけでグローバル変数と同等。シンボルテーブルで管理
されているから $Config::host のようにパッケージ名から指定すれば
外部から参照できる。

あと標準モジュールに Config.pm があるので、パッケージ名に
Config を使うのは止めた方がいい。

#!/usr/local/bin/perl
use strict;
use warnings;
use sigtrap;
use diagnostics;

&main;
exit;

sub main {
　my $val1 = 1;　our $val2 = 2;

　&test;

　print '$val1(' . \$val1 . qq|="$val1"\n|;
　print '$val2(' . \$val2 . qq|="$val2"\n|;
#　print '$val3(' . \$val3 . qq|="$val3"\n|;
#　print '$val4(' . \$val4 . qq|="$val4"\n|;

　sub test {
　　my $val3 = 3;　our $val4 = 4;　$val1 = 5;　$val2 = 6;
　　print '$val1(' . \$val1 . qq|="$val1"\n|;
　　print '$val2(' . \$val2 . qq|="$val2"\n|;
　　print '$val3(' . \$val3 . qq|="$val3"\n|;
　　print '$val4(' . \$val4 . qq|="$val4"\n|;
　}
}

>>117
まー大体予想通り。
>sjisだと色々問題が発生するのでソースはeucが基本、と書いてあるHPを読んだのでeucにしておりました。
最近の Perl では
>Perl5.8だと内部ではUTF8でどうのこうの
の通りコード変換を行うのでとりあえず大丈夫。
ポイントは use encoding の役割。
・ソースコードの文字コード指定(Perl がソースを解釈する際、この文字コードから UTF-8 に変換)
・標準入出力の文字コード指定(STDIN, STDOUT に対する入出力をこの文字コードに変換)
の 2 つ。つまり、>>112 のコードでは
ソースコードでは euc → Perl 解釈時に UTF-8 に変換(よってis_utf8($x)が真) →
print で(STDOUT)に出力される時点で再び euc に変換
という流れ。詳しくは perldoc encoding 参照。

>>132
パッケージだとかモジュールだとかについて詳しく知りたければ、「続・初めてのPerl」を
読むといいかもしれない。
正直この本に「続・初めてのPerl」とタイトルをつけるのは間違ってるという気もするけどね。
表表紙も「Perl オブジェクト、リファレンス、モジュール」っていう副題の方が文字でかいし。

>>134
細かいことだけど、正確には同じファイル上で、じゃなくて同じブロック(の前方)で、だよね。

>>137
ファイルスコープはブロックじゃないので、より正確には
<q>
my と local は、変数 (my の場合) やグローバル変数の値 (local の場合)
を、それをとり囲むブロック、サブルーチン、eval 、またはファイルの中が
有効範囲となるように宣言する。<cite>駱駝本 2nd Edition 2.6.8</cite>
</q>
だね。

連想配列の配列数を取得するにはどうしたらいいのでしょうか？
foreach(keys(%a)) { $i++ } のように一個一個数えていくしかないのでしょうか？

scalar(keys %a);

>>140 ありがとうございます

もう一個おながいします。
クラスでインスタンス毎に別個の値を保存したい連想配列があるのですが
どういう風に実装すればいいのかわかりません。
以下のようなコードだと複数のインスタンスから%aにアクセスされると
まずいことになっちゃいますよね？

my %a;

sub new {
my $self = shift;
my $obj = {
name => shift
};
bless $obj,$self;
$obj;
}

>>142

sub new {
my $self = shift;
my $obj = {
name => shift
};
bless $obj,$self;
$self->{HOGEHOGE} = {};
$obj;
}

#!/usr/local/bin/perl
$addr = (gethostbyname("hogehoge.com"))[4];
$name = pack("S n a4 x8", 2, 80, $addr);
socket(S, 2, 1, 0);
connect(S, $name);
binmode(S);
select(S); $| = 1; select(stdout);
print S "GET /index.html HTTP/1.0\r\n\r\n";
while (<S>) { print; }
close(S);

なんて事をやったんだが、http://hogehoge.com/index.htmlのソースが表示されるワケではなく、
HTTPヘッダが表示された。

ヘッダは良いからindex.htmlのソースを読みたいんだけど、どうやればいいのかGoogle検索してもわからん
どうやるんすか？

すまん、自己解決。
自分ではまだ作れないからとりあえず他人作の関数使うわ

理解は後回し

まずはそのヘッダに何が書かれていたか読めるようになるべきだな。
でなければLWP使え。

>>143
ありがとうございます

# <> <= Not select Handle

<> ; # ! <STDIN>;

open File,"$ARGV" or print $!,"\n";
# Not ($ARGV[0] and @ARGV);

while(<File>){print;}
close File;

なぜに動くのか ？？？
デバックするとよけーに分からん

猿でも分かる説明 お願いします

>>148
<>は<ARGV>と同じ。

ファイルハンドルARGVは*最初に<>/<ARGV>を評価した時に*@ARGVの、
中身をファイル名のリストと見なし、$ARGV[0] .. $ARGV[n]を順に暗黙のうちにopenする。
中身がなければSTDINと同じ。
そして、この暗黙のopenの時$ARGVに開くファイルの名前を入れる。

ここまで分かれば>>148の動作も理解できるだろ？

つーかどのような経緯で>>148のようなコードを書くことになったのか非常に興味がある。
普通のスクリプトでそんなコードがあったら素で作者の正気を疑うぞ。

>>149
「Perlはこんなに省略できる」って意味の例文じゃなかろうか。

パール、Ｃ言語、ＰＨＰとかいろいろなＣＧＩがあるけど
この使い分けの意味がよく分かりません。
サーバーによって使える言語が違うということでしょうか？

<> と <STDIN> の
明確な違いを知りたかったので
自分で書いてみますた

もっと分かりやすい
スクリプトあれば教えてくだされ

>>151
そゆこと。使いたいサーバーの使用可能言語を調べてみ？
Perlは使えない方が珍しいがCは使える方が珍しい。

>>153
ぉぃぉぃ嘘おしえちゃいかんよ
Perlなんて化石言語使える鯖の方が少ない
今は殆どC

僕もＣＧＩの汎用比率が気になる初心者です。
今から勉強するとしたら何を学んだほうがいいのでしょうか？
ちなみに会社ではﾊﾟﾙとPHPがメインみたいです。

>>155
1レス前も読めない香具師は何をやってもダメ。
ってかその前にｽﾚﾀｲも読めませんか、そうですか。

>155
ﾏｼﾞﾚｽすると、「なにをやりたいか」による。
会社でPerlとPHPがメインなら、そっちに磨きをかけた方がいいかもしれない。
会社がその後、ASP.NETなんかに転ぶ可能性があるなら、今のうちに勉強しておくのもいいかもしれない。


それよりもそろそろPerlのコーディングの質問はこないものか。

>>150もわかってないみたいだから解説してやるよ
>>152もこれ見て分からなきゃ「初めてのPerl」を百回読め

# 初めて<ARGV>とされた時に呼ばれる関数
sub __initialize_argv__{
  unless(defined fileno ARGV){
    @ARGV = ('&STDIN') unless @ARGV;
    $__internal_index__ = 0;
    $ARGV = $ARGV[$__internal_index__++];
    open ARGV, $ARGV
      or die "Can't open $ARGV: $!";
  }
}

# <>;
__initialize_argv__();
<ARGV>;

あとはARGVがEOFに達すると自動的に$ARGV[$__internal__index++]をopenするというわけだ。

さすがに>>154の釣りに騙されるやつは居ないな

>>158
この関数どこで定義されてんの？

>>160
ユーザーは呼べない。いい加減にしろ。

>>161
>ユーザーは呼べない。いい加減にしろ。

ならどうして調べたのさー
　。。。。。と逆切れしてみる w

書き方間違ってますか？

if (!-e image/$new){
mkdir("image/$new",0777);
chmod(0777, "image/$new");
}

間違ってます。

ミスってた・・解決しました。
理由は
if (!-e image/$new){
が
if (!-e "image/$new"){
にするのわすれてました・・・｡ﾟ(ﾟ´Д｀ﾟ)ﾟ｡

>>163

if (mkdir("image/$new", 0777)) {
chmod(0777, "image/$new");
}
elsif (!-d "image/$new") {
die;
}

>>166
既にimage/$newがディレクトリとしてあった場合は？

ちょっとまってchomodする必要あんの？

あるわけないよね

鯖でumaskされてる時に意味があるんじゃ？
umask効いてる時は、mkdirのパーミッション指定が効かなかった記憶がある。

>>167
無問題。

文字列を裸で書く神経が分からん。

はだかぢゃいやぁーんおーしーまーやーのりっ♪

ある文章の / の前と後ろを分けて、それぞれスカラー値にしたいのですが、
（例）japan/korea　どのような構文を使えばいいのでしょうか？

「split perl」でググってもうここには来るな。

エスケープ忘れにはまる予感

175 + \つけてもうここには来るな。

代入の仕方が分からずにはまる予感

177 + perlでは=が代入だからもうここには来るな。

リストとしての受け取り方が分からずにはまる予感

まんどくせ。
($hoge,$foo) = split /\//, 'japan/korea';
こんな感じですんでまた来てね♥

何だかんだ言いつつおまいら優しいですな。

$bagu = "表示不可能な予感";
# 侮ｦ不可狽ﾈ頼ｴ
これってもちろんPerlのバグですよね？

>>183
それってもちろんネタですよね？

>>183
「侮ｦ perl」でgoogle検索。

>>183
表☆示
ってやれば大丈夫！

教えてください。

ＰＥＲＬで「ｃｇｉを呼び出すＨＴＭＬ」を吐き出すｃｇｉ　を作ったのですが
クエリーがうまくわたらないのです。

１．最初の（固定の）ＨＴＭＬでは、ファイル中のクリッカブルマップからたとえば

　 test1.cgi?hogehoge

をリンクしています。

２．test1.cgiでは　QUERY_STRING から　hogehoge を取り出し
　データファイルと照合して　hogehogehoge　というアイテム名を取り出してるので

　HTMLファイルに、

<A href="test2.cgi?hogehogehoge> と出力させています。

３．test2.cgi では、　QUERY_STRING から　hogehogehoge を取り出すようにしているのですが

　ここで　空文字列しか来ていないようで、２．のHTMLファイルのリンクをクリックするとエラーです。

　test2.cgi　は確かに呼び出しています。

一連の動作でやるとエラーなのですが、２．のHTMLが表示された段階でブラウザにソースを吐かせ、
それを別のHTMLファイルとして起動してやると、そこからのリンクでは、test2.cgi　にちゃんと
hogehogehoge が渡っています。

何か設定を忘れているでしょうか？

<A href="test2.cgi?hogehogehoge>
　　　　　　　　　↓
<A href="test2.cgi?hogehogehoge">

ちょっと教えてください。

Redhat8.0のperl5.8.0でLWP使って
レスポンスヘッダを編集したいんですが、
newの書式が分からないです。マジで。

require HTTP::Response;
$rc = '200';
$msg = 'OK';
$header = 'Accept-Ranges: bytes\n';
$header .= 'Content-Length: 186965910\n'
$header .= 'Content-Type: text/html\n\n';
$content = '';
$res = HTTP::Response->new($rc, $msg, $header, $content);

print "$res";

と書いたんですが、InternalServerErrorで進めません。
HTTP::Responseでレスポンスヘッダを編集する方法教えてください。
お願いします。

>>189
なんかグタグタですな。。。
use HTTP::Response;

$header =<<"EOS";
Accept-Ranges: bytes
Content-Length: 186965910
Content-Type: text/html

EOS

186 MB の HTML なんてブラクラですね。。。

>>190
お早い回答ありがとうございます。
いや、ヘッダー情報をいじったり削除したかっただけなんで、
値はどうでも良いかと思ってテキトーに設定しました。気をつけます。

print "ソkソ泣|";

Windowzで「ヌルポ」と文字化けします。
これってもちろんPerlのバグですよね？

ごくシンプルな日記スクリプトをPERLで書いているのですが、
TEXTAREAの内容について改行の処理をしようとすると
数字の羅列になってしまいます。

　　$msg = $FORM{'msg'}; #バッファからセット。URLデコード済。
　# $msg = ~ s/\r\n/<BR>/g;

この状態だと「$msg」の中身はちゃんと文字列になっているのですが
下のコメントをはずすと途端に数字の羅列になります。
（文字列を変えても同じ数字になります。）
どうすればこの状態を回避できるでしょうか？

すみません。自己解決しました
　　$msg =~ s/\r\n|\r|\n/<BR>/g;
このようにコーディングしてみたらいけました。

>>194
試しにこう書いてみよう。
$msg = ~ s/\r\n|\r|\n/<BR>/g;

~ の意味を調べてみよう。

time()で返す秒数って、
何かちゃんとした名前があったような気がしたんだけど。
何だっけ。

カタカナ4文字でスがついたような気がする。

ごめん、ユリウス暦と混同している可能盛大。
名前がなかったかも。

HTMLに、DBに入れられたクレジットカード番号を
表示させる、ということをやっています。
番号が入っているcar_numフィールド（11番目）には
[****-****-****-****]
という形でデータが入っています。
しかし、番号確認画面でその末尾４ケタのみ表示させたいのですが、
なかなか良い考えが浮かびません。
今は以下のように書いて丸々16ケタ表示させています。
諸先輩方、アドバイスよろしくお願いいたします。

<tr>
END
if ($odr[10] == 2){
print"$odr[11]"
}
print <<END;
</td>

>>196
あるよ。エ・・・秒
なんだったかな思いだせん。。

わかった
エボック秒だわ

>>196
ヒント：シルバニアファミリーと言えばこの会社。かつてはカセットビジョンなど
家庭用ゲーム機も出していた。

ごめん。たぶんエボックじゃなくてエポック。

>>202
おー、それそれ。
お礼に自分の屁が臭い時に喜びを感じる性癖をプレゼントします。

>>203
それは俺の性癖だが何か?

dfで取得したディスク使用量のデータから一部の数字だけ
抜き出してPERLで使いたいのですが、どうすれば良いのでしょうか？
例えば

$string = "FilesystemSizeUsedAvailCapacityMounted on"

の一行から、Size, Usedだけを取り出して使いたいとすると、
@pairs = split(/(\t)/, $string);
print "@pairs[1] @pairs[2]";
としても上手く行きません。(\s)*でも無理なようです。

@pairs = split(/\t/, $string);
print "$pairs[1] $pairs[2]";

>>206
@pairs = split(/\t/, $string);
だと、何故か全て@pairs[0]に全文が入ってしまい、
@pairs[1]以降は空になってしまうようです。

>>207
$stringは本当にタブ区切りになってるのか？

何を区切りに使っているかは、良くわかりません。
shellのdfコマンド出力から一行抜いてきたstringです。
dfは何を使って区切っているのでしょう？

Filesystem 512-blocks Used Avail Capacity Mounted on
/dev/disk1s9 39870600 36823240 3047360 92% /Volumes/disk1
/dev/disk3s2 320144448 267850648 52293800 84% /Volumes/disk2

>>205-206
何も調べずに的外れなコードを書く奴もDQNだが、解答する奴もそれに劣らずイカレてるな。

>>205
> データから一部の数字だけ
とあるのにコードに数字が一切ないのは何故だ？

my(@data) = ($string =~ /([A-Z][a-z]+)/g);
print "$data[1], $data[2]\n";

お前の望むことはとりあえずこれで出来るが、本当にこんなことがしたいのか？

ざっと読んだだけだからよくわからんが
$stringを切って配列に代入しようとしてるなら
$stringをprintしてみれば何区切りかわかることだろ。

>>209
⊂⌒~⊃｡Д｡)⊃ ﾀﾞｧｰｰｰｯ

>>209
おいおい…(絶句)
もう何も言うまい。ほらよ。

my %data;
my @fileds = ('Filesystem', '512-blocks', 'Used', 'Avail', 'Capacity', 'Mounted on');
@data{@fields} = split / /, $string;

use Data::Dumper;
print Dumper(\%data);

>>213
…ﾊｧ

split ' ', $string;

「現在、??? gbのうち??? gb使用されています」
みたいな感じの文章出力に使う用です。

知るかｳﾞｫｹ
どうしてもperlでそれをやりたいんなら
>>1やらテンプレのリンク先で基本ぐらい勉強して来い。

近年まれに見る痛さだ

普通にできるけど？

WinXP+cygwin使用
$ df -h /cygdrive/c | perl -MData::Dumper -ne 'print Dumper split /\s+/'
$VAR1 = 'Filesystem';
$VAR2 = 'Size';
$VAR3 = 'Used';
$VAR4 = 'Avail';
$VAR5 = 'Use%';
$VAR6 = 'Mounted';
$VAR7 = 'on';
$VAR1 = 'c:';
$VAR2 = '74G';
$VAR3 = '39G';
$VAR4 = '35G';
$VAR5 = '52%';
$VAR6 = '/cygdrive/c';

@data = split ' ', $string;
で出来ました。ありがとうございます。

>188
187で質問した者です。

WEB動作環境は勤め先にあるので返答が遅れました。（アクセス制限がかかってるので）

ここに書いた例が間違っていて、実物はちゃんとダブルクォート閉じてました。
いろいろやってみて、どうも

Ａ．　ＣＧＩが出力したＨＴＭをそのまま（連続で）表示した場合と、
Ｂ．　それをソース表示して「保存」し、改めて表示した場合で

振る舞いが違うようです。こんなことがあるのかいなと思うのですが．．．

Ａ．Ｂ．のＨＴＭでは、hrefを使って別のCGIを引数つきで呼んでます。

そのCGIを、サーバにあった　ENV.PL（環境変数を表示するやつらしい）と換えてみると
Bで表示される環境変数の多くがAでは出てこず、QUERY_STRINGもありませんでした。
（空文字列でなく、環境変数そのものが出て来ない）

ひょっとするとPERLの問題ではないかもしれませんが、スレ違いなら誘導してください。

明日はサーバーを変更してやってみます。

こういうことじゃないの？
x <A href="test2.cgi?hogehogehoge">
o <A href="http://〜/cgi-bin/test2.cgi?hogehogehoge">

>>220
当然、test1.cgiとtest2.cgiは同じフォルダにあるよね。

>221,222
回答ありがとうございます。
最初の例では詳しく書いていませんでしたが、どちらのCGIの参照も
http:// から記述してます。（厳密には場所は一段違うところ）

222もそういう主旨ですよね？

スレ違いなので↓でどうぞ

CGI: Common Gateway Interface part 11
http://pc5.2ch.net/test/read.cgi/php/1055597189/

>224
187,220,223です。

誘導ありがとうございました。実は、サーバー変更（自分のPCでAN　HTTPD走らせて）したら
問題なく環境変数が渡りました。問題のあったサーバーはNT＋IISです。

どうもCGI機能まわりのようなので、あちらで聞いてみます。お騒がせしました。

初歩的な質問なのですが、なかなか検索できずに
こちらへ質問させて頂きます。

a.pl
b.pl

というスクリプトで、a.plからb.plへ標準出力で引数を渡し
b.plで受け取った引数を加工して、同じく標準出力で
a.plへ返すには、どうすれば良いのでしょうか？

open(FD,"./b.pl data1 data2 |");
という感じでやってみたのですが、a.pl⇒b.plへ
うまく渡されません。

どなたか、ご教授お願い致します。

open(FD, "| ./b.pl");

thx

format DATA =
@<<< @<<<<<< @<<<<<< @<<
$a $b $c $d
.
write;

で出力される物を掲示板などのhtmlに出力したいのですがどうすればいいでしょか？
print format DATA;
みたいなアホな事してみましたがやはりエラーです。
ぐぐっても該当しそうな記事がみつからないし図書館のperlクックブックは
貸し出し中・・
先輩方よろしければお助けください。

（ ﾟДﾟ）ﾎﾟｶｰﾝ...

もしかして私はとてつもなくトンチンカンな事をしていますか？

>>229
format =
@<<< @<<<<<< @<<<<<< @<<
$a $b $c $d
.
write;

formatは半角スペースでレイアウトするからhtmlへ出力するなら
<pre>で囲んで使うとかしないと。
固定ピッチになって間が抜けて見えるから掲示板には向かない気がするが。

>>229
write FILEHANDLE

>>233
前後をよく見て答えましょうね

>>243
あ、writeでエラーになるってことね…。

format DATA =
@<<< @<<<<<< @<<<<<< @<<
$a,$b,$c,$d
.
$~ = 'DATA';
write;

フォーマット名を省略すればSTDOUTと見なされるんだからそんなことしなくても

無名ハッシュのキー一覧を得たいんですがどうやればいいのでしょうか？
key $hash
key %$hash
と色々やってみたのですが 「keyの引数はハッシュじゃないとダメ」とエラーになります

すいません、解決しました

グローバル変数の値が初期値に戻ってしまいます
なぜでしょう？

>>239
そうなるようなコード部分があるから

>>240
どのような記述をすると初期値に戻ってしまうのか
教えて下さいませ

初期値を代入した部分が再度実行されれば戻るでしょ。
そもそもそういう質問をすることからして何か勘違いしてる可能性もあるが。

>>242
役立たずですね

まじめに答えてるわけじゃないしな
暇つぶしなだけ

>>244
早く寝ろ

おはよ
漏れは今起きた

はいはい、寝ますよ（ ´,_ゝ｀）ﾌﾟｯ

>>247
自力で解決しました。
役立たずさんは早く寝てください。

どうやって解決したかは書かないのな(ﾌﾟｹﾞﾗ

>グローバル変数の値が初期値に戻ってしまいます
>なぜでしょう？

これでどう解決すればいいんだよ
き違いはイラク行ってろ

Perlって変わってるよね。

そこがいいよね

解決してないけど苦し紛れに書いちゃったんだよ。察してやれよ

>>232
>>233
>>234
みなさん、ありがとうございました。うまく出力できるようになりました。
あれから起動hddが逝って換装後os再インストなどでご報告遅れてしまいました。

>>232
ん〜そうですねぇ。間が抜けてみえちゃいますねぇ。
一応管理用のデータ表示程度に出力させたかったので御の字なんですが
本当はこれ以外の出力のさせ方しらなかったのです。
純粋にプログラム初心者なperl初心者なのでhtmlタグの知識などもほとんどなかったり。
ほかにも出力の出し方探してみようと思います。どうもでした。

239 名前：nobodyさん 投稿日：04/04/16 03:19 ID:5vM41xl8
グローバル変数の値が初期値に戻ってしまいます
なぜでしょう？


240 名前：nobodyさん 投稿日：04/04/16 03:24 ID:???
>>239
そうなるようなコード部分があるから


241 名前：nobodyさん 投稿日：04/04/16 03:27 ID:5vM41xl8
>>240
どのような記述をすると初期値に戻ってしまうのか
教えて下さいませ


242 名前：nobodyさん 投稿日：04/04/16 03:35 ID:???
初期値を代入した部分が再度実行されれば戻るでしょ。
そもそもそういう質問をすることからして何か勘違いしてる可能性もあるが。


243 名前：nobodyさん 投稿日：04/04/16 03:45 ID:5vM41xl8
>>242
役立たずですね

該当スレが見当たらなかったのでこちらに投稿させていただきます。
http://anonymouse.ws/anonwww.html
↑これみたいに、URLｸﾘｯｸしたら串刺さった状態で該当サイトに飛ぶようなスクリプト探してるんですが、
こんなのって普通に配布されてるんでしょうか？
だとしたらどういう検索ワードで探せばよいか教えてほしいんですけど・・・

>>256
>>1
http://pc5.2ch.net/test/read.cgi/php/1078568723/

>>252
いいこといった！

すみません、225です。解決したので報告です。

お恥ずかしい初歩的なミスですが、？の後のクエリーを全角文字で書いてました。

受け側もデコードとかしてなくて、それでもクエリーはちゃんと読めて、思ったとおりの
HTMを出力していたのですが、その時点で正常ではなかったようで、そこから飛ぶ
先の環境変数が壊れていました。

誘導してもらった先でも報告しました。報告ですのでマルチポスト御容赦。

plファイルに対してショートカットを作ってそのショートカットのリンク先の欄に
コマンドラインオプションをつけてplファイルを起動したいのですが
perlでコマンドラインオプション引数を受け取る方法がわからないのです。

たとえばデバック用にコマンドラインオプションであらかじめｐｌ内の変数を
設定しておいてフラグを立てたり、logファイルの読み込みディレクトリを
変更したりしたいのです。

そういうことはできないのでしょうか？アドバイスいただければ幸いです。

>>260
@ARGVに入ってる

返答どもです。
さっそくやってみます。

掲示板のlogファイルなどを相対パスではなく絶対パスで設定したいのですが
掲示板のファイル名取得コードが
$file =~ /\/([\s\S]*)\./;
となっている為、相対パスでlog/log.txtなどの場合は正常に取得できるのですが
絶対パスでH:/bbs/log/log.txtなどの場合は正常に取得できません。
正規表現を調べて
$file =~ /*\/([\s\S]*)\./;
$file =~ /*.\/([\s\S]*)\./;
$file =~ /.*\/([\s\S]*)\./;
$file =~ /.\/([\s\S]*)\./;
みたいな事もやってみたのですが文法エラーだったり目的通りに動いてくれなかったりで
気づけば朝。
こういった場合どういうようにしたらいいのでしょうか？

なぜ絶対パスで設定したいのか理由を述べよ。
絶対パスが他のサーバのファイルだとしたら笑いますよ。

>>263
正規表現を勉強する。
http://www5a.biglobe.ne.jp/~n_rieko/perl/8.htm

>>264
今自鯖立てていろんな掲示板設置して掲示板弄ったりして
変数やら制御構文やら関数やらを覚えてるんですがその過程で
掲示板のファイル名やlogなどのファイル名を一括表示できる
cgiを作りたいなと思いまして。

>>265
まさに今そのＨＰ見ながら勉強させてもらってるんですが
無い知恵絞って出てきたのが上の文です。
これでいけるはずだ！と思って書いてみてもミスると次どうすればいいのかも
思いつけなくて・・。

>>266
プログラミングは
1 これでいけるはずだ
2 やっぱ駄目。
3 直して1に戻る。
の繰り返しなので、2で止まってしまう人は、お金出して他人に任せなさい。

>>267
分かりました。お金出して他人に任せ・・たくないので１にもどります。
とりあえず寝ます。ありがとうございました。また何か詰まったら質問させてください。

Perl勉強するなら、Perlの気持ちにならなきゃね。。。

最近、Perlの気持ちになってないﾔｼが多いよ。

喪前ら書き込むなら何かヒントくらい書かないとこのスレの趣旨として機能しないんじゃねぇの？
そんなことない？
$file =~ /.*\/([\s\S]*)\./;
俺ならこれに何か付け足す。
あとはガンガレ。

ヒントか？

$

>>263
そのすぐ下の行に、
$file = $1;
っていう感じの記述は無いか？
そのコードの意味から調べてみろ。

あたしゃ適当にこんな感じ。
$file =~ /.*\/(.+)\./;

/だけならいいけど、\まで対応すると一気に面倒なんだよなぁ。
全角とか半角カナが。(SJISね)

GETやPOSTでデータを渡すとき、通常だと
「&」 … @pairs = split(/&/,$buffer);
と
「=」 … ($name,$value) = split(/=/,$pair);
でデータ切ると思いますが、これを別の文字にできますか？

「&」を「<>」とかに替えてみて、GETだと出来たんですが
POSTで渡すとき強制的に「&」になるようでデータを渡せませんでした。

POSTの時「&」意外にする方法はあるのでしょうか。
お願いします。

>>274
http://pc5.2ch.net/test/read.cgi/php/1055597189/

./Hoge.pm
./Hoge/Foo.pm
というモジュールを作り、
package Foo;
use strict;
@ISA = qw(Hoge);
としたのですが、
Can't locate Hoge.pm in @INC (@INC contains: /usr/...とか色々
と怒られてしまいます。また、
use Hoge;
としている./aho.plでも、useの行で
BEGIN failed--compilation aborted at …
と怒られてしまいます。
おそらくHoge.pmの位置というか、そのような物が悪いのだと思うのですが、
どう直せばいいんでしょうか？
らくだ本では、Hoge::Fooは./Hoge/Foo.pmを表すって書いてあったと思うんですが…。

>>276
#--- ./Hoge.pm ---
package Hoge;
sub new { return bless {}, shift }
1;
#--- ./Hoge/Foo.pm ---
package Hoge::Foo;
use base 'Hoge'; # base.pm のヴァージョンが古いとコケる場合がある
# use Hoge; push @ISA, 'Hoge'; # その場合の代替策
sub foo { print 'foo!' }
1;
#--- ./script ---
#!/usr/bin/perl
BEGIN { print map "[$_]\n", @INC } # @INC に . が存在するか確かめる
use Hoge::Foo;
Hoge::Foo->new->foo;
__END__

>>276
http://www.kt.rim.or.jp/~kbk/perl5.005/perlfaq8.html#How_do_I_add_a_directory_to_my_i

package Hoge::Foo;
が
package Foo;
となっていました…。
フルパスというか、祖先も全部書かないと駄目なんですね。
ありがとうございました。

>>279
./Hoge/Foo.pm の中身は package Foo; でも package Bar; でも
構わないが、use は実際のディレクトリ構造に従って Foo.pm を
探すので、./Hoge 内に置いている限り use Hoge::Foo; とする
必要がある。

ウェブ製作から流れてきました
当方レンタルCGIを運営しておりまして
某スクリプトを使用させていただいているんですが（現在配布中止）
なんか背景に画像を設定しても出ないというバグが発生してるんです。

$btagu = '<BODY BGCOLOR="' . $para[8] . '" BACKGROUND="' . $bground . '" TEXT="' . $para[10] . '" LINK="' . $para[11] . '" ALINK="' . $para[12] . '" VLINK="' . $para[12] . '">';

画像はちゃんとアップされてて、画像を背景にしたはずのページのタグにも
ちゃんと画像のファイル名が入っているのですが画像が表示されないで
色が出てきてしまうんです

この状態だと、画像が入ってた場合色よりも画像のほうが優先されるはずなんですが
されないんです。

画像ファイルが入ってた場合に色よりも画像を優先させることはできませんか？？

>>281
ちなみに、まったく同じHTMLタグで.htmlファイルとしてアップすると
背景は表示されるんです
それが、掲示板などのCGIファイルになると表示されません

結局背景を画像にしたいなら、わざわざ色を指定する必要なくね？

画像オフにされている時に影響するから、背景画像も背景色もつけておくのがエチケット。

>281-282
パーミッション関係が怪しいと見た。
>282は全く同じフォルダで試してる？

tu-ka,Perlのコーディングと関係ないじゃん。
全く同じHTMLで結果が異なるなら、Perlのコーディングの問題じゃありません。
Web製作板向けですのでお帰りください。

>>281
お前か。
bodyタグを二つも書いてたやつだろ？
帰れ帰れ。

環境はレンタルサーバーで、おそらくLinux+Apache+perl5です。
一定時間(24時間とか1週間とか)ごとにスクリプトを自動実行させたいんですが、
perlから可能なんでしょうか。

ここかモジュールスレかCGIか迷ったんですが、perlからの呼び出しなので
とりあえずここで。

>287
アクセスがあった時に前回の自動実行から一定時間以上過ぎていたら実行をさせる。
これを聞いてイメージが湧かないなら無理。

>>288
レスありがと。

静的なHTMLに一定期間ごとに情報を負荷していくCGIなので、CGI呼び出しは
一般ユーザーからは行われない。自分でCGI叩くなら自動じゃなくて手動だ(笑)。

サーバーの負荷のことを考えると、SSI埋め込みとかimg埋め込みで毎回CGI
起動するのはやりたくない。

放置しておいても更新されていくようにしたいんだけど・・・無理かな。

>>289
perlには関係ありません。
Linux板でも行って聞いてください。

>>290
perlから呼び出したいし、自宅のレスト環境はWindowsだから、環境にあまり依存
しない汎用モジュールでもないかな・・・モジュールスレいったほうがいいですか？。

ないって。
レンタルサーバじゃまず無理。
どうしてもやりたければ、Windowsにタイマー仕込んで、一定期間ごとにCGI呼びにいかせろ。

>>289>>291
（´-｀）.｡oO(お前は誰だよ・・・)

>>292
・・・ないよなあ。そうは思ったが、この世界、物好きが組んでたりするんで、
わずかな可能性にかけたかった(笑)。
おとなしく別の手を考えます。

でも「いや、できるぞ」って方がいらっしゃったら情報よろしく。

バカだねぇ・・・
自動実行の定番ぐらい（ｒｙ

>289
my $time = time();
while(1){
  if((time() - $time) >= 3600){
    処理;
    $time = time();
    sleep 3599;
    next;
  }
  sleep 1;
}

# 共有鯖でやるべからず

っていうか判定つけずに sleep 3599 しとくだけでええやん。

ある変数が無名ハッシュかどうか判定するにはどうすればいいのでしょうか？

レンタルサーバだと、１分くらいで強制終了させられるところも少なくないと思われ。

ref();

>>299
いや30秒程度だろ

まぁ普通は>>296みたいなｷﾃｨなソースは頭に浮かばんね
cron使えよ

>>296
なんつースクリプトや…

>>298
無名かどうかを判定することは出来ない。

ロクに意見も出ないのに、口先だけは一人前のスレですね。

1.　フォルダの中身にあるファイル名を
　　表示させるcgiをつくりたいのですが。
2.　こんな風にやってみた。

#!/usr/local/bin/perl
$folder = ./hoge/
opendir(DIR, '$folder') or die;
@file = sort readdir(DIR);
closedir(DIR);
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<P>　フォルダの中身　</P>\n";
foreach (@file){
print $_, '<BR>';
}
print "</HTML>\n";
exit(0);

3.普通にエラーになる・・。

改善方法ありますでしょうか・・。

どんなエラーが出たかわからないのでカンだけで回答するが

とりあえず2行目はいきなり syntax error になるだろうな

>>305
そりゃあエラーになるわな。
基本からやり直してください。

とりあえず２行目にエラー、３行目にミス（エラーは出ないが期待通り動かない）がある。
何を見て書いたコードなのかは知らないが、せめてエラーメッセージの確認ができる環境で試すべし。

えっと、エラー確認してみたんですが
これで一応syntaxはOKになるんですが表示されません。。
#!/usr/bin/perl
$folder = "./hoge/";
opendir(IN, "$folder") or die;
@file = sort readdir(IN);
closedir(IN);
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<P>フォルダの中身</P>\n";
foreach (@file){
print $_, '<BR>';
}
print "</HTML>\n";
exit(0);

>>309
俺のところではそのコードでちゃんと動く。

コーディング以外の部分を疑うべきだろうな。
例えばディレクトリのパーミッションとか。

>>309
俺のところでもちゃんと動く。

ごめん。まじで聞いてくれますか？
フォルダ名間違ってた・・・。
ごめんなさい。逝ってきます。

>>305
〜 or die; とするぐらいならどうしてもう一歩すすめて 〜 or die "適当なメッセージ: $!"
としないのか...

>>313
print "Content-type: text/html\n\n";
の前に鰓が出て、「ぷりめちゃ〜」って出るからなんじゃなぁい？（ｗ

初心者的質問です、すいません！

@array を : で2つに分けて片方だけ表示したいのですが。
下記のように記述してみましたが、できませんでした。
書き方が違うのだと思います。
教えていただけませんか？

while (@array){
($hour, $min) = split (/./, "$array[$_]");
}
print "Content-type: text/html\n\n";
print "<HTML><BODY>\n";
foreach (@array){
print $hour[$_],\n;
}

今のままだと動作がものすごく遅くて
結局最後にエラー表示がでてしまいます。
一応、文法的な間違いはないようですが･･････。

あ。1箇所入力間違えていました。split の区切り文字は「:」です。

>>315
＞@array を : で2つに分けて
意味がわからん

＞while (@array){
＞($hour, $min) = split (/./, "$array[$_]");
＞}
これはどういう処理してるつもり？

例えば、

たかし
たろう
こういち
さぶろう
よしゆき

みたいなテキストファイルがあって、
それを読み込んで
「ぬるぽ」をHTMLから送信すると

ぬるぽ
たかし
たろう
こういち
さぶろう
よしゆき

見たいな感じにテキストファイルの一番上の列に
書き出すことはできますか？
またできるのでしたらその方法を教えていただけますか？

>>315
print "Content-type: text/html\n\n";
print "<HTML><BODY>\n";
foreach (@array){
($hour, $min) = split (/:/);
print $hour,"<br>\n";
}

>>318
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlfaq5.html#How_do_I_change_one_line_in_a_fi

>>318
ｶﾞｯ

cgiが起動したら、カレントディレクトリにあるバイナリーファイルを読み込んで、
そのまま標準出力にバイナリーデータとして返すにはどうすればよいのでしょうか。
読み込むにはbinmodeを呼び、通常通りreadにて$???で受け取ってよいのでしょうか、
またバイナリーをアウトプットする関数名を教えて下さい。

つーかよ、GETしたhtmlを分解して調べるなんて、なんつーか原始的（アナログ的）だよな

>>322
よい。
print

最近掲示板のパスが漏れて（？）改ざんされました。
とりあえずパスワードを変えることでしのいだのですが、
管理画面のログをとりたいと思っています。

CGIをいじったことはあまりないのですが、
管理画面（admin.cgi)の２行目くらいにreqireでアクセス解析のCGIを指定してやればいいのでしょうか？

よろしくお願いします。

>>325
>>1

ｽﾏﾝ・・・
誤爆した

初心者質問です。
perlで掲示板を作成しました。
掲示板の内容はログに書込まずにDB(PostgreSQL)に書込まれるようにしました。
出力するときにDBから取り出して、値を $変数 =~ s/\r/<br>/g;
という処理にして表示させると、改行はされますが、改行位置に<br>が付いた状態で表示されて
しまいます。<br>を非表示にして表示できないものでしょうか？

>>322

open(FILE,"ファイル名");
binmode(FILE);
binmode(STDOUT);
print <FILE>;
close(FILE);

>>328
それはperlに関係ないだろ。
HTMLレベルの話だし、自分で作った掲示板ならわかるはず。

>>325
とりあえず、アクセス解析ぐらい（admin.cgi)とやらに自力で書き加えれる程度の知識つけて
実際に書き加えてみろ。
そんで、うまく動かないとか、なんか困っ時にまた来なさい。
話はそれからだ。

>>324
>>329
どうもありがとうございマス
目的のものが完成しました

>>328
WINDOWSの改行コードは\r\n

\r\n → s/\r/<BR>/g; → <BR>\n
もう解るね？

＞WINDOWSの改行コードは\r\n

あいまいだな

$変数 =~ s/\r/<br>/g;
$変数 =~ s/</&lt;/g;
$変数 =~ s/>/&gt;/g;

ってなってて <pre> で囲まれてるんじゃない？

x between 1 and 100

をperlで書く場合は

( x >= 1) and ( x <= 100 )

と書けば動きますが、もっとスマートな書き方ってあります？

()はいらねー

FREEであったフォームメールのcgiを利用しようと思ったんですが
控え用にあるccが機能しません。
管理者用に届くメールのccに書いたほうのメールアドレスが
書いてあることには書いてあるんですが届かないのは
どんな理由が考えられますでしょうか？

メール鯖の管理者に聞いてみたら？

>>338
作者に聞いたら？
このスレの話題じゃない

>>336
$x and $x <= 100

それだと $x = -1 のときも true になりそうな

int(($x-1)/100) == 0

&between(x,0,100)

1と100の間;

for (1..1000){
open F,'test.txt';
flock F, 1;
$data = <F>;
close F;

$data++;

open F,"+<test.txt";
flock F, 2;
truncate F, 0;
print F $data ;
close F;
}

これを、2プロセスで実行すると、+2000になる予定ですが、+2000になりません。
printの前に seek F,0,0; を入れると期待通り+2000になるのですが・・・。
どうしてでしょうか？

>>346
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlfaq5.html#I_still_don_t_get_locking_I_jus

>>346
カウンタファイルを読むのと書くのをそれぞれ別のロックにしたら
相手の操作に割り込まれ放題だから2000にならないのは不思議
でもなんでもないが、seekを入れただけで2000になるのはとても
不思議だ。オレにはわからん。

use strict refs 下で open() に渡すファイルハンドルに変数を使うにはどうしたら良いのでしょうか。

my $fh = 'FILE';
open($fh, '< file.txt') or die $!;

のように。

>>349
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlfaq5.html#How_can_I_use_a_filehandle_indir

$change = '$data';
$data = "example";

この時にprint "$change";とすると$dataと出力されてしまうのですが、
この時exampleを出力させる様にするにはどのようにしたら良いでしょうか？
どなたかご教授お願い致します。

すみません、$changeを使ってです。

んー、Perlだと結構いろんな書き方があるから油断できないんだけど、
( $x >= 1) and ($x <= 100 )
に関して言えば、可読性からもこれでいいのかな。

レスくれたひとサンクス。

釣堀はここではありませんよ

>>351
$change = "data";
$data = 'example';
print $$change,"\n";

$change = \$data;
$data = 'example';
print $$change,"\n";

素直に eval 使えばいいんじゃないだろうか。

$change = '$data';
$data = "example";
print eval $change;

馬鹿に危険な事教えるなよ

>>355-356
早速組み込んでみた所、期待通りの動作をしました。Perlにもポインタの様な物が実装されているんですね。
これを機にevalの使い方も覚えました。ありがとうございました。

質問です。

いくつかのファイルをループ処理でまとめて読み取り、
$dat[ファイルNo.][ｎ行目]
のように一つの2次元配列に格納しようとしています。

@dat[$i] = <FH>;
openした直後に上記のようなコードを入れましたが、
どうも配列は1次元のままで、各ファイルの一行目しか配列に格納してくれませんでした。

どなたか2次元で格納させるヒントをご教授ください。

@{$dat[$i]} = <FH>;

Perl に無名スカラーってありますか?

関数やサブルーチンからの戻り値をそのまま return する時に
return \(value()) とかやっているのですが、
例えば複数の値の場合に return [values()] で配列のリファレンスを返せるように、
無名スカラーがあれば良いのになあと。

>>360
動作確認しました！
即レスありがとうございました！
では再び勉強ROMに戻ります。

戻り値のリファレンス返すのでそのままではありませんね……。

return \@{[values %ハシュ変数名]};
かな？

>>361
無名スカラーって無名スカラーリファレンスってことか？
ハッシュや配列と違って、無名スカラーリファレンスをを作る構文的なサポートは無い。
苦肉の策だが my $anon_sref = do{ my $o; \$o } などとしているな。
しかしこの場合は\(value())ではいけないのか？何か不満か？

いえ、機能的な不満は全く無いですが、個人的な好みの問題のようなものです。
無いのであれば、今まで通りにする事にします。

$IMAGEに書かれている文字を、sprintfで文字を3つに（1.1.残り）に分けて、
はじめの文字がaだった場合とそれ以外で読み込むフォルダを分けたいと
思っています。
以下のように記述したのですが、エラーが出てしまいました・・。
どこ違っているのかわからないので、指導お願いします〜。。


$IMAGE = sprintf("%01d/%01d/%04d",$a,$b,$c);

if ($a eq a){print "<IMG src=\"image/$a$b$c.gif\">;
}else{print "<IMG src=\"img/$a$b$c.gif\">";}

また、1.1.残りと分けたいのですが、画像ファイルの名前が4〜6文字とランダムなのですが、上の書き方だとだめなんですよね・・？
どうすればいいんでしょうか？

>>325まだ見てるか？

最近アクセス解析CGI作ったから require で呼び出せるように書き換えて
提供してやろうか？

いるなら捨てアドさらせ。
さらしてから書き換えに２〜３日掛かるからその後送ってやる

>>367
print $IMAGE =~ /^A/ ? "<IMG src=\"image/$IMAGE.gif\">" : "<IMG src=\"img/$IMAGE.gif\">";

>>367
＞$IMAGEに書かれている文字を、sprintfで文字を3つに（1.1.残り）に分けて
使う関数が目的に合っているかよく調べろ。

＞$IMAGE = sprintf("%01d/%01d/%04d",$a,$b,$c);
これじゃあ$a,$b,$cを指定のフォーマットにして/をはさんだ文字列として
$IMAGEに代入する式だ。

こんなのでもいいだろ。
$a = substr($IMAGE,0,1);
$b = substr($IMAGE,1,1);
$c = substr($IMAGE,2);

あ、質問よく読んでなかった。

>>370
書きながら、これだけ代入が逆なのか・・と思いながら書いてました。

substrの意味を調べて納得です。
助かりました。。

Pod を書くのに日本語つかってもいいですか？

なんかその質問前にもあったぞ。

ポッキーあげるから、教えてくださいよ〜

>>373
自分で使う分には構わないって事でファイナルアンサーしてたような。
CPANに登録するのなら英語(Ascii?)で書かかないと。

http://www.perldoc.com/perl5.8.0/README.jp.html
http://search.cpan.org/~nwclark/perl-5.8.4/README.jp
EUC-JPで化けるみたいだしね。
# UTF-8だといけるのかな？

ありがとう！！！
お陰で彼女が出来ました

モジュールって、相互に宣言しても、大丈夫ですか？？
例えば、MOD_A.pm と MOD_B.pm を自作して

MOD_A.pm 内のソースで　use MOD_B; を宣言
MOD_B.pm 内のソースで　use MOD_A;　を宣言

cgiプログラムを作ってるんですが、そのcgiプログラムの中で
use MOD_A;
use MOD_B;

とかやりたいんですがどう？

もっとさらに言うと、MOD_A.pm の中で自分自身を
use MOD_A;

とかやっても大丈夫ですか？

そんなことを聞くようなやつがモジュールなんか作るな

やってみればわかることを聞くﾔｼっているよね

>378
相互 use、自己 use とも無限ループにはならない。
ttp://www.perldoc.com/perl5.8.0/pod/func/use.html
ttp://www.perldoc.com/perl5.8.0/pod/func/require.html
ただし、自己 use することに何の意味もない。
さらに、相互 use することにも意味がない。
>378 の例だと CGI の中の use MOD_B; と、MOD_B.pm の中の use MOD_A; は
あってもなくても変わらない。
とりあえず、相互に use するような設計がおかしいので考え直せ。

cgiにjava scriptを組み込もうとしているのですが、500エラーがでます。

ＨＴＭＬでの　" は　\"　になることは知っているので、そうしたのですが、
　!　や　?　の記号の前にも　\　が必要なのですか？それとも他の記号なのでしょうか？

まずはソースを出せ。
話はそれからだ。

>>382
cgiで文字列の出力をしようとしているのですが、500エラーがでます。

" は　\"　になることは知っているので、そうしたのですが、
　!　や　?　の記号の前にも　\　が必要なのですか？それとも他の記号なのでしょうか？

>>382
500エラーなんてものでデバッグしてることからして論外。
まずはちゃんとした環境を用意してから出直してきてください。

/private
ディレクトリに、Basic認証もしくはDigest認証をかけて
/private/secure.cgi
へアクセスをした場合に、ユーザ名・パスワードを引数として
渡すには、どうやったら良いのでしょうか？

どなたかご教授、お願い致します。

ユーザ名は環境変数 REMOTE_USER で引き渡されます。

パスワードを CGI に引き渡すのは
少なくとも現行の CGI というインタフェースを使う限りでは
原理的に不可能です。
これは Perl コーディング上の制限ではなく
CGI というインタフェース仕様上の制限です。

CGI 以外の方法なら、
例えば mod_perl を使って PerlAuthenHandler を組むやり方であれば
Apache Request オブジェクトの get_basic_auth_pw() メソッドを使って
パスワードを取得することができます。

>>387
レスありがとうございます。

REMOTE_USERでのユーザ名引き渡し、確認できました。
パスワードはやはり無理ですか...
ユーザ名だけを利用して（重要な部分へは再認証という形で）
対応していきます。

DBD::Pgを使ってDB接続を試みているのですが、
エラー処理ができなくて困っております。

例えば、
my $dbh = DBI->connect("dbi:Pg:dbname=$dbname;port=$port", $user, $password, {RaiseError => 1, AutoCommit => 0}) || print "error";
これで$dbnameが存在していないものを指定すると、printにいってくれず、
Internal Server Errorが出てしまいます。↓error_log
DBI connect('dbname=--;port=--','',...) failed: FATAL: database "--" does not exist at --.cgi line --

ご教授いただけませんでしょうか。
宜しくお願いします。

>>389
dieしてるのでevalで捕まえられると思うよ。

>>388
横槍入れるようだが、同じパスワードで何回認証しても意味ないと思うんだが。
ユーザー名は追跡の為に追うこともあるだろうけど。

>>386
ユーザ名とパスはリクエストヘッダAuthorizationで渡されるから拾えばいい。
例えば.htaccessで
RewriteEngine on
RewriteCond %{HTTP:Authorization} ^(.*)
RewriteRule test.cgi test.cgi$1 [e=HTTP_CGI_AUTHORIZATION:%1]

($scheme, $data) = split (' ', $ENV{'HTTP_CGI_AUTHORIZATION'});
if ($scheme eq 'Basic') {
　$data = &decode_base64 ($data);
　($ENV{'REMOTE_USER'}, $ENV{'REMOTE_PASSWORD'}) = split(':', $data);
}
sub decode_base64 {
　my ($str) = "@_";
　my ($res, $len) = "";
　local($^W) = 0;
　$str =~ tr|A-Za-z0-9+=/||cd;
　if length($str) % 4;
　$str =~ s/=+$//;
　$str =~ tr|A-Za-z0-9+/| -_|;
　while ($str =~ /(.{1,60})/gs) {
　　$len = chr(32 + length($1)*3/4);
　　$res .= unpack("u", $len . $1 );
　}
　return ($res);
}
print "Content-type: text/html", "\n\n";
print "$ENV{'HTTP_CGI_AUTHORIZATION'}<br>\n";
print "$ENV{'REMOTE_USER'}<br>\n";
print "$ENV{'REMOTE_PASSWORD'}<br>\n";

>>389
RaiseError => 1 を設定するのを止める。つーかコピペプログラマは氏ね

>>392
ちょっと間違った
RewriteEngine on
RewriteCond %{HTTP:Authorization} ^(.*)
RewriteRule test.cgi test.cgi [e=HTTP_CGI_AUTHORIZATION:%1]

sub decode_base64 {
　my ($str) = "@_";
　my ($res, $len) = "";
　local($^W) = 0;

　$str =~ tr|A-Za-z0-9+=/||cd;
　$str =~ s/=+$//;
　$str =~ tr|A-Za-z0-9+/| -_|;
　while ($str =~ /(.{1,60})/gs) {
　　$len = chr(32 + length($1)*3/4);
　　$res .= unpack("u", $len . $1 );
　}
　return ($res);
}

>>394
そういう方法もあるんですね。
とても参考になりました。
ありがとうございます。

このスレでPerlで作ったCGIの質問してもいいのかな…

cgiでcss文書を吐き出したいんですが、Content-type:text/cssと最初につけておけばよいのでしょうか？
infoseek iswebでこれをやると広告がついてきてcssとして使えなくなるんですが、普通にうｐしたcssファイルはhttpでgetできます。
この差はＣＧＩ作り手側のミス？それとも拡張子cgi＝広告付加とかＣＧＩ作り手側じゃどうしようもないものですか？

鯖の仕様なんてそれぞれ。鯖缶に問い合わせろ。

>>396
スレ違い。
Perl以外で作っても成立する質問でしょ。

>396-397
そうでしたか…失礼。

perl cgiで開きポートをチェックする方法ってありますか？

基本的に総当りで調べるしかないな

掲示板で80と8080くらいわかればいいんですけど…
できるだけ早く処理できる方法があったらお願いします。

reject が帰ってくれば早いが、timeout を待つことになると時間がかかるな。
できるだけ待ち時間を短くするための工夫としては、
ソケットを non-blocking で開いて並列で処理する、ぐらいか。

サブディレクトリにあるhtml文書を読み込んで表示するプログラムは、下ではダメなのでしょうか。

print "content-type: text/html\n\n";
open(TEST, "sub/test.htm");
while (<TEST>) {
print $_ ;
}
close(TEST);
exit;

ローカルではうまくいくのですが、サーバーに上げて実行してみると上手くいきません。

>>404
どう上手くいかないのか書け

エラーをトラップして調べる癖をつけないといつまでも聞くことになるぞ。
それに「うまくいかない」で読んでるやつがどうなったかわかると思うか？

掲示板のログが飛ぶ事が多いので
先頭にtime値を書き込んで､新しい方を読み,古い方に書く
2重ファイル方式を取入れたのですが､ログが消えた時はそのままでした｡
flock考やperlメモのやり方でもたまに飛ぶので(ローカルでは書き込みプログラムを何個走らせても飛ばないんですが…)
バックアップ的にこのやり方を導入したいんですが､アドバイス願えないでしょうか?

ローカルテストは本当にしたか？
並列で処理しないとロックの検証にはならないよ。
でなきゃ鯖の問題だな。

どうせ、なんちゃってロックだろ。笑ってやるからロックのところ貼り付けてみろ。

time値の新しい方と古い方って、アクセス集中すると
同じ値になるだろ

秒単位だからね

>>404はPerlのパス名のタイポでした。お騒がせしました。ごめんなさい。
ですがまた問題が発生しました。
sub/test.htmから＜n月＞という文字列がある行をマッチさせたいのですが、下のようにすると
ローカルではマッチするんですが、サーバーに上げるとマッチせず。。。

print "content-type: text/html\n\n<html>";
open(TEST, "sub/test.htm");
while (<TEST>) {
if ($_ =~ /＜.*?月＞/) {print $_;}
}
close(TEST);
print "</html>";
exit;

4行目を
if ($_ =~ /＜(.*?)月＞/) {print $_;}
に書き換えるとローカルでもサーバーでもマッチします。なぜでしょうか。

>>412
そりゃ初耳だ。
こんな世知辛い世の中に笑いをありがとう。
和んだよ。

>>413
答えられないなら黙ってろ。

>>414
何だ釣りだったのか？
釣りを楽しむ余裕が

今はある！！！

誘導くらいしてあげるよ
http://pc5.2ch.net/test/read.cgi/php/1069245758/l50

>>414
君は404かい？
それなら俺も大笑いしてあげる

>>414は私ではありません。とにかく、誘導ありがとうございます。
むこうの過去ログを見てみて、それでもわからなかったら質問しようと思います。

スルーされるんじゃないかと心配しておりました｡
回答ありがとうございました｡

>>408
5台くらいで鯖マシンに(perlの)duke撃ちまくってテストしました｡

>>409
現在携帯からなので無理ですが
perlメモのロックの部分とflock考えの奴をそれぞれやりました｡

>>410
そうでした…
ただifの条件に合わないと､elseで指定されている方を読み込みますし大丈夫なのでは?



サイトの方は日に200くらいの書き込みで､そんなに多くは無いんですが､
2,3ヵ月に1回は飛んでしまいます｡
逆にtopのカウンタは2重ファイルってだけで
ロックは使って

>>418
そのぐらいのアクセスでログが飛ぶなんて不思議。
コードそのものに問題があるような気がするが。

ロックはしっかりしてても、サーバ自体がファイルオープンしたまま
落ちたりしたらログ飛ぶわなあ。

>>419-420
そういう可能性もあるんですね｡
読み書き両用でopenして…と思いましたが､どっちみちサイズを0にした時点で落ちたら意味無いですよね…

ツリー型なので700件残るようにしてますが､少し多いづしょうか?サイズは130KBくらいです｡

>>421
だったらhoge.newに新しい内容作ってからrenameするとか
やり方はいろいろありそうなものだが。

>>422
なるほど…
こっちの方が楽ですね｡その方法でやってみます｡

#!/usr/bin/perl

`halt`;
----------------------------------------------
以上のスクリプト実行しても鯖ダウン出来ませんでした。

どうやったら鯖ダウンできますか？

rootがいるじゃろ？

質問ですm(__)m
index.htmlがあるとしてこの中の一部にxxx.cgiを表示したいのですが
どぅやったら表示出来るのでしょう？
表の中に表示させたいのですがインラインフレームしかありませんか？

Perlとどこに関係がありますか？
板違いです。

>>426
それはSSI。

CGIの拡張子を .html 設定にするだけだろ

>>429
釣り乙

>>429
馬鹿かお前。初心者はすっこんでろよ。

案外、本気で答えてたりしてなｗ

逆の方法もあるじゃん｡
htmlをcgiに取り入れたら?

（´-｀）.｡oO(無理すんなよなぁ・・・)

use Pgからuse DBIに切り替えプログラミングしているのですが、
use Pgのgetvalueみたいなものはuse DBIにないのでしょうか。

すみませんがご教授いただきたいです。

fetch

$tup_num と $field_num を指定して目的のとこだけ取ってくるようなメソッドは無いような気がするが
DBIスレの方がちゃんと知ってる人が多いと思う
http://pc5.2ch.net/test/read.cgi/php/1015943725/

質問です。
バッククオートで外部プログラムを実行し、標準出力を受け取りたいと考えてます。

$tmp = `/usr/bin/wget -d http://example.com/test.cgi?d=domain\&p=password -O -`
このとき、アンパサンド「&」をエスケープできません。( http://example.com/test.cgi?d=domain でwgetが実行される)
どうすればよいでしょうか。

perl -v > This is perl, v5.6.1 built for i386-linux.
シェルで/usr/bin/wget -d http://example.com/test.cgi?d=domain\&p=password
はちゃんとgetの長いメッセージとして実行できてます。

GETはやめてPOSTにしろ、はなしでお願いします。。

>>438
かなり卑劣かも。
$tmp = q|http://example.com/test.cgi?d=domain&p=password -O -|;
$tmp = `/usr/bin/wget -d $tmp`;

>>438
`/usr/bin/wget -opt 'URI'`

なんて恐ろしい事をしているんだ。
俺には真似出来ねえ。

perlでxmlを読み込もうとしています。
このようなxmlファイル(test.xml)があったとして、
-------------------------------------------------
<?xml version="1.0" encoding="Shift_JIS"?>
<data>
　<member num="01">
　 　<name>AAA</name>
　</member>
　<member num="02">
　 　<name>BBB</name>
　</member>
</data>
-------------------------------------------------
その中から、「AAA」と「BBB」を取り出すには
perlどのように書けばよいのでしょうか？
↓から続きがかけません・・
-------------------------------------------------
#!/usr/local/bin/perl
use XML::Parser;
：
：
：
print $name01; #AAA
print $name02; #BBB
-------------------------------------------------

>>442
google って知ってる? とっても便利だから使ってみなよ。
http://www.google.co.jp/search?lr=lang_ja&q=perl+XML%3A%3AParser

googleで探していろいろ見てみて
ttp://member.nifty.ne.jp/hippo2000/perltips/xml/parser.htm
とか良さそうだったのですが、解説を呼んでもいまいちよくわかりませんでした・・

どもです。 >439 で対処できました。
必ず直前で変数に固定値を代入するので、変数るのを納得しときます

>445
バッククォートでは変数展開とかがかかるので、\& が & になった状態でシェルに渡されてる。
なので、\\& にしても通るとは思うんだが、>440 のようにシングルクォートを使う方が素直だと思う。

質問です。既出だったらスマソ。
ポートチェックってどうやったらできますか？
掲示板の荒らし対策に80と8080のチェックしたいんです。
ググってもいいページが見つからないんで・・・
できればスクリプトごとお願いします。

>>447
Socket使って、接続できたらあいてるってことでいいんじゃ？

>>448
普段perl使わないんで実装方法が・・・

>447 = >400 ?

とりあえず Socket.pm のマニュアルでも読めば。

Socket使うらしいということまではわかったんですが構文や応答の有無の判別がわかりません・・・

http://sv2ch.baila6.jp/chk_proxy.cgi?source

　　　　　　　　　　　　　　 　 　 ,.． -──- ､
　　　 　　　　　　　　　　 　 ／ . : : : : : : : : : ＼
　　　　 　　　　　　　　 　 /.: : : : : : : : : : : : : : ヽ
　　 　　　　　　　　　　　 ,!::: : : :,-…-…-ミ: : : : :',
　　　　　　　　 　　　　　 {:: : : : :i '⌒'　 '⌒' i: : : : :}
　　　　　　　　　 　 　 　 {:: : : : |　ｪｪ　 ｪｪ　 |: : : : :}
. 　 　　　　　　, ､　 　 　 { : : : :|　　　,.、 　 |:: : : :;!
　　　　　　　　ヽ ヽ.　　_ .ヾ: :: :i　r -ﾆ-┐ | : : :ﾉ
　　　　 　　　　 }　 >'´.-!、 ゞイ! ヽ 二ﾞノ ｲゞ‐′
　　　　　 　　　 |　　　 −!　　 ＼` ｰ一'´丿 ＼　
　　　　　　　　 ﾉ　　　 ,二!＼　　 ＼___／　　　/｀丶､
　　　　　　　 /＼　 ／　　 　＼ 　 /~ﾄ､　　 ／　　　 l ＼
　　　　　　 /　、 ｀ソ!　　　　　 ＼/l::::|ハ／　　　　　l-7 _ヽ

教　　え　　ろ　　や　　？　　　　あ　？　　コラ　？

　　　_,,,,,,,,
　　　　 , - ' ﾞ 　　　｀` ‐ 、_,,,,,
　　　,r'　　　　　　　 　　／＝ミ
　　/　　　　　　　　　　　彡ll',''´
.　/ 　　　　　 　　　　　　彡lll
　!-- .､　　　 ,､､､､,,,　　 彡lﾉ
　l,,,,,__　/　　　___　　 　 'r''ﾞヽ
.　|`ﾞ'' ./　　　`'ﾞ'''"　　　 .〉,l |
　|. 　 ,'　　　　　　　 　　　//
.　',.　,'　　　 　 　　　　 ,　r'
.　 ﾞ,　ﾞ'ｰ　‐`　 　　　　l　 |
　 　ﾞ､''ﾞ ,,､二''‐　　　 ﾉ　 l、
''''''''7'ヽ　 '''　　　　／　 　/`〉｀ﾞT''''''''''
　　l　　` ､,,,,､- ' "　　　 / /.| 　|
.　 |　 |　 .l i　　　　　　 / ./ | 　|
　 |　 |　　| l　　　　　 / ./　.|　 |
.　|　 |　　 | l　　　 　/　/　 |　 |
　|　 |　　　| ',　　　/　/　　l 　.l

　　　　　　　　　　　　　　　　,.．-──- ､
　　　 　　　　　　　　　 　 ／. : : : : : : : : : ＼
　　　　　　　　　　 冒　 /.: : : : : : : : : : : : : : ヽ
　　 　 　 　　　　　ｌ　ｌ　,!::: : : :,-…-…-ミ: : : : :',
　　　　　　　　　 ./〜ヽ{:: : : : :i '⌒'　 '⌒' i: : : : :}　　　＿＿＿＿＿＿＿
　　　　　　 　 　 |＿＿| {:: : : :.|　ｪｪ　ｪｪ　|: : : : :} 　 ／
. 　 　　　　 　　 .|| �d.|| { : : : :|　　　,.、 　|:: : : :;! ＜　とんちゅーみねーりらろっとおブ
　　　　　　　　　/| of||_.ヾ: :: :i　r‐-ﾆ-┐| : : :ﾉ　　 ＼
　　　　　　　　　|　￣ -!、 ゞイ! ヽ 二ﾞノ ｲゞ‐′　　　　￣￣￣￣￣￣￣￣
　　　　　　　　　|　　　 −!　　 ＼` ｰ一'´丿 ＼
　　　　　　　　 ﾉ　　　 ,二!＼　　 ＼___／　　　/｀丶､
　　　　　　　 /＼　 ／　　 　＼ 　 /~ﾄ､　　 ／　　　 l ＼
　　　　　　 /　、 ｀ソ!　　　　　 ＼/l::::|ハ／　　　　　l-7 _ヽ
　　　　　　/＼　　,へi　　　　⊂ﾆ''ー-ゝ_`ヽ、　　　 |_厂　_ﾞ:、
　　　　　 ∧　 ￣　,ﾄ｜　　　 >‐-￣｀　　　　＼.　　| .r'´　　ヽ、
　　　　　,ﾍ　＼_,. '　| |　　　　丁二＿　　　　　7＼､|ｲ　_／￣ ＼
　　　　 i 　 ＼　　 ハ��　　　 　　 |::::|`''ｰ-､,_/　 /＼＿　 _／⌒ヽ

●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●死　ね●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●
●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●

　　　　　　　　　　　　　!llヾ
　　　　　　　　　　　　　i1llllllii ,..-‐''"￣~ﾞ"￣￣ﾐヽ──ー,
　　　　　 　 　　　　　　;;ll,;:"　i　　　　　　　 　 ヽ.､ヽ;=、／　　　
　　　　　　　　　　　　　,/　　 l 　 　 　 　 　ヽ ﾞi､ ﾞ､:､ﾞ､;;　　　
　　　 　 　 　 　 　 　 /　 :'　 l :　　　　 i !.　 ﾞ､ !ｌ　!,ﾞ, ﾞ:,　　　　
　　　　　　　 　 　 　 ｌ, ; . ; ｉ　!i :　　 :,　}i!､　', ! ｌ ｌ :!:.;:'; i　　ミィは最強なんだよっ♪
　 　 　 　 　 　 　 　 l.;.; : ;: l　ｌｉヾ､ , .;}, Lj-ヾ ;.; ｌ ｌ :ｌ ;: : l
　　　　　 　 　 　 　 j!;.;; : ;: }:､ゝ､ヾ､ﾞ jリ.,. ..,,ヾj : .:rl　; : .!　　　
　 　 　 　 　 　 　 　!ｌ; ;; .; ; l. ,,,,、ヾ､ﾂﾚ' i;;';;;;ﾞjL;　ﾞ:,ﾞ:, ; ; l
　　　　　 　 　 　 　|,:l;, ':, ; ;l,,l!i';;ﾞ;,　　　　ヾ-'',j ;　;;'　l.ﾞi､; l
　　　 　 　 　 　 　 | ;l;':,', ;, '!ヾ.`'''　 ,　 　 　 ,ｫj,;:'' ;　　!l;:; l
　　　　　　　　　　 | ;.!'l !ﾞ,ヾ:｢~;,､ 　　ー　　 ノi''　 ;' 　 ,ﾉ;; ,l
　　　　　　　　　　;ｌ.; i ;.!lﾞ;ヾ,ヽ､;, `''ｰ ..,,_,. ::'ﾉ;.},,.　 ､,;'"; ;:; ;l
　　　　　　　　　 ;'ｉ ; ! ; i! ヾ; :､ﾘ,, -::''"::l::i!::/;'.j、ヽ､j:::::ブヽ､!
　　　　　　 　 　;' !,' ｉ ;　;; rヾ,:,ﾞ; l:::::::::::::ヽi!ﾌ;ﾉl'ヽ､,.ﾉ:;:" 　　ヽ,
　　 　 　 　 　 ,:'.;',' j,.､!'ヾ‐- ゞ､;ﾞト､;::::::::::ｿ/::! 　　.|:i 　 　 　 ﾞ!,
　　 　 　 　 　,' ,'.;,rヾ .ヽ ヽ......:::ヽi!'::ﾞヾ-''ﾘ^7　 　 l/-､ 　 　 .jヽ
　 　 　 　 　 ,' ;;'.;rﾞ､ ヾ､j ﾞ"::::::::;;:::l:::::::::;メ:::::!. 　 　i　　 ﾞi 　 ,;^ヾ;,
.　　　 　 　 ,' ,;',,'.;'i､'l'┘:::::::::::::::l':;:::!::::::::::::!::;'　　　 !.　 　i!,.:;i ;, .lヾ:;,
　　　　 　 ,:' ,' //,! ﾞ':::::::::::::::::::::!ﾉ::::.!:::::::::::;,l.　　 　 !.　　,:';;::|, :;: 'l ﾞ;,ﾞ;
　　 　 　 ;' ,;:'/ ;'/　:::::::::::::::::::::ｉ"::::::.|:::::;,;;'ｲ　　　　 ｌ　, ':::::::|,:　;　! ヾ:.,

　　i ､ :.　ヽヽ_,,.....､,,,....._;/ ,;' 　 ;,.!
　　i.,　 ..;;;ヽ　　　　　　 ヾ ,,;_ , /
　　　ヾ_:::,:'　　 　　　　　 　 -,ノ
　　　　ヾ;. 　　,　 　 　　 　　,　､;,　
　　　　　　;; 　　 ●　,　...　､,● ;:　
　　　　　　 `;. 　 　　　　C)　　 ,; '　うるせー！パンチ５分の２を教えろ！！
　　 　　　　,;' 　　　 '.､ -‐-ノ ,;'､
　　　　　　／　　　　　　）　　　　　　　　　　　＿　　　　　_
　　　　　/　,ｲ　、　　ﾉ/　　　　∧ ∧―＝￣　｀ヽ,　＿
　　　　/　/　|　　　（ 〈　∵. ・（ミィ〈＿_　>　　゛　、＿―
　　　｜　!　 ヽ　　ｰ＝-￣￣＝_、　　（／　,　´ノ
　　　｜ |　　　｀iー＿＿＝―＿　;,　／　／ ／ 　　
　　　 !、ﾘ　　-=＿二＿＿￣_=;,　／　／　,'
　　　　　　　　/　 /　　　　　　　／　 ／| 　|
　　　　　　 ／　 /　　　　　　　!､＿／ / 　 〉
　　　　　／ ＿/　　　　　　　　　　　　 |_／
　　　　　ヽ､＿ヽ

　　　　　　　　　　　 ／∧　　　　　　　 ／∧
　　　　　　　　　　／　/ λ　　　　　／　/ λ
　　　　　　　　 ／　　/　 λ　　　／　　/　 λ
　　　　　　　／　　　/　 /λ　／　　　/　　/λ
　　　　　／　　　　　　　　　￣￣￣　　　　　　＼
　　　　/　　　　　　　　 ／　　　　　　　＼ 　　　 ＼
　　　/　　　　　　　　／　　　　　　　　　　＼　 　　＼
　　/　　　　　　　 ／　　　　　　　　　　　　　＼　 　　丶
　　|　　　　　　　　　　　　　　　　　　　　　　　　 　 　　|　
　｜　　　　　　　　　　　　　　 　　　　　　　 　　　　　　|　　　　
　｜　　　　　　　　　　　　　　　　　　　　　　　　　　 　|　　　ＰＥＲＬオタクを殺す会
　｜　　　　　　　　　　＾―――――――　　　　　　/
　　|　　　　　　　　　　　　　　　　　 　　　　　　　　　/
　　　＼　　　　　　　　　　　　　　　　　 　　　　　 ／
　　　　／―/ /　 　/　＼／;;;;;;;＼／///////―＼

　　　　　　　 ／⌒ヽ⌒ヽ
　 　 　 　　　....:::..∧Ｙ∧ .
　　　　　 　 .::::::::.　･　･　::ヽ　　
　　　　　（　　　　　）●（　　）　　このスレは終了しました
　　　　　 丶　　　　 ー　　/　　　　
　　　　　　　 l, 　　　　　　j　　　　
　　　　　　　i　　 　　i　 　.j
　　　　 　　 |　 　 　八 　 |
　　 　 　 　 {　　　　　　　 }
　　　　　　 | i し　"　i　 　'|
　　　　　　|ﾉ　(　　　i　 　 i|
　　　　　 (　'~ヽ　　　!　　‖
　 　 　 　 │　 　　　i　 　‖
　　　　　　|　　　　　　! 　 ||
　　　　　　|　　　 │　　　　|
　　 　　　|　 　 　 　| 　 　| |
　　　　　| 　 　　　　|　　　| |
　　　　 | 　　　　 　 !　　 　| |

ヽ(　゜,_ゝ゜)ﾉ
　　　＋
　　　人

flockが使えるか否かを判定するにはどうすればいいのでしょうか？

ただし、Internal Server Errorはさけたいと思っています。
つまり・・・

if (？？？？？){
　print "flock 使用可能";
}
else{
　print "flock 使用不可能"
}
とさせたいのですが。。。

よろしくお願いします。

evalを検索汁

クラスHumanを継承するクラスBakerがあった時に、Humanのnewが

sub new {
　my $class = shift;
　my %params = @_;
　my $self = {
　　sex => male,
};
bless $self, $class;
$self->initialize();
return $self;
}

で、Bakerに、外部からアクセスできる変数$skill (パン屋の腕前)と、内部でのみ使用する変数
$east (イースト菌 $east = new East()とかやりたい)を持たせたい時、
どうするのが賢いやり方なのでしょうか？

$eastの方は、ブロックの一番外でmy $eastと宣言したのでいいのだろうか、と思うのですが、
$skillの方は、$self->{skill} = $skillとかやっても、Humanのnewでblessした後なので、
途中で勝手に$selfのキーを増やしたりできるんだろうか、と思いまして…。

>>464
関係ないっつーかそういう風に
継承でハマることを避けるために
newとinitializeをわけてるんじゃないの？

Bakerの
initializeでskillとeastのキーを増やしておく。
skillのアクセサを作る。
eastのアクセサを作らないもしくは内部使用に限定する。

$baker->skill;
$baker->_east;

>>465
initializeはblessした後に呼び出される訳ですよね？
blessした後に$selfのキー勝手に増やしても大丈夫なんでしょうか…。

>>466
何故試さない?
>>1

>>467
いや、動くプログラムと良いプログラムは違うっていうか、
動くのは試したんですが、何らかの理由があって推奨されない方法なら
別のアプローチを探さないと、と思いまして。
普通に使われてる方法なら良いのですが…。

／
| 　・・・・・・・・・・・・・・・
＼ 　　　　　　　　　　　　　
　 ￣￣￣￣V￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　　　　
　　　　　（;;:::::　）
　　　　,／;/⌒/）
　　／/;: /;:: /./
　 (;::::|;:: （;: （/
　　＼);;:::.＼;＼
　　　（;:: （　(<<<ヽ
　　　 .|;:　|＼;::::＼
　　　　);:: |　 ）;:::: ）


　　　　　　　　_、_ 　
　　　　　（;;:::::,_ﾉ` ）　彡　　マーシェーリィー… ！
　　　　,／;/⌒/）
　　／/;: /;:: /./
　 (;::::|;:: （;: （/
　　＼);;:::.＼;＼
　　　（;:: （　(<<<ヽ
　　　 .|;:　|＼;::::＼
　　　　);:: |　 ）;:::: ）

　　 　 　__ _,, -ー ,,
　 　 　 (／　　　"つ`..,：
　　　：/　　　　　　　:::::i：
　　　：i　　 　　　 　─::!,,
　 　 　ヽ.....::::::::: 　::::ij(_::●
　 　 r "　　　 　.r　ミノ~
　　：|::|　　　　::::|　:::i ﾟ。　・・・ﾄｩｰﾄｩｰﾄｩﾏｼｪﾘｰ・・・
　　：|::|　　　　::::|　:::|：
　　：`.|　　　　::::|　:::|_：
　 　：.,'　　　　::（　　:::}：
　　 ：i　　　　　　`.-‐"
　　 ：ヽ__::',__　　 ::|：
　　　 ：{　::|　　　::|：
　　　 ：|　::|　　　::|：


　　　　__ _,, -ー ,,
　　　 (／　　　 　 `..,つ
　　　/　　　　　　　::::::',　ﾏｰｼｪｰﾘｰ♪
　　　i　　　　●　　 ●:!
　　　ヽ... 　 　 ( .● )::/　　彡くるっ
　　r ":::::::.... ,,_　─:／
　　|::|　　　　::::r￣:i
　　|::|　　　　::::|　:::|
　　`.|　 　　 ::::|　:::|_
　 　.,'　　　　::（　　:::}
　　 i　　　　 　 `-‐"
　　 ヽ__::',__　　 ::|
　　　 {　::|　　　::|

　　　　　　　　　　　　　　　　　　 ,....':::::::::::::ﾞ=:::::､
　　　　　　　　　　　　　　　　　／::::::::::::::::::::::::::::::::ﾞ:､
.　　　　　　　　　　　　　　　　/:::::::::::::::::::,ｒ-:::::::::::::::::ﾞ::､
..　　　　　　　　　　　　　　　,l':::::::::::::::::::/-〃ﾞﾞ''''''ﾞ\:::::::ﾞ､
　　　　　　　　　　　　　　　 l:::::::::::::::::::,l'　ll'l　　　　ﾞl;:::::::l,
　　　　　　　　　　　　　　　,;:::::::::::::::::::l　 .ll.l..　　　　l:::::::::l
　　　　　　　　　　　　　　,ィ:::::::::::::,ｒ-- '''''--=-'l''=-''り::::l
　　　　　　　　　　　　　〃::::::::::::::l'　　　ﾞ - ' ;.　lﾞ - ' l::::::l　　　ここのスレには…
　　　　　　　　　　　　　ｿ::::::::::::::::l　　　　 , ア__,.l,.('' .ｔ:::::j'
. 　　　　　　　　　　　　l::ｒk:::::::::::::ﾞl　　　,..'ﾞ-､＝-:,.ﾞ t ﾞﾚ　　　書き込まないで…ほしいです…
　　　　　　　　　　　　　ゝj:::::::,､::::::ﾞ､　　; -==ｦ'弋''''{　ﾞl,
　　　　　　　　　　　　,.-'::;==' ﾉ::::::::＞'~::::ﾞ=､_,l,.;'ﾞ^'''ﾞl.　ﾞ､
　　　　　　　　　....,.=''　　　,,〃'ﾍ:::/:::::::::::::::::ﾞl爪.　　　　 l,
　　　　　　　　,.ｒ'',:,:,:,:,:,^~",:,:,:,:,:,:,:7'''',=';,''''ﾍ:ﾉ爻ﾞ､　　　,.=''-､
　　　　　　　 k,:,\､,:,:,:,:,:,:,:,:,:,l,:,:,:,:/ (ふ勺 ,''l'　j::l　ﾞl,-='',:,:,:,:,:,:ﾞ､
　　　　　　　,l',:,:,:,:ﾞ､,:,:,:,:,:,:,:,:l,:,:,:,:l---===,,'.j^~:::l　,-ﾞ,:,:,:,:,:,:,:,:,:,:,ﾞ､
　　　　　　 /,:,:,:,:,:,:,ﾞ､,:,:,:,:,:,:j,:,:,:,:,:l l':::::ﾞｭ), l.,'　;::;,/,:,:,:,:,:,:,:,:,:,:,:,:,:,:,ﾍ
　　　　　　j,:,:,:,:,:,:,:,:,:,ﾞ､,:,:,:,:,l,:,:,:,:,:,k:::::::ﾋ＿l　.;:::ll,:,:,:,:,:,:,l,:,:,:,:,:,:,:,:,:,:,ﾊ
　　　　　 ,l,:,:,:,:,:,:,:,:,:,:,:,z,:,:,:,l,:,.,. '^.､::_:j':::::::::::::::::::l,:,:,:,:,:,:,:\,:,:,:,:,:,:,:,:,:,:,＼

　　　　　　 　 ,,,r-‐───‐--､
　　　　　　／　　　　　,,,z-──ｭ‐-､
　　　　 ／,,ミミミミ,,r-‐''　　　 ﾘ　 ＼
　　　 //~　　　　　　　　　　　　　|　　　ﾞi
　　　i/　　　　　　　　　┛┗　　　　| 　 　 |
　　 f |　　　　　　　　　┓┏　　　　ヽ　　　|
　　 | |　　　　　　　　　　　　　　　　ﾘ　　 r-､
　　 | |　　　　　　　　　　　　　　　　 `ヽ/「ﾜ,| 　こんな感じで頼みます・・・
　 　 ﾘ ,,,r＝=､　　 ,,r＝＝=ｭ､　　　　　 ┐ｿ
　　　ﾞi　-=◎=-ヽ　i−я−- `　　　　　　ン　}　　　　　　
　　 　ﾞi　ヽ--‐ .|　l　`'─‐'"　　　　ﾉ　ト‐/
　　　　|　　　　/l　l　､　　　　　　,／ ├‐'ﾞ
　　 　 .|､　　ノr'　 ﾚ ヽ¬､,,.... -‐　　 |
　　　　 ﾞiヽ‐'　ヽ,,,,,r''´　　　　 ﾉ　　　 |
　　　　 ヽ　　ト‐＝＝─ｲ~､　/　　　 .ﾄ､
　　　　　 ＼　ヽ ￣__:::‐'　　y　　　　ﾉ　
　　 　 　 　 ＼　｀　::　　, '　　　
　　　　　　　　`ｰ--──'"-'　

　 　 　　　　　　　　　　　　　　　　/　　　 / 　 　 !　　　　|　ﾞ､　　　　`' -､　 l　　　　 ＼　｀`
　　　　　　　　　　　　　　　　　　/　　　 /-‐=､''" ',　!　　ト -ヽ__　　　　　 ヽl　 ＼　　　ヽ
　　　　　　　　　　　　　　　 　 , ' 　 　 ,ｲ. ｼﾞ.l7! 　 ﾞ､|ヽ　| ,r.‐､!,.｀`　 !　　 , |､　＼!　　　 ﾞ,
　　　　　　　　　　　　　　　 ／　　　 /! !. 　 |':l　　　　 ヽl　l7l　 i　　 |　　　'l ヽ 　 　 　 　 !
　　　　　　　　　　　　　　／　　　　/　ｲ.　　 `　　,　　　　 .l'ﾉ　　!. 　i　　　　i　＼ 　 　 　 |
　　　　　　　　　　　　,　' 　 　 　　/ 　 ! ／／／ <　　 ／／／　 !　| 　 　　 ﾞ､　 ｀ヽ、　 ,'
　　　　　　　　　　-="-ｧ　　　　　i 　 　ヽ　 　　rｧ─- ､　　 　　 _| / 　 　 　　ﾞ､　　　ヽノ
　　　　　　　　　　　　　 i 　 　 　 　!　　　 i ＼.　　.,,＿__,,.)　　　／ |/ 　 　 　 　　ﾞ､
　　　　　　　　　　　 　　l　　, 　 　 r　　　 | 　 ｀ ､　　　　_ ,.　べ　　|　　　　　　　､ ヽ　
　　　　　　　　　　　　　　ヽ/ヽ、　 |　　　　　　　.`l ""´　l　.　　　ヽ/　　　　　　　_,）｀`
　　　　　　　　　　　　　　　　　　ヽ.｣　 ＿＿_,.／ ' ´　 ＿＿_　`ｰ ､_ ／　,ノレ'
　　　　　　　　　　　　　　　　　　　,.r '´　　　 ー-｀　　'´ - ‐　￣　 　 ｀'ｰ ､
　　　　　　　　　　　　　　　　　　,/　 _,.　　　　　　　　　　　　　　　 　 　 　 ヽ
　　　　　　　　　　　　　　　　　 ,レ' ´　　　　　　　　　　　　　　　　i　　　　　 l
　　　　　　　　　　　　　　　　／ 　 　 　 　 　 ,　　　　　　 　 　 　 ,l　　　　　 l
　　　　　　　　　　　　　　　｡'i　 　 　 　 　 　 !　　　　 r',ヽ　　　　l l　　 　 　 l
　 　 　 　 ,､r;,　　　　 　 　 i'ﾞ　 　 　 　 　 　 !　 　 　 ヾ'-'　　　　l. l　　　　　l
　　　 _,r'´､l.ﾚ'､　　 　 　 　 '､　 　 　 　 　 ,　'、　　　　　　　 　 ,/　l　　　　 ,.!v-､,_
　　　l　L.., } 　 ! 　 　 　 　 ハ､　　　　 , ‐'　　ヽ、　　　　　　 ノ　 /!　　　 /`,/_,l　L,
　　 lﾞl　ﾍ｣/ 　 l.　　　　 　/　　｀''┬ ' ´　　　　　｀'ｰ----- '´　,／ l　　　/　 !:ｲ､_ﾉ l、
アダルトとＰＥＲＬは禁止

　　／^~"´￣-‐‐‐'''"´／:／;ノ;;;;ﾉ://　　　　　　　 　　　　　 　　_､-､_
　/::::::／:::::::_,,,､---‐‐'''`~,､-''／::／ 　　　　　　　　　　　　　／"`'ｰ-''`''-､これなんのＡＡ・・・？
/:::／:-‐''''"~~::::::::;;;;-､,,,,､-,,､-‐ヽ,,_　　　　　　　　　　　　　/　　　　　　　　ヽ
;/;;'`"~､-''''''~^'''''ｰ-､_,,i:i､　 ヽ｀ヽ､;ヽ､,,,ノ.　　　／"´￣~''/　　　　 　　　　::::ヽ
;;;／~":､---､___／´ ,,i:'''　 :: 　 ヽ.　ヽ.`'''"´　 /´ 　　　:::./　　　　　　　　　:::::::i
;;;;;'''''^~~~~^'''''/ｰ-　 ';､　:::　 　　`　 ヽ`''ｰ-,,,i_ 　 　-‐''" 　　　　　　　　::::::::;/-､,
;;;､;;;`''ｰ-,,,,,,,,,,,,,,_,,,,,､_　　 ''　　　　 　　',:::: 　 　`'ｰ　_､-'''~￣`''''''ｰ-､　 :::::;／:: 　ヽ､
;;;ヽ､ｰ､;;ｰ-､,,,,,,,､-‐''"　　　 .;´￣`, 　　',::::,,,,､-　 /"'::;,:ヽ 　　 ､　 　 ヽ.::::::: 　　　　　''ｰ
:::::ｰ､ヽ､,,''ｰ-ヽ.''''",.,;'　"^'　'ｰ-‐''　. _､-'''''"´　 /　ヽ,,,ノ　　 ヽ| 　 　 ヽ:::: 　　::
:::ヽ､`''ｰ-､ｰ-､'ヽ"､i;.　　　　　ヽ　／"　　　　　i:::　　　　　　　 i: 　　 　'::: 　　:::::
､::ヽ;;ヽ､:ｰ-､,,,,,､.ヽ ';'' 　　ノﾉノ/;/　　　　　　 　i:::::::::: 　　　　 υ 　　　"　　　　:::
ヽ,,_::''‐､,,,,''ｰ-''ｰ-"''／~'"''"／:/::　　　　　　::､:::i..::::::::::::::::::::::::::::::::::::　　　　　　　:::::::::
　　ヽｰ''"~´　　　　　ヽ､　　"`'i::::::::i､:..　　　　:~^ヽ:::::::::::::::::::::::::::::ノ:::::::::::::::i'/::::::::::::::::::::::
~´ 　　::: :::::::::;;;;;;　;;;;;;;;;;;_,,､--､_i.::::::'ﾉ::::::::　　　　　`''ｰ-､,,,,,,,,,,‐'":::::::::υ::::υ::::::::::::::::::::::
　　　　ヽ''''''''''''''　''　　:::::;;;;;;;;;;;;;;;;`-､:::::::::::::::::iﾉ::::::::::: 　　"""`''ｰ､,,_;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

　　i ､ :.　ヽヽ_,,.....､,,,....._;/ ,;' 　 ;,.!
　　i.,　 ..;;;ヽ　　　　　　 ヾ ,,;_ , /
　　　ヾ_:::,:'　　 　　　　　 　 -,ノ
　　　　ヾ;. 　　,　 　 　　 　　,　､;,　
　　　　　　;; 　　 ●　,　...　､,● ;:　
　　　　　　 `;. 　 　　　　C)　　 ,; '　うるせー！パンチ５分の２を教えろ！！
　　 　　　　,;' 　　　 '.､ -‐-ノ ,;'､
　　　　　　／　　　　　　）　　　　　　　　　　　＿　　　　　_
　　　　　/　,ｲ　、　　ﾉ/　　　　∧ ∧―＝￣　｀ヽ,　＿
　　　　/　/　|　　　（ 〈　∵. ・（ミィ〈＿_　>　　゛　、＿―
　　　｜　!　 ヽ　　ｰ＝-￣￣＝_、　　（／　,　´ノ
　　　｜ |　　　｀iー＿＿＝―＿　;,　／　／ ／ 　　
　　　 !、ﾘ　　-=＿二＿＿￣_=;,　／　／　,'
　　　　　　　　/　 /　　　　　　　／　 ／| 　|
　　　　　　 ／　 /　　　　　　　!､＿／ / 　 〉
　　　　　／ ＿/　　　　　　　　　　　　 |_／
　　　　　ヽ､＿ヽ

　　　　　　　 ／⌒ヽ⌒ヽ
　 　 　 　　　....:::..∧Ｙ∧ .
　　　　　 　 .::::::::.　･　･　::ヽ　　
　　　　　（　　　　　）●（　　）　　このスレは終了しました
　　　　　 丶　　　　 ー　　/　　　　
　　　　　　　 l, 　　　　　　j　　　　
　　　　　　　i　　 　　i　 　.j
　　　　 　　 |　 　 　八 　 |
　　 　 　 　 {　　　　　　　 }
　　　　　　 | i し　"　i　 　'|
　　　　　　|ﾉ　(　　　i　 　 i|
　　　　　 (　'~ヽ　　　!　　‖
　 　 　 　 │　 　　　i　 　‖
　　　　　　|　　　　　　! 　 ||
　　　　　　|　　　 │　　　　|
　　 　　　|　 　 　 　| 　 　| |
　　　　　| 　 　　　　|　　　| |
　　　　 | 　　　　 　 !　　 　| |

>>468
「blessした後に$selfのキー勝手に増やしても大丈夫か否か」という
問いに対し「何故試さない?」という答えなんだが…。>>464 だけでは
君がどう実装しているか分かりかねるので、善し悪しを尋ねられても
誰も答えられんだろう。

OO 設計に関するノウハウを知りたければ、その手の本なりサイトを
一通り読んだ方が、こんな処で一問一答してるより早いんじゃないか?
もしくはこの板なら下のスレ辺りに動くコードを晒して揉んでもらう
事を勧める。
http://pc5.2ch.net/test/read.cgi/php/1049514428/
http://pc5.2ch.net/test/read.cgi/php/1016474386/

>>468
http://www.kt.rim.or.jp/~kbk/perl5.005/perlbot.html#INSTANCE_VARIABLE_INHERITANCE

レスついてるみたいだけどせっかく書いたし。

>464
bless は単に型付けするだけだから、その後、キーを増やそうがその事自体に問題はない。
ただし、基底クラスで利用しているキーとぶつかったりしたら問題を引き起こす可能性はあるけどな。
ちなみに、一度 bless した後、別のクラスに bless し直すことだって可能なんで、bless を神聖視する
必要はない。

個人的には C++ 使いなので、派生クラスの new の中で基底クラスの new を呼ぶ方が好きだなぁ。
ttp://www.perldoc.com/perl5.8.0/pod/perltoot.html#Overridden-Methods
でも、この辺は Perl らしく TMTOWTDI なんで好みに合わせればいいと思う。

>>477-479
>bless を神聖視する必要はない。
thx すっきりしました

DBD::Pｇモジュールについて質問ですが、executeのあとに
finishしないと まずかったりしますか？
今書いてるソース、すべてつけていないもので、、、

なんでこうもマルチポストが多いのかな。

;;;;;;;;;/:::::::::::::::::::://　　　　　　　　　//"　　　 ／;;;;;イ''~|||;;;;;;;/::::::::::::::／／ｌ .ノ　 ／
;;;;;;;/::::::::::::::::::://　､,,　　　　　　　/"　　　／;;;;-'"　|:::::||;;;;;;/:::::::::::／　 ﾚ'''"　 ／;;;;;;
;;;;;/:::::::::::::::::://　　　ﾞ丶､.　　　 /　　　／;;;-'" ,,-､ |::::||ｌ;;;;/:::::::／　　　ｌ　　 ／ヽ/ﾉ
;;;/::::::::::::::::::/｛､''''''‐-､,　 ﾞヽ,　　　　 ／;／　 .i'　o=-‐'|;;;/:::::／　　　　 ┬-''　､　/;;;
;;/:::::::::::::::::/;;;＼ヽ┬-､ﾞ'ヽ､ |　ｌヽ,／／ヽ､,,-‐''~,-‐'''''|;;/:／　／/ﾉ;; ｌ　 ﾄ,　　ヽ/;;;;
/::::::::::::::::/;;;;;;;;;;;＼ ＼＼ﾞ'ヽ､ｌ ヽ"ﾞ'"　ﾞ-'",-''"~　　　 |／　　　 //"　ｌ　 |ヽ　　/;;;;;;
:::::::::::::::::｛;;;;;;;;;;;;;;;;;＼ ＼＼（ oｌ|"　　 "-'"　　　　　　　　　　　"　　　　　| ヽ /;;;;;;;;;;
::::::::::::::::::|;;;;;;;;;;;;;;;;;;;;;＼ ﾞ‐‐'''"~/　　　　　　　／ﾞ''ヽ　　　　　　　　　　　 .|　/;;;;;;;;;;;;;;
i,::::::::::::::::|;;;;／|;;;;;;;;;;;;;;ヽ'"~　 /　　　　_　　　／ヽ､ ＼　　　　　　　　　　ﾉ /;;;;;;;;;;;;;;;;
;ﾞi:::::::::::::::|/ 　|;;;;;;;;;;;;;;;;;;ﾞ､.　 /　　　／/　 ／　／-ﾞi,. ヽ　　　　　　　　 /./;;;;;;;;;;;;;;;;/::
;;;;i,::::::::::::|　　|;;;;;;;;;;;;;;;;;;;;;;ヽ　ヽ､-'"'''"‐''",,-''",/　　ﾞi,　　　　　　　　　//;;;;;;;;;;;;;;;;/::::
;;;;ﾞi,:::::::::::|　　|;;;;;;;;;;;;;;;;;;;;;;;;;＼　　　ヽ＼'`　_/~"　　,ハ　　　　　　　 / /;;;;;;;;;;;;;;;;;|:::::
;;;;;;ﾞi,:::::::::|''" |;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;ﾞヽ､　　　 ＼'｛,,,-‐'"__ノ　　　　　　　/　i;;;;;;;;;;;;;;;;;;;|:::::
;;;;;;;;;ﾞ､::::::|　 |;;;;;;;;;;;;;;;;;;;;;;;∧;;;;;;;;;;;;ﾞヽ､　　　ヽ-‐'"~　,,,　　　　　　/ヽ､i';;;;;;;;;;;;;;;;;;;|::::::

>>481
問題無いよ。経験上ね。

@dataには数文字の文字列の後\nが付いている要素がいくつか入っています。
ヒアドキュメント内で配列(@data)を出力したくて、そのまま@dataとヒアドキュメント内に書いたのですが
謎の半角スペースが要素の一番最初に付いてしまいます。
これじゃあな、と思いヒアドキュメント内に${ foreach my $data ( @data ) { print $data; }
と書いてみたのですがヒアドキュメントの一番最初に出力されてしまい上記コードを書いた場所に出力されません。。。
どなたかヒアドキュメント内で配列を出力する良い方法を知っていたら、ご指導して頂けると幸いです。

$"='';
or
chomp(@data);

>>486
なるほど、$"でスカラー変数出力時の区切り文字を変更できるんですね。
試してみたら奇麗に出力出来ました。本当にありがとうございました。。。

ぐわ、スカラー変数じゃなくて配列だった。。。
今まで一々ヒアドキュメントを終了させてからforeachで出力していたので本当に助かりました。。。

a

>>484
ありがとうございます。
安心しました。

　　　　　　パンチ５分の２を喰らえええええええええ！！
　　　　　　　　　　　　　　　　　　　　＿ ／-　イ､_
　　　　　　　　　　 ＿＿　　　　　 　　／: : : : : : : : : : : (
　　　　　　　　　 〈〈〈〈　ヽ　　　　　/: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
　　　　　　　　　　〈⊃　　}　　　　　{:: : : :ノ　--‐'　､_＼: : ::｝
　　 ∩＿＿＿∩　 |　　 |　　　　　 {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
　　 | ノ　　　　　 ヽ !　　 !　　　、　　ｌ: :ﾉ　／二―-､　|: ::ﾉ
　　/　　●　　　● |　　/　　　，,･_　　|　/／　　　|/ /::ノ
　 |　　　　( _●_)　 ミ／　, ’,∴ ･　¨　 〉(_二─-┘{／
　彡､　　　|∪|　　／　　､･∵ ’　　／､／/|　￣￣ヽ　　　　　
/　＿＿　 ヽノ　/　　　　　　　　 ／　　 //　|／／＼ 〉
(＿＿＿）　　　/　　　　　　　 　/　　　 //　　 /＼ ／
　　　　　　　/　　　　　　　 　 / 　　　　　　　/　　　　
　　　　　　↑初心者　　　　　　　　　Ｐｅｒｌオタク↑
＼　　　∩─ｰ､ 　　　====
　 ＼／　●　､_ ｀ヽ 　　======
　　/ ＼(　●　 ● |つ
　　|　　 X_入__ノ 　 ミ　　　　Ｐｅｒｌオタクを！首吊って引き殺せ━━━━━！！
　　 ､　(＿／　　　ノ　/⌒l
　　 /＼＿＿＿ノﾞ＿/　 /　　=====
　　〈　　　　　　　　 ＿_ノ　　====
　　 ＼　＼＿　　　　＼
　　　　＼＿__）　　　　　＼　　　======　　　(´⌒
　　　　　　　＼　　 ＿＿_ ＼＿＿　　(´⌒;;(´⌒;;
　　　　　　　　 ＼＿＿＿）＿＿＿）(´;;⌒　 (´⌒;;　　ズザザザ
ここは不親切な奴ばかりで死んでほしいね！初心者質問は禁止！！質問した者は
荒らしと同罪！！！＜終終終　　　　　　　　　　　　　　　了了了＞＜書き込み禁止＞

　　　　　　パンチ５分の２を喰らえええええええええ！！
　　　　　　　　　　　　　　　　　　　　＿ ／-　イ､_
　　　　　　　　　　 ＿＿　　　　　 　　／: : : : : : : : : : : (
　　　　　　　　　 〈〈〈〈　ヽ　　　　　/: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
　　　　　　　　　　〈⊃　　}　　　　　{:: : : :ノ　--‐'　､_＼: : ::｝
　　 ∩＿＿＿∩　 |　　 |　　　　　 {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
　　 | ノ　　　　　 ヽ !　　 !　　　、　　ｌ: :ﾉ　／二―-､　|: ::ﾉ
　　/　　●　　　● |　　/　　　，,･_　　|　/／　　　|/ /::ノ
　 |　　　　( _●_)　 ミ／　, ’,∴ ･　¨　 〉(_二─-┘{／
　彡､　　　|∪|　　／　　､･∵ ’　　／､／/|　￣￣ヽ　　　　　
/　＿＿　 ヽノ　/　　　　　　　　 ／　　 //　|／／＼ 〉
(＿＿＿）　　　/　　　　　　　 　/　　　 //　　 /＼ ／
　　　　　　　/　　　　　　　 　 / 　　　　　　　/　　　　
　　　　　　↑初心者　　　　　　　　　Ｐｅｒｌオタク↑
＼　　　∩─ｰ､ 　　　====
　 ＼／　●　､_ ｀ヽ 　　======
　　/ ＼(　●　 ● |つ
　　|　　 X_入__ノ 　 ミ　　　　Ｐｅｒｌオタクを！首吊って引き殺せ━━━━━！！
　　 ､　(＿／　　　ノ　/⌒l
　　 /＼＿＿＿ノﾞ＿/　 /　　=====
　　〈　　　　　　　　 ＿_ノ　　====
　　 ＼　＼＿　　　　＼
　　　　＼＿__）　　　　　＼　　　======　　　(´⌒
　　　　　　　＼　　 ＿＿_ ＼＿＿　　(´⌒;;(´⌒;;
　　　　　　　　 ＼＿＿＿）＿＿＿）(´;;⌒　 (´⌒;;　　ズザザザ
ここは不親切な奴ばかりで死んでほしいね！初心者質問は禁止！！質問した者は
荒らしと同罪！！！＜終終終　　　　　　　　　　　　　　　了了了＞＜書き込み禁止＞

　　　　　　パンチ５分の２を喰らえええええええええ！！
　　　　　　　　　　　　　　　　　　　　＿ ／-　イ､_
　　　　　　　　　　 ＿＿　　　　　 　　／: : : : : : : : : : : (
　　　　　　　　　 〈〈〈〈　ヽ　　　　　/: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
　　　　　　　　　　〈⊃　　}　　　　　{:: : : :ノ　--‐'　､_＼: : ::｝
　　 ∩＿＿＿∩　 |　　 |　　　　　 {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
　　 | ノ　　　　　 ヽ !　　 !　　　、　　ｌ: :ﾉ　／二―-､　|: ::ﾉ
　　/　　●　　　● |　　/　　　，,･_　　|　/／　　　|/ /::ノ
　 |　　　　( _●_)　 ミ／　, ’,∴ ･　¨　 〉(_二─-┘{／
　彡､　　　|∪|　　／　　､･∵ ’　　／､／/|　￣￣ヽ　　　　　
/　＿＿　 ヽノ　/　　　　　　　　 ／　　 //　|／／＼ 〉
(＿＿＿）　　　/　　　　　　　 　/　　　 //　　 /＼ ／
　　　　　　　/　　　　　　　 　 / 　　　　　　　/　　　　
　　　　　　↑初心者　　　　　　　　　Ｐｅｒｌオタク↑
＼　　　∩─ｰ､ 　　　====
　 ＼／　●　､_ ｀ヽ 　　======
　　/ ＼(　●　 ● |つ
　　|　　 X_入__ノ 　 ミ　　　　Ｐｅｒｌオタクを！首吊って引き殺せ━━━━━！！
　　 ､　(＿／　　　ノ　/⌒l
　　 /＼＿＿＿ノﾞ＿/　 /　　=====
　　〈　　　　　　　　 ＿_ノ　　====
　　 ＼　＼＿　　　　＼
　　　　＼＿__）　　　　　＼　　　======　　　(´⌒
　　　　　　　＼　　 ＿＿_ ＼＿＿　　(´⌒;;(´⌒;;
　　　　　　　　 ＼＿＿＿）＿＿＿）(´;;⌒　 (´⌒;;　　ズザザザ
ここは不親切な奴ばかりで死んでほしいね！初心者質問は禁止！！質問した者は
荒らしと同罪！！！＜終終終　　　　　　　　　　　　　　　了了了＞＜書き込み禁止＞

　　　　　　パンチ５分の２を喰らえええええええええ！！
　　　　　　　　　　　　　　　　　　　　＿ ／-　イ､_
　　　　　　　　　　 ＿＿　　　　　 　　／: : : : : : : : : : : (
　　　　　　　　　 〈〈〈〈　ヽ　　　　　/: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
　　　　　　　　　　〈⊃　　}　　　　　{:: : : :ノ　--‐'　､_＼: : ::｝
　　 ∩＿＿＿∩　 |　　 |　　　　　 {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
　　 | ノ　　　　　 ヽ !　　 !　　　、　　ｌ: :ﾉ　／二―-､　|: ::ﾉ
　　/　　●　　　● |　　/　　　，,･_　　|　/／　　　|/ /::ノ
　 |　　　　( _●_)　 ミ／　, ’,∴ ･　¨　 〉(_二─-┘{／
　彡､　　　|∪|　　／　　､･∵ ’　　／､／/|　￣￣ヽ　　　　　
/　＿＿　 ヽノ　/　　　　　　　　 ／　　 //　|／／＼ 〉
(＿＿＿）　　　/　　　　　　　 　/　　　 //　　 /＼ ／
　　　　　　　/　　　　　　　 　 / 　　　　　　　/　　　　
　　　　　　↑初心者　　　　　　　　　Ｐｅｒｌオタク↑
＼　　　∩─ｰ､ 　　　====
　 ＼／　●　､_ ｀ヽ 　　======
　　/ ＼(　●　 ● |つ
　　|　　 X_入__ノ 　 ミ　　　　Ｐｅｒｌオタクを！首吊って引き殺せ━━━━━！！
　　 ､　(＿／　　　ノ　/⌒l
　　 /＼＿＿＿ノﾞ＿/　 /　　=====
　　〈　　　　　　　　 ＿_ノ　　====
　　 ＼　＼＿　　　　＼
　　　　＼＿__）　　　　　＼　　　======　　　(´⌒
　　　　　　　＼　　 ＿＿_ ＼＿＿　　(´⌒;;(´⌒;;
　　　　　　　　 ＼＿＿＿）＿＿＿）(´;;⌒　 (´⌒;;　　ズザザザ
ここは不親切な奴ばかりで死んでほしいね！初心者質問は禁止！！質問した者は
荒らしと同罪！！！＜終終終　　　　　　　　　　　　　　　了了了＞＜書き込み禁止＞

　　　　　　パンチ５分の２を喰らえええええええええ！！
　　　　　　　　　　　　　　　　　　　　＿ ／-　イ､_
　　　　　　　　　　 ＿＿　　　　　 　　／: : : : : : : : : : : (
　　　　　　　　　 〈〈〈〈　ヽ　　　　　/: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
　　　　　　　　　　〈⊃　　}　　　　　{:: : : :ノ　--‐'　､_＼: : ::｝
　　 ∩＿＿＿∩　 |　　 |　　　　　 {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
　　 | ノ　　　　　 ヽ !　　 !　　　、　　ｌ: :ﾉ　／二―-､　|: ::ﾉ
　　/　　●　　　● |　　/　　　，,･_　　|　/／　　　|/ /::ノ
　 |　　　　( _●_)　 ミ／　, ’,∴ ･　¨　 〉(_二─-┘{／
　彡､　　　|∪|　　／　　､･∵ ’　　／､／/|　￣￣ヽ　　　　　
/　＿＿　 ヽノ　/　　　　　　　　 ／　　 //　|／／＼ 〉
(＿＿＿）　　　/　　　　　　　 　/　　　 //　　 /＼ ／
　　　　　　　/　　　　　　　 　 / 　　　　　　　/　　　　
　　　　　　↑初心者　　　　　　　　　Ｐｅｒｌオタク↑
＼　　　∩─ｰ､ 　　　====
　 ＼／　●　､_ ｀ヽ 　　======
　　/ ＼(　●　 ● |つ
　　|　　 X_入__ノ 　 ミ　　　　Ｐｅｒｌオタクを！首吊って引き殺せ━━━━━！！
　　 ､　(＿／　　　ノ　/⌒l
　　 /＼＿＿＿ノﾞ＿/　 /　　=====
　　〈　　　　　　　　 ＿_ノ　　====
　　 ＼　＼＿　　　　＼
　　　　＼＿__）　　　　　＼　　　======　　　(´⌒
　　　　　　　＼　　 ＿＿_ ＼＿＿　　(´⌒;;(´⌒;;
　　　　　　　　 ＼＿＿＿）＿＿＿）(´;;⌒　 (´⌒;;　　ズザザザ
ここは不親切な奴ばかりで死んでほしいね！初心者質問は禁止！！質問した者は
荒らしと同罪！！！＜終終終　　　　　　　　　　　　　　　了了了＞＜書き込み禁止＞

　

絡まれて大変なスレですね

別に何とも思ってない

そのウチ削除人が消してくれると思うし。
て言うかこいつ一年くらい前からいるんですよ。

一年・・・。皆さん大人の対応ですね

ああ。もう1年経つのか。早いなあ。
確か誰にも理解できない日本語で質問（っていうか書き込み）して、
無視した（っていうか何を答えたらよいか誰も分からなかった）ら、
「初心者には不親切だ」って勝手に切れて粘着してる。
ちゃんと質問すればちゃんと答えるのにねえ。

うむ。俺も当時から居るが、
よく続くと関心するくらいだ
たしか格ゲースクリプトだっけな

「パンチを5分の2にする方法を教えてください」だったっけ。
punch *= 2.0/5.0;
終了

AAもそれなりに進化してて面白いね。

進化はAAだけ（ｒｙ

進化していくAAをNGワードに入れていってるから、うちのngword.txtもかなり進化した。
来てたのわからなかった。

>>506
最近のスパムフィルタみたいだね。

あぁ、懐かしいな…。
たまにアク禁されるのかパタリと来なくなるんだよね。
でもそういう時、あいつどうしてるんだろう・・・とちょっとモヤモヤして気になるんだよ。

一度Rock54にされたらしい。やっほー接続だったかな。

例えば、ブラウザから100MBのファイルをPOSTすると「サイズが大きすぎ！」とエラー表示させてますが、
エラー表示されるまでに時間がかかります。
(ブラウザがアップロードに専念しているため)

つまりはブラウザのアップロード処理を中断させて、
即エラー表示させたいのですが、Perlで制御できますか？

>>510
なんでエラーにするようなサイズをアップロードさせるわけ？
最初から受け付けなきゃいいだろ。

もしかしてアップロードして100MBきたら処理打ち切りとかやってんのー？
ISDNのおじさんブチ切れますよ？
初めからファイル容量計算しろ

だからそのはじめにファイルサイズを計算する方法がわらないんですってば！

　　　　　　おまえらのせいでエラーばっかだぜえええええええええ！！
　　　　　　　　　　　　　　　　　　　　＿ ／-　イ､_
　　　　　　　　　　 ＿＿　　　　　 　　／: : : : : : : : : : : (
　　　　　　　　　 〈〈〈〈　ヽ　　　　　/: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
　　　　　　　　　　〈⊃　　}　　　　　{:: : : :ノ　--‐'　､_＼: : ::｝
　　 ∩＿＿＿∩　 |　　 |　　　　　 {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
　　 | ノ　　　　　 ヽ !　　 !　　　、　　ｌ: :ﾉ　／二―-､　|: ::ﾉ
　　/　　●　　　● |　　/　　　，,･_　　|　/／　　　|/ /::ノ
　 |　　　　( _●_)　 ミ／　, ’,∴ ･　¨　 〉(_二─-┘{／
　彡､　　　|∪|　　／　　､･∵ ’　　／､／/|　￣￣ヽ　　　　　
/　＿＿　 ヽノ　/　　　　　　　　 ／　　 //　|／／＼ 〉
(＿＿＿）　　　/　　　　　　　 　/　　　 //　　 /＼ ／
　　　　　　　/　　　　　　　 　 / 　　　　　　　/　　　　
　　　　　　↑初心者　　　　　　　　　Ｐｅｒｌオタク↑
＼　　　∩─ｰ､ 　　　====
　 ＼／　●　､_ ｀ヽ 　　======
　　/ ＼(　●　 ● |つ
　　|　　 X_入__ノ 　 ミ　　　　Ｐｅｒｌオタクを！首吊って引き殺せ━━━━━！！
　　 ､　(＿／　　　ノ　/⌒l
　　 /＼＿＿＿ノﾞ＿/　 /　　=====
　　〈　　　　　　　　 ＿_ノ　　====
　　 ＼　＼＿　　　　＼
　　　　＼＿__）　　　　　＼　　　======　　　(´⌒
　　　　　　　＼　　 ＿＿_ ＼＿＿　　(´⌒;;(´⌒;;
　　　　　　　　 ＼＿＿＿）＿＿＿）(´;;⌒　 (´⌒;;　　ズザザザ
ここは不親切な奴ばかりで死んでほしいね！初心者質問は禁止！！質問した者は
荒らしと同罪！！！＜終終終　　　　　　　　　　　　　　　了了了＞＜書き込み禁止＞

　　　　　　おまえらのせいでエラーばっかだぜえええええええええ！！
　　　　　　　　　　　　　　　　　　　　＿ ／-　イ､_
　　　　　　　　　　 ＿＿　　　　　 　　／: : : : : : : : : : : (
　　　　　　　　　 〈〈〈〈　ヽ　　　　　/: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
　　　　　　　　　　〈⊃　　}　　　　　{:: : : :ノ　--‐'　､_＼: : ::｝
　　 ∩＿＿＿∩　 |　　 |　　　　　 {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
　　 | ノ　　　　　 ヽ !　　 !　　　、　　ｌ: :ﾉ　／二―-､　|: ::ﾉ
　　/　　●　　　● |　　/　　　，,･_　　|　/／　　　|/ /::ノ
　 |　　　　( _●_)　 ミ／　, ’,∴ ･　¨　 〉(_二─-┘{／
　彡､　　　|∪|　　／　　､･∵ ’　　／､／/|　￣￣ヽ　　　　　
/　＿＿　 ヽノ　/　　　　　　　　 ／　　 //　|／／＼ 〉
(＿＿＿）　　　/　　　　　　　 　/　　　 //　　 /＼ ／
　　　　　　　/　　　　　　　 　 / 　　　　　　　/　　　　
　　　　　　↑初心者　　　　　　　　　Ｐｅｒｌオタク↑
＼　　　∩─ｰ､ 　　　====
　 ＼／　●　､_ ｀ヽ 　　======
　　/ ＼(　●　 ● |つ
　　|　　 X_入__ノ 　 ミ　　　　Ｐｅｒｌオタクを！首吊って引き殺せ━━━━━！！
　　 ､　(＿／　　　ノ　/⌒l
　　 /＼＿＿＿ノﾞ＿/　 /　　=====
　　〈　　　　　　　　 ＿_ノ　　====
　　 ＼　＼＿　　　　＼
　　　　＼＿__）　　　　　＼　　　======　　　(´⌒
　　　　　　　＼　　 ＿＿_ ＼＿＿　　(´⌒;;(´⌒;;
　　　　　　　　 ＼＿＿＿）＿＿＿）(´;;⌒　 (´⌒;;　　ズザザザ
ここは不親切な奴ばかりで死んでほしいね！初心者質問は禁止！！質問した者は
荒らしと同罪！！！＜終終終　　　　　　　　　　　　　　　了了了＞＜書き込み禁止＞

　　　　　エラーばっか出す、嘘ばっか教えんじゃねえええええええええ！！
　　　　　　　　　　　　　　　　　　　　＿ ／-　イ､_
　　　　　　　　　　 ＿＿　　　　　 　　／: : : : : : : : : : : (
　　　　　　　　　 〈〈〈〈　ヽ　　　　　/: : : : ::;:;: ;: ;:;: ; : : : ::ゝ
　　　　　　　　　　〈⊃　　}　　　　　{:: : : :ノ　--‐'　､_＼: : ::｝
　　 ∩＿＿＿∩　 |　　 |　　　　　 {:: : :ノ ,_;:;:;ノ､ ェｪ ヾ: :::}
　　 | ノ　　　　　 ヽ !　　 !　　　、　　ｌ: :ﾉ　／二―-､　|: ::ﾉ
　　/　　●　　　● |　　/　　　，,･_　　|　/／　　　|/ /::ノ
　 |　　　　( _●_)　 ミ／　, ’,∴ ･　¨　 〉(_二─-┘{／
　彡､　　　|∪|　　／　　､･∵ ’　　／､／/|　￣￣ヽ　　　　　
/　＿＿　 ヽノ　/　　　　　　　　 ／　　 //　|／／＼ 〉
(＿＿＿）　　　/　　　　　　　 　/　　　 //　　 /＼ ／
　　　　　　　/　　　　　　　 　 / 　　　　　　　/　　　　
　　　　　　↑初心者　　　　　　　　　Ｐｅｒｌオタク↑
＼　　　∩─ｰ､ 　　　====
　 ＼／　●　､_ ｀ヽ 　　======
　　/ ＼(　●　 ● |つ
　　|　　 X_入__ノ 　 ミ　　　　Ｐｅｒｌオタクを！首吊って引き殺せ━━━━━！！
　　 ､　(＿／　　　ノ　/⌒l
　　 /＼＿＿＿ノﾞ＿/　 /　　=====
　　〈　　　　　　　　 ＿_ノ　　====
　　 ＼　＼＿　　　　＼
　　　　＼＿__）　　　　　＼　　　======　　　(´⌒
　　　　　　　＼　　 ＿＿_ ＼＿＿　　(´⌒;;(´⌒;;
　　　　　　　　 ＼＿＿＿）＿＿＿）(´;;⌒　 (´⌒;;　　ズザザザ
ここは不親切な奴ばかりで死んでほしいね！初心者質問は禁止！！質問した者は
荒らしと同罪！！！＜終終終　　　　　　　　　　　　　　　了了了＞＜書き込み禁止＞

　　　　　　　　　　　　　　　　　　 ,....':::::::::::::ﾞ=:::::､
　　　　　　　　　　　　　　　　　／::::::::::::::::::::::::::::::::ﾞ:､
.　　　　　　　　　　　　　　　　/:::::::::::::::::::,ｒ-:::::::::::::::::ﾞ::､
..　　　　　　　　　　　　　　　,l':::::::::::::::::::/-〃ﾞﾞ''''''ﾞ\:::::::ﾞ､
　　　　　　　　　　　　　　　 l:::::::::::::::::::,l'　ll'l　　　　ﾞl;:::::::l,
　　　　　　　　　　　　　　　,;:::::::::::::::::::l　 .ll.l..　　　　l:::::::::l
　　　　　　　　　　　　　　,ィ:::::::::::::,ｒ-- '''''--=-'l''=-''り::::l
　　　　　　　　　　　　　〃::::::::::::::l'　　　ﾞ - ' ;.　lﾞ - ' l::::::l　　　ここのスレには…
　　　　　　　　　　　　　ｿ::::::::::::::::l　　　　 , ア__,.l,.('' .ｔ:::::j'
. 　　　　　　　　　　　　l::ｒk:::::::::::::ﾞl　　　,..'ﾞ-､＝-:,.ﾞ t ﾞﾚ　　　書き込まないで…ほしいです…
　　　　　　　　　　　　　ゝj:::::::,､::::::ﾞ､　　; -==ｦ'弋''''{　ﾞl,
　　　　　　　　　　　　,.-'::;==' ﾉ::::::::＞'~::::ﾞ=､_,l,.;'ﾞ^'''ﾞl.　ﾞ､
　　　　　　　　　....,.=''　　　,,〃'ﾍ:::/:::::::::::::::::ﾞl爪.　　　　 l,
　　　　　　　　,.ｒ'',:,:,:,:,:,^~",:,:,:,:,:,:,:7'''',=';,''''ﾍ:ﾉ爻ﾞ､　　　,.=''-､
　　　　　　　 k,:,\､,:,:,:,:,:,:,:,:,:,l,:,:,:,:/ (ふ勺 ,''l'　j::l　ﾞl,-='',:,:,:,:,:,:ﾞ､
　　　　　　　,l',:,:,:,:ﾞ､,:,:,:,:,:,:,:,:l,:,:,:,:l---===,,'.j^~:::l　,-ﾞ,:,:,:,:,:,:,:,:,:,:,ﾞ､
　　　　　　 /,:,:,:,:,:,:,ﾞ､,:,:,:,:,:,:j,:,:,:,:,:l l':::::ﾞｭ), l.,'　;::;,/,:,:,:,:,:,:,:,:,:,:,:,:,:,:,ﾍ
　　　　　　j,:,:,:,:,:,:,:,:,:,ﾞ､,:,:,:,:,l,:,:,:,:,:,k:::::::ﾋ＿l　.;:::ll,:,:,:,:,:,:,l,:,:,:,:,:,:,:,:,:,:,ﾊ
　　　　　 ,l,:,:,:,:,:,:,:,:,:,:,:,z,:,:,:,l,:,.,. '^.､::_:j':::::::::::::::::::l,:,:,:,:,:,:,:\,:,:,:,:,:,:,:,:,:,:,＼

ﾊｰﾝ
おじさんﾏｼﾞ切れますよ？I/Oの関数みろYO!!!

@stat=stat $file;
$size=$stat[7];

if(104857600<=$size) print "100MBより多いぞｺﾞﾙｧ";

　　　　　　　 ／⌒ヽ⌒ヽ
　 　 　 　　　....:::..∧Ｙ∧ .
　　　　　 　 .::::::::.　･　･　::ヽ　　
　　　　　（　　　　　）●（　　）　　初心者書き込み禁止！！
　　　　　 丶　　　　 ー　　/　　　　BY　PERLオタク
　　　　　　　 l, 　　　　　　j　　　　
　　　　　　　i　　 　　i　 　.j
　　　　 　　 |　 　 　八 　 |
　　 　 　 　 {　　　　　　　 }
　　　　　　 | i し　"　i　 　'|
　　　　　　|ﾉ　(　　　i　 　 i|
　　　　　 (　'~ヽ　　　!　　‖
　 　 　 　 │　 　　　i　 　‖
　　　　　　|　　　　　　! 　 ||
　　　　　　|　　　 │　　　　|
　　 　　　|　 　 　 　| 　 　| |
　　　　　| 　 　　　　|　　　| |
　　　　 | 　　　　 　 !　　 　| |

　　　　　　　 ／⌒ヽ⌒ヽ
　 　 　 　　　....:::..∧Ｙ∧ .
　　　　　 　 .::::::::.　･　･　::ヽ　　
　　　　　（　　　　　）●（　　）　　初心者書き込み禁止！！
　　　　　 丶　　　　 ー　　/　　　　BY　PERLオタク
　　　　　　　 l, 　　　　　　j　　　　
　　　　　　　i　　 　　i　 　.j
　　　　 　　 |　 　 　八 　 |
　　 　 　 　 {　　　　　　　 }
　　　　　　 | i し　"　i　 　'|
　　　　　　|ﾉ　(　　　i　 　 i|
　　　　　 (　'~ヽ　　　!　　‖
　 　 　 　 │　 　　　i　 　‖
　　　　　　|　　　　　　! 　 ||
　　　　　　|　　　 │　　　　|
　　 　　　|　 　 　 　| 　 　| |
　　　　　| 　 　　　　|　　　| |
　　　　 | 　　　　 　 !　　 　| |

　　　　　　　 ／⌒ヽ⌒ヽ
　 　 　 　　　....:::..∧Ｙ∧ .
　　　　　 　 .::::::::.　･　･　::ヽ　　
　　　　　（　　　　　）●（　　）　　初心者書き込み禁止！！
　　　　　 丶　　　　 ー　　/　　　　BY　PERLオタク
　　　　　　　 l, 　　　　　　j　　　　
　　　　　　　i　　 　　i　 　.j
　　　　 　　 |　 　 　八 　 |
　　 　 　 　 {　　　　　　　 }
　　　　　　 | i し　"　i　 　'|
　　　　　　|ﾉ　(　　　i　 　 i|
　　　　　 (　'~ヽ　　　!　　‖
　 　 　 　 │　 　　　i　 　‖
　　　　　　|　　　　　　! 　 ||
　　　　　　|　　　 │　　　　|
　　 　　　|　 　 　 　| 　 　| |
　　　　　| 　 　　　　|　　　| |
　　　　 | 　　　　 　 !　　 　| |

　　　　　　　 ／⌒ヽ⌒ヽ
　 　 　 　　　....:::..∧Ｙ∧ .
　　　　　 　 .::::::::.　･　･　::ヽ　　
　　　　　（　　　　　）●（　　）　　初心者書き込み禁止！！
　　　　　 丶　　　　 ー　　/　　　　BY　PERLオタク
　　　　　　　 l, 　　　　　　j　　　　
　　　　　　　i　　 　　i　 　.j
　　　　 　　 |　 　 　八 　 |
　　 　 　 　 {　　　　　　　 }
　　　　　　 | i し　"　i　 　'|
　　　　　　|ﾉ　(　　　i　 　 i|
　　　　　 (　'~ヽ　　　!　　‖
　 　 　 　 │　 　　　i　 　‖
　　　　　　|　　　　　　! 　 ||
　　　　　　|　　　 │　　　　|
　　 　　　|　 　 　 　| 　 　| |
　　　　　| 　 　　　　|　　　| |
　　　　 | 　　　　 　 !　　 　| |

　　　　　　　 ／⌒ヽ⌒ヽ
　 　 　 　　　....:::..∧Ｙ∧ .
　　　　　 　 .::::::::.　･　･　::ヽ　　
　　　　　（　　　　　）●（　　）　　初心者書き込み禁止！！
　　　　　 丶　　　　 ー　　/　　　　BY　PERLオタク
　　　　　　　 l, 　　　　　　j　　　　
　　　　　　　i　　 　　i　 　.j
　　　　 　　 |　 　 　八 　 |
　　 　 　 　 {　　　　　　　 }
　　　　　　 | i し　"　i　 　'|
　　　　　　|ﾉ　(　　　i　 　 i|
　　　　　 (　'~ヽ　　　!　　‖
　 　 　 　 │　 　　　i　 　‖
　　　　　　|　　　　　　! 　 ||
　　　　　　|　　　 │　　　　|
　　 　　　|　 　 　 　| 　 　| |
　　　　　| 　 　　　　|　　　| |
　　　　 | 　　　　 　 !　　 　| |

592 名前： nobodyさん [] 投稿日：03/08/07 16:03 ID:MNjVgF7U
ゲームで、対戦で、攻撃はパンチとキック、どちらかは２分の１
パンチの場合は、５回に１回はダメージ低い。
さらに５分の２の確率でミスをする。

というのを、１ターンの各攻撃を下のスクリプトに書いたが動かない
誰かこの初心者を助けてください

593 名前： nobodyさん [] 投稿日：03/08/07 16:03 ID:MNjVgF7U
プレイヤー１は$play11の攻撃
プレイヤー２は$play22の攻撃

$play11 = $sentaku1　　　//Syntax Error
$play22 = $sentaku1　　　//Syntax Error
$kik = 60　　//Syntax Error

$sentaku ={　　//Syntax Error
　$play1 = int(rand 2)　　//Syntax Error
　if($play1 == 0)　$kik　　//Syntax Error　$kikって何だよオブジェクトか？で、メソッドは？
}　　//Syntax Error

else($play1 == 1) {　　//Syntax Error　Elseに条件つけんなよｗ
　$bougyo = int(rand 5)　//Syntax Error　だからセミコロン・・・
　if($bougyo =< 1)　　　0;
　else($bougyo >= 2)　1;
}

{　　//Syntax Error　　ｴｴｴｴ・・・・　なにこの括弧
　$panti = int(rand 5);
　if($panti == 0)　　$panti1 = 10;
　else($panti > 0)　$panti2 = 20;
　}　　//Syntax Error　括弧・・・
　　* $bougyo;　　//Syntax Error　　おい、オペランド足りんぞ
　}　　//Syntax Error　括弧・・・
}　　//Syntax Error　括弧・・・


括弧の対応おかしいーーｗｗｗ

いえいえ、サーバー側でファイル化する前にCONTENT_LENGTHで判断してます。
念のためにファイル化した後もサイズチェック。

なにかしら処理途中でレスポンスヘッダを送信できれば、
アップロードに専念しているブラウザも止められるかなぁ？
・・・と、考えつつも案が浮かばず放置している状態なのです。

>>526
＞念のためにファイル化した後もサイズチェック。
だから、その行為がクライアントから見ると「アップロード」になるわけで・・・
CONTENT_LENGTHで判断するだけでいいだろ

>>510
http://httpd.apache.org/docs/mod/core.html#limitrequestbody
Apacheであれば、規定量を超えたら413(Request Entity Too Large)が
返るように設定できるけど、クライアントを止められるかどうかは不明。

同様の処理はmod_perlであればヘッダ解析フェーズで可能かも。
CGIレベルでは無いことは確か。

だから527が言ってるようにCONTENT_LENGTHで（ｒｙ
（´-｀）.｡oO(なんで鯖までいじらにゃならんのよ・・・)

やはりPerlへ処理が渡された時点で手遅れみたいですね。
残念だけど諦めます。

> CONTENT_LENGTHで判断するだけでいいだろ
申し訳ない。今のロジックをみたらCONTENT_LENGTHのチェックと、
STDINからデータ取得時のチェックの二段階だけだった。

>592 名前： nobodyさん [] 投稿日：03/08/07 16:03 ID:MNjVgF7U

my @attack = (
sub {
my($damage, $rate) = (100, 10);
$damage *= 1 + ((1 / 2 <=> rand) * rand $rate) / 100;
$damage *= 1 / 3 unless int rand 5;
$damage = 0 if 2 > rand 5;
'パンチ', int $damage;
},
sub {
my($damage, $rate) = (200, 10);
$damage *= 1 + ((1 / 2 <=> rand) * rand $rate) / 100;
'キック', int $damage;
}
);

for (1..20) {
print $attack[rand 2]->(), "\n";
}

Cookieクリアについて質問ですが、「ブラウザ(セッション)を
閉じたとき」にCookieをクリアするためにはexpiresを空に、
有効期限を決めるにはexpiresを設定すればいいだけのこと
ですが、この2種を同居させることは不可能でしょうか。

つまりやりたいことは、「有効期限を設定しておいても、ブラウザ
が閉じられればCookieはクリアされる」ということです。

うまくいかないので質問させていただきました。
宜しくお願い致します。

>>532
勘違い擦れ違い板違い

>>533
申し訳ありません。
違うところで質問させていただきますね。

>>532
Netscapeベースの一般的なクッキーだと不可能。
クッキーの中に有効期限を書いておき、サーバ側でチェックするとか。

質問させて頂きますm(_ _)m

$day = "20040505";
の時、$dayから 2004、05、05を分けて取り出すには、
$yyyy = substr($day, 0, 4);
$mm = substr($day, 4, 2);
$dd = substr($day, 6, 2);

とするしかないでしょうか？
もう少し良い方法がありましたらご教授お願いします。

>>536
これでどうかな
($yyyy, $mm, $dd) = unpack("a4a2a2", "20040505");

>>536
TMTOWTDI.

# substr
my($yyyy, $mm, $dd) = (substr($day, 0, 4), substr($day, 4, 2), substr($day, 6, 2));

# unpack
my($yyyy, $mm, $dd) = unpack 'A4A2A2', $day;

# パターンマッチ
my($yyyy, $mm, $dd) = $day =~ /^(\d{4})(\d\d)(\d\d)/;

# 回りくどい方法
my @tmp = split //, $day;
my $yyyy = join '', splice @tmp, 0, 4;
my $mm = join '', splice @tmp, 0, 2;
my $dd = join '', @tmp;

printf "%d %d %d", $day =~ /^(\d{4})(\d{2})(\d{2})$/;

>>537-538
ありがとうございます！
umpackという手がありましたね。
これでいこうと思います。

>>538
>#バターンマッチ
この書き方がよく分かってないんですよ＜私
サンプルソースを写して、何となくうまくいってるって感じで(汗)
がんばって勉強します！

>539 �dクス

複数の異なるサーバー間で、アクセス規制用に.htaccessファイルを同期させる為のCGIを作ろうと思ってます。

.htaccessのファイルの内容を、指定したサーバーの順番に、Socketでデータと一緒にPOSTして、受け取ったCGIでそれを元の.htaccessと書き換えるという流れで逝きたいんですが、
一つのデータ送信＋ファイル更新用の親CGIと、受信＋ファイル更新用の子CGIという仕組みです。
私はPerl初心者で、今までソケットについては一切書いてないので知識が無いので、
最近ネットでPerlのSocket.pmについて調べてるんですが、どうもソケットについて詳しく解説してるサイトが無くて困ってます。

何方かSocketについての解説サイトをご教授してください。

.htaccess その物を送ったほうが速いんで内科？

.htaccess その物を送ったほうが速いんで内科？

WEB上で親CGIでIP・リモホなどを追記して送信するだけで登録されたサーバーに一度に同期させたいからです。

私自身、１０つのサーバーで複数のコンテンツを公開してるので。。。
アップロードファイルがこんがらがってるのでこういうCGIを実装したいのです。

cron+scpでダメな理由を述べよ

cron+scpでダメな理由を述べよ

ま、スレ違いだな

俺>>543じゃないんだけど、同じ失敗してるな。
「書き込みに失敗した模様」でも書きこめてるっぽい。

548だけどやっぱり書き込みおかしい？
この板だけじゃないけどすんなり書き込めななくなったな。

↓ここのフリーCGIマジおすすめ。どこのサーバーでもいけるぞ

http://www.accesstrade.net/at/c.html?rk=010003h3000dcb
http://www.accesstrade.net/at/r.html?rk=010008la000dcb

>>542
Socket.pmが使えるということは、標準モジュールが使えるのだから、
IO::Socket::INETを使えばハンドル操作だけで楽になるよ。
さらにLWPモジュール群を使えば、ハンドル操作さえ不要に。

Ｐｅｒｌを１年ぶりに勉強
前のレベルに戻すまで１ヶ月はかかるからよ

　　　　　　　　　　∧＿∧
　　　 ∧＿∧ 　（´<_｀ 　）　今ちょうど
　　　（　´_ゝ`）　/　　 ⌒i　人生最大の危機に
　　 ／　　　＼　 　　　|　| 　直面しているな
　　/　　 　/￣￣￣￣/　|
＿_(__ﾆつ/　 FMV　 / .| .|＿＿＿＿
　　　 ＼/＿＿＿＿/　（u　⊃

スクリプト言語ごときで人生最大の危機ですか

首切りが掛かってるんですよ。もう必死です。

↓このようなxmlファイルがあるとして
---- xml2.xml ----------------------------------------
<?xml version="1.0" encoding="Shift_JIS"?>
<data>
　 　 <shop num="01">
　 　 　 　 <name val="a">AAAshop1</name>
　 　 　 　 <name val="b">AAAshop2</name>
　 　 　 　 <tel>012-345-6789</tel>
　 　 </shop>
　 　 <shop num="02">
　 　 　 　 <name>BBBshop</name>
　 　 　 　 <tel>098-765-4321</tel>
　 　 </shop>
</data>
------------------------------------------------------

↓のperlを実行すると
------------------------------------------------------
#!/usr/local/bin/perl
use XML::DOM;
$xmlfile = "./xml2.xml";
my $parser = new XML::DOM::Parser;
my $doc = $parser->parsefile ("$xmlfile");
my $nodes = $doc->getElementsByTagName ("shop");
my $n = $nodes->getLength;

for (my $i = 0; $i < $n; $i++){
　 　 my $node = $nodes->item($i);
　 　 my $attr = $node->getAttribute("num");
print $attr."-attr\n";
　 　 my $child = $node->getElementsByTagName("name");
　 　 my $nn = $child->item(0);
　 　 my $val = $nn->getAttribute("val");
print $val."-val\n";
　 　 my @child_val = $node->getElementsByTagName("name");
　 　 my $child_val = $child_val[0];
print $child_val."-child_val\n";#●
}
------------------------------------------------------

------------------------------------------------------
01-attr
a-val
XML::DOM::Element=ARRAY(0x843e234)-child_val
02-attr
-val
XML::DOM::Element=ARRAY(0x84406fc)-child_val
------------------------------------------------------
このような表示になります。
●の部分が「XML::DOM::Element=ARRAY(0x843e234)-child_val」こうなってしまいますが
「AAAshop1」や「AAAshop2」「BBBshop」を取得するにはどうすれば良いのでしょうか？

formからPOSTをつかってフォームの値をperlによって受け取っているんですが、
今までテキストか、リストによるものだけだったんですが
今回、チェックボックスを使いたいんですが、
どのようにperl側に情報が送られてくるのでしょうか・・・。

>>559
実際に受け取ってみればいいじゃん

>>560
初心者ですいません。
受け取ってそのまま表示させるにはどうすればいいですか・・・（´Д｀）

>>556-558
それ自分で書いたコードじゃないだろ

>>561
GETで渡して$ENV{'QUERY_STRING'}を表示すれ。

>>563
ありがとうございます！

>>558
my @child_val = $node->getElementsByTagName("name");
my $child_val = $child_val[0];

の部分を

my $child_val = $nn->getFirstChild->getData;

>>562
全文は自分で書いてませんが
ttp://member.nifty.ne.jp/hippo2000/perltips/xml/dom.htm
を参考に部分部分を変えて書きました。

>>565
ありがとうございます！ばっちり表示できました。
おかげ様でやっと次の段階に進めそうです。

$honbun = "aaabbbcccdddeeefffコーヒー";
$honbun =~ s/$FORM{'text'}/<font style=\"background:#00ffff\">$FORM{'text'}<\/font>/g;
print "本文＝$honbun";
というプログラムで本文を置換したいんですけどフォームからaaaなどを入力してもエラーにはならないけど
コーヒーと入力するとエラーになってしまいます。
どうしたらコーヒーと入力してもエラーがでないんでしょうか？

>>567
>>1読んで。
どんなエラーかわからない事にはまともな答えは期待できない。

>>567
\Qマルチポスト(･∀･)ﾆﾔﾆﾔ\E

サニタイズするよろし。
$honbun = 'aaabbbcccdddeeefffコーヒー';
$keyword = 'コーヒー';
$keyword =~ s/([\+\*\.\?\^\$\[\-\]\|\(\)\\])/\\$1/g;
$honbun =~ s/($keyword)/<b>$1<\/b>/g;
print "本文＝$honbun";

@filesという配列の中に10〜15個程度の要素が入ってるのですが
これをHTML上に表示するにはどのようにすればよいのでしょうか？
現在は$files[1]〜$files[15]というように1個1個記述してます。
何か良い方法があればアドバイスいただければと思います。

>>571
foreachを使う。
用例は検索すれば一杯出てくる。

print @files;

>>572
ありがとん
foreach $key (@files) { print "<a href=\"$key\">$key</a><br>\n";}
ってやったら出来た
サンクスコ

quotemeta を使いましょうよ。

アンケートサイトを作ろうと思っています。

一人複数投票をなるべく避けるようにしたいのですが、こういう
場合、どのような工夫があるでしょうか？

とりあえず同一アドレスははじきます。リスクはありますが、
プロバイダの同一サクセスポイントもはじこうと思っています。

他にどういう手があるでしょうか？もちろん100%防ぐのは
無理だと思いますし、そんな厳密なアンケートでもない
(どっちかというと遊びっぽい）ので、少しでも役立つ
方法をご存知でしたら、教えてください。

よろしくお願いします。

> とりあえず同一アドレスははじきます。リスクはありますが、
> プロバイダの同一サクセスポイントもはじこうと思っています。
ネタだろ?

@list に何列（何個）存在しているか
個数をカウントするにはどうすればいいですか・・？

$kosuu = @list;

>>579
ありがとうございます！

>>576
クッキー食わせるのは良くあるパターン

サクセスポイント

サクセスポイントはアクセスポイントのタイプミスでした。どもすみません。

>>581

あ、クッキーという手がありましたね。消して再投票する人もありえるでしょうが、
一定の効果はありそうですね。ありがとうございます。

検索用CGIを作っているのですが、
@array にたとえば「あ」「い」「う」が入っているとして、
それを$aiuにマッチすればそのまま、マッチしなければそのループを抜ける
という表記なつもりなのですが、結果がうまくいきません。

foreach $i (@array){
if ($aiu =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$i/i) { ; }
else { next; }
}

どのようにかきかえればいいでしょうか？

>>584
foreach my $str (@array){
　　$str = quotemeta $str;
　　if( !$aiu =~ /$str/){
　　　　last; # ループを抜けるのはlastです
　　}
}

こんなもんでどうなんでしょう？　正規表現はそんなにややこしくする必要ありですか？

>>584
まずそれは EUC-JP とうまく付き合いたがっているコードなわけだけど
@array と $aiu はきちんと EUC-JP ですか？

早とちり失礼。

>>585

エラーはおこりませんが、HITしませんでした。。。
下のレスにもかかれてたコードのせいですかねぇ？

>>586
EUC-JPかどうか実はよくわかっていません・・・が、
なぜか部分部分でそのコードを入れないと反応しないものがありまして。
なくてもうまくいく場合もあるんですが、
基本的に日本語が含まれるものには無いとうまくいかないようです。

$fmt = "%d %d";
@lst = (12, 20);

これを print を用いて「12 20」のように表示したいのですが、
print($fmt, @lst); では「%d %d1220」と表示されてしまいます。
「12 20」のようにするにはどうしたらよいでしょうか。

ちなみに、$fmt, @lst は動的に変わり、
要素が２個とは限りません。
C言語の va_list のようなことができるのか知りたいです。

>>589
>>574を参考にすべし。

>>590
$fmt も任意で、必ずしも　%d のスペース区切りではないんです。

>>589
僕が良くワンライナで使う手はこう。
$ perl -e '@list=(1..5);print join(" ", @list);'
1 2 3 4 5

printf

>>593
できました、ちょっとハマって勘違いしていました。
ありがとうございました。

初めまして。

「バイナリ構造体」の意味がイマイチつかめなくて困ってます。

「バイナリ」は２進法とかいう感じの意味らしいですが、では「バイナリ構造体」
とは構造が２進法である。みたいな感じですか？なんか変な感じ・・・

バイナリはいろんな所で調べれますが、バイナリ構造体という言葉の説明はみつかりません。

どうやらスカラ変数や　s/〜//;　の〜部分もバイナリ構造体らしいのですが、どなたか
バイナリ構造体の意味を教えてくださいませんか。お願いします。

バイナリデータ

バイ ナラ

>>595
プログラミングで構造体と言うと既にある型を使って新しい型を作ることを指す。
Perlは基本的にデータを文字列で記憶するからそれをバイナリ値にしたものが
バイナリ構造体。

まあ pack してできるものがバイナリ構造体だ

でも s/?//; の?の部分がバイナリ構造体だというのはいまいち意味がわからない

>>598
ということは文字列をバイナリ値（０と１）に変換して記憶・保存する構造自体がバイナリ構造体ですか？

>>599
packってpack後にバイナリ構造体に結果を返すって勉強したので、packの結果を受け取れる
場所はスカラ変数に限らず、全てバイナリ構造体と言える？あれる？のかなと思いましたが・・・・・

う〜ん難しいですね。スカラや配列って文字列のまま記憶・格納しているのですか？
例）$x = "あいうえお";
という代入をした場合、「あいうえお」のままはコンピューターは保存できませんよね？
だから、保存時に２進数に直して保存し、呼び出すと自動で解凍？される・・・・のですか？
その仕組みがバイナリ構造体そのもの？？？？

>>600
バイナリ値というのは2進数のことではない。
それにPerlにおいてバイナリ構造体の意味を学んでも役には立たないから
おかしな理解をしてしまう前にpackして得られる値とだけ思っておけ。

>>601
「整数値を、2 の補数表現で符号化したものをバイナリ値とする。」こんな程度しか
バイナリ値ではひっかかりませんでしたがとりあえず単純な２進数ということでは
ないようですね。

プログラム関係って言葉の意味さえわかれば関数や表記法なんて結構どうにでもなるかな
と思ってるんですよ。理解できない言葉があると勉強の効率が悪いので私にとっては
言葉の意味は重要なんですよ。

プログラム関係の言葉の辞書って今アスキーっていうＨＰ使ってますが、他にどこか
いいとこありますか？アスキーはバイナリ値もバイナリ構造体も載っていませんでしたので
プログラム系の言葉に特化してる辞書とかないですかね

忘れてました追加です。

「０ｘ」とは、後に続く文字列が１６進数であることを示しているらしいのですが、
print hex(0xa);
としてみたら１６が表示されました。
print hex(a);
の場合は１０なのですが、「０ｘ」は後続が１６進数であるという示し以外にどのような
効果を与えるのでしょうか？

print 0xa;
# 10
print hex 10;
# 16

バイナリ構造体というのは、誰が作ったか知らないが、日本独自の言葉で、
英語版の perldoc などには存在しない。
よって正確な定義もたぶん存在しない。

たぶんCの構造体(struct)との類推で作られた言葉だとは思う。
struct の定義ならCの入門書でも読めばわかるが、
「なぜこんなものが必要なのか、実際何の役に立つのか」ということは
実際にCのプログラムを作ってみないとわからんだろうな。

つか、Perlは普通に構造体使えるようになってるしな
$hoge
@hoge
%hoge

>>606
それは構造体の話とは関係ない

>>605う〜ん難しいですね。簡単な例え話とかあったらいいんですがね。

>>604どうやらhex関数の引数として「０ｘ」をつかうとちょっと違うことになるみたいですね。
通常は「０ｘ」が前につけば単に１６進数という宣言みたいですが、どうしてhex関数の引数
で使うとおかしな事になるんでしょう。

そういえば、バイナリ値以外にもchar値とかその他にもいっぱい「〜値」というものが
あるんですね。どっかにいろんな「〜値」について詳しく解説してるサイト知りませんか？

>>608
何もおかしくないのに>>604を見てわからないならかなりニブいな。

packで指定する型のcharやintや浮動小数点だのをひっくるめてバイナリ値を呼ぶ。
どんな型があるかはpack関数を調べればいい。

いいかげんスレ違いになってきたからここらでやめれ。

>>607
釣れますか？

2重ですいません。
>>584　の質問誰かお願いします。。。
調べたところ、すべてEUCにはされていました。

if ($aiu ne 'all') {
if ($aiu =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$array[0]/i ||
$aiu =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$array[1]/i) { ; }
else { last; }
}

だと、理想的な結果が出るんですが、2枚目のページにいくと、
結果がクリアされるようなんです・・・。

「2枚目のページ」ねぇ。
誰か2枚目のページってどんなのか知ってる？
知ってる人が教えてあげて。

（ﾟ�听）ｼﾗﾈ

>>609
？？？
print a; #aが出力
print 0xa; #１０が出力
print hex a; #１０が出力
print hex 0xa; #１６が出力
？？？

本当にわかりません・・・教えてください。

ところでこの話はスレ違いなんですか？ここは変換処理にかかわる事ならＯＫっていうわけでは
ないんですか＾＾；

文章から一定の単語を抜きだすコードを書いてるんですけど
　if( 文章 =~ 適当な単語) ){
　　処理
　}
という方法では
(´･ω･`)　のようなものに引っ掛からないみたいで、、、
こう言う場合はどのようにマッチさせれば良いのでしょう？

マルチバイトを標準で使いたいのならphpにしろ
perlはjcodeがいるだろ

あ〜〜〜〜〜〜〜！！！！！！！！

0xってhexと同じような働きがあるから
print hex 0xa;
っていうのは
print hex (hex a);
と同じことで、流れ的には「a」を１０に変換してさらにそれを１６進数として評価してしまう！！！

ってことですね＾＾やっとhex問題が片付いた。バイナリ値問題はまだまだですが＋＋；

ほんと日本語が世界語だったらプログラム用語もＰＣ関連用語ももっと簡単だったろうになあ

>>611
Perlメモみれ

>>615
指定の単語を抜き出すよりもマッチするかどうかじゃ？
マッチすれば指定単語を含むわけだし・・・

index関数使え

>595
まぁ、釣りではないとして回答しておこう。

>理解できない言葉があると勉強の効率が悪いので私にとっては
>言葉の意味は重要なんですよ。
細かいことにこだわりすぎだと思うがね。
プログラミング用語自体、文脈で結構柔軟な解釈がされることもある。
所詮、用語自体が「表記法」に過ぎないと思う。

>614
hex が文字列を引数としてとること、Perl が型変換を自動で行うこと、
0xa は数値であること、キーワード以外の単語は文字列として扱われること、
以上を元に少し考えてみれば？

>ところでこの話はスレ違いなんですか？
>ここは変換処理にかかわる事ならＯＫっていうわけではないんですか＾＾；
スレタイ嫁、変換処理ってなんだよ？
# あと末尾のは顔文字のつもりかしらんが、個人的に妙にいらつくぞ。
>どっかにいろんな「〜値」について詳しく解説してるサイト知りませんか？
総じて Perl コーディング以前の問題のような気がするんだよ。

>>619
説明文が激しく半端でした。
HTMLから必要な単語を抜き出して、それがそのHTML内に何回出現しているか
確認するプログラムを書いています。
例えば
<FONT COLOR="#ffff00">そいつぁｼｮﾎﾞﾝﾇ(´･ω･`)</FONT>
という行からindex関数で前のタグと後ろのタグを見つけて
「そいつぁｼｮﾎﾞﾝﾇ(´･ω･`)」を単語として抜き出しています。
この単語を文章とマッチさせているのですが、どうも顔文字が上手くマッチしてくれないのです。
他の単語は普通にマッチするようなので、顔文字の文字がまずいのかなと思ったのですが、、、、、

index関数の言い分：
　　　　　　　　おれはどんなやつよりも素早く目的のフレーズを探し出して
　　　　　　　　みせるぜ！

>>620

コーディング 【coding】

(１)
⇒符号化(ふごうか)
(２)コンピューターなどで，一定のプログラム言語を用いて，プログラムを作成すること。


ふごうか 【符号化】

(１)
〔encoding〕
情報がある一定の規則に基づいて符号に変換されること。記憶における記銘や，非言語コミュニケーションにおける表情の表出などもこの例として捉(とら)えられる。
→解読
(２)
〔数〕
〔coding〕
一連の情報を適切な符号系を定めて符号に変換すること。

とありましたので変換処理とも言えるのかなっと・・・
顔文字の件申し訳ないです。

>総じて Perl コーディング以前の問題のような気がするんだよ。
かもしれませんね。

私的には記述方法とかってあまり問題じゃなくて、関数やコーディングの機能・処理内容自体を日本語のみで全くの素人にでも
教える事ができるようになる事が大切かなって思ってます。なので、細かいとこにこだわって他人より要領が
すこぶる悪い・・・自分でも自覚してます。

とりあずこのスレで、私のように基本的な部分を質問するのは迷惑になってしまうようですね。ごめんなさい。

>>621
quotemetaか\Q...\E使を適切に使ってないに一票。

>プログラミングで構造体と言うと既にある型を使って新しい型を作ることを指す。
>Perlは基本的にデータを文字列で記憶するからそれをバイナリ値にしたものが
>バイナリ構造体。

バイナリ→テキスト形式（文字データ）以外のデータ形式全般。

値がテキスト形式以外のデータ形式であれば全てバイナリ値。

char値→バイナリ値の分類の中の・・・・

とりあえずここで学んだことをまとめておきました。それでは失礼します。

>>595氏
バイナリ構造体なんてどっから拾ってきた言葉だかしらんが、言葉は
何かを説明するためにあるのであって、造語を前提なしに持ち出して
どういう意味なんだと考える自体が無意味。初心的どうこうではない。
プログラムはアルゴリズム実現の表記手段であって哲学的誤謬に陥るのは愚。

>>624 同じく一票
顔文字って()を使うからねぇ。。。Perlのメタ文字が入る場合は注意だし。

キャラクタ→キーボードから入力可能な文字や記号。

pack("C*",0x41); #A
第２引数以降のリストで指定したデータを、キーボードから入力可能な文字や記号に
一定の規則をもって変換する。（char値に変換する）

>>621
indexで書いてみるテスト。
my $cnt = 0;
my $pos = 0;
$cnt++ while(($pos = index($data, $match_str, $pos)+1) > 0);

>>595
Perlより先にアセンブラやってみるというのはどう?
# これ以上はスレ違いなので、後は本でも読んでみては。

アセンブラ→アセンブリ言語で書かれたプログラムを機械語に翻訳するのがアセンブラ。

>>628
アドバイスありがとうございます。とりあえず、ゆっくり地道にやっていこうと思います。
バイナリ構造体についての質問は完全にスレ違いでしたね。

ところでこうゆう質問もスレ違いでしょうか？↓

相変わらず基礎的な部分で、コーディング（符号化）の流れについてなんですが、
例えばＵＮＩＸ系のサーバにあるwebページに対して、「あいうえお」と送ったとします。

そのときの内部で起こっている事は、
１、送られてきた文字データをＥＵＣでコーディング（エンコード）
２、それをさらにＡＳＣ�Uコードでエンコード

文字列データとして表示させるには
１、まずはＡＳＣ�Uコード化されたデータを受け取りＡＳＣ�U方式でデコード
２、それをさらにＥＵＣでデコード

で、合っていますか？なんか違う気もするんですが・・・
一番初めに文字列データをどの形式でコーディングするかの決定権をもっているのは
クライアント側のユーザですよね？受け取り側で自動でされる処理はASC�Uでエンコードするのみですか？
でもそれだと、何故ＵＮＩＸ系でＥＵＣを指定されているのか？ですし・・

・・もしかしてこれもスレ違いな内容でしたら、一言「スレ違い」とお返事ください。

sub auto_link {
$_[0] =~ s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<a href=\"$2\" target=\"_blank\">$2<\/a>/g;
}
この場合
URLがある文字数を超えたときにそれ以降を省略するようにするにはどうしたらいいのでしょうか
substrとか使えばいいんだと思うんですけどよく解りません。

>>629
スレ違い

>>630
my $limit = 16;
s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/
"$1<a href=\"$2\" target=\"_blank\">".substr($2, 0, $limit).
(length($2) > $limit && '..')."<\/a>"/egx;

こんなとか。

>>632
ありがとうございます！すごいや！エロい人

と思ったらURLがうまくリンクにならないです...orz

"$_[0] =~ "抜けてたからですね...申し訳ないです。ちゃんと動きました。

流れからするとレベルの低い質問です。

ファイルオープン後、
@temp = <FH>;
とすると行ごとに配列へ格納されますが、
\nも含めてひとつのスカラ変数に格納したいのです。

普通はjoin関数であとから結合するのでしょうか？
どうも冗長な気がし質問しました。

>>636
undef $/;
$temp=<FH>;

>>637
ありがとうございます！

$1〜、$_以外の特殊変数はまだまだ理解出来ないと思ってたら、こうやって使うんですね。

ソートについての質問です。

@list = (0,1,2,3,4,5,6,7,8,9,10,11);
sub number {
　　if ($a < $b) {
　　　 return -1;
　　} elsif ($a == $b) {
　　　 return 0;
　　} elsif ($a > $b) {
　　　 return 1;
　　}
}
@result = sort number @list;

@resultが何故0,1,2,3,4,5,6,7,8,9,10,11になるのか理解できません。
漏れの考えですが、$aに0、$bに1が代入される。比較され-1が返る。@resultの第一要素は「-1」になる。
以降繰り返しで@resultは-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,1となるのでは？と考えました。
@resultが何故0,1,2,3,4,5,6,7,8,9,10,11になるのか教えてください。

$a < $b なら ($a, $b)
$a == $b なら ($a, $b) のまま
$a > $b なら ($b, $a)
の配列要素の順番入れ替えをおこなうのが sort 関数

数値の昇順や降順にソートすることは簡単にできる。
@result= sort {$a <=> $b} @list;
@result= sort {$b <=> $a} @list;

なるのほどsort関数が順番の入れ替えを行っていたのか
>>640ありがとう

このスレの住人のギャグセンスはなんだな。ｵｻｰﾝばっか

cgiの実行結果を読み込ませたいのですが
open(IN,"/なんとか/test.cgi|");
@file = <IN>;
close(IN);
print @file;
だと出来るのに

open(IN,"/なんとか/test.cgi?hoge|");
@file = <IN>;
close(IN);
print @file;
だと「sh: /なんとか/test.cgi?hoge: No such file or directory」と表示され開けません。
どなたかご教授ください。

コマンドラインからの引数の渡し方を勉強しなさい。

このすれ用の、質問->解答の流れを登録できるサイトを作ろうと思うんですが、どうでしょ？

意味わかんね。

>>645
失敗する、間違いない。

２ちゃんの掲示板だからこそ、人が集まりこういう流れが成立してる。
他スレでもそういう案は見かけるが、大抵が誘導に失敗し元に戻る。
Q&Aのデータベースなら活用されるとは思うが。

>>647
なるほど。　まぁ、暇つぶしにシステム考えてみます。

FAQ集なら歓迎。

>>648
ム板のＰｅｒｌスレにもそんなことをやろうとしたヤシがいたが、結局公開に至らず。
日本人って熱は冷めやすいから、飽きたんだろうね。
そういうことなので、>>648にはごく基本的なシステムでとりあえず公開することをきぼん。
その上で突込みが入れば修正すればいいんだし、自分で修正できなかったらここで質問すればいいんだし…

>>648
Wikiなら暇な人が触ってくれると思われ

ここでは失敗する気がする。
ちょっとしたシステムの不満でもみんな吐きまくるぞ。
そして最後には自分で作った方が早いとなっていく。
他人のシステムで満足できるような人間はこのスレにあまり来ないだろうし。

やるんだったらいっそ逆にPerl使わないほうが安全かも。
もしくはこのスレ住人の力を結集して作っていくか。

>>645
俺はめんどくさいしやる気も無いのだが、まずは
過去ログを全検索して一覧表示できるようにっつうのは？
あとは>>をみてリンクツリー構成表示するとかね。
手動なんて絶対力つきるしPerlスレなんだからPerlつこて自動化すれ。

パンチ5分の2に荒らされるのでは？

>>644
盛り上がっているところすいません
open(IN,"/なんとか/test.cgi hoge|");
として受け取るtest.cgiに@ARGVを使うということでしょうか？
test.cgiに手を加えないで出来る方法があったらその方がよいのですが無理ですか？

open(IN, "env QUERY_STRING=hoge /path/to/test.cgi |");

掲示板作ってるんだけどさ…
AUだけ

掲示板に書き込んだ→書き込み完了画面表示→戻るリンク（その掲示板のトップへ行く）

この最後の戻るリンクをクリックすると、また書き込みしちゃうんだけど、どうすれば対処できるんでしょうか？
imode、vodafoneはちゃんと掲示板のトップに戻ってくれるんですが orz

>>657
>>1
http://www.au.kddi.com/ezfactory/

>>658
だめなんです、解決方法が載ってないんです orz

SMART! ウェブ講座の中の人たちはいつまで江ノ島旅行に行ってるのですか？

ソケットを使ってどこかのHTMLを取得し、それを加工して表示する
というプログラムを書いています。
少々疑問に思ったのですが、ソケットでHTMLを獲得するのと
ウェブブラウザでHTMLを獲得するのとでは何が違うのでしょう？
処理するのがユーザ側かサーバ側か、の違いと見て良いんでしょうか。

>>661
ブラウザも同じソケット通信してるから、同じこと。
そのようにサーバ側でソケット使おうとユーザ側で使おうと
どちらもHTTPクライアントリクエストをｗｗｗサーバに対しておこなっている

変数の名前を変数にしたい場合はどのようにすればよろしいでしょうか。
PHPなら$foo = "val";のとき$$fooで$valにアクセス出来ますが,Perlはちょっと違いますか？

$val = "hoge";
$prm = "val";
print $$prm; #「print $val;」と同じ結果

$val = "hoge";
$HASH{'prm'} = "val";
print $$HASH{'prm'}; #ダメ

ブレースでくくれば同様にできるよ。でも必要性を感じない。

訂正します。use strict;だとCan't use string ("val") as a SCALAR ref while "strict refs" in use at...などと怒られます。

use strict;
my $val = "hogehoge";
my $prm = "val";
print $$prm; #だめ
print ${$prm}; #これもだめ

絶対にシンボリックリファレンスでないとダメなん？
他のアプローチを考えたほうが早いと思うが…

他にはどういうやり方があるのでしょうか？

use strict;
my $prm= 'val';
my $$prm= 'hoge';
print $$prm;

or

#use strict;

no strict 'refs';

>>669
それでもダメでした。あきらめます。

myで宣言するローカル変数はシンボリックリファレンスの対象にならないから

my $$prm= 'hoge';

なんてのは無理ってもんだろう。

２次元配列を関数内で作成しその戻り値を受け取りたいのですがうまくいきません。
どうすればいいのでしょうか。
以下のようでは空っぽのままです。

--

$test = &hairetu;
print $test[0][0];
print $test[1][1];


sub hairetu {
$box[0][0] = 0;
$box[0][1] = 0;
$box[1][0] = 0;
$box[0][2] = 0;
return $box;
}

訂正
×$box[0][2] = 0;
○$box[1][1] = 0;

$test = &hairetu;
print $$test[0][0];
print $$test[1][1];


sub hairetu {
$box[0][0] = 0;
$box[0][1] = 0;
$box[1][0] = 0;
$box[1][1] = 0;
return \@box;
}

>>672
$test = &hairetu;
print $test->[0][0];
print $test->[1][1];


sub hairetu {
$box->[0][0] = 0;
$box->[0][1] = 0;
$box->[1][0] = 0;
$box->[0][2] = 0;
return $box;
}

>>675
ありがとうございました。
無事思うような動作が出来ました。

＿|￣|○

>>662
するとソケットを使用したHTML取得CGIをAと言うサーバに置いた場合
ブラウザからCGIを呼び出すと
ブラウザ→CGI→HTML　（→はリクエスト）
となるのではなく
ブラウザ→HTML
となるのでしょうか？
CGIを置いたサーバに負荷が掛かりそうでちょっと尻込みしているのですが
サーバ側に負荷は行かない、のかな？

そりゃ多少の負荷はかかるでしょ。
でもそんなこと言ってたらCGIは何一つ動かせない。
それ以前に、ソケットの使えないところも多いけどね。

>>678
> ブラウザ→CGI→HTML　（→はリクエスト）
が正解。
cgiがプロキシのような役割をするわけやね。

>>657
戻るリンクの代わりに戻るフォームもしくはｌｏｃａｔｉｏｎで飛ばす。
でいいような気がするけど確信はない。
いい加減な情報でスマソ。

残念ながら携帯はlocationでのリダイレクトに対応して無い物が多いよ。

まず全角というところに突っ込みを入れたい

EUC-JPの機種依存文字が変数に含まれているかどうか
調べるにはどうしたらいいの？

携帯の動作なんか考えたこと無いな

>>663
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlref.html

>>684
http://www.din.or.jp/~ohzaki/perl.htm#Character

リファレンスとデリファレンスがどうしてもわかりません。
詳しく載ってる本やサイトってないでようか？

何が解らんの。
ラクダ本とか perlref じゃ駄目?

>661
ブラウザで個人的に見るのは著作権的に合法。
ソケットでＣＧＩで取得して不特定多数に閲覧可能な状態にしてしまうのは著作権的に違法。

>>689
公開http proxyが違法という主張?
anonymizerは? exciteやinfoseekのweb翻訳は?

今、このスレを見つけて１から読んでいるが
「恥知らず」という言葉を思い出したよ。

＞「でも、本当に簡単なミスでも、指摘されるまで気付かないことだってありますよ。 」

簡単なミスに、指摘されるまで気付かない事自体
恥ずかしい事と思わなかったのか？

そういう台詞を言う事自体「甘え」だと思わなかったのか？

ちゃんとした大人なら、そんな甘えた台詞は恥ずかしくて言えないものだが。

こういうやつが設計をやると、三びし自みたいな日さんな事故がおきるんだろうな。

今頃レスしてるのも恥ずかしいと思うけどな。

変に行間空けるのも恥ずかしいと思うけどな。
文章に自信が無いから飾ってるだけ。

ファイルの読み込み時にも排他処理は必要なんでしょうか
他人様のスクリプトを見てみたところ
ロックしている方もいますし、ロックしていない方も居ます。

>>694
書き込んでいる真っ最中のデータを読み込んだり、
読み込んでる最中に書き込み始めたりしてもいいのなら
読込時に排他処理は不要。

「共有ロック」なんてのも調べてみると吉。

>>695
やっぱり書き込んでいる真っ最中のデータを読み込んだり、
読み込んでる最中に書き込み始めたりしちゃうわけですね。
システム側でなんとかしてくれるのかと思ってました。

共有ロック、取り入れてみたいと思います
ありがとうございました

Location ヘッダは、Locationヘッダをブラウザに返しブラウザが指定したファイルに飛ぶのか、
サーバーがLocationヘッダで指定されたファイルを返すのか、
どちらでしょう？　どちらでもなければ、それを教えてください。

>>697
前者

すいませんが、コンパイルの仕方を教えてくれないでしょうか？
サーバをテストに使ったらファイルが消えた時に責任取れないんで
ローカルでテストしたいんですがどうすれば・・・

Perlはコンパイルせずとも動きますが。

MySQLをPerlから操作しようとしました。
そしたらinstall_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC ...
とエラーがでました。
恐らくモジュールが入ってないのかと思いますが
どうすればインストールできるでしょうか。
一応、Msql-Mysql-modules-1.2219と言うのをDLしてきましたが
root権限など持っていないので説明にある方法ではインストールできません。
cgiとおなじフォルダにmysql.pmを置いてやれば動くような気もしますが
取り敢えず/mysql/libの中身をまるごと置いてやっただけでは動きませんでした。

テキストファイルに書いたプログラムをデバッグする方法が知りたいのです

>>702
winのローカル環境で動かしたいなら
http://x-web.pobox.ne.jp/fcgi/fcgi_01.html
が分かりやすいと思います

>>694-702
スレ違い

では、私はどこへ行けばいいのでしょうか？
とりあえず上のリンク先には行ってきましたが・・・

http://pc5.2ch.net/test/read.cgi/php/1078991985/l50

この人のところに文法チェッカーが配布されとる

<!--user-->という文字を、<a href="$usaddress">（$usaddressは変数展開される）
という文字に変換したいのですが、
$line =~ s/<!--user-->/<a href="$usaddress">/g;
では変換されません。
どこが間違っているのでしょうか？

>>707
Perlがこわれています。再インストールをしてください。

>>699
ActivePerlでぐぐれ。

>>708
それってマジレスですか？

おれ708じゃねーけど、手元のperlではこうなるからな。
これは普通には変換されているというと思うのだが。

% cat user.pl
$usaddress = "foo";
$line = "<!--user-->";

$line =~ s/<!--user-->/<a href="$usaddress">/g;

print $line, "\n";
% perl user.pl
<a href="foo">

http://sumiro2.hp.infoseek.co.jp/cgi-bin/abc/bbbs.cgi
の掲示板なのですが、専用アイコン以外の普通のアイコンが表示されません。
中身は↓のようになってます。どうしたらいいのか、教えてください。お願いします。
http://sumiro2.hp.infoseek.co.jp/afraid/bbs.txt

>>712
ここはコーディングスレなのでスレ違い。

うぅぅぅ・・
すいません・・・

>>714
スレ違いだが、たらい回しにされて可哀想なので一言・・。
http://sumiro2.hp.infoseek.co.jp/afraid/bbsimg/ここにアイコンを格納。
>$imgurl = "./img/";
を
>$imgurl = "http://sumiro2.hp.infoseek.co.jp/afraid/bbsimg/";
に変更。

( ﾟдﾟ)ﾊｧ？

>>711
すいません、１からそのように書いたら動きました。
なんか全角スペースかなにか入ってたのかもしれません。
ありがとうございます

電気ストーブが出来たんですが、鯖エラーになります。どこを修正したらいいんでしょうか

http://pc5.2ch.net/test/read.cgi/php/1010583350/68

コンソールでperl -cw stove.plとしてチェックしても
特にエラーは出ていません。

しかし、Windows2000 + Apache2 + perl5.6.1では
鯖エラー500が出てしまいます。
どの辺がまずいのでしょうか？

flock とか使ってたりして・・・

コマンドプロンプトで
perl stove.pl
としたら、ｈｔｍｌのソースが表示されました。
これはサーバの問題でしょうか？
それとも、ソースに不備があってもコマンドプロンプトでは表示されるんでしょうか？

ＣＧＩの拡張子設定が .pl になってないんじゃ？

あ、stove.plは
http://pc5.2ch.net/test/read.cgi/php/1010583350/68-69
に分けて貼ってあるソースです。

>>718
http://www.rfs.jp/sitebuilder/perl/03/02.html

なんかふざけたやつだな。
答える気にならん。

>>722
アドバイスありがとうございます。
拡張子設定はｐｌになっています。

>>724
ありがとうございます。
よく読んでみます。

>>724
print "Content-type: text/html", "\n\n";

が抜けていた為だったようです。

おかげで、エラーは出なくなりました。
しかし、ONボタンを押してもストーブが付きません。
なぜでしょうか？

自己レスです。

’O N'などとスペースを入れてしまっていました。
ONに直して動くようになりました。

�@$hoge->a='1';
�A$hoge->a('1');
�Bif ($hoge->a eq '1'){

}
�@左辺値としても使えて、$hoge->{'a'}に'1'をセットする
�Aみたいに引数で$hoge->{'a'}にセットできて
�Bみたいに引数が与えられない場合$hoge->{'a'}の値を返す
ようなメソッドを書きたいのですけどどうやったらいいのか判りませんです
どっかで見た気がするけど見つからないです
気が向いたら教えてくださいまし

>>729
http://perldoc.com/perl5.8.4/pod/perlsub.html#Lvalue-subroutines

require 5.006;

sub Foo::foo : lvalue {
　　my $self = shift;
　　@_ and $self->{'-foo'} = shift;
　　$self->{'-foo'};
}

my $obj = bless {} => 'Foo';
$obj->foo = 'foo!'; print $obj->foo; # foo!
$obj->foo('bar!'); print $obj->foo; # bar!

質問です。
配布しているcgiに以下の記述がありました。
2ch型掲示板でID生成部分の一部です。

> $id = crypt($identify,"${year}S\.E${mday}X${mon}");

crypt関数への第二引数の部分で、「S」や「\.」、「E」、「X」はただのノイズ用文字なのでしょうか？
\記号が含まれてるため何か意味を持つのではないかと思い質問いたしました。

引用元 ttp://www.toshinari.net/ 「2chブラウザ対応掲示板」

>>731
http://perldoc.com/perl5.8.4/pod/func/crypt.html
http://www.linux.or.jp/JM/html/LDP_man-pages/man3/crypt.3.html

>>729
Attribute::Property
http://search.cpan.org/~juerd/Attribute-Property-1.05/
とかも。」