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

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

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

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

関連スレ
【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 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

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

［過去ログ] 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.datOpen
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/test/read.cgi/php/1053051519/
part24 http://pc2.2ch.net/test/read.cgi/php/1054992610/
part25 http://pc2.2ch.net/test/read.cgi/php/1056730690/

[ひまぢん氏のミラー]
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

[総合]
　・Perl Com: http://www.perl.com/pub/Open
　・CPAN.com: http://search.cpan.org/Open
　・ActivePerl: http://www.activestate.com/Open
　・CGI-ML:http://forest.ne.jp/cgi-ml/Open

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

[Document&Tutorial]
　・Home - Japanized Perl Resources Project: http://perldocjp.sourceforge.jp/
　・Perl News: http://www.news.perl.org/Open
　・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.htmlOpen
　・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/Open
　・The Perl Archive : http://www.perlarchive.com/Open
　・Perl6 & Parrot VM についての情報: http://dev.perl.org/perl6/Open
　・use Object; : http://perl.infoware.ne.jp/Open

[Document&Tutorial]
　・Home - Japanized Perl Resources Project: http://perldocjp.sourceforge.jp/
　・Perl News: http://www.news.perl.org/Open
　・Perl Monks: http://www.perlmonks.org/Open
　・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/Open
　・Rex Swain's Home Page: http://www.rexswain.com/Open
　・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.htmlOpen
　・Perl Tuts: http://savage.net.au/Perl-tutorials.htmlOpen
　・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htmOpen
　・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.htmlOpen
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/Open
　・The Perl Archive : http://www.perlarchive.com/Open
　・Perl6 & Parrot VM についての情報: http://dev.perl.org/perl6/Open
　・use Object; : http://perl.infoware.ne.jp/Open

[Module]
　・Perl Module Reference: http://www.bekknet.ad.jp/~bero/docj/module_/ (404)
　・PPMPackages: http://www.activestate.com/PPMPackages/
　・河馬屋二千年堂's Page: http://member.nifty.ne.jp/hippo2000/index.htm

[Security]
　・安全なプログラミングのためのガイドライン：http://www.FreeBSD.org/ja/security/#spg
　・Perl security：http://www.perldoc.com/perl5.6/pod/perlsec.htmlOpen
　・Perl security和訳：http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsec.htmlOpen
　・CGI and Security http://www.ansi.co.jp/tech/cgi/security/Open
　・The Unofficial Web Hack FAQ：http://www.nmrc.org/faqs/www/
　・How to Write Secure Code：http://www.shmoo.com/securecode/
　・Safe CGI Programming ：http://www.improving.org/paulp/cgi-security/safe-cgi.txtOpen

[OS]
　・Linux日本語マニュアル：http://www.linux.or.jp/JM/Open
　・FreeBSD日本語マニュアル：http://www.jp.freebsd.org/man-jp/Open

前スレ

http://pc2.2ch.net/test/read.cgi/php/1059043704/l50

立てといたが、藻前ら、荒すんじゃねｰぞ

つーか、荒してるのひとりだけだし、こまめに削除依頼出せばいい

あぼーん

http://pc2.2ch.net/test/read.cgi/php/1012750353/243
>%aa=("hanako","12","tarou","20","ichirou","5");
>となっているとします。
>キーが名前で値が年齢なんですが、
>年齢でソートし表示させる場合、
>ichirou 5
>hanako 12
>tarou 20
>とするにはどうすればいいのですか？

http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlfaq4.html#How_do_I_sort_a_hash_optionally
クックブックレシピ5.9

演算子を間違わないよう注意。

あっと、演算子でしたか…。

演算子は数値なので、<=>を使用。

PHPのrawurlencode関数（RFC1738に基づきURLエンコードを行う）
http://php.planetmirror.com/manual/ja/printwn/function.rawurlencode.php
と同じことを、perlでやりたいのですが、
どのようにくめばよいのでしょうか？

s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge;
s/\s/+/g;

s/\s/+/g
は、
s/ /+/gでは無いので注意しましょう。この場合は問題は起きないけど。

今、深沢千尋氏の書いた『すぐ分かるPerl』を元に勉強しているのですが、
その中の、第五章『プログラムにデータを渡す　〜引数〜』という章で、

#! /usr/local/bin/perl

print "$ARGV[0]\n";
print "$ARGV[1]\n";
print "$ARGV[2]\n";
print "$ARGV[3]\n";
print "$ARGV[4]\n";

に"love"という引数を与えてみましょう。

と書いてあるのですが、どうやれば引数を与えられるのでしょうか。
OSはWindowsXP、エディタはTeraPadを使っています。
よろしくお願いします。<(_ _)>

>>16
@ARGV　は実行ファイルに対する引数。
ファイル名を aya.plとした場合、

aya.pl love

で動くでそ

>>14
ありがとうございます。
ところで、>>14 を見て逆に、
googleで「エンコード perl unpack」で検索していくつかのページを見たんですが、
s/ /+/g; とやってるところしか見あたりませんでした。

>>15の意図はどんなところにあるのでしょうか？

[0-9A-Za-z_ ] 以外は変換済みなので\sに該当するものは
空白しかないけど、本来の目的ではTAB等も+に変えたかった
ってことじゃねーの？あまり深い意味は無い

>>17
レスありがとうございます。
早速ファイル名を aya.cgi love にしてFFFTPを使ってトクトクに送り、

あなたのアクセスしたファイルは、
アクセスする権限が与えられていないか、
もしくはindex.html 又は index.htmが存在しません。

と表示されました。
お手数ですが、他に方法は無いでしょうか。よろしくお願いします。

補足
＊拡張子 .pl だとこのＣＧＩのダウンロードが始まり、駄目っぽいので、元通り拡張子.cgiで試してみました。

＊#! /usr/local/bin/perl と書きましたが、これは本の中にこう書いてあるだけで、実際には　#!/usr/bin/perl
　であり、Tok2.comに送ってやっとります。　説明不足スイマセン。

面倒くさいからこれでいいだろ
s/(\W)/'%' . unpack('H2', $1)/eg;

半角スペースは当然 %20 に変換される

>>20
共有サーバでそんなテストなんかするな！
自分のPCにperlとhttpd入れてやれ

それにやってること丸っきり的外れ

>>20
「すぐわかるPerl」なら
1.1Perlは入っているか？
をじっくり読んでみてください。

>>19
URLエンコードは本来不可逆だってこと？

>>20
トクトクから損害賠償請求が来ますよ？

>>20

つまり、おまえみたいな馬鹿は二度と来るなってこと。
すげー迷惑。人のことも考えろ、ハゲ！！

#!/usr/bin/perl

# CGIヘッダの出力
print "Content-type: text/html\n\n";

while($HP1 > 0) and ($HP2 > 0){
srand1;
srand2;
}

# Player1
$HP1 = 400 - $kougeki1;
$KIK1 = 60;
$PAN1 = 20;
$DF1 = 10;

# Player2
$HP2 = 300 - $kougeki2;
$KIK2 = 100;
$PAN2 = 40;
$DF2 = 0;

# Player1
$kougeki1 = srand;

# Player2
$kougeki2 = srand2;

srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN1'} - $defense->{'$DF2'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK1'} - $defense->{'$DF2'};
}

srand2;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN2'} - $defense->{'$DF1'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK2'} - $defense->{'$DF1'};
}

($damage < 0) and ($damage = 0);
$defense->{'HP1'} -= $damage;

($damage < 0) and ($damage = 0);
$defense->{'HP2'} -= $damage;

# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えた。</p>
<p>Player1は<big>$kougeki1</big>のダメージを受けて混乱した。
<p>Player1は<big>$kougeki1</big>のダメージで友達のトイレではみ出したクソをし始めた。
<p>Player2は<big>>$kougeki2</big>のダメージを与えた。</p>
<p>Player2は<big>>$kougeki2</big>のダメージを受けて裸踊りを始めた。
<p>Player2は<big>>$kougeki2</big>のダメージで友達の女にレイプし始めた。</p></p></body>\n";
print "</html>";

あぼーん

あぼーん

socket (SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
このように、socketで作ったSOCKハンドルのポインタ操作はでき
ないのでしょうか。
どこで操作しても、ポインタは「-1」となっております。

理解不足で申し訳ありませんが、宜しくお願いいたします。

>>32
ポインタ操作って何？

>2： それでこんな風にやってみたが･･･

ここを具体的に。

>>20
やってることは10章の内容です
もう少し本を読み進めてから取りかかってはどうでしょうか

>>32

操作をすることはできません。
Perlをやってる奴はおまえさんみたいなオタクが多い。
オタクはきもいから、気づかないんでしょうね。

>>20
perl = cgi ではない。
お前さんがまずしなければならんのは、自分のパソコンにperlをインストールして
コマンドラインさっきのコマンドが実行するかを確認することやね。

この文章読んでわからんようであれば、あらしと取られかねんからそのつもりで。

#あと、perlをどうやってインストールしたらいいですかなんてことは聞くなよ(w

 

Perlの
s./// と tr///
の違いがいまいちわからないのですが、どういう違いがあるのでしょうか・・・

sub get_select_form{
my ($name, $selected) = @_;
my ($key, $form);

$form .= '<select name="' . $name . '">' . "\n";
foreach $key (sort keys %{$name}) {
if($key eq $selected){
$form .= '<OPTION value="' . $key . '" selected>' . ${$name}{$key} . '</OPTION>' . "\n";
}
else{
$form .= '<OPTION value="' . $key . '">' . ${$name}{$key} . '</OPTION>' . "\n";
}
}
$form .= '</select>' . "\n";

return $form;
}

このようなselectボックスを生成するサブルーチンを作ったのですが、
sort keys %{$name}
のところで「〜HASH ref while "strict refs"〜」と怒られてしまいます。

no strict;は使いたくないので、何かよい解決策があれば教えてください。
すみませんが宜しくお願いいたします。

>>38
たとえば $_='ABCDECBA' あたりで
s/ABC/123/
と
tr/ABC/123/
を試してみれば分かります。

えーと、前にも一応お世話になった者で基本的な質問で悪いんですが、
配列に格納されているすべての文字列の先頭にある文字列を連結させたいんですが
下記のコードではうまくいきませんでした。
実際は頭に付ける文字列を変えて何回もこの処理を繰り返すのですが、
（サブルーチンにして、↓の例の$push_wordは引数として受け取る）
二回目からは、前回頭に付けた文字列と$push_wordを頭につけてしまいます。
簡単な応用技術ですがご教授願えたら幸いです。

【理想】
@bar = ("gg","dge","mpire","ncode","nglish")
を
@bar = ("Egg","Edge","Empire","Encode","English")
とするような処理（配列名barに意味はなし）

【こうしてみた】
（@barを定義した後、）
my $push_word = "E";
foreach (@bar){
　　　my $a = $push_word;
　　　$a .= $_;
　　　$_ = $a;
　　　　　　　　　　}
print "@bar";

2chみたいに、一度ポートチェックをする掲示板を作りたいのですが
if (connect (SOCK,sockaddr_in($target_port, $addr))) {

®ist;

}else{

&error();

}

みたいにしたのですが、テスト運用してみると
途中でｽｸﾘﾌﾟﾄごと落ちることがあり悩んでいます。
どのようにしたら、安全な処理ができますでしょうか?

®ist;
エスケープしてませんでした。
&regist; と書いたつもりです。

あれ？ &regist;です

>>41
my @bar = ("gg","dge","mpire","ncode","nglish");
my $push_word = "E";

print map $push_word.$_, @bar;

漏れも勉強中なので自信ありませんが
こんな感じでどうでしょうか？
結果はEggEdgeEmpireEncodeEnglish

>>39
引数がちょっと無茶じゃない？普通に考えて、
・selectの名前
・selectedにしたいもの
の他に、

・option要素のハッシュ
が必要でしょ。

例えば
<select name="chara">
<OPTION value="giko" selected>ギコ</OPTION>
<OPTION value="mona">モナー</OPTION>
</select>
を作るとして、その関数だと get_select_form("chara", "giko")を
呼ぶときに、グローバルの %chara にOPTIONの要素を入れておく
ってことになるけど、それって変じゃない？

引数リストを $name, $selected, $ref_values （順不同）みたいにすれば
いいと思うよ。

>>45
すばやい回答ｔｈｘ。
print map　〜ってのってどういう意味？map関数ってとほほに載ってないんだけど…

あと、注文多くて悪いんだけど、Ｅを追加した後の@barが欲しいんだ。例で書いた最後の@barはおまけみたいなもん。ごめんな

>>47
@bar map{ 'E' . $_ } @bar;

mapはぐぐって調べるぐらいはするこった・・・

>>39
ソフト(シンボリック)リファレンスをやめて、リファレンスを使う。

>>41
foreach使うなら

foreach(@bar){
$_ = $push_word. $_;
}

mapは、リストを受けて、処理を行って、リストで返すパイプみたいなもの。
perldoc -f map

# >>48 '=' 抜けたね。

>>42
エラーかシグナルか、落ちる原因をはっきりさせてから対策を立てる。

>>49
おうっ、盲点でした。
今は見えてる点のほうが圧倒的にすくないけどなｗ

>>42
bbs.cgi 再開発ﾌﾟﾛｼﾞｪｸﾄ
http://qb.2ch.net/test/read.cgi/operate/1053067870/508 ぐらいから参照（ｗ

>>45

３行目に
open (IO,"+<$logfile");
７行目に
while (<IO>){
　if ($_ =~ /<>$ip/){
　　@y2=split(/<>/,$_);
　　if ($y2[6] ne $ip){
　　　push(@log,$_);
　　}else{
　　　$y2[0] = 'All Clear (^-^)v';　　#消去後の名前
　　　$y2[5] = 'All Clear (^-^)v';　　#消去後のメッセージ
　　　push(@log,"$y2[0]<>$y2[1]<>$y2[2]<>$y2[3]<>$y2[4]<>$y2[5]<>$y2[6]<>$y2[7]<>\n");
　　}
　}else{
　　push(@log,$_);
　}
}
１１行目に
truncate(IO,0);
seek(IO,0,0);
print IO @log;
close (IO);
&reload2;
}
を入れると直ります。

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

perlスクリプトを書いたのでそれをDLLファイルにしたいのですが。
あと、できればサブルーチンがそのままDLLの関数になるようにしたいのですが。
どういう風にすればよいのでしょうか。
環境はWinMEでActivePerlです。

>>61
できるの？初耳

　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

>>49
そうですね。落ちる原因を考えて出直してきます(ｺﾅｸﾃｲｲｶ

お早うございます。
初めてこのスレ来ました
レベル低すぎ

じゃあサヨウナラ

my %hash = (
5 => 5,
10 => 10,
15 => 15,
30 => 30,
50 => 50
);

このようなデータを

foreach my $key (sort keys %hash) {
print $key;
}

このようにsortすると、

10
15
30
5
50

となりますよね。

この5が一番上にいくような効率のいい方法はないもの
でしょうか。

>>66
sort {$a<=>$b} keys %hash

>>66
sort {$a <=> $b}

>>66
sort {$a<=$b>=$KIK} keys %doragonash

の方がうまくいきますね。それよりもあなたの知性の低さは迷惑です。
早く首吊って死んでくれることを祈ってます。

>>67-68
こんな遅い時間に二人も答えてくれるなんて、ホントここは
いい人がいますね。

本当にどうもありがとう。

あぼーん

>>69
ごめんなさい。
だけど、親切に答えてくれて、本当にどうもありがとう。
感謝してます。

あぼーん

あぼーん

あぼーん

こんなかんたんな問題に答えラれなれないなんて、なんてクズなところでしょう。
本当、ここはくさった人間しかいませんね。とっとと死んでください！！

削除依頼を出しまくっているやつは荒らしか?
かちゅ使用者には迷惑だって言っているだろうが。

あぼーん

>>46,49
返事が遅れてしまい、すみません。
ハッシュのリファレンスを使うことにより、無事解決
いたしました。
本当に有難うございました。

あぼーん

あぼーん

あぼーん

>>77
削除依頼よりかコピペ荒らしで挙げれば規制対象になるのにねぇ。。。

SQL文のデバッグなどで、printとは別にどこかへ変数の内容などを出力する場合、
どのような方法が考えられるでしょう？

あぼーん

>>62
お答え、ありがとうございます。
できるとは最初から思ってはいませんでしたが。
C言語とかでDLL書くのめんどくさいのでperlでかけたらなぁって。
とりあえずまずはperlcc使えるように環境を整えようかと思っております。
なぜか僕の環境、Cプログラムは吐き出すんですがコンパイルしてくれなくて。
しかもそのプログラムをコンパイルしてみるがエラー続出。
どうなんだ、LarryWallよｗ
仕方がなく自分でエラー部分を書き直してるのですが。
なんとかまともなCプログラム、吐き出させられないですかね。
ちなみに環境はWinMeでActivePerl、CコンパイラはDev-C++(GCC系)とBCCです。
解決方法がありましたら、教えてください。

VC++を使う。

>>83そう思うなら、おまえがコピペ荒らしとして規制依頼しろよ。できねーくせにガタガタぬかすな

ＫＥＮＴのネットクルーザーで
検索部分を改良したい。
英語の半角、全角をともに検索するには
どうしたらいいのでしょうか？

>>89
【 スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

1： 自分はこう言う事がしたい。
http://server/program.cgi/hogeというのを、http://server/hogeで見れるようにしたい
2： それでこんな風にやってみたが･･･
.htaccessに「ErrorDocument 404 /program.cgi」と追加。
3： こんなエラーが出て上手く行かなかった。
エラーは出ないけど、404エラーなので、エラーログがたまっていく・・・

どなたか助けてくださいm(__)m

ErrorDocument 404 /nph-test.cgi
だと、ヘッダに404となってしまうので、
ファイル名をnph-program.cgiにして、「print 'HTTP/1.0 200 OK'."\r\n";」とヘッダに追加。
でも、エラーログが（ｒｙ

>>91
DirectoryIndex
スレ違いなので後は自分で調べな。

>> 93
DirectoryIndex DirectoryIndex nph-program.cgi
と記載してあります。
やっぱプログラム側の問題じゃないからここじゃ駄目ですね。。。

ｺﾋﾟﾍﾟ荒らしにﾏｼﾞﾚｽ。
残り少ない夏休みを2chでｺﾋﾟﾍﾟ荒らしするだけに費やす気みたいだけど、
入門本くらい一通り読んで初心者ﾚﾍﾞﾙに到達してから来てね。

>>86
perlをＣにﾄﾗﾝｽは完全に出来ませんし
できたとしても使い物にはなりません（実行ファイルは馬鹿でかい）
あきらめたほうがいい
XSをつかうかswigをつかうか
perlのソースコードを書き換えるかしてください

Win32系のモジュールで直接DLL関数に引数はわたせます

>>84
コメント扱いで出力。htmlなら<!-- -->内に埋め込む。batならremの後ろに書く。
自分でファイルをオープンして書き込み保存。
syslogに飛ばす。
変数デーモンを作成して、そこへの接続を全て記録。

>>91
そう言う用途にはapacheのモジュールのmod_writeを使うと便利。
が、確実にスレ違いなのでそれ以上言わない。

mod_writeじゃねーよ＞ｵﾚ
mod_rewriteね。

googleでmod_rewriteで探してきます。
Apacheの板orスレってあったっけ？（−−

>>99
この板にも自宅サーバ板にもUNIX板にも

>> 100
おお。..._〆(ﾟ▽ﾟ*)メモメモ
ありがとうございました
それではいってきます（ｗ

/htdocs/.htaccess: Invalid command 'RewriteEngine', perhaps mis-spelled or defined by a module not included in the server configuration
こんなエラーから進めない（；；

>>99
mod_rewriteが入っていない可能性が出てきたので他の方法ってありませんか？

>>103
すれ違い

>>97
>コメント扱いで出力。htmlなら<!-- -->内に埋め込む。batならremの後ろに書く。

……コロンブスの卵(^^;　そーか、SQL実行しないでこーすればいいのか（汗）
アドバイスありがとうございました。

あと、「syslogに飛ばす」っつーのは、具体的にどうすればいいのでしょうか？
厨で申し訳ありませんが、ヒントなど頂ければ幸いです。よろしくお願いします。

>>105
qx{/usr/bin/logger -s "Virus warning: uploader:[$host]:Detected $1 and deleted."};
みたいな。

>>105-106
標準モジュールに Sys::Syslog というものが…。

>>95

もう、動かないからあきらめた

このスクリプト、どうもみても初心者のじゃねーよ

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

質問スレが珍しく荒れてるな〜と思ったら、全部　メール欄???　の仕業かい！ｗ

お。なるほど。メール欄であぼーんすればよかったのか

……syslog.phってどーやってつくればいいのでせう？＜厨なアタシ(T_T)

それはさておき、「Can't locate Date/Manip.pm in @INC〜」なんてエラーが出てきました。
CPANで「Install1 Date」はしたのですが、他になにかしなければならないことがあるのでしょうか？
重ね重ねで申し訳ありませんが、よろしくお願いします。

>>117
一々作らんでも @INC に入ってない? UNIX系OS以外は知らんけど。
作るなら h2ph で。

見つからんって言われてるんだから、入れればいいじゃん。:-)
http://search.cpan.org/author/SBECK/DateManip-5.42a/

十進数の数字があり、それを出力する時16進数にしたいのですが、
どのように変換すれば良いのでしょうか？

すみません、かなり初歩的な質問ですがお願いします。

sprintf

%x

>>118
Date::Manipは入りました。……単純に「install Date::Manip」でOKなんですね。
厨でごめんなさい(T_T)

あぼーん

>>119
printf("%x", $a);
とか
$s = hex($a)
とか

返信遅れてすみません。

アホな質問に答えてもらって、とってもありがとうございました。
m(__)m

ディレクトリ作成するときって
mkdir("mydir",0700);
のようにパーミッション指定できるが、
open(fp,">output.txt");
ってやって書き込むとパーミッションが自動的に644になります。
これを600にするにはどうしたらいいでしょう？？？

っつってもあとでchmodすればすむことなんだが、
open時に600にするようにできればしたい、

>>126 umask

>>126

いったんファイルを削除します。それからディレクトリで呼び出すを選ぶと
復元できるので、その設定でパーミッションを設定すると固定できます。

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

>>126
IO::Fileモジュール使うとパーミッションを指定しながらオープンできます。
(sysopen互換のO_XXX指定を使うとファイルロックしながらオープンできたり便利。)

大変参考になったぞ。
おめーらに感謝。

あぼーん

POP3サーバと接続してメールを閲覧するプログラムを
書きたいのですが、これをsocketモジュールを使わない
で行うことは可能でしょうか。

初心者ですみませんが教えてください。

>>139

Net::POP3

化膿。

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

X.cgiの中の、一部の数字を取り出したいのですが。
X.cgiの中身はこんなです

1,データＡ,データＢ,データＣ,
2,データＡ,データＢ,データＣ,
3,データＡ,データＢ,データＣ,

この中の、最後のデータの数字「3」を変数に入れたいのです。

open(IN,"X.cgi") ;
while (<IN>) {
$num = split(/,/);
}
close(IN);
print $num;

これ全然違いますが、$numに「3」が入ってくるようにしたいんです。
よろしくおねがいします。

>>149
splitの使い方がまちがっとる
$num = split(/,/); のすぐ下に print $num; を入れてみ。
その後で、splitの説明を読むとグー

>>149
$num = split(/,/); の２つ下に print $num; を入れる。
それからwhile (<IN>) {　をwhile($IN1 > 0)｛
に変える。
その後で、スクリプトを３の入るようにすればＯＫ。
上はどっかの馬鹿だから無視しろ。

あぼーん

あぼーん

あぼーん

あぼーん

>>126
おまえの脳みその程度もよくわかりました。
もう、二度と来ないでくださいね。すっごいむかつく！！
くだらん質問する暇あったら自分で調べろ！死ね！！

あぼーん

あぼーん

あぼーん

>>151 は例の荒しているヴァカだろ？

>>160
そうみたいだな

レス削除で削除人からコピペで依頼してくれってあったから、
運用情報のほうへ回そう
荒らしとしてアク禁しますっていうことなんじゃないか？

>>160
なんでアレは削除依頼に入れてくれないんだろう。

#! /usr/local/bin/perl

while(<STDIN>) {
　　　　print;
}

のようなフィルター（そのまま出力するだけですが（；´Д｀））を作った後、
DOSの場合、どうやって実行するんですか？

すごい初歩的な質問でスイマセン

Perlでﾊﾞｲﾅﾘﾌｧｲﾙに保存したいんだけど、なにかあります？

>>164
perlにパスが通っており、
それがtest.plというファイルなら、
test.plのあるフォルダにcdコマンドで移動し、
perl test.pl
と打ってEnterを押す。

とか、普通に答えてみる。

コーディングの質問じゃねー。

>>165
binmode( FILE );
print FILE $buff;

>>166
出来ました。ありがとうございます。
というかスレ違いでしたか、スイマセン。今から気をつけます。

>>165
>Perlでﾊﾞｲﾅﾘﾌｧｲﾙに保存したいんだけど、なにか(いいバイナリファイル)あります？
画像ファイルがバイナリファイルだろうね。

あぼーん

アクセス解析のCGI作ったんですけど、
フレームを使っている性で全部リファラがindexになってしまいます。
使っている鯖はSSIは使えませんし、.htaccessも使えません。

どうすればリファラが取れるんですか？教えてください。御願いします。

すれ違いだったらすいません。

>171
CGIスレ向き。

あぼーん

>>140
説明不足ですみません。
要はモジュールを使わずにpop接続を行いたいのです。

あぼーん

>>151
ありがとうございました。
ちょっとうまくいかないんですが（ＴＴ）
なんか根本的に判ってないかもしれないので出直します。
splitの勉強を・・・

>>174
一旦モジュールを使って望みの動作をするスクリプトを組み、
コードを全てインライン展開する。

>>176
>>151は荒氏だから参考しるな！
病気がうつるぞ〜。
splitの勉強汁〜。

荒ｸﾝを解析してみたよ。
・17歳童貞
・高校生だが、成績が追いつかず、学校でも苛められて現在引き篭もり中。近々退学予定。
・自己管理が出来ず、体系は肥満気味。お風呂に入らないので臭い。
・家族構成は共働き両親２人とペットのハムスター20匹（名前付き）
・起きている間は、ほぼインターネットを利用している。
・最近KENT-WEBからASKAを借りてきて、初めてPerlを知った。
・日ごろから、書き込む度に叩かれている某掲示板には恨みを抱いているようだ。
・もう2ヶ月ほど家族意外と顔を合わせた事は無い。

>>174ソケット使ってやるしかないですナァ…。

>>174
http://x68000.startshop.co.jp/~68user/net/
ここのサンプルはSocketモジュールを使ってるけど、
「サンプルがperl5専用なワケ」を読めば、すぐperl4対応
（->モジュール不使用）にできるはず。

しかし、なんでモジュールを使わずに？

>>179
まぁまぁ、そう自己紹介しなさんな。

>>128
ネタはマジレスの前にしましょう。

#!/usr/local/bin/perl
require './cgi-lib.pl';


%form = &read_input('euc');
$name = $form{'name'};

print "Content-type: text/html\n\n";
print "<html><head><title>結果</title></head><body>\n";
print "<p>名前：$name</p>\n";
print "</body></html>\n";

↑のようなスクリプト作ってANHTTPDを起動し、
実行しようとしても「サーバーがみつかりません」が表示されます。
何がいけないんでしょうか？

IO::File の使い方教えてください
日本語で解説してある際とがぜんぜんないもんで。

use IO::File;
my $fh = new IO::File('log.dat','r');　#読み込み
my $fh = new IO::File('log.dat','w');　#書き込み
my $fh = new IO::File('log.dat','r+w');　#両方

などでオープンできるとこまではわかったんだが、
このファイルから全部読み込む場合にはどうしたらいい？

my @array = $fh->read;　　　←　こんな感じでよいのかい？

あと、書き込むときは

$fh->print('文字列');

で、可能みたいなんだが、英語が四面からわからん。

>>184
perlコーディングとは「全く」関係無いですね。そのエラーから「推測」すると、
あなたのクライアントからサーバーが見れていないようです

> で、可能みたいなんだが、英語が四面からわからん。

こんな事言う様じゃ解答する気になれないな。
これを機会に読めるように辞書片手に必死こいて読んで見たら？

解答者の中にはそうやってスキルとか知識身につけてる人もいるんだから

>>184
httpdの設定を確認汁。

>>186,>>188
回答ありがとうございます。
でもANHTTPDは「CGIを実行する」にチェックが入ってます・・・

>>181
仕事でパッケージ化するかもしれないといわれたので、
完全オリジナルでなかったら何かと問題が出るかと思い、
質問させていただきました。
もともとは趣味で作ってたものなので。

標準モジュールは使っても問題ないのでしょうかねぇ、、、

>>189
どっちにしてもさっきのソースとは関係なし
ANHTTPDがちゃんと動くことを確認してから質問せよ

>>189
そもそもCGI以外はどうなのか。閲覧可能なのか。

>>189
板違いだ！ヴォケ！！二度と質問するな！クソ坊主！！

>>139
できねーっていってんだろ！馬鹿！！
おまえみたいなよく読まない奴は、うざいからさ。とっととどっか行ってくれない？
まじに迷惑なの、わかんない？？

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

>>174
getprotobyname
gethostbyname
socket
bind
connect
これらを使えばOK

bindはいらないと思う。

Date::Simple という、
日付のチェックを行う便利なライブラリがあったので
インストールしたんですが、なぜか使えません。

my $date = new Date::Simple(1999,12,31);

を実行すると

Undefined subroutine

というエラーが出ます。new関数が定義されてないとか言われ増す。ためしに

print $Date::Simple::VERSION;

とやってみたら、ただしく 1.03 と表示されたので、
ライブラリのパスが間違っているとかそういうことはないと思うんですが、
どうやったら使えます？

>>204
理由は？それに、「思う」とか不確実な表現されても理由も書かないんじゃ全然説得力無い

>>206
TCPクライアントなら必要なし。
http://www.kt.rim.or.jp/~ksk/sock-faq/unix-socket-faq-ja-3.html#ss3.6
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlipc.html#Internet_TCP_Clients_and_Servers

if($ran==6)
だと６の時という事ですが、
６以外と指定するのはどう書くんですか？

>>208
http://www5a.biglobe.ne.jp/~n_rieko/perl/5.htm

>>205
エラーの原因はそれだけでは分からんが、
Date::Simple の最新版は 2.04 だね。
http://search.cpan.org/author/JTOBEY/Date-Simple-2.04/

設置が超簡単で商用ＯＫのスクリプトを開発中

スクリプト１個でblogを作るスレ
http://s37.1000gex.net/test/read.php/pc/1061132998/

・２ｃｈブラウザはこちら

スクリプト１個でblogを作るスレ
http://s37.1000gex.net/test/read.cgi?bbs=pc&key=1061132998

>>211ブラクラ

>>211
1000gex って糞７じゃねーか

うちの2chブラウザだと、
＞ http://s37.ポン既知/test/read.php/pc/1061132998/ と表示されますが何か？

>>206
ﾜﾗﾀ 死ねや厨房

>>215↑糞7？

>>206
普通にｷﾓｲと思います。多分伊達眼鏡とかかけてる人。

>>205
useしてる？

・・・してないわけないか。

ちょうド素人でスマソ
重いPerl製CGIをサーバーに置こうと思ってるんですが、
少しでも動作を軽くしようと思っています。
そこでききたいのですが、Perlのコメント部分を全て消して余分な部分を少しでも減らしたら少しでも軽くなるでしょうか？
コメントを消したりしたら軽くなる、ってはなし聞いたことないんですが、実際のところはどうなんですか？
一応、少しだけでも軽くなれば目標達成なので。

２行目にexit;って入れたら最速になるぞ

>219
ナノ秒やピコ秒単位でなら早くなるかもね。

>>217糞７？

perlでファイルを新規作成するにはどうしたらいいのでしょうか？
書き込み時にファイルが存在しないとファイルが作成されるのは知ってるのですが、

unless (-e $datafile){
　　　　＜unlinkの逆＞ $datafile;
};

をやりたいのですが。。。

>>223
touch ちんこ

乱数の生成は分かるのですが、
パスワードの生成（しかも、使える文字は[a-z0-9]で大文字はなし）が
どうすればいいのでしょうか？

>>224
すいません。perlからunixのコマンド起動できないんです。。。

>>219

まず、ファイルを削除します。それから、ファイルの復旧を行って
オプションを、コメントなしに設定すると軽くなります。

>>223

板違いだから、ＷＥＢ板へいけ。邪魔だ。消えろ！

>>226
そんなエレガントな(?)関数は無いよ。

sub touch ($) {
　local *FH;
　my $ret = open(FH, ">>$_[0]");
　close(FH);

　return $ret;
}

>>225
乱数を細かく設定するには、ファイルの削除で削除してから
設定します。

>>226

そのパソコンはできないんだよ。
初心者の質問は違うとこでやってね。迷惑。うざい！死ね！！

>>223
open FILE , ">$datafile" unless -e $datafile;
close FILE;

これで空ファイルつくるだろ。

>>228
>>231
もちっとましな物言い、できんのかよ…
自分らの書いたせりふ、声に出して言ってみ

>>225
なぜか面白いことがしたくなる…

@char = (0 .. 9, 'a' .. 'z', 'A' .. 'Z');
print join '' @char[ map(int rand @char, 1 .. 8) ];

おっと。コンマが抜けた。

print join '', @char[ map(int rand @char, 1 .. 8) ];

大文字は無しか…うぅ
@char = (0 .. 9, 'a' .. 'z');

あぼーん

あぼーん

>>225
こうだな

@char = (0 .. 9, 'a' .. 'z', 'A' .. 'Z');
print join '' @char[ while(int rand @char, ..) ];

あぼーん

あぼーん

あぼーん

>>205
newメソッドがないと
Can't locate object method "new" via package "Date::Simple"
とでるので、別の原因があると思われ。

Date::Simpleはpure perlだから、/Date/Simple.pmを探してみそ。

>233
荒らしは放置しる。

無知がこんどは糞7扱いか。

簡単なことだと思うのですが、
ＣＧＩ（Perl）で、カレントディレクトリにあるHTMLを、
呼び出して、それをそのまま表示する方法が分かりません。
具具ってもなかなか見つからないので、お助け下さい。

>>246
(略)
if(!open(FILE,"file.html")){
print "Can't open\n";
exit(1);
}
undef $/;
$a=<FILE>;
print $a;

何故ぐぐっても分からないか。

・そんなことしても意味がない
・簡単すぎるから解説するまでもない

>>246
my $file = "hoge.html";
open(Fh, $file) or die "Could'nt open $file $!\n";
print while(<Fh>);
close(Fh);

Perlっぽく。
CGIならContent-typeとか、dieするとまずいとかあるから、注意。

>>249
ファイルハンドルは全て大文字で書かなくても委員会？
動作はするだろうがな

>>246

何故ぐぐってもわからない馬鹿が質問するか？

・>>246　は生きる価値のないクズ！
・>>246　は初心者で板違いの迷惑やろう
・早く死ね！

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

>>250
別に大文字じゃなけりゃいかんという決まりはなかったと思うが。

>>260
が、大文字でなかったために色々妙な動きをしてるやつがいたな。
意図していない動きをしているので、大文字でやっとけってことだよな。
大文字にしといたら、それがハンドルであることに気付きやすくなってちょっと幸せ。

大文字といっても、DATAなんかは避けといたほうがいいね。
別に使っても害はないけど、なんか気分的に。

時差を修正するにはどうすりゃいいでつか？
ぐぐったけど、初心者なんで分からないでつ。

あぼーん

>>262
FAIRUHANDORUとかがよろしい。
一目瞭然さ！

>>263
「perl タイムゾーン」

　　　　　＿＿＿＿
　　　 ／∵∴∵∴＼
　　 /∵∴∵∴∵∴＼
　　/∵∴∴,（･）（･）∴|
　　|∵∵／　　 ○　＼|
　　|∵ /　　三　|　三　|　　　／￣￣￣￣￣
　　|∵ |　　　＿_|＿_ 　|　＜ おい、誰かＰｅｒｌ教えろ！！
　　 ＼|　　　＼＿/　／　　　＼＿＿＿＿＿
　　　 　＼＿＿＿_／

　　　　　＿＿＿＿
　　　 ／∵∴∵∴＼
　　 /∵∴∵∴∵∴＼
　　/∵∴∴,（･）（･）∴|
　　|∵∵／　　 ○　＼|
　　|∵ /　　三　|　三　|　　　／￣￣￣￣￣
　　|∵ |　　　＿_|＿_ 　|　＜ パールだ！パール！真珠じゃねえぞ
　　 ＼|　　　＼＿/　／　　　＼＿＿＿＿＿
　　　 　＼＿＿＿_／

　　　　　＿＿＿＿
　　　 ／∵∴∵∴＼
　　 /∵∴∵∴∵∴＼
　　/∵∴∴,（･）（･）∴|
　　|∵∵／　　 ○　＼|
　　|∵ /　　三　|　三　|　　　／￣￣￣￣￣
　　|∵ |　　　＿_|＿_ 　|　＜ まずはパンチ５分の２な！
　　 ＼|　　　＼＿/　／　　　＼＿＿＿＿＿
　　　 　＼＿＿＿_／

　　　　　＿＿＿＿
　　　 ／∵∴∵∴＼
　　 /∵∴∵∴∵∴＼
　　/∵∴∴,（･）（･）∴|
　　|∵∵／　　 ○　＼|
　　|∵ /　　三　|　三　|　　　／￣￣￣￣￣
　　|∵ |　　　＿_|＿_ 　|　＜ おまえは５分の２、おれのケーキは５分の３な
　　 ＼|　　　＼＿/　／　　　＼＿＿＿＿＿
　　　 　＼＿＿＿_／

　　　　　＿＿＿＿
　　　 ／∵∴∵∴＼
　　 /∵∴∵∴∵∴＼
　　/∵∴∴,（･）（･）∴|
　　|∵∵／　　 ○　＼|
　　|∵ /　　三　|　三　|　　　／￣￣￣￣￣
　　|∵ |　　　＿_|＿_ 　|　＜ あと、イフとエルスとリリスとアダムも教えろよ！
　　 ＼|　　　＼＿/　／　　　＼＿＿＿＿＿
　　　 　＼＿＿＿_／

>>262
やっぱIN,OUTだな。ほとんど。

Date::Simpleについて質問した者だが、
実は mod_perl を使っていたんだが、
今日、mod_perl を外して、普通のCGIとして実行させたら、
Date::Simple の new メソッドが正常に動きました。

この場合、mod_perl が原因なのは明らかだが、
具体的に mod_perl のなにがおかしかったのかよくわかりません。
わかる人レスください、

本を買ってきて見ながら勉強し始めたものです。
メモ帳に本のとおりにこのように書きました。
（長いので２回にわけます)
#!C:\Perl\bin\perl
$agent = $ENV{'HTTP_USER_AGENT'};
print "Content-type:text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>環境変数</title>\n";
print "</head>\n";
print "<body>\n";
print "環境変数の取り出し\n";
print "<hr/>\n";
print "$agent\n";
print "</body>\n";
print "</html>\n";
exit;

上のものをftpソフトでアップすると、
「環境変数の取り出し」という文字はブラウザに表示されるのですが、
本に載っているような実行結果が出力されません。
(本にはMozilla/4.0(compatible〜...と載っています)
ブラウザのソースを見てみると
<html>
<head>
<title>環境変数</title>
</head>
<body>
環境変数の取り出し
<hr/>

</body>
</html>
とだけなっていて、空白のようです、
アドバイスお願いいたします、、

あぼーん

#!C:\Perl\bin\perl
と
print "<hr/>\n";

あぼーん

わー、書き間違えてました、
１番上は#/ur/local/bin/perlの書き間違いです
print "<hr />\n";これを取り外せばよいのでしょうか、
やってみます

print "<hr />\n";
これは単にタグがおかしいだけ。

FTPソフトがなぜか接続しました、のまま止まってしまって
やっとつながりました、遅くなりました、
やってみたのですがMozilla/4.0(compatible〜...と出てくれません、、
次のページのものはずらずらっと文字が表示されて成功だったのですけど、
１番最初のができないまま進めてしまってよいものなのかなぁ、、
寝て起きたらもうすこしやってみます、
>>227さん、>>280さん、お返事ありがとうございました

>>281
うちで使ってるサーバーでは、そのコードでちゃんと動いたよ。

>>263
「何の時差をどう修正したいか」ぐらいは最初から書こうよ。

>>273
思い込みはデバッグの敵だぞ。君のスクリプトが
mod_perl 上で走る為の要件を満たしていないだけかも知れん。

ともかく検証に必要な最低限のコードが示されないと、
何が悪いのかなんて分からんよ。

>>281
ブラウザやプロキシの設定で HUA 消してない?

my $exists = exists $ENV{'HTTP_USER_AGENT'} ? 'exists' : 'not exists';
my $defined = defined $ENV{'HTTP_USER_AGENT'} ? 'defined' : 'undef';
my $agent = $ENV{'HTTP_USER_AGENT'};
...
print "$exists, $defined, [$agent]\n";

とかしてみ。

>>280
どこがどうおかしいのか教えて欲しい。

280じゃないけど
<hr/>
最近のﾌﾞﾗｳｻﾞじゃちゃんと解釈すると思うが…。
まぁ、考慮して<hr />にしと居た方が良いかもしれないけど。

<hr/>ってかなり普通だし。
XHTMLなら最初に宣言つけろってことか？

>>286
hrと/の間にスペースを入れろってことじゃないの？

<hr/>ってのを知らんかっただけだろ

まあ>>275のHTMLに<hr/>って有っても滑稽なだけだが

>>287
スペースは要らんだろ？

要らないよ。

>>289-290
287だがｽﾏｿ

>>291
とりあえずスペース入れろ。
それと一回ファイルを削除して、復元しろ。わからないところ、間違っているところが表示される。

#!/usr/bin/perl

# CGIヘッダの出力
print "Content-type: text/html\n\n";

while($HP1 > 0) and ($HP2 > 0){
srand1;
srand2;
}

# Player1
$HP1 = 400 - $kougeki1;
$KIK1 = 60;
$PAN1 = 20;
$DF1 = 10;

# Player2
$HP2 = 300 - $kougeki2;
$KIK2 = 100;
$PAN2 = 40;
$DF2 = 0;

# Player1
$kougeki1 = srand;

# Player2
$kougeki2 = srand2;

srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN1'} - $defense->{'$DF2'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK1'} - $defense->{'$DF2'};
}

srand2;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN2'} - $defense->{'$DF1'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK2'} - $defense->{'$DF1'};
}

($damage < 0) and ($damage = 0);
$defense->{'HP1'} -= $damage;

($damage < 0) and ($damage = 0);
$defense->{'HP2'} -= $damage;

# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えた。</p>
<p>Player1は<big>$kougeki1</big>のダメージを受けて混乱した。
<p>Player1は<big>$kougeki1</big>のダメージで野クソを食べ始めた。
<p>Player2は<big>>$kougeki2</big>のダメージを与えた。</p>
<p>Player2は<big>>$kougeki2</big>のダメージを受けて、道路で裸踊りを始めた。
<p>Player2は<big>>$kougeki2</big>のダメージで電車の中のブス女をレイプし始めた。</p></p></body>\n";
print "</html>";

>>292
スペース要らんてば。

スペースは要るが、そこが問題の本質ではないってことだな。

こんにちは、原因がわかりました、
怒られそうです、

ノートンインターネットセキュリティを無効にしたら
きちんとMozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)と表示されました、
あー、、自分が嫌になりました、、
もっとちゃんといろいろやってみて
どうしてもこうしてもわからなくなったら書き込むようにします、
お騒がせいたしました、申し訳ありません、、

<hr/>でもいいけど、<hr />のほうがいい。

>>300
やっぱり>>283ということでしたか。
ノートンはリファラなんかも消すので注意ですな

文字列の並び換えを他の数値リストから行ないたいのですが、どうしたらいいでしょうか?

readdir()で取得したリスト@file_listを
for($i = 0;$i < @file_list;$i++){
$time[$i] = (stat("$file_list[$i]"))[9];
}
で取得した最終更新日でソートしたいのですが。
@timeをソートした時に、同じ順番で@file_listもソートするような事は
どうしたらいいでしょうか?

お願いします。

>>303
ファイルリスト取得時から根本的に変えると

my @file = map { name => $_, time => (stat $_)[9] }, readdir DIR;
print
　map { scalar localtime $_->{'time'}, " $_->{'name'}\n" }
　sort { $a->{'time'} <=> $b->{'time'} }
　@file;

>>304さん、ありがとです。
動いております。並び換えられているようです。
しかしながら、map童貞には、何故動いてるかわからんです(まだ1行目を理解しただけ)。
正直おっかないですw

for($i = @time;$i != 1;$i--){
　　for($j = 0;$j < (@time - 1);$j++){
　　　　if($time[$j] < $time[($j + 1)]){
　　　　　　$tmp = $time[$j];
　　　　　　$time[$j] = $time[($j + 1)];
　　　　　　$time[($j + 1)] = $tmp;

　　　　　　$tmp = $list[$j];
　　　　　　$list[$j] = $list[($j + 1)];
　　　　　　$list[($j + 1)] = $tmp;
　　　　}
　　}
}
結局こんなのを書いて逃げてしまう漏れは駄目ぽです。
>>304さん、こちらでとりあえずお茶濁しときます。
perlらしい書き方も勉強せねばならんです。イキナリ読めなくなる。

>>306
@file と @time でやるなら

my @file = readdir DIR;
my @time = map { (stat $_)[9] } @file;

# 添え字を時刻昇順でソート
foreach (sort { $time[$a] <=> $time[$b] } 0..$#file) {
　print(scalar localtime $time[$_], " $file[$_]\n");
}

こういうのは Perl 的な慣用句だけど、難しい事はしてないから
関数リファレンス片手に順番に読み解けばすぐ理解できるよ。

>>303
mapはforeachの亜種と思えば良いとおもう。
覚えとくと便利。手放せない。まじ。
基本的には右側の配列を順番に回してるだけ。
@array1 の要素を「:」で区切って2次元配列にする↓
@array2 = map { [ split ':', $_ ] } @array1;
と
foreach ( @array1 ) {
push(@array2, [ split ':', $_ ]);
}
がおんなじ。

telnetで接続できるBBSをPerlで書こうと思っています。
現在、
http://x68000.startshop.co.jp/~68user/net/echo-3.html
のechoサーバを参考に作っているところなのですが、
いかにしてキー入力を取得するかで悩んでいます。

現在、標準入力からそのまま取得しているのですが
これでは、BSやDELが効きません。
#入力された文字列がそのまま表示されてしまうため
#パスワードの入力にも使えません。

sub lineinput {
my ($mes) = @_;

print CLIENT $mes;
my $line = <CLIENT>;

$line =~ s/\x0D?\x0A?$//;
return $line;
}

どなたか、このような場合の一行入力ルーチンを
ご存知の方はいらっしゃいませんか？

>>309
参考になるかどうか分からんが。
http://search.cpan.org/author/AUTRIJUS/OurNet-BBS-1.65/

>>306
とりあえず入力ルーチンを入れろ。
それと一回ファイルを削除して、復元しろ。わからないところ、間違っているところが表示される。

#!/usr/bin/perl

# CGIヘッダの出力
print "Content-type: text/html\n\n";

while($HP1 > 0) and ($HP2 > 0){
srand1;
srand2;
}

# Player1
$HP1 = 400 - $kougeki1;
$KIK1 = 60;
$PAN1 = 20;
$DF1 = 10;

# Player2
$HP2 = 300 - $kougeki2;
$KIK2 = 100;
$PAN2 = 40;
$DF2 = 0;

# Player1
$kougeki1 = srand;

# Player2
$kougeki2 = srand2;

srand;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN1'} - $defense->{'$DF2'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK1'} - $defense->{'$DF2'};
}

srand2;
if($mode == 1){
$offense = \%you;
$defense = \%my;
}elsif($mode == 2){
$offense = \%my;
$defense = \%you;
}
if( int(rand(2)) ){
#punch
$damage =
$offense->{'$PAN2'} - $defense->{'$DF1'};
if(!$rand = int(rand(5))){
#half
$damage = int($damage / 999);
}elsif($rand < 3){
#miss
$damage = "";
}
}else{
#kick
$damage =
$offense->{'$KIK2'} - $defense->{'$DF1'};
}

($damage < 0) and ($damage = 0);
$defense->{'HP1'} -= $damage;

($damage < 0) and ($damage = 0);
$defense->{'HP2'} -= $damage;

# HTMLの出力
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">\n";
print "<html>\n";
print "<head><title>対戦バトル</title></head>\n";
print "<body>
<p>Player1：体力は$HP1です</p>
<p>Player2：体力は$HP2です</p>
<p>Player1は<big>$kougeki1</big>のダメージを与えた。</p>
<p>Player1は<big>$kougeki1</big>のダメージを受けて混乱した。
<p>Player1は<big>$kougeki1</big>のダメージで野クソを食べ始めた。
<p>Player2は<big>>$kougeki2</big>のダメージを与えた。</p>
<p>Player2は<big>>$kougeki2</big>のダメージを受けて、道路で裸踊りを始めた。
<p>Player2は<big>>$kougeki2</big>のダメージで電車の中のブス女をレイプし始めた。</p></p></body>\n";
print "</html>";

>>306

２行目に
open (IO,"+<$logfile");
５行目に
while (<IO>){
　if ($_ =~ /<>$ip/){
　　@y2=split(/<>/,$_);
　　if ($y2[6] ne $ip){
　　　push(@log,$_);
　　}else{
　　　$y2[0] = 'All Clear (^-^)v';
　　　$y2[5] = 'All Clear (^-^)v';
　　　push(@log,"$y2[0]<>$y2[1]<>$y2[2]<>$y2[3]<>$y2[4]<>$y2[5]<>$y2[6]<>$y2[7]<>\n");
　　}
　}else{
　　push(@log,$_);
　}
}
を入れろ。

あぼーん

あぼーん

中途半端に荒しやがって。
どうせならどんと荒してアク禁になれよな。

#=============================================================================
# クッキー書き込み
# &cookie_regist(クッキー名, データ, 日数);
# ・クッキー名 ⇒ クッキーの名称、半角英数字
# ・データ ⇒ キー!値,キー!値,キー!値　の書式で整えられたデータ
# ・日数 ⇒ 保存しておく日数（ただし、sessionと入力すると、
#　　セッションクッキーとなる（ブラウザを閉じたらクッキーは削除される）
# ★注！：キー値に「!と=と;は使わないこと」
#例文：
#&cookie_regist("session","sessionid!246",1/24);
#-----------------------------------------------------------------------------
sub cookie_regist(){
local($cookiename, $cookievalue, $cookiedate) = @_;


($sec, $min, $hour, $mday, $mon, $year, $wday) = gmtime(time + 60*60*24* $cookiedate );
@mons = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
$date_gmt = sprintf("%s, %02d\-%s\-%04d %02d:%02d:%02d GMT",
$week[$wday], $mday, $mons[$mon], $year+1900, $hour, $min, $sec);
if ($cookiedate ne "session"){
print "Set-Cookie: $cookiename=$cookievalue; expires=$date_gmt\n";
} else{
print "Set-Cookie: $cookiename=$cookievalue\n";
}
}
という関数をつくったのですが、（長いので次のレスに続きます）

すいません、タブを全角スペースにするの忘れたので見づらいので、書き直します。
#=============================================================================
# クッキー書き込み
# &cookie_regist(クッキー名, データ, 日数);
# ・クッキー名 ⇒ クッキーの名称、半角英数字
# ・データ ⇒ キー!値,キー!値,キー!値　の書式で整えられたデータ
# ・日数 ⇒ 保存しておく日数（ただし、sessionと入力すると、
#　　セッションクッキーとなる（ブラウザを閉じたらクッキーは削除される）
# ★注！：キー値に「!と=と;は使わないこと」
#例文：
#&cookie_regist("session","sessionid!246",1/24);
#-----------------------------------------------------------------------------
sub cookie_regist(){
　　　　local($cookiename, $cookievalue, $cookiedate) = @_;
　　　　

　　　　 ($sec, $min, $hour, $mday, $mon, $year, $wday) = gmtime(time + 60*60*24* $cookiedate );
　　　　@mons = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
　　　　$date_gmt = sprintf("%s, %02d\-%s\-%04d %02d:%02d:%02d GMT",
　　　　 $week[$wday], $mday, $mons[$mon], $year+1900, $hour, $min, $sec);
　　　　if ($cookiedate ne "session"){
　　　　　　　　print "Set-Cookie: $cookiename=$cookievalue; expires=$date_gmt\n";
　　　　} else{
　　　　　　　　print "Set-Cookie: $cookiename=$cookievalue\n";
　　　　}
}
という関数をつくったのですが、（長いので次のレスに続きます）

&cookie_regist("hoge_session","hoge_sessionid!".$in{cust_code},180);
みたいにしてクッキーをセットすると、
ネスケでは、180日有効なクッキーがセットされるのですが、
IEだと、セッションクッキー（ブラウザを閉じると削除されるクッキー）に
なってしまいます。

どこがおかしいのでしょうか？

すいません、自己レス。いつのまにか、
@mons = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
のあとの
@week = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
を消してしまっていたことが原因でした。

しかし、ネスケでexpireを強引に認識してくれて、IEだと無視されるとは・・・
（逆なら納得いくんだが）

ともかく解決しました。すみません。

PHPの質問で数値の表示方法についての質問なんですが、数値の計算で
例えば
10×1.05 をやると 10.5
になるのですがこれの小数点以下を切り捨てたいのですが、どうすれ
ば良 いのでしょう。number_format関数を使えば小数点以下の修正が
行なえるというのは知っているのですが、number_format関数を使うと
1000などの数値の時、1,000となり","(カンマ)が表示されてしまい、数
値として認識しなくなってしまいます。
この計算の後にもさらに計算をしたいので、数値として認識させなけれ
ばならないので、こまっています。
どうぞご指導をよろしくおねがいします。

>>324
ここPerlだしPHPよく知らんけど、

$formated_number と　$number と別にすればいいんでないの？

なんでPHPの質問板でしないの？
floatだっけか忘れた。

ごめんなさい。間違えました!
※ちなみに$numberと$formated_numberを使ってみたところfatal error
になっちゃいました。
すみません。迷惑かけました。ありがとうございました。

"私は３９歳のオヤジで２人の子供がいます。"
という文字列に対して、全角数字を半角数字に置換したいのですが、
どうすればいいのでしょうか？
（文字列も、スクリプト自体も、文字コードはEUCです）

@fooでなく、
@ふー みたいに、配列の変数名に、日本語を交ぜる使う方法ってないでしょうか？
あるいは、似たような方法でも・・・

$in{'場所'} には　"渋谷_AND_新宿_AND_銀座_AND_日暮里"
という文字列が入っているのですが、
これを、
$in{'場所'}[0] = "渋谷";
$in{'場所'}[1] = "新宿";
$in{'場所'}[2] = "銀座";
$in{'場所'}[3] = "日暮里";
と分割したいです。

で、
@tmp = split(/_AND_/, $in{'あいうえお'});
for ($i=0; $i<=$#tmp; $i++){
$in{'あいうえお'}[$i] = $tmp[$i];
}

とやっているのですが、@tmp を使っているあたり、いまいちスマートでないと思います。
もっとスマートな（というかストレートな？）方法はないでしょうか？

>>328
http://www.din.or.jp/~ohzaki/perl.htm#JP_Z2H

>>329
require 5.008; # 要 Perl 5.8.0 or later
use utf8;
use encoding "euc-jp", Filter => 1;
binmode STDIN, ':encoding(euc-jp)';
binmode STDOUT, ':encoding(euc-jp)';

my @foo = qw(bar baz);
my @ふー = qw(ばー ばず);
print join ' ', @foo, @ふー;

>>330
$in{'場所'} = [ split '_AND_', $in{'場所'} ];

>>331
s|'_AND_'|/_AND_/|;

あぼーん

Formで、
<input type="checkbox" name="hoge" value="東京">
<input type="checkbox" name="hoge" value="埼玉">
<input type="checkbox" name="hoge" value="千葉">
<input type="checkbox" name="hoge" value="栃木">
をsubmitしたときに、

クエリーストリングをデコードする関数の中では、
-------------------------------------------------------------
if ($in{$key}){
　　　　$in{$key} .= "_AND_" . $val;
}else{
　　　　$in{$key} = $val;
}
としてます。
-------------------------------------------------------------

すると、$in{hoge} = "東京_AND_埼玉_AND_千葉_AND_栃木"; となるので、
@array_hoge = split(/_AND_/, $in{hoge});
みたいな使い方をしてるのですが・・・

（質問１）
また、nameがhogeでなく、「ほげ」みたいな日本語のとき、
@array_ほげ となってしまい、エラーになってしまうんですよね。。。
こういう場合、なるべく近いような書き方で、どうすればいいんでしょうか？

（質問２）
あるいは、もっとスマートなやり方はないでしょうか？
みなさんは、複数選択項目のデコードは、どうしてますか？

＞@array_hoge = split(/_AND_/, $in{hoge});
＞また、nameがhogeでなく、「ほげ」みたいな日本語のとき、
＞@array_ほげ となってしまい、エラーになってしまうんですよね。。。
なんでよ？
@array_hoge = split(/_AND_/, $in{'ほげ'});
でええやん。

>>334
if (ref $in{$key} eq 'ARRAY') {
　　push @{$in{$key}}, $val;
}
elsif (defined $in{$key}) {
　　$in{$key} = [ $in{$key}, $val ];
}
else {
　　$in{$key} = $val;
}

として、@{$in{'hoge'}} をそのまま使う。

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

%hash = (
　　　　element1 => [ 1, 2 ,3, 4, 5],
　　　　element2 => [ 3, 4 ],
　　　　element3 => [ 5, 6 ],
);

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

for ($i=0; $i<= (@hash{"element1"} -1) ;$i++){
　　　　print $hash{"element1"}[$i] . "<br>";
}

てっいうスクリプトがあるんですが、

$i<= (@hash{"element1"} -1)
の部分、リファレンスに関する知識が乏しいために、
苦し紛れに書いていて、見苦しいです。
もっとスマートに（$#などを使って？）書くには
どうすればいいのでしょうか？

というか、こういう場合、普通、
$i<= (@hash{"element1"} -1) の部分はどうやって書くもんなのでしょうか？

>>345
それ実行したら無限<br>になったんだが…

基本的にはforeachで回すのがいいんじゃない？
自分はmapを使ってこう書いてみた。

print map { "$_<br>" } @{$hash{"element1"}};

$in{'ほげ'}[0];
$in{'ほげ'}[1];
$in{'ほげ'}[2];
（中略）
$in{'ほげ'}[n];

まで配列があるのですが、このn(またはn+1)の値を取得するには、
どうすればいいのでしょうか。

>>347
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlref.html
http://www.kt.rim.or.jp/%7ekbk/perl5.005/perllol.html

モジュール XML::SAX　はPerl5.8からしか入らないんでしょうか？

ｴｲｺﾞ嫌いなり・・・・・

Perl愛好家の方々に質問ですが、怒らないで聞いて下さい!
PerlってCGI用言語ですよね?
ということは、PHPの方が良い言語なわけですよね?
それでもPerlを使用している人が多いというのは、何か特別な理由が
あるのでしょうか?
何か良い理由があるのなら私もPerlを勉強しようと思っているのですが、、、
教えて下さい。お願いします。

>>345

for ($i=0; $i<= (@hash{"element1"} -1) ;$i++){
　　　　print $hash{"element1"}[$i] . "<br>";
}

これの意味(目的)が全く分からないんだけど。。。（↑なんかめちゃくちゃだぞ、これ。）
目的は{element1}が指し示す配列を個々にデリファレンスして表示する事だろ？（知らんけど多分）

foreach($hash->{"element1"}){
print $_ . '<BR>';
}

こうじゃないのか？
実行してないから知らんけど。
条件式は
@{$hash{"element1"}}
こーでもいーよ。多分。

>350　別に無理して勉強しなくていいんじゃないの。

>>346
＞それ実行したら無限<br>になったんだが…
あ、ほんとだ、気づきませんでした。すみません。。。<br>じゃなく<hr>にしときゃよかった。

＞print map { "$_<br>" } @{$hash{"element1"}};
でうまくいきました。ありがとうございます。

で、実は自分、@{$hash{"element1"} っていう配列の書き方を知らなかったもので、

>>345 を、


for ($i=0; $i<= ( @{hash{"element1"}} -1 ) ;$i++){
　　　　　　　　print @{$hash{"element1"}}[$i] . "<hr>";
}

に書き直したんですが、やはり、無限ループになってしまいました。
これって、どういう理由というか理屈で無限ループになってしまうのでしょうか＿

>>350は釣りか無知か。
Perl = Practical Extraction and Report Language
どこにもCGIなんて入ってない。

＞PerlってCGI用言語ですよね?
全然違います。

まー、どーせあんたはCGIとしてしか使わんと思うし、
さらに他人の鯖使ってると思うので、ドコでも使えると思われるperlがいーと思われます。
環境とか調べてPHPがいーと思うならそーしてください。

>>347
よく意味が分からん。
どっからどんな感じで取得したいんだよ。

>>350
Perl = Practical Extraction and Report Language
PHP = Hypertext Preprocessor

PHPはWeb専用。Perlは汎用。（多少語弊有）
どっちが良い言語かは自分と相談して、良いと思った方を使え。

だけど大抵のマニュアル見てもCGI＝Perlってなってますよ!
どうしてですかね?
>>354
はただ馬鹿にしたいだけでしょう?

>>358
CGIとして使われてんのがほとんどperlって話しだろ。
所でスレ違いだから他当たれ。
あとヤツ当りはせんでいーぞ。

>>357
なるほど!!Perlは汎用なんですか。
じゃあやっぱりCGI=Perlっておかしくないですか?
もしかしてマニュアルは嘘つき?

>358
どうして言われても・・・・・
そのマニュアル（何のマニュアルか知らんが）の筆者じゃないからねぇ。
わからんねぇ。

>>358
何言ってんのか良く分からんのだけどPerlのマニュアル(?)はこれだよ。
http://www.perldoc.com/perl5.6/pod/perl.html
あんたの読んでんのは解説本とかじゃないのか

>>360
> じゃあやっぱりCGI=Perlっておかしくないですか?
ちょっとおかしい。正しくは「CGI ⇒ Perl」。
CGIと言えばほとんどPerlだけど、
Perlと言えばフィルタとしてログの解析や集計やらに使うことが多い。
ビルドするのにPerlが必要なソフトウェアもあるしな。

>>348
すいません、全部読んだのですが、個々の文章としてはなんとなく理解できるのですが、
全体として理解できていないため、
結局、>>347 の答えがわかりませんでした。
答あるいはヒントでもいいので、おしえてください・・・

>>356

とあるメールフォームが、
<input type="checkbox" name="ほげ" value="田中">
<input type="checkbox" name="ほげ" value="高橋">
<input type="checkbox" name="ほげ" value="近藤">
のようになっていて、それをデコードする際、
「aaa=bbb」形式を「$key と $val」にした後、
#############################################################
if ($in{$key}){$in{$key} .= "_AND_" . $val;
}else{
　　　　$in{$key} = $val;
}
#この時点では、 $in{'ほげ'} = "田中_AND_高橋_AND_近藤" の状態

としてから、
foreach $key (keys %in) {
　　　　if ($in{$key} =~ m/_AND_/){
　　　　　　　　@tmp = split(/_AND_/, $in{$key});
　　　　　　　　for ($i=0; $i<=$#tmp; $i++){
　　　　　　　　　　　　$in{$key}[$i] = $tmp[$i];
　　　　　　　　}
　　　　}
}
#この時点では、$in{ほげ}[0] = "田中";$in{ほげ}[1] = "高橋";$in{ほげ}[2] = "近藤"; の状態
#############################################################
としています。

で、メールフォームの確認画面で
「田中／高橋／近藤」のように表示させたいため、
for文を書くために、 >>347 の質問をさせていただきました。わかりずらくて、すみません。

なんかややごーいんな処理だなぁ。
まぁ、それは良いとして。

よーするに
$in{'ほげ'}
の値を全部出力したいのか？

それならたぶん
>>351周辺と同じだ。

知らなかったらあれだから言っとくけど、
それ、リファレンスだぞ。
いちおー省略のないちゃんとした書式使って、あと無駄な処理はぜんぶ省くよーに。

>>347
代入したときの$iを
$number = $i;
とかして記録しとけば

>>349
英語が嫌い? じゃあ (require|use) 5.00x; されてないか
ソース辿って調べたら? Perl (これも*言語*だよね) なら
いいんでしょ? :p

>>353
まぁ一文字抜けてるだけの話なのだが。

1. @{hash{"element1"}} は @hash{"element1"} と等価
2. @hash{"element1"} は 1 要素のハッシュのスライス ≒ $hash{"element1"}
3. $hash{"element1"} はリストリファレンスで、そのまま評価すると
　　リファレンスの型とアドレスを返す => 'ARRAY(0x10c1350)' 等の文字列
4. この文字列を - 1 と数値コンテキストで評価しているので、
　　@{hash{"element1"}} - 1 == 0x10c1350 - 1 == 17568591
5. 無限ではなく 17,568,591 回ループする

という事で >>348 読んで基本から勉強し直せ。

>>365
> if ($in{$key}){$in{$key} .= "_AND_" . $val;
> }else{
> 　　　　$in{$key} = $val;
> }
を >>336 にして

> foreach $key (keys %in) {
> 　　　　if ($in{$key} =~ m/_AND_/){
> 　　　　　　　　@tmp = split(/_AND_/, $in{$key});
> 　　　　　　　　for ($i=0; $i<=$#tmp; $i++){
> 　　　　　　　　　　　　$in{$key}[$i] = $tmp[$i];
> 　　　　　　　　}
> 　　　　}
> }
を省いて

> メールフォームの確認画面で
> 「田中／高橋／近藤」のように表示させたいため、

print join '／', @{$in{'ほげ'}};

配列の要素数なぞ全く必要無いのだが。

>>360
perlはCGI用の言語ではなくて、
こんぴーたのログや各種統計情報を効率的に解析する
ために作られたもの。
当然ログなどはテキスト情報になるので、強力なテキスト
処理能力が組み込まれた。
そのテキスト処理能力がHTMLを書き出すCGIにうってつけだった、
というのと、
ほぼすべてのUNIXに標準で入っている（Perlを使わないとシステムで
処理できないものが多い）ため、
CGIに多用されるようになった。
そして今やしろーとたちの間ではCGI用としてだけperlがやたら有名に
なってしまい、そのインチキ解説本の著者のように勘違いを
する輩が増えた、ということだ。
PHPはもう完全にCGIに特化した言語。
Perlはシステム管理上も必要になる局面が多いため、
管理者としてはPHPではなくPerlを身につける必要がある。
（サーバ管理者として飯食ってるやつでPerlがわからないやつはいない）

perlでシステム管理は語弊があるかな。
基本はシェルスクリプト。
暑いので>>370にやつあたりしてみますた（・∀・）!!

>>371
突っ込みthx。
ただ俺が言ったことは必ずしも的外れではないと思うぞ♪

>>370
釣り用のテンプレに最適だなこれ。

> ほぼすべてのUNIXに標準で入っている

ほぼ全てって・・・（ｗ。ここまで豪快に無知だとかえって清清しいな。
ちょっとお前、UNIX板に言って同じ事言って来い。

> （Perlを使わないとシステムで処理できないものが多い）

例えば何だ？無くてもシステムは動かせるぞ。

> Perlはシステム管理上も必要になる局面が多いため、

まぁあれば便利程度だな。無くても平気じゃないとシステム管理者
は勤まらん。
Perlに頼ると、/standしかマウントできなくなった時にパニックに
なるだろうし、そんなシステム管理者はいらん。

あと全体を通して、CGIとCGIスクリプトを混同してますね。

>>372
いや、結構的外れだと思う。

$aaa = 'AAA<a href="http://www.co.jp/">CCC</a><a href="http://aaa.co.jp/">BBB</a>';

これのリンクタグを除去したいんですけど、どういう正規表現を書いたらいいんでしょうか。
$aaa =~ s/<a href=\"(.)\">//g;
これではダメでした。

$aaa =~ s/<\/a>//g;
これで閉じタグは除去できました。

ちなみに、リンクは
<a href="../aiueo/aiuoe.html">
こういうのもあります。

ちょっと関係ないけど>>370は/sbinを su bin だと思ってるに一票

>>374
http://www.din.or.jp/~ohzaki/perl.htm#Tag_Remove

あぼーん

ちょっと関係ないけど>>377はsuをSuperUserの略だと思ってるに一票

ちょっと関係ないけど>>380はsuをSwitchUserの略だと思ってるに一票

ちょっと関係ないけど>>381はsuをSukhoiの略だと思ってるに一票

>>373は重要なところを突っ込み忘れてるな。

> PHPはもう完全にCGIに特化した言語。
ほよーん？

アクセス解析をSSIのIncludeで全てのページに埋め込んでいるのですが、
最近になって各文書毎にわけて取りたくなってきました。
#今までは取りあえずリファ取るだけで良いと思っていたので全文書で共通にしてた

と言うわけで埋め込み元の文書のファイルパスがわかれば良いと思ったのですが、
方法が見付かりません。
どのようにすれば良いのでしょうか。

#include virtual="/hoge/log.cgi?file=foo/bar.html"
のようにパスに適当なクエリつければ出来ると思ったのですが
全ての文書を書き直すのが面倒で…。

>>384
それのどこがperlコーディングの質問なんだ?

Perlでスクリプト書いてるからこのスレが良いと思ったのです…

それのどこがperl "コーディング" の質問なんだ?

うーん、スクリプト側で何とかできるのかと思ったのです。
できないようなら諦めてクエリくっつける方法でやってみます…。

基本的なことを理解しないまま、なにかと手をつけてしまう人が最近多いみたいだね…。

夏休みとか長期休暇になると、上辺だけ学ぼうとする奴が出るからな。
上辺だけでも作れてしまうのがPerlのいいところでもあるが。

>>384
$ENV{'REQUEST_URI'}
$ENV{'DOCUMENT_URI'}
$ENV{'DOCUMENT_NAME'}
辺りで取れない？

環境変数を吐くスクリプトをリンクしてみて、よさげな環境変数をあさってみたら。

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

削除依頼しとくわ

>>374
$aaa =~ s/(<a .*?>|<\/a>)//g;

>>400 黙ってやらないと効果激減

また再取得させる気か

>>403
削除そのものに文句があるなら削除議論逝ってこい。

>>403
再取得がイヤなら自動再取得するようにプログラム汁。

>>400
コピペ荒らしで報告してくれ。

すみませんです。
比較的頻繁にファイルへ追加書込みしたいのですが、、、
一番よい方法ってありますか？

open( LOG, ">>$file");
flock( LOG, 2 );
print LOG $data;
flock( LOG, 8 );
close( LOG );

これじゃ、ダメですかね？

>>407
＞flock( LOG, 8 );
これはいらない

すまん。407じゃないんだが、flock( LOG, 8 ); はいらんの？
今まで慣用句的に使ってきたものとしては気になるんだが。

ロック解除はcloseにさせよう。

>>410
407じゃないんだけど、closeで解除させるのと、flockで解除させるのって変わりあるんですか？
どっちでもいいとかじゃなくて。

>>411
http://www.google.co.jp/search?hl=ja&q=perl+flock+close

>>411
5.004以降はロック・アンロックの前に自動的にフラッシュするので、どっちでもいい。

どっちでもいいものを保守するのって結構面倒。
所々忘れてたりするし。
# ひょっとしたら5.004より前のバージョンで実行するかもしれないしね。

　

文字列置換なんだが、

my $a = 'abcdefg';
$a =~ s/abc/ABC/;

こうすれば $a は ABCedfg となるが、こうじゃなくて、
元の文字列は変更しないでそのままにして、
置換結果だけを新しい変数に入れる場合はどうしたらよい？たとえば

my $a = 'abcdefg';
my $b = $a =~ s/abc/ABC/;

としても、$b には 1 としか入らないので困った。もっとも

my $b = $a;
$b =~ s/abc/ABC/;

とすればいいだけの話だが、これを１行で書きたい。

my $b = $a; $b =~ s/abc/ABC/;

(my $b = $a) =~ s/.../.../;

まぁ、諦めるしかないってこった。

perl＠数学板
http://science.2ch.net/test/read.cgi/math/1061449616/

なぜ１行
にこだわる

>>415-419
何年か前にも見た光景だ。
デジャヴか？

up/aec9215fb4f8.cgi
http://up.isp.2ch.net/upload/c=03okari/index.cgi

KENTWEBさんの物をベースにBBSを作ってるんですが、
タグ使用できるように、数文付け足した直後書き込みが出来なくなりました。
自分でも、本と見比べるなどして、問題点を探したんですが、分かりませんでした。
どこが悪いんでしょうか?

>>421
スクリプトの改造ネタはこちらでどうぞ

【 スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

>>422
すれ違いスマソ。

if処理で
ある　配列 @a = (1000個くらい)
を　最初から読み込んでいって
配列@bにその値が含まれている場合
ある処理をしたいと思ったんですが

@a = (2,5,6,8,9,4,2,6,5,4,6,3,5,2,4,5);
@b = (1,2,3,4,5,6,7,8,9,10,11,12,13,14);

foreach $a (@a){
　foreach $b (@b){
　　if($a == $b){ ここに処理; last;}
　}
}

というのを考えたんですけど
二つ配列が共に1000個近くあると
Maxで1000*1000近くループしそうなのですが

もっとスマートな方法ってないでしょうか？
または 変数がある配列に含まれているか
真偽を返す関数などはありませんでしょうか？

use strict; ってチェックの時だけやって
普段は外すっていうのは駄目ですか？

単に宣言なしの変数チェックと言う認識しか無いのですが
常にuseしておいた方が良いのならそうしようかと…。

>>425
Larry Wallは常にuseしろと仰ってますね。

俺も常にuseしてる。というか、付けると便利なものをなんでわざわざ外そうと
思うのか分からない。

>>424
メモリは食うが
my %b;
@b{@b} = (1) x @b;
for my $a (@a) {
　　$b{$a} or next;
　　...
}

>>425
use strict; したままだと困る事があるなら外せばいい。
俺は部分的に no strict ...; する方を選ぶが。

どうも。5.6.1にXML::ParseおよびXML::SAX入れることができますた。
邪魔してたのはcc on SunOSですた。

>>426
リリース後はいらないと思うが。

>>427
漏れが書いたのと
どっちのほうが効率的でしょうか？

ケケケ

Larryの言う「常に」とはどんなスクリプトを書くときでもという意味では。

>426
>427

useすると微妙に重くなるのかな？という気がしたので…。
比較的リクエストの多いサイトのスクリプトなので
ほんの少しでも負荷を減らせるのかなと。

>>429>>432
そりゃそうかも。

でも俺が仕事で書くような場合、使い捨てか、頻繁にメンテするような場合が
多いので付けっぱなしだな。外してもいいけど、外す理由が特に見当たらないって
ことです。

>>433
実験してみたけど、目に見える負荷軽減にはならないみたい。

>>430
そんなあなたにはBenchmarkモジュールがオススメ!

use Benchmark qw(:all);

@a = (2,5,6,8,9,4,2,6,5,4,6,3,5,2,4,5);
@b = (1,2,3,4,5,6,7,8,9,10,11,12,13,14);

cmpthese(10000, {
'424' => sub {
my $n = 0;
foreach $a (@a){
foreach $b (@b){
if($a == $b){ $n++; last;}
}
}
},
'427' => sub {
my $n = 0;
my %b;
@b{@b} = (1)x@b;
for my $a (@a) {
$b{$a} or next;
$n++;
}
} ,
});

結果は動かしてみてのお楽しみということで。

スマン、全角SPに変換前のを出しちまった。

>>435
補足。同じベンチ取るなら実状に合った値でやらないと
意味のある数字が出ないよ。

この例だと @a の値は全て @b に存在するから条件文は
常に真になるし、@b の要素数が実際より極端に少ないと、
速度差が他の処理にかかる時間に埋もれてしまう可能性
がある。

あと if (EXPR) BLOCK より or の方が速いので、後者の
方が本当に測りたい処理内容と関係ない部分で有利になる。
比較したい部分以外のコードは極力統一させよう。

「条件文は常に真」ってのは嘘だね。ゴメン。
@a の要素一つを @b の全要素と比較した時、遅かれ早かれ
真になるって意味で。

>>435はもとの質問者の例に沿っての内容だから
質問者は自分とこの実情に合わせてベンチ取るんじゃないの？

結局、数が多いならソートしてバイナリサーチのが速かったりするな

あの、、
POST形式のデータは、どこにあるのですか?

>>440
標準入力だよ

>434
ふーむ、そこまで軽くはならない訳ですね。
なら指定しておいても良いかな…。

>>440
$ENV{'CONTENT_LENGTH'}

>>443
ｾﾝｾｰ! 長さしかわかりません

>>444
その長さぶん標準入力から読み込むんだってば。

>>440
use POSIX;
POSIX::getenv("CONTENT_LENGTH");

ＭＸで入手？したような、写真をキャプチャーした画像を、
ヤフオクで販売している鹿馬がるよ、、、
http://user.auctions.yahoo.co.jp/jp/user/ken10332?
しかも説明欄にこんな書き込みが、、、
↓　　　　　　　　　　↓
★ヤフー管理者様へお願い★　
当商品はヤフーガイドラインに違反していない正規品ですので削除しないようおねがいします

↑こんな写真集を収録したＣＤ−ＲＯＭはないのバレバレなのに、、

read(STDIN, $post, $ENV{'CONTENT_LENGTH'});

>>448
これって、とんでもなく巨大なデータを渡されても大丈夫なんだろうか？

>>449
大丈夫じゃないだろうから、事前にCONTENT_LENGTHｗｐチェックしないといけないんじゃねぇ？

ウチは>>448のやり方しか知らんかった…
サイズチェックとかある程度のサニタイズとかはやってるけど。

もっとスマートな方法は無いっすかね。

CGI.pmを使えば、スクリプトはスマートになるよ。

多少短く、見やすくなるとしても
スマートにはならんと思う。

$CGI::POST_MAX

ネットサーフィンをしていたら、parlという言語があるのを知ったのですが、
これはperlと関係のある言語なのでしょうか？

>>427
existsを使えば、
@b{@b} = ();
で行けるよ。

>>455
まずあなたがparlという言語を知ったきっかけのページを教えてください。

ここです。>>457
ttp://www.doinaka.net/homesaba1.php

perlと併記してあるのでタイプミスというわけでもなさそうだし、
けっこうスキルの高そうな人のページなので。

＞『Ｐａｒｌ』を動作させる為に『Active Perl』をインストール

どう読んだらスキル高そうだと思えるのだ？

jcode.plをうまく使って、ひらがなを半角ｶﾅに変換する方法は
ないものでしょうか。

>>451
POSTで無限に長いデータを送ってやると、Content-Type: で指定した値に関わらず全部そのまま
CGIに垂れ流すWebサーバーが存在するから、CONTENT_LENGTHをチェックしても、

$a = <STDIN>;

とかやってると、Webサーバーによってはメモリ食いつぶすまで読み込ませることが可能。
だから、動作させるWebサーバーが不定の場合は>>448のやりかたは必須。

>>455
http://pc2.2ch.net/test/read.cgi/php/1052725430/1に聞いてみろ。

>>460
trを使ってひらがなをカタカナに変えて、z2hで半角にすればいいだろ。
あとは自分で考えてくれ。

英数字判別の正規表現のように、文字列がひらがな・カタカナで
あるという判別を行うことは可能でしょうか？

>>464
Shift_JIS: http://homepage1.nifty.com/nomenclator/perl/shiftjis.htm#regexp
EUC-JP: http://www.din.or.jp/~ohzaki/perl.htm#Character

>>463
全角カタカナも半角になる罠。
それでいいのなら問題ないのだけど。

便乗質問

歌代さんがromkan.plというのを作ってらっしゃいますが、
これの逆のものってないですかね。

かなを英字ローマ字に変換するようなもの。
かなり無理があるとは思いますが

同じことだろ

>>465
ありがとうございました

>>467
s/あ/a/g;
s/い/i/g;
　　.
　　.
　　.
って書いてけば？

>>470
まあ促音や拗音の処理とかあるから変換する順番が重要になる上に
膨大な数にはなるけどできんことはないなあｗ

>>471
かなだけだったら、どうにかなるんじゃないですかねぇ？

仮名だけでつかいものになるんだろうか。

>>470
テーブル作ればなんてことないでしょ。
テーブル本体もPerlにさっと作らせてヘボン式とか例外的な綴りを
手で追加してやるだけでよさそうだし。

藻前らどこまでがネタですか。
http://kakasi.namazu.org/

www.foo.ne.jp/hoge/hage.cgi
で、
require 'mimew.pl';　　#（http://www.cc.rim.or.jp/~ikuta/mime_pls/ にある有名なやつ）
して、
#メールのサブジェクトを、MIME-Base64化
$Subject = &mimeencode($MySubject);

としようとすると、

[Tue Aug 26 11:34:47 2003] [error] Undefined subroutine &Apache::ROOTwww_2efoo_2ene_2ejp::hoge::hage2ecgi::mimeencode called at /usr/local/foo/htdocs/hoge/hage.cgi line 179.

と言われてしまいます。
mimeencode.plは、cgiを同じディレクトリに入ってます。

なぜこのようなエラーがでてしまうのでしょうか？
「Undefined subroutine &mail::mimeencode ...」みたいなエラーなら見たことあるのですが・・・
このエラーメッセージの意味がわかりません。。。

mod_perlなんでしょ、それ以外は普段と同じ

>>467
再発明かもしれないけど、自分で書いちゃえ。
ネット上には、ローマ字カナ変換のページが結構あるし。
(変換辞書ファイルがあったから、ハッシュテーブル使って書いたら、案外簡単に書けた。)

>>476
*mimeencode = \&MIME::mimeencode;

ここ参照
http://perl.apache.org/docs/1.0/guide/porting.html

flockなんですが、

1. ファイルを読み込んで配列に入れる
2. 閉じる
3. 処理する
4. 先程と同じファイルをもう一度読み込んで処理後の配列で上書きする

と言う場合何処で掛ければ良いんでしょうか。
今は4のところだけでロックしてますが
2〜3の間にファイルが更新されちゃうと駄目ですよねこれって。

とか書いて思ったけどPerlコーディング自体とはあまり関係無いっすね…ｽｲﾏｾﾝ。

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

プロンプト[ Windowsです(^^;) ]からの入力に応じて実行する内容を分岐させたいのですが。

たとえば「1」と入力してリターンすると &one を、
「2」と入力してリターンすると &two を、
というようなあんばいです。

>させたいのですが。

で、お前は何をやったのかと、問い詰める。

>>483
ﾊｧ?(^^;)

>>484
>>1

>>484
もうすぐ夏も終わりだなあ。

プロンプトから入力されたデータがどこに入ってるのかわかりません。
入力を待つ→受け取って実行するっていうルーチンをどう書けばいいのか
さっぱりわかりませんのでまだ何も試せません。

あぼーん

>487
本を一冊買って読め。

http://www.rfs.jp/sitebuilder/perl/
ここのサイトは一通り読んだのですが、書いてありませんでした。

<>

>>490
本を買うのが嫌なら図書館でも逝って借りてくることをお勧めする。
Web上の解説等だけで勉強するのははっきり言って無理。
詳しく解説していったらそれこそ本が出来る罠

>>490
じゃあ書いてるサイト読めよ。
http://www.kent-web.com/perl/chap6.html

解決しますた。

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

新しいマシンにRedHat9入れたら、Perl5.8.0が入ってきました。
ところが、5.8からNDBM_Fileがないので、前に作っていたデータベースが
使えない。5.6.1のを持ってきたけど（NDBM_File.pm, NDBM_File.bs,
NDBM_File.so）、エラー出る。requireしてるXLoaderとかの変更があるみたい。
元のマシンでNDBMからSDBMに変換して新マシンにコピーして使うか、
新マシンに5.6.1入れるか、どっちがいいと思う？
いろいろググったが、情報ないんで聞かせてくらはい。

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

運用はスレ違い

>>504, 505
Part26までは、「コーディング」なんて制限はスレタイにもなかった。
これを付けた香具師もwebプログラミングと区別したかったからに
過ぎない。とにかく、もういい。お前らには、聞かない。

そりゃよかった。二度と来るなよ。

>>503
5.8.0のディストリビューションには入っているようだが…何故入ってないんだ？
Perlのソースを落としてきて、NDBM_Fileだけをビルド・インストールできるんじゃないかな。
データの変換の方が面倒がなくていいかもしれないが。

>5.8からNDBM_Fileがない
こう決め付けてるから対処がおかしくなるんだな
ソースから入れたPerl5.8.0にはNDBM_Fileあったけど
たしかにRedHatに最初から入ってるやつには無いね。なんでかしらんけど

良識ある>>508, >>509さん、ありが�d。
そですね、Perl5.8.0のソースからNDBM_Fileだけ抜き出して
buildできるかやってみまつ。
低能無恥の>>507さん、お前こそ消えて出てくんな

>>510
わからんなあ。
507が「低脳無恥」（これ、無知の間違いじゃない？）だと言う証拠はどこにもないんだが。
507がどれくらいの能力を持っているのか、本当に知っているのか？
これこそ勝手に自分の脳内妄想を垂れ流してるだけじゃないか？
ついでに言えば、508、509を「良識がある」としているが、これまた脳内妄想でしかない。
Part26までがどうだったかは知らないが、現在ではコーディングに限定した話題のスレになっているんだ。
ガイドラインに沿わない質問をした>>506が変であり、かつそれに対して回答を示した508、509もおかしい。
これは、スレの主題をぼやけさせる一因であり、本当に良識があるなら、厳に慎むべき行為だろう。

スレの状況を読まず、自分に都合の悪い回答をした507をこきおろし、
自分に都合のいい回答をした508、509をあがめたてる、ただの自己中に見えるんだが、
そこんところ自分を客観的に見てどう思うかね、>>510よ。

>>506
どのスレと勘違いしたの？
このスレはPart7の時から>>1に「コーディング」のためのスレとかかれているけど
http://pc.2ch.net/php/kako/1000/10002/1000267444.html

>>511,512
ご苦労様です。

一言余計なんだよ。それがなきゃ静かに終わったかもしれんのに

正規のスレに同じ事かかれたらうざいんでとりあえずここで
話し進めただけだし

なんでそんなにこだわるかなあ
そこまでこだわるなら夢イタに行くべきだよ。

>>515
CGIの質問をして追い出された人が怒るかもしれないから。

>>516
ＣＧＩ/perlな人がけっこういるわけで、WebProgにあればＣＧＩ/perlな人が
寄ってくるのはいたしかたないし、追い出す方がおかしい、と思うけど。

ムイタならここよりＣＧＩ/perlな人は少ないわけで、
ここの住人も幸せにコーディング語れるんじゃないの？

ちょいと質問です。

perlのCGIプログラムをインストールしようとしているのですが、それがCGI.pmを利用しています。
そのバージョンが指定されていて、/usr/lib/perl5/5.00503/ にあるもののバージョンが
古いです。

ローカルにバージョンの新しいCGI.pmをインストールして、そっちを利用させるようにしたい
のですが、どこをいじればいいのでしょうか?

require './CGI.pm';

をしてみましたが、結局別のプログラムなどが読んでいるところでエラーになります。

use ./CGI; なども当然ダメです。

よろしくお願いします。

>>518
そのCGIプログラムと同じデレクトリにCGI.pmを置いても？

>>519
ダメですねぇ。
できるはずなんですか?requireでなくてできるはずなら、色々調べてみます。

>>520
/home/hoge/perl-lib とかにCGI.pm置いて

use lib '/home/hoge/perl-lib';
use CGI

するとかして使ってるけど。;

ローカルに、じゃなくてユーザーデレクトリに、だよね。
ローカルに置いたモジュールをサーバから使わせようとしてるわけじゃないよね。

>>522
そうです。ユーザディレクトリにです。
>>521
まだ試していませんが、これで解決できそうです。
ありがとうございました。

Perlでファイルハンドルを変数に入れて、メソッドに渡すことがしたいのですが、
どうやればいいのでしょうか？

open($FILE,"ABC.def");
test($FILE);
close($FILE);

sub test {
　my $FILE = @_;
　my $line = <$FILE>; #一行読み込む
　printf("%s\n",$line); #何も表示されない(undef)
}

こんな感じでやりたいのですが...

open(FILE,"ABC.def");
$file = FILE;

じゃあかんの？

>>525
駄目でした。。。

むしろ、IO::File推奨。

FileHandle.pmを使ってみたのですが、
何故か
$in = new FileHandle("ぼくのにっきちょう.nick","r");
$line = <$in>;
printf("%s\n",$line);
は出来ても、この$inを
bob($in);
sub bob {
　my $in = @_;
　my $line = <$in>;
　printf("%s\n",$line);
}
とやったら駄目みたいです
（$inの中の値はどちらも同じだった（アドレスも））

っとおもったらなんかできちゃいましたみなさんどうもありがとうございました！

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

ファイルハンドルを変数に入れる場合は型グロブを使う

open(FILE,"ABC.def");
$file = *FILE;
test($file);
close(FILE);

sub test {
my $file = @_[0];
my $line = <$file>;
print $line;
}

>>531
ウホッ！本当だ
ｻﾝｸｽ!!!

>>518
use FindBin;
use lib $FindBin::Bin;
use my_CGI; # 標準ライブラリをリンクしないようにリネーム(CGI.pm -> my_CGI.pm)

http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlfaq8.html#How_do_I_add_the_directory_my_pr
クックブック 12.7

掲示板なんかで正規表現で自動リンクをしちゃってるわけですが、
リフェラでやってくる人がいるので、対策が必要です

リンク専用のCGIと受け渡しファイルを置いて、壁を作ろうと
思うのですが
掲示板のCGI　→　リンクをファイルに記録　→　専用CGIで読み出し飛ぶ

これで大丈夫ですか
もっといい手がありますか？

>>534
http://pc2.2ch.net/test/read.cgi/php/1055597189/

リフェラ
リフェラ
リフェラ
リフェラ
リフェラ
リフェラ
リフェラ
リフェラ
リフェラ

おふぇら
おふぇら
おふぇら
おふぇら

ime.nu挟めば簡単。

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

ime.nuは広告がアレな感じ。

ime.nuの代わりにGoogleの I'm Feeling Lucky で飛ぶのはどうよ？

http://www.google.co.jp/search?btnI&q=[URL]

(>543じゃ無いけど)

>547
ｿﾚﾀﾞ━━━━━(ﾟ∀ﾟ)━━━━━ｯ

534だった。

http://nun.nu?http://URL
とかもあるぞよ。
googleは登録されてないURLでも飛べる？

http://www.google.co.jp/search?btnI&q=http://nifty.nifty.nifty.com/
こんなかんぢ。

http://rd.yahoo.co.jp/?http://google.com/

>>552
全部試したけど、それだけはok
全然個人的な場所でも飛べる、凄い凄い

>>552
かんじんのurlが消せてない
http://rd.yahoo.co.jp/?http://www.ugtop.com/spill.shtml

ほんとだ。これはLOCATIONヘッダで飛ばしてるな

どうもレス数があわないとこがたまにあると思ったら
最新があぼーんされたとこだったのか

あぼーん

perlでGoogleの検索結果を取得するプログラムとして、

open(SEARCH, "search");
(ファイルsearchには文字コードEUCでクエリーが書かれています)
$query = <SEARCH>;
chomp($query);

$url ="http://www.google.co.jp/search?q=".$query."&hl=ja&lr=&ie=EUC-JP&oe=UTF-8&start=10&sa=N";
として、
$rootpage=get($url)としたのですが、
うまくとって来てくれず$rootpageがundefになっています。
どう対処したらよいのでしょうか?

>>558
get() って何？

>>559
聞く前にぐぐれ

LWP::Simpleモジュールにある
URL引数で指定されたドキュメントを返す関数です。
通常のページだとgetのカッコ内にurlを入れるだけで
そのページをとってこれるのですが、Googleではうまくいかないんです。
yahooの検索結果を取ってくるプログラムはできたのですが。。。

561まであるらしいんだがNGのお陰で556でスレ止まってるのが笑える。
何が書き込まれてるんだ全く…。

超気のせいだったｺﾞﾒ

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

>>558
UAではねられてるね。
別のモジュールを試すか、こそっとLWP::SimpleのUAを書き換えるか。

>>558
UAだねぇ。
でもスクリプト対策しているところからあえて取ってくるより、
別の検索エンジンを探すとかしたほうがいいかもよ？
（自分は、あえてするときはLWP::SimpleのUA書き換えてるけど）

ちなみに、$uaをエクスポートしてもらえば串を刺すなど
好き勝手できるのでお勧め。（普通にやるとアク禁されるからね）

>>570
ご意見ありがとうございます。
さらに質問で申し訳ないのですが、
別のモジュールにはどのようなものがあるのでしょうか？
あと、UAとはUserAgentのことでしょうか？

>>571
ご意見ありがとうございます。
こちらもさらに質問になってしまうのですが、
LWP::SimpleのUAの書き換えというのは、初心者にもできるでしょうか？
なにぶんPerlについての知識が乏しいもので。
もし難しいようでしたら、Googleでの取得はあきらめたほうがよさそうですし。

ヒントもらったら、それを元に自分で調べたらどうか？

UAはUser Agent(HTTP_USER_AGENT)です。

別のモジュールはLWP::UserAgentでも、IO::Socketでも。
# 個人的にはIO::Socketが好きだけど、操作が面倒かも。

参照
ttp://member.nifty.ne.jp/hippo2000/perltips/lwpcook.html#GET
perldoc -m lwp

>>575
丁寧に教えていただき、本当にありがとうございました。
アドバイスに従いやってみます。

漏れはLWP::UserAgentを愛用している。
厨な漏れでもできる。
http://member.nifty.ne.jp/hippo2000/perltips/LWP/UserAgent.html

>>577
御意見ありがとうございます。
さきほど、LWP::UserAgentを用いてやってみたのですが、
こちらでも同様な結果となってしまいました。
うーん、難しいですね。

>>578
意味わかってないだろ
使い方の説明くらい読んだら？

>>579
すいませんでした。
こちらの使い方が間違っているようですね。
これからもう少し詳しく読んでみます。

LWP::UserAgentの使い方がようやくわかりました。
これで何とかなりそうです。
皆様ありがとうございました。

素朴な質問なのですけど、どなたか教えて下さい。
あさっての会社の面接で知識のあるASP(VBScript)を主張しようと思っているのですけど、
ASP(VBScript)をはじめCGIやJavaなどの言語でさくせいするページ作成を、
「WEB系アプリケーション」っていう言い方で合っていますでしょうか？

>>582
このスレッドのタイトルと>>1を読んでください。

>>583
あれ・・・、「WebProg 初心者の質問 Part5」って板に書いたつもりが、
違う板にかかれてしまったようです。
単なる凡ミスです。申し訳ありませんでした。

ちょっと不可解で調べても分からんので誰かおしえて。

perlで同じdirectoryに３つのfileがあって
1.const.pm package宣言なし $AA = "okだよ";
2.sub.pm package sub;
require const;
sub bb{print "sub $AA\n";}
3.main.cgi package宣言なし
　 require const;
&sub::bb;
print "main $AA\n";
とすると
sub okだよ
main
と表示されます。$main::AAでもだめ。
$main::AAと$sub::AAと別々に登録され両方
表示されると思っていたのですが・・
ただし、mainとsubのどちらかのrequire constを
require './const.pm'とすると
sub OKだよ
main OKだよ
と両方表示されます。
なんでだろう？長文ごめん。

ちょっと訂正
main.cgi
package宣言なし
require sub;<-ココ抜けてた
require const;
の間違い

>>585Perlは、%INCに入ってると、読みません。

%INCに入っていないとってことですか？
sub.pmとmain.cgiで同じ指定require constとすると
はじめに読み込んだ方しか読み込めないってのが
どうも納得がいかんのです。それぞれ別のpackage変数として
シンボルテーブルに入ると思ってるんで。

>>585
# Active Perl 5.6.1で異常終了するんですけど。。require sub;

ここはひとつ、doでドゥでしょ。(くるしー

>>585
君は変数のスコープを誤解している。
別の言語とごっちゃになってないか?

#--- Const.pm ---
# package 宣言していないのでここは main パッケージ
$AA = 'OK.'; # $main::AA

#--- Sub.pm ---
package Sub;

# どの名前空間で読み込んでも Const.pm に書かれた
# コードの名前空間が変わるわけではない
require Const;

# パッケージ指定されていない => $AA eq $Sub::AA
sub bb { print "sub $AA\n" }
1;

#--- main.cgi ---
# package 宣言していないのでここは main パッケージ

require Const;
require Sub;
Sub::bb(); # "sub \n"
print "main $AA\n"; # "main OK.\n"

>>589
以上終了ってsub.pmが@INCにないってこと？
5.6はカレントみてくれんのかな？
これ試したのはactive perl v5.8.0でした。
do調べてみます。
今まで一枚のfileに全て突っ込んでたけどstepupしようと
思ってfileわけるとこれだもんなあ。。

foreach (@INC) {
print"$_\n";
}
してみれば

>>590
># どの名前空間で読み込んでも Const.pm に書かれた
># コードの名前空間が変わるわけではない
ってことはどこでrequireしようとも$main::$AAとして存在するって
ことでしょうか？
main.cgi内でrequire subのほうをrequire constの前に書くと
&sub::bbの方はokが表示されてmain.cgiないのprint $AAのほうは
表示されないんですが・・

>>592
@INCを調べてみるとカレントは入っていませんでした。
ただ、requireの戻り値をみるとどのrequireも成功は
しているようです。
ということで@INCの問題ではないよな気がするんですが、
どうでしょうか？

うちは入ってたけどね
消して試してみるか・・・

え、私？(なぜに…

perldoc -f require
すると吉。

で、doは
do 'const.pm';
の書式の方ね。ループさせないでね。

で、やりたいことは
const.pmで定数を用意して
各パッケージからconst.pm読みこんでその定数を使いたい。
この際問題なのが
定数を読み込むcgiから別のパッケージをrequireした時、
別のパッケージ内でも定数を読み込んでいると、
定数のrequireと別のパッケージのrequireの書く順番によって
どちらかのばっケージでしか定数が有効になっていないのです・・。
とりあえず、もう一回らくだ読みます。

requireをdoに変えると、main.cgiでのprintと
main.cgiからrequireされたsub.pmでのprintともに
const.pm内の変数をprintすることが出来ました。
requireとdoの違いを勉強してみます。
みなさん、ありがとうございました。

>>593
すまん、俺も勘違いしてた。もう解決したみたいだが一応。

require はファイルに書かれたコードを*実行*するので、Sub.pm
(package Sub) 内で require Const; した場合、require 文のところが
$AA = 'OK.' に置き換わるような振る舞いになり、$Sub::AA = 'OK.'; と
等価。main.cgi (package main) 内で require Const; した場合は
同様に $main::AA = 'OK.'; と等価。

で、require は %INC を見て一度読み込まれたファイルはスルー
するので、先に呼び出した方の名前空間に $AA が 定義され、
もう一方には定義されない。

do なら毎回読み込むので、両方に $AA が定義される。但しこれは
$Sub::AA と $main::AA で、それぞれ別の変数。Sub.pm 内で $AA を
変更しても $main::AA に反映されるわけではないので注意な。

>>597 のようなニーズなら、単に Const.pm で package Const;
として、require する側では $Const::foo 等と読めばいい。
パッケージ名で修飾するのがイヤなら perldoc Exporter 。

>>599
requireの一度読み込まれた場合ってのがkeyですね。
一度読み込まれたってのがどういう条件で判断されるのか。
あるpackage内でなのか（今回の例でこれは違うだろうけど）,
あるファイル内でなのか(requireされたコードも含む)
あるプロセスでなのか。
昨日からのムカムカが後少しですっきりします。
みんな、ホントに感謝！！

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

共有サーバなのでPerlのモジュールとかインストールできないんですが、
UTF-8からUTF-7へ変換出来る.plのライブラリってありますか？

jcodeとかは、そもそも.pmでないとユニコードすら対応していないので・・・

>>609
base64.pl

あぼーん

あぼーん

あぼーん

あぼーん

初心者本を読み終えて、自分でPerlを書いてみたんですが
うまくいきません、、、。

htmlファイルのフォームで受け取ったデータをcgiにpostして
そのデータをファイルに書き込み、確認のhtmlを出力したいのですが、
# ------ここから出力--------
print "Content-type:text/html\n\n";

print << "END_OF_HTML";

<html>
<head>
<title>確認</title>
</head>

<body>

$form1{'a'}を$form1{'x'}ですね。<br>

</body>
</html>

END_OF_HTML

って感じで出力するhtmlの中に日本語を入れるとそこから
<title /title>となり
htmlのソースがおかしくなってしまいます。
日本語を使わなければ、正しく表示されます。
ちなみにcgiファイルに直接アクセスすると、
「をですね。」と変数は表示されずに
htmlは正しく出力されています。

原因を教えて戴けませんでしょうか？
お願いします。

<META http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
を入れてみたら？

>>617のcharsetは使ってる文字コードに置き換えて。

ちゃんとフォームの中身は受け取ってるんですかね？
まさか、↑のが全てじゃないよね。

>>617
有難う御座います。教えて戴いた事を試してみたんですが、
解決しませんでした、、。

そこで試しにもう一度初めから書き直してみたら、うまくいきました(汗

そこで、以前のファイルと比べてみようと開いてみたら
元のファイルが文字化けしてしまいました。

原因は初めそのファイルをemacsで作っていて、途中でgeditで編集
した時に文字コードが変わってしまっていた事のようです。
ご迷惑をおかけしました。

>>610

御察しが良いようで。
UTF-8形式でPOSTされたデータをsendmailで送りたかったのですが、
Base64で符号化、という方法もありましたね。
ところが、UTF-8をBase64で符号化すると、
漢字を含む文章を正しく表示できなくなってしまうようです。
今度はQuoted PrintableでGogってます。

>>rPbXixOt
荒らし？

>>621
そう。粘着荒らし。このスレのあぼーんはほとんど奴。
削除依頼して削除するのも荒らしをかまうことにならないのかな・・・

こんばんは。
先月からPerlの勉強始めて、初心者なのですが
検索した結果、わからなかったため質問させていただきます。
勉強を兼ねて掲示板を作成中で、METHOD="POST"
でHTMLからCGIにデータを送って処理させています。
コード化されて転送される漢字の”十”にバックスラッシュの
コードが含まれていて、文字化けがおこるとのことですが、
処理後、表示される文字は文字化けがおきていません。
jcode.plでデコード処理をおこなったり、CGIにデコード処理の
プログラムを追加することで防ぐそうですが、必要性がいまいち理解
できません。また、ほとんどのCGIプログラムではGETとPOSTとの違いが
わからないようにしているそうですが、GETはセキュリティが弱いため
隠すのはわかるのですが、POSTを使っていけない理由がわかりません。
長文になりましたが、先輩方ご教授ください。

>>623
＞ほとんどのCGIプログラムではGETとPOSTとの違いがわからないようにしているそうですが

へ？ソースのformタグ見ればわかるじゃん

まず、誰が使ってはいけないと言ったのか。

レスありがとうございます。
ttp://www.linux.or.jp/JF/JFdocs/Secure-Programs-HOWTO/avoid-get-non-queries.html
このサイトに違いがわからないようにしてある。という記述がありました。
言葉が悪かったですが、つかってはいけないということではなく、なぜわからなく
する必要があるのかがわかりませんでした。セキュリティの為という幼稚な答えしか
思い浮かびません。
この疑問にあたったのも、そもそもはPOSTを使い、jcode.plを使わずに何の問題も
ないことからなのですが、どのサイトに行っても、デコードとjcode.plを解説しているので
わからなくなってしまった次第です。

>>626
POSTとGETの違いを「意識させない」ように
CGIライブラリが作ってあるって意味。

ブラウザとCGIのやり取りは次のようになる。
1. データをURLエンコードする。(ブラウザがやってくれる）
2. CGIでデータをURLデコードする。(上のCGIライブラリや自力でデコード）
3. 必要に応じて文字コードを変更（統一）する。

で、文字化けに関係してくるのは 3.の部分で、
SJISの「十」は0x8f 0x5cになり、2バイト目が0x5c=「\」と一致する。
そのため次の文字の1バイト目がエスケープされる。
そうすると1文字目の1バイト目と2文字目の2バイト目が合体(キメラ化)して
別の文字になってしまうというわけだ。

>>623
バックスラッシュが含まれて化けるのは、
あくまでリテラルの話な

回答ありがとうございます。
キメラ化の話はサイト巡回中にあったとおもいます。
また、いろいろ考えてみたのですが
POSTで送られてきたデータを@value=param('name')として格納した後
各スカラーに($1,$2,$3)=@valueとして格納するのと

POSTで送られてきたSTDINからread関数でスカラーに格納して、必要に応じて
splitして各スカラーに格納した後に、jcode.plによって漢字変換する方法で

前者は@valueに格納された文字がすでに漢字であり、jcode.plにかける必要がなく
後者はSTDINの内容がメタ文字などを含むコードになっていて、漢字変換する必要がある

という考え方でよろしいのでしょうか？
あまりに基本的な話すぎて申し訳ないです・・

↑追記：送られてくるデータが漢字の場合です。

>>630
インターネット上では、日本語の文字セットとして
EUC-JP,Shift_JIS,ISO-2022JP
等が使われています。
それぞれのコードには互換性がないので、これを変換して
一つの文字セットに統一するものがjcode.pl(jcode.pm)です。

ある文字列の、先頭40バイトだけを取り出したいのですが、
40バイトが、マルチバイトのたとえば「男」の先頭１バイトだった場合、
39バイト（つまり、「男」の直前まで）だけを取り出す、という処理は、
perlではどうすればいいのでしょうか

40byte目がマルチバイトかどうか調べて、そうでない場合は
40byte取り出し、そうである場合は39byteまで取り出す。
euc-jpだったら、
if (/^.{39}[\xA1-\xFE]/) {
print $1, "\n";
} else { print substr($_, 0, 40), "\n";}
shift-jisだったらでき・・

(.{39})だった。

>>632
my $message = 40 バイトで強引にぶった斬った Shift-JIS な文字列;
my $check1 = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
my $check2 = '[\201-\237\340-\374]';
$message =~ s/($check1)$check2$/$1/g;

こんな感じかも。
（♪ch携帯対応改造で使ったやつの引用）

EUCでもいっしょだよ
ほんとはループさせて終端からチェックし、確実に漢字1バイト目じゃないところまで
戻って、そこから進めると最後がASCIIか漢字の1バイト目か2バイト目かわかる

でも40バイトなら先頭から数えても問題ないけどね

ありがとうございます。
SJISだったんですが（←言ってなかったですね、すみません）、
直前にEUCに変換して、
>>561さんのを使わせてもらって、
また、SJISに戻しました。

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

>>633-634
('あ' x 20)をそのルーチンに通したら文字化けするよ。

>>635-636
そんな面倒なことしなくても、EUC文字列の場合単にMSBが立ってるバイト数を
偶数にすれば良いだけだから、

$text = substr($text, 0, 40); # 40バイト取る
$msb = '[\x8E\xA1-\xFE]'; # EUC文字片
chop $text if tr/$msb/$msb/ % 2;

これでOK。(JIS X 0212の存在は無視)

>638
文字列の中にダブルバイトとシングルバイトが共存してる事はありえないの？

あぁ、勘違い。
忘れてくれ。

560じゃなくて632だったです。
OpenJaneで番号ずれてた・・・

>>641
>>633のは機能しませんよ。

>>642
え、まじすか・・・

>>633
確かに２バイトの真ん中できれてますた

264.pts-0.venus(Attached)
という文字列(先頭はタブ)から"264"を抜き出したいんですが
どう書けばいいのか分かりません。

$str = "264.pts-0.venus(Attached)";
m/\t(\d)*?\.pts.*/;
print $1;

で何も表示されず。アドバイス下さい。

>>645
$str =~ m/\t(\d)*?\.pts.*/;
の間違いです。それでもうまく行かないです。

>>646
$str =~ m/\t(\d*?)\.pts.*/;
？ん？もしや釣り？

釣れたぞ、おい

>>632
>>635さんので動くとおもうけど、もうひとつ。
my $sub = substr($str, 0, 40);
$sub =~ /^(?:[\x20-\x7e\xa1-\xdf]|[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc])*$/ or chop $sub;

>>646
こうでも。
$str = "\t264.pts-0.venus(Attached)";
$str =~ m/^\t(\d+)\.pts/;
print $1;

次回からはこちらへどうぞ。
正規表現道場@2ch Part2
http://pc2.2ch.net/test/read.cgi/php/1038146241/

みなはんエディタは何使ってる？
今まで秀丸オンリーだったけどちと検索したら
いろいろあったもんで。
perleditor
cgi_edit
perl debugger
perlを始めよう!
などなど。なんかお勧めのない？

oeditは軽いがtxt,html,Perlなどを編集できる。

>>650
vi に決まってんじゃん。

>>650
多分思いっきりスレ違いです。

Perl書くのにどんなエディタ使ってる？
http://pc2.2ch.net/test/read.cgi/php/1014357485/
使いやすいエディタって何よ？
http://pc2.2ch.net/test/read.cgi/php/991372719/
秀丸よりも優れたフリーエディタ
http://pc2.2ch.net/test/read.cgi/tech/1052919371/

こ、これは失礼しました・・・

viでperlはきつい。

ネタじゃないんですけどね。。
>>649
のまま張り付けたけど何も出力されませんでした(´･ω･`)ｼｮﾎﾞｰﾝ

>>650
xyzzy。他の言語もこれ。

>>655
どの辺が？

htmlのformからcgiに
aa=1,ab=2,ac=3,ba=4,bb=5,bc=6
って送って
$data1 = "$form{'aa'}$form{'ab'}";
$data2 = "$form{'ba'}$form{'bb'}";
$data{'$data1'}= $form{'ac'};
$data{'$data2'}= $form{'bc'};
とした場合に
print $data{'$data1'},$data{'data2'}
は3,6と出力されるのに
print $data{'12'},$data{'45'}
は何も表示されません。

この場合、%dataのキーである12と45は数値データではなく
文字列データとして扱われているのでしょうか?

またその場合、$data{'"12"'}としても12は文字列データとして
代入できないのですが、どのようにすれば代入できますかね?

>659
" と ' の違い

なんか、スレ違いのような気もするんですが、どこに書いて良いか分からないので…。
ｸｯｷｰをセットする時、独自ドメインならアドレスを「/」にしても問題は無いんでしょうか？
http://xx.xx/A/ と http://xx.xx/B/の２つのディレクトリで参照したいんですが
他にやり方がわかりません。

>>661
ない。
path=/

>>662
ありがとう！

>>660さん
ども。しかし、$data{'12'}としても$data{"12"}としても
出力されないんです、、、。

それとも、もっと前の部分で'と "を使いわけろと言うこと
でしょうか?

>>664
$data{'$data1'} => $data{"$data1"}

ちょっと考えればわかる

もっといえば、$data{$data1}でいい。
print '$data1';
print "$data1";
print $data1;

この３つやってみたら？

Windows環境でPerlをやろうと思い、とりあえず本を買うことにしました。
そのため、↓(2ch Books)でお勧めされている初めてのPerl第３版を買おうと思ったのですが、
ttp://www.1point.jp/~book_2ch/webprog/perl.html
Windowsに十分対応しているか不安です。どなたか持っている方教えていただけないでしょうか。
スレ違いであったら申し訳ありません。よろしくお願いします。

初心者です。

”my”と”local”は違うのでしょうか？
”my”が手元の入門書で使われていないので判りません。

教えて下さい。

>>667
はじめてのPerl WIN32 とかいうの発売されてなかったっけ？

ある文字列の中に、ピリオドが２つ以上含まれているかどうかを判断するには、
どうすればいいのでしょうか？

>>670
こんな感じ？

if ($str =~ /\.(.*)\./) {
print "含まれてます";
}

>>671
文字列が巨大でなければこっちの方が早い。

if( ($str =~ tr/././) >= 2){
　　print "含まれてます\n";
}

>>668
違います

localは変数を新しく作るんじゃなくて、一時的に"退避"させるんだったっけ

>>668
http://www.google.com/search?as_q=perl+my+local+%E9%81%95%E3%81%84&num=100&hl=ja&ie=UTF-8&oe=UTF-8

$a = '1';
print "$a\n"; #=> 1
{
　my $a = '2';
　print "$a\n"; #=> 2
　print "$main::a\n"; #=> 1
}
{
　local $a = '3';
　print "$a\n"; #=> 3
　print "$main::a\n"; #=> 3
}
print "$a\n"; #=> 1

>>676
誰にレスしてんねん。

>>677
>>676じゃないが、コンテキストからわかるだろ。

そういえば、<IN>でループ回してるときに
print <IN>;
とかやっちゃって失敗したのを思い出した。

>673 674 675 676
亀ですみませんでした。　レスありがとうございます。 m(__)m
使い方が判りました。　簡単なパッケージを作って確認してみます。

あぼーん

あぼーん

掲示板スクリプトで自動生成したログファイルを
削除したいのですか、ターミナルからrmコマンドを
使ってもpermission deniedが出て消せません。
ローカルでやる時はスーパーユーザーになって
消せますが、ISPの鯖に上げて動かし生成した
ものは自分では消せないようです。どうすれば
良いのでしょう？

>>682
強引に削除するスクリプトを描いて設置しる。
CGI になるかと思うので、レスポンス、エンティティヘッダの出力をお忘れにならないように。

こんな感じででしょうか？
#!/usr/bin/perl
unlink("ファイル名前");
exit;

>>684
それだとエラーに
#!/usr/bin/perl
unlink("ファイル名前");
print "Content-type: text/plain\n\n";
exit;

>>685
？

>>685
本当に消えたのかどうかはっきりさせるために、
#!/usr/bin/perl
print "Content-type: text/plain\n\n";
print unlink("ファイル名前");
exit;
とするのはどうか。

あ、ターミナルからではなく、ブラウザから
アクセスして動かさないといけないってことですか。

>>685
>>684は表示がエラーになるだけでプログラムはちゃんと動いてる。
ファイル消すだけなんだから別に>>685のようにしなくてもいいと思うが。
まあ>>687みたいにするのもいいけど。

あと
#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
unlink("ファイル名") or die $!
とか。

つーか、Webサーバー権限でCGIが実行されるような糞なところは使うなよ。

>>690
iswebっていまだにそうなの？

うまく消せるようです。
ありがとうございました。

消すにはそのファイルが含まれるディレクトリにwriteがないと無理
cgiでディレクトリ作ってパーミッション設定忘れるとそうなるねえ

２個のCGIから書き込み可能なファイルは、片方のCGIでロックファイルした場合に、もう一方のCGIから見てもファイルロックされているのでしょうか。
flockでやろうと考えてるんですが、誰か教えてくだせえー

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

>>694　問題なくロックされる。

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

ちょっとこのスレの趣旨と違うかもしれませんが質問させてください。

今SSIを使って<!--#exec cmd="./aaa.cgi" -->という形で
ランダムでテキスト表示をしています。別にtxtファイルがあり、
その中にある文章を表示するという形です。
そのtxtファイルの中にただの文字列ではなく
<!--#exec cmd="./bbb.cgi" -->というような別のSSIでさらに
ランダムでテキスト表示するための文字列を加えたいのですが、
何も表示されません、
こういう芸当は無理なのでしょうか？

>>708
思いっきりすれ違いな気がするけれども

#! /usr/........
open(F, "textfile.txt") or exit;
@text = <F>;
close F;

print $text[int rand($#text+1)];

じゃ無理なの？

>>708
もしできたら永遠にループして困るだろーがよ。

>>709
それだと普通のランダム表示だと思うのですが・・・。
やっぱりスレ違いなんですね。
それっぽいスレがなかったもので、すいません。

あぁ、意味を取り違えてた。
でも、んなことする必要なくない？

>>710
ループしてしまうものなんですか？
一度出力したら終わりと思っていたのですが。

必要と言われるとそんな気もします・・・。
やっぱり出直します。スレ汚し失礼しました。

最初に起動するCGIで全部処理すればいいだけの話。

この辺はHTTPサーバ依存だと思うが、できるやつは無いかもね
Apacheのドキュメントにははっきりと、できないしする予定も無い事が書いてある

たしかこのスレで、
あるディレクトリ（$path）のtmpで始まるファイルだけを消す方法を尋ねたら、

opendir(DIR, $path) or die;
unlink map { "$path/$_" } grep { /^tmp.*/ and -f "$path/$_" } readdir(DIR);
closedir(DIR);

という答えをもらいまして、
実際にためしたのですが、
消えません。。（ちなみに、dieにもなっていない）

どうすればいいのでしょうか・・・他の方法でもいいので。
（ただ、cgiからunixコマンドを呼び出すことはできない環境です。（のでrm とかできない））

1. やりたいこと:文字列中の漢字をひらがなに変換したい。
2. 試してみたこと
#!/usr/bin/perl
use NKF;
use Text::Kakasi;
use Text::ChaSen;
print "Content-type: text/html\n\nOK!";
exit;
を実行して、ChaSenが鯖に入っていることを確認。

で、googleでサンプルを探したのですが、見あたりません。
ChaSen使っている方いないでしょうか。

>>718
perldoc見たか？

>>717
$path の内容の末尾に「/」が入っている悪寒。

>>717
とりあえずmap { print "$path/$_" }して中見てみれば？

>>719
情報有り難うございます。以下のスクリプト
---------------------------------
#!/usr/bin/perl
use NKF;
use Text::Kakasi;
use Text::ChaSen;
$res = Text::ChaSen::getopt_argv('chasen-perl', '-j', '-F', '%m ');
$str = Text::ChaSen::sparse_tostr("日本語の文字列");
print "Content-type: text/html\n\nOK!";
print $str;
exit;
---------------------------------
を実行したら、
/usr/bin/perl: relocation error: /usr/lib/perl5/site_perl/5.6.1/i386-linux/auto/Text/ChaSen/ChaSen.so: undefined symbol: chasen_getopt_argv
とエラーメッセージが出てしまいました...

1. フォームから送ったデータを別ファイル「fileA.dat」に書き込み、その「fileA.dat」から読み出したデータで分岐をさせたい。

2.jcode.plでデータのコード変換を試みたがうまくいかない。
別の変数に代入を試みたが元データがフォームから送られてきたものである限りうまくいかない。

3. その「fileA.dat」が一枚なら問題ないのだが、ループさせて「fileA[00-99].dat」のようにファイルを複数個つくると、
ファイルがUnicodeで勝手保存されてうまくいかない。
データはブラウザ上では問題なく表示されるが、if文などの分岐の文字列として機能しない。

質問の書き方はこんな感じでよろしいでしょうか？
なにか分かりにくい点がありましたらお手数ですが、レス宜しくお願いします。
どうかお助けください。

>>723
それじゃやってくれってことでしょ
うまくいかないコードぐらい貼って

>>724さま

失礼しました、こちらにコードをアップしました。
よろしくお願い致します。
http://uailehpo.hp.infoseek.co.jp/tmp.txt

tmp.txt = tmp.cgi で配置とパーミッションは、

tmp.cgi(755)
lib(755)/
cgi-lib.pl(644)
data_box(755)/

です。

タブは表示されないのですね、失礼しました。
tmp.cgi(755)
lib(755)/cgi-lib.pl(644)
data_box(755)/
です。

>>725
チェックボックスのvalueを全部同じにしてわざわざ「,」で区切るなんて
根本的にフォームの使い方がおかしい
それにチェックボックスの状態を記録するためだけに
datというファイルをあえてたくさん作りたい理由はあるのか？

レスありがとうございます。
すみません超素人なんです…。
プロの方からみれば本当にどんくさいことをしていると言うのも重々承知しております。
もし宜しければ代替案のヒントなどいただけるとうれしいです。

誰かKENT氏のMT-BOARD持ってる人いませぬか

持ってますが何か？

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

置換演算子s///の、/eオプションについての質問です。

$a = 'A';
$_ = '$a';
print $_, "\n"; # $aと表示

s/(\$\w+)/$1/ee;
print $_, "\n"; # Aと表示。なぜこうなるのか、どなたかご教示ください。

>>740
マッチした文字列（この場合は変数名）を式として評価したから。
じゃないの？

>>740
$a = 'A';
$ab = 'hoge';
$_ = '$a';
s/(\$\w+)/$1 . 'b'/ee;
print; # hoge

>>741, >>742
さっそくのレス、どうもありがとうございます。

742さんの例だと、1回目の/eで置換文字列は'$ab'になり、2回目の/eで
'hoge'になるということですね。

文字列連結を行っていない740の場合、なぜ2回の/eeが必要なのかわからない
のです。

>>743
マッチした文字列（この場合は変数名）を式として評価したから。
じゃないの？

　　　　/＼＿＿_／ヽ　 　ヽ
　　 ／　　　　::::::::::::::::＼　つ
　 . | 　,,-‐‐　 　‐‐-､ .:::|　わ
　　|　 ､_(o)_,:　 _(o)_,　:::|ぁぁ
. 　 |　　　　::<　　　 　 .::|あぁ
　　 ＼　 /( [三] )ヽ ::／ああ
　　　／｀ー‐--‐‐―´＼ぁあ

巨大な文字列$varがあったとして、先頭128バイトが要らないとき、
余分な代入をせずに、これを無視する方法はありますか？

つまりＣでいう
　　char* p = &var;
　　p += 128; // 以後は p を使ってアクセス
のようなことがしたいのですが。

>>742
$a = 'A';
$ab = 'hoge';
$_ = '$a';
s/(\$\w+)/$1.'b'/; print $_, "\n"; $_ = '$a'; # $a.'b'
s/(\$\w+)/$1.'b'/e; print $_, "\n"; $_ = '$a'; # $ab
s/(\$\w+)/$1.'b'/ee; print $_, "\n"; # hoge

# 上の表示をじっと見ると、文字列連結しないなら、下のようになるのは当然
# でした。お騒がせいたしました。

$_ = '$a';
s/(\$\w+)/$1/; print $_, "\n"; $_ = '$a'; # $a
s/(\$\w+)/$1/e; print $_, "\n"; $_ = '$a'; # $a(/eなしと同じ)
s/(\$\w+)/$1/ee; print $_, "\n"; # A

簡単だと思いますが、自力でわからないのでご回答願います。

文字列$strの中に「,」がいくつ含まれているかを表示させる方法

>>748
$count = ($str =~ tr/,/,/);
print $count;
s///とtr///(y///)は変換(置換)した文字数を返す。

なるほど！ありがとうございます。

>>746
$var = substr($var, 128); じゃダメ？

メールアドレスで自動リンクの仕方はどうやるのでしょうか？

>>752
ぐーぐる様に尋ねますタ。
http://www.google.com/search?as_q=perl+%E3%83%A1%E3%83%BC%E3%83%AB%E3%82%A2%E3%83%89%E3%83%AC%E3%82%B9+%E8%87%AA%E5%8B%95%E3%83%AA%E3%83%B3%E3%82%AF&num=100&hl=ja&ie=UTF-8&oe=UTF-8

そしたらこんなページがヒットしますた。
http://www.ohanasiya.com/contents/tips/

@fine=(['クーラー','#eeeeee'],
　　　 ['エアコン','#eeeeee']);

foreach(1 .. $#fine){
$y1[79] =~ s/$fine[$_][0]/
<span style="color:$fine[$_][1]">
$fine[$_][0]<\/span>/g;

でやってるんですが、どうもクーラーの
ーがいけないみたいで表示が真っ黒に
なってしまいます。
あと夕の文字も駄目みたいなんですが、
対処法を記載して下さい。
ーを半角にすると大丈夫みたいですが。。。

>>754
＞foreach(1 .. $#fine)
foreach(0 .. $#fine)じゃないかい？

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

>>754
>>755
むしろ、全部ぶん回したいなら、
foreach ( @fine ) {
$y1[79] =~ s/$_->[0]/
<span style="color:$_->[1]">
$_->[0]<\/span>/g;
}
こうした方が。

>>752
http://www.din.or.jp/~ohzaki/perl.htm#Mail
>>754
http://homepage1.nifty.com/nomenclator/perl/shiftjis.htm

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

ここに長いこと粘着してる荒らしって前にパンチとかキックとか言ってたやつ？

>>773 そう。あれからずっと自己紹介し続けてる。

申し訳ありません、コンパイルエラーのことを聞くのは恥ずかしいとは思うのですが、
どこで発生しているのか見当すら付きません。

[Wed Sep 10 11:02:42 2003] [notice] Apache/1.3.27 (Unix) configured -- resuming normal operations

[Wed Sep 10 11:02:42 2003] [notice] Accept mutex: sysvsem (Default: sysvsem)

Can't use global @_ in "my" at /usr/local/lib/perl5/5.6.1/Carp/Heavy.pm line 30, near "return @_ "

Compilation failed in require at /usr/local/lib/perl5/5.6.1/Carp.pm line 97.

というエラーは、どこでどう発生しているのか、発見する方法について何かご存知の方がいらっしゃればアドバイスをお願いいたします。

フィーバー
↓

すいません
PerlでBBSを作っていますが
unshiftで配列だと新しい記事は上につくんだけど
２ｃｈのように下につけるにはどのようにするのですか？

あぼーん

>>777
push …でいいのか？

あぼーん

例えばコンピュータに色を付けたい時に、
色の指定の所で、「ー」の記号を使うと
エラーになるみたいなので、
コンピュとタの間に色の指定をする事
は出来ないでしょうか？

JPEGファイル限定で<INPUT TYPE=FILE>タグからPOSTされてきた画像を
鯖に保存する際、オリジナル以外にサムネイルも一緒に保存したいのですが、
何かよい.plライブラリはありませんでしょうか？
オリジナルファイルを保存することは簡単にできたのですが。

ググッっても、うまく見つけれずにいます。
知識者の方、よろしくお願いいたします。

>>781
トーシロで申し訳ないが、文字を抽出する時、
全角２バイトの１バイト目が[\x81-\x9F\xE0-\xFC]の場合を
考えてみたらどうでしょうか？

>>781
「ー」の２バイト目は0x5b→[
「タ」の２バイト目は0x5e→^
どっちもメタ文字だから。
\Qでも使ってエスケープしてみれ。

あぼーん

あぼーん

あぼーん

あぼーん

>782
サーバーにImageMagickが入っていれば簡単ですよ。
確認してみたら。
ちなみに、オレはロリポというサーバーで使っているよ。

>>775
ドイツ語だけど、こんなの見つけた。
ttp://www.rede-mit.de/cgi/archiv/thread791.shtml

すんまそん。ActivePerl v5.8.0 built for MSWin32-x86-multi-thread です。
関数でハッシュを返したいんですが、
リファレンスで返せばいいことまではわかりました。
しかし、リファレンスで返した後どう参照したらいいかがわかりませんです。
どぼじて？

<code>
sub test {
　　my %ret = { '01' => "test01" , '02' => "test02" , '03' => "test03" };
　　return \%ret;
}

$hash = test;
while ( ($key, $value) = each %$hash ) {
　　print "Key: $key, Value: $value\n"; # 出力 Key: HASH(0x16253ec), Value:
}
</code>
ここ参考にします他．
http://www.rfs.co.jp/sitebuilder/perl/02/10.html#%83%8A%83t%83@%83%8C%83%93%83X%82%CC%8EQ%8F%C6

あぼーん

$hash = test;
↓
$hash = &test;

すいません、自己解決できました。
わてくし、ハッシュを作る時の () と、{} の違いがわかっておりませんです他。
() ： ハッシュの作成。
{} ： ハッシュへのリファレンスの作成。
sub testでしょっぱなから {} を使ってハッシュへのリファレンスを作成し、
それへののリファレンスを返していたので、リファレンスへのリファレンスになっていました。
それが、期待した動作を得られない原因です他。
<code>
sub test {
　　my %ret = ( '01' => "test01" , '02' => "test02" , '03' => "test03" );
　　return \%ret;
}
</code>
こうすることで上手くいきます他。
>>774氏、お手数おかけしてすいません。ありがとう御座いました．

参考までに下記のサイトが、ハッシュのリファレンスに関してわかりやすかったです。
http://plaza17.mbn.or.jp/~naotosi/Special/perl/perl3.html#2-2

>>782
GD.pm ってのもあるけれども、、、

>>781
Shift-JISで組むな。EUC-JPで組め。

>>795
まあ、JPEG限定と最初の質問には明記しているが、
拡張性を考えてImage-Magickを使っておく方がいいもんだよ。
# 後で絶対機能追加したくなるって。

あぼーんが速くなったな

渇を入れてやったから

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

あぼーん

レスありがとうございます。
Win鯖なので、ImageMagickはインストールできないですよね？
ＧＤ.pmもパッケージのインストールが必要なのでしょうか？

ここはコーディングの・・・いやなんでもない。

>>809
申し訳ないil||li _|￣|○ il||li

あぼーん

>>781
なんで未だにこういうのがいるのかね。
Shift-JISで書いてわざわざ\ｴｽｹｰﾌﾟするぐらいならEUC-JPで書いた方がマシ。

みなさん初めまして。
ホームページで、金額を表示したい場合などのために、
『引数として渡された数字を、３桁ごとにカンマで区切って、戻り値として返す』
という以下のようなパッケージを作りました。
いちおうは正常に動作しているようなのですが、
渡された引数の、先頭の数字が0だった場合（例014825）のみ、エラーが出てしまいます。
どなたか理由がわかりませんか？

package utility;
######################################
# 数字を３桁づつに区切る
sub sanketa {
my (@arr); my (@kazu); my ($i); my ($NUM);
@arr = reverse (split(//,$_[0]));
while (@arr) {
for (1..3) {
$i = shift(@arr);
push (@kazu,$i);
}
if ($arr[0] ne '') { push (@kazu,',')} ;
}
@kazu = reverse(@kazu);
foreach $i (@kazu) { $NUM .= $i; }
return ($NUM);
@arr=(); @kazu=(); $NUM=();
}

>>813
頭に 0 つけると 8進数

<input type="file" name="upload">
みたいな感じでファイル（CSV形式）をアップロードさせようと思っていますが、
スクリプト側でどのようにしてファイルを拾えばいいかわかりません。
ファイル自体を処理するのは大丈夫なんですが、
どのようにファイルを拾えばよいかどなたか御教示いただけませんか？

>>815
　### データ処理 ###
　binmode(STDIN);# バイナリモード
　$section_line = <STDIN>;# 区切り行
　$section_line =~ s/\r\n//;
　while(<STDIN>)# データ処理
　{
　### バイナリデータ ###
　if($_ =~ /uploader/)# TAG NAME
　{
　if($_ =~ /filename=""/)
　{
　#ファイルが指定されていない。
　exit;
　}
　~s/\r\n//;
　~s/"//g;
　@buf = split(/filename=/, $_);
　$full_path = $buf[@buf - 1];# パス付ファイル名
　$file_name = $full_path;
　&jcode'convert(*file_name, 'euc');# EUC
　@buf = split(/[\\\/]/, $file_name);
　$file_name = $buf[@buf - 1];# ファイル名
　&jcode'convert(*file_name, 'sjis');# Shift-JIS
　@buf = split(/\./, $file_name);
　$file_ext = $buf[@buf - 1];# ファイル拡張子
　$file_ext =~tr /A-Z/a-z/;

>>816のつづき
　$file_kind = "その他";
　$file_kind = "JPEG"if($file_ext eq "jpg");
　$file_kind = "JPEG"if($file_ext eq "jpeg");
　$file_kind = "GIF"if($file_ext eq "gif");
　$file_kind = "MS-WORD"if($file_ext eq "doc");
　$file_kind = "MS-EXCEL"if($file_ext eq "xls");
　$file_kind = "WAVE"if($file_ext eq "wav");
　$file_kind = "ZIP"if($file_ext eq "zip");
　$file_kind = "LZH"if($file_ext eq "lzh");
　$binary_data = '';
　$content_type = <STDIN>;# Content-Type
　$content_type =~ s/\r\n//;
　($null, $content_type) = split(/\//,$content_type);
　$null = <STDIN>;# 空行
　while(<STDIN>)
　{
　lastif($_ =~ /^$section_line/);# 区切り行でループを終了
　$binary_data .= $_;# バイナリデータ
　 }
　
　### ファイル書込 ###
　open(fp,">$file_name");# オープン
　binmode(fp);# バイナリモード→ファイル
　print fp "$binary_data";# 書込
　close(fp);# クローズ
　
　}

>>817のつづき
　### テキストデータ ###
　else
　{
　($null, $name) = split(/name=/,$_);# TAG NAME
　$name =~s /\r\n//;
　$name =~s /"//g;
　$null = <STDIN>;# 空行
　$value = '';
　while(<STDIN>)
　{
　lastif($_ =~ /^$section_line/);# 区切り行でループを終了
　$value .= $_;# VALUE
　}
　$value =~s /\r\n//;
　
　### タグ別処理 ###
　if($name eq 'title')
　{
　$value = ''if($value eq '');
　$title = $value;
　}
　elsif($name eq 'message')
　{
　$value = ''if($value eq '');
　$message = $value;
　}
　}
　}

>>813
そんな面倒なことせんでも・・・
ttp://www.din.or.jp/~ohzaki/perl.htm#NumberWithComma

sub foo{
　my $hoge = shift;
　my %hoge = %$hoge;
　$aho = $hoge{'args'}->[0];
}

というサブルーチンに関してなのですが、まず、$hogeにはfooを呼び出した時の
1番目の引数が入りますよね？
で、次の二行目の意味がわからないんですが…。
%$hogeってのは、hogeは何かのリファレンスのハッシュで、それをデリファレンス
しているので、その実体という事ですよね？
それを自分自身に代入しているということは、リファレンスから実体に変換している
という事でしょうか。でもそもそも%hogeは初期化も値の定義もされてないし…。
一行目の変数$hogeと何か関係があるのでしょうか。

それと最後の行なのですが、hogeが配列で$hoge->[0]という文ならば、
hogeはリファレンスの配列で、その0番目の要素をデリファレンスしている、
つまり$ahoにはその実体が入る、と思うのですが、ここではhogeはハッシュだし…。
ハッシュの[0]ってどういうことでしょうか。

アホな質問をしているかもしれませんが、らくだ本とかで調べてもよく分かりませんでした。
教えて頂けるとありがたいです。

>>814 >>819
乙。
とても参考になりました。

>>820
sub foo{ # サブルーチンの定義
　my $hoge = shift; # 第 1 引数をローカル変数 $hoge にコピー。
　my %hoge = %$hoge; # $hoge の名前の付いた HASH をローカル変数 %hoge にコピー
　$aho = $hoge{'args'}->[0]; # %hoge の 'args' というキーに格納されているリストの 0 番目の値を $aho にコピー
}

●実際に値を入れて考えてみる。
&foo('heee'); # と呼び出してみる。

sub foo{ # サブルーチンの定義
　my $hoge = shift; # 第 1 引数 'heee' をローカル変数 $hoge にコピー。
　my %hoge = %$hoge; # $hoge の名前の付いた HASH %heee をローカル変数 %hoge にコピー
　$aho = $hoge{'args'}->[0]; # %hoge(=%heee) の 'args' というキーに格納されているリストの 0 番目の値を $aho にコピー
}

こんな感じ？
添削ｷﾎﾞﾝﾇ

>>822
ハッシュリファレンス期待してるサブルーチンに引数'heee'って
定数つけて呼んでもエラーだろ。

&foo( \%heee );

てか、元投稿、「らくだ本とかで調べてもよく分かりませんでした。」てのがわからん。

ファイルのCRC32値を計算するルーチンを
そのへんの資料を使って、

@CRC32TABLE = ( いつものCRC配列 );

$filename = $ARGV[0];
$crc32 = &crc32($filename);

print "$filename\n$crc32\n";

sub crc32 {
my($char) = 0;
my($crc) = 0xFFFFFFFF;
open(FILE,$_[0]);
binmode(FILE);
while(<FILE>) {
for $char ( unpack("C*", $_) ) {
$crc = $CRC32TABLE[($crc ^ $char) & 0xFF] ^ ($crc >> 8);
}
}
return sprintf("%08X",($crc ^ 0xFFFFFFFF));
}

と書いて、動きはするのですが、計算速度がコマンドラインexeツールとかの
100分の1くらいしか出ません。(´･ω･`)
もちっと高速化するにはどのへんをいじるとイイ感じになるんでしょうか?

＠INC（ライブラリへのパス）関連の質問なんですが、
use strict でstrict.pmを呼び出すプログラムをperl -c で構文チェックすると
以下のようなエラーがでてしまいます。

Can't locate strict.pm in @INC (@INC contains: [/usr/local/lib/perl5/5.00503]/us
r/local/lib/perl5/5.00503 y /usr/local/lib/perl5/site_perl/5.005/sun4-solaris /u
sr/local/lib/perl5/site_perl/5.005 .)

詳しいことはわからないのですが、環境変数PERL5LIBを設定する必要があるのでしょうか
作成したスクリプトにライブラリの位置を明記しなくても、自動的に読みに行くようにしたいのですが
どのように設定したら良いでしょうか？よろしくおねがいします。

追記：
/usr/local/lib/perl5/　
の中にCGI.pmやstrict.pmが格納されています

>>822
うーんとつまり、fooの第一引数はハッシュへのリファレンスで、
一行目で変数$hogeにそれを代入、二行目でローカルのハッシュ%hogeに
$hogeをデリファレンスした物をハッシュとして、つまり第一引数が参照している
ハッシュの実体を代入する、という事でしょうか。
んで%hogeはリストのハッシュで、$aho=$hoge{'args'}->[0];は、キーargsの要素
であるリストの0番目の実体を$ahoに代入する。
…で合ってるでしょうか。

>>823
リファレンス、デリファレンス、矢印演算子を扱ってる8章のあたりを読みなおして
みたのですが、いまいちわかりませんでした。
他にこの章を読んでおけってのがあれば、言ってくださると助かります。
全部読むのが一番良いんでしょうけど。

>>827
まあ、リファレンス、デリファレンスってなれないと難しいよね。
でも、らくだ本は読み物としても面白いから全部読むのがいいと思うよ。
複雑なデータ構造作ったり、そのうちオブジェクト指向やる、ってことになたら必須だし。
まあ、もって歩くには重たいけど。
で、単に要素を参照するだけならレキシカル変数 %hoge にコピーする必要ないよね。
もし %$hoge がでかかったらけっこう無駄だし。

sub foo{
　my $hoge = shift;
　$aho = $hoge->{'args'}[0];
}

これで要素をデリファレンスできるわけだから（※矢印位置）
がんばって。

perlチェッカー全く使えないね。
すぐにこれが出るよ↓
Missing right curly or square bracket at ore_sub-politics.cgi line 657, at end of line
syntax error at ●●●.cgi line 657, at EOF
これって、どっか（）閉じ忘れだぞ〜って言う事なんでしょ。
それがどこか聞いてんのに…。
もっと性能の良い perlチェッカーか、
対処法を教えて下さい。

>>829
ふつー閉じ間違いとかしねーよ。はずかしー奴。
どうせきったねー何も考えてないコーディングやってんだろ。
http://perldoc.jp/docs/perl/5.8.0/perlstyle.pod
ここでも読んで自分のソースを全部見直してみろ。
これで腹立って過去の自分をたたき殺したくなったならまだ見込みはあるけどな。

>>830
おいおい、ちゃんとスタイルに乗っとって書いてても括弧の閉じ間違いぐらい
するだろ。それとも実行する前にいちいち見直すのか？
インタプリタに渡した方が楽だろ？

間違えた
乗っとって→則って