【Perl】初心者コーナーPart11

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

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

1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。

参考書籍はこちら【【Perl,CGI】参考書籍 第２版 】
http://pc.2ch.net/test/read.cgi/php/988809842/
CGIの質問はこちら【CGIだけどなんか質問ある Pert 5.01 】
http://pc.2ch.net/test/read.cgi/php/1015127347/l50
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/

過去ログ、その他の役立ち情報は>>2-10を見よう。

[過去ログ]
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/test/read.cgi/php/996075607/
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/test/read.cgi/php/1009549309/
Part10　http://pc.2ch.net/test/read.cgi/php/1014556702/

[ひまぢん氏のミラー]
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/
　・CPAN.com: http://search.cpan.org/
　・ActivePerl: http://www.activestate.com/
　・CGI-ML:http://forest.ne.jp/cgi-ml/
[お薦め]
　・Perl Recipes: http://www.effectiveperl.com/recipes/
　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
　・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]
　・Perl News: http://www.news.perl.org/
　・Perl Monks: http://www.perlmonks.org/
　・PerlMonth - Online Perl Magazine - : http://www.perlmonth.com/index.html　接続不能
　・use Perl All The 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/

[Module]
　・Perl Module Reference: http://www.bekknet.ad.jp/~bero/docj/module_/
　・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.html
　・Perl security和訳：http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsec.html
　・CGI and Security http://www.ansi.co.jp/tech/cgi/security/
　・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.txt
[OS]
　・Linux日本語マニュアル：http://www.linux.or.jp/JM/
　・FreeBSD日本語マニュアル：http://www.jp.freebsd.org/man-jp/

続き

991 名前：製作板で誘導した人 本日の投稿：02/03/27 12:14 ID:???
$permissionの中身は何？
てかパーミッション設定するのに変数使う必要あるんだろうか・・・・
$file="\.\/$folder\/$filename";
chmod　666,$file;
とかじゃﾀﾞﾒ？


992 名前：nobodyさん 本日の投稿：02/03/27 12:26 ID:???
nobodyに0700にされる罠。


993 名前：帝国 ◆9qoWuqvA 本日の投稿：02/03/27 12:39 ID:BFIdDUdC
パーミッションはフォームにいれた値。
だから変数に格納する必要が。。


994 名前：nobodyさん 本日の投稿：02/03/27 12:44 ID:???
パーミッションは８進数で設定するのは別に罠ではないという罠。

立たぬなら　立つまでまとう　Perlスレ

>5
とりあえず、変数に入れずに試してみろ。
自分でも原因究明する努力は忘れずに。

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

octで８進から10進にしたらとアドバイスしようと思ったが、
頭に0を付ければ８進数として解釈するんでないかい？

試したけどダメでした。

>8
umask(0);
じゃあ、これをファイル作成の前においてみて。

サブルーチンのパラメータなのですが、
配列を送ろうとすると、パラメータが混ざってしまいます。
回避方法はありませんでしょうか

local ( @aaa , $bbb ) ;
@aaa = ( 0 , 1 , 2 , 3 ) ;
$bbb = "4567" ;
&test( @aaa , $bbb ) ;
exit ;

sub test
{
　local ( @aaa , $bbb ) = @_ ;

　print "\@aaa=@aaa\n" ;
　print "\$bbb=$bbb\n" ;
}

このソースを実行しますと。

@aaa=0 1 2 3 4567
$bbb=

となります。
これを。

@aaa=0 1 2 3
$bbb=4567

このようにしたいのですが

>10
最初の要素で@aaaの要素数を渡しておけば？

すいません今日Perlをはじめたばかりの者です。
今練習でCHATを本のサンプルから作っているのですが、

＆ReadPars(*in)

という入力があるのですが、この「*in」とはどのような意味なのでしょう？
もし宜しければご教授ください。

普通はリファレンス使うと思う。
ってかなぜmyじゃなくてlocal？

>>12
フォームから渡されるデータを格納するハッシュの名前
&ReadParse(*in);
とするとフォームから渡されたデータが
%inというハッシュに格納される

で良いですよね？＞諸先輩方

>>14
ありがとうございます。
ReadParseというサブクラス（？）に定義されているハッシュに格納するコードを
呼び出してそこに「in」の値を渡し、結果として%inとなるという事ですよね？

では「＊」とはどういう意味なのだろう・・・

すいません、せっかく教えていただいているのに・・・
もし宜しければそのあたりが詳しく書いてあるサイトを教えていただけないでしょうか？
検索をかけてもヒットする単語が多すぎて検索できないのです。

何度もすいませんでした。
inが関係ないという事で検索する事ができました。
*とはいろいろな変数の型を纏めて扱えるようになるものだったのですね（語弊あり？）

お邪魔いたしました。

＆ReadPars(*in)
こんな時代遅れのことをやると恥ずかしいので、忘れた方がいいですよ。

>>13

>普通はリファレンス使うと思う。
>ってかなぜmyじゃなくてlocal？

myでのパラメータ渡しの記述例
お教えいただけませんか、よろしくお願いします。

>>18
localをmyに変えれば？
そして本屋に行ってPerlの本でも買えば？

>>19

レスありがとう御座います。
早速試してみました。

>localをmyに変えれば？

my ( @aaa , $bbb ) ;
@aaa = ( 0 , 1 , 2 , 3 ) ;
$bbb = "4567" ;
&test( @aaa , $bbb ) ;
exit ;

sub test
{
　my ( @aaa , $bbb ) = @_ ;
　print "\@aaa=@aaa\n" ;
　print "\$bbb=$bbb\n" ;
}

実行結果：
@aaa=0 1 2 3 4567
$bbb=

残念ながら結果は、変わりませんでした。

>そして本屋に行ってPerlの本でも買えば？
ご指摘ありがとう御座います。
先程、www.amazon.co.jpにて
プログラミング Perl （オライリー社)
Effective Perl (ASCII 社)
の2冊購入いたしました。

先程の、配列のパラメータ渡し解決いたしました。

my ( @aaa , $bbb ) ;
@aaa = ( 0 , 1 , 2 , 3 ) ;
$bbb = "4567" ;
&test( \@aaa , \$bbb ) ;
exit ;

sub test
{
my ( $aaa , $bbb ) = @_ ;

print "\@aaa=$$aaa[ 0 ] $$aaa[ 1 ] $$aaa[ 2 ] $$aaa[ 3 ] \n" ;
print "\$bbb=$$bbb\n" ;
}

実行結果：
@aaa=0 1 2 3
$bbb=4567

http://www13.cds.ne.jp/~ohsaru/perl/perlref.html
こちらのページが大変参考になりました。

>>21
レスキューやKENTのようなヘボの模倣しないで、プロトタイプ使えって。

sub manco(\@$)
{
print "$_[0]->[0]\n";
print "$_[1]\n";
}

@a = qw(1 2 3 4 5);
manco(@a, 10);

>>22

ようきけや、22よ、
君いつもいるね。

いつもそんなことばかりやっているね。気付いてるかい？
はっきり言って誰も君のこと相手にしてないよ？わかってるの？
それって、自分ではおもしろいと思ってやっいているんだろうね。
きっと、薄ら笑い浮かべてやっているんだろうね。

でもさぁ、君以外の人には全然おもしろくないんだよ。
もしかして自分でもおもしろくないのにやっているんじゃないの？
自分でも何してるのかわからなくなってるんじゃないの？

家族からも近所からも煙たがられているんだね。
友達も彼女もいないんだね。会社でも浮いているんだね。
どこに行っても相手にされないんだね。

ネットでも無視されてここに流れ着いて来たんだね。
ここでさえ相手にされてないじゃん。どうするの？かわいそうに。
もう駄目じゃん。生きていても何もいいことないよ？
どうせ誰からも相手にされないんだから、死んだ方がいいんじゃない？

相手にされないから奇抜な言動で注目を浴びようと必死なんだね。
始めは少し注意を向けてもらったのだろうけど、もう飽きられて完全に 無視されているね。
おもしろくもないのに、意味不明な事を大量に書かれても目障りなんだよね。
それって迷惑なんだよ？気付いてる？

さようなら。この世から消えてくれ。君いるだけで迷惑。
せめて最後ぐらい人里離れた山の中で自殺してね。

>>22

プロトタイプ宣言についてですが、

@array = ( 'a' , 'b' , 'c' , 'd' ) ;
$str = "4567" ;
test( \@array , $str ) ;
exit ;

sub test(\@$)
{
my @aaa = $_[ 0 ] ;
my $bbb = $_[ 1 ] ;

print "$aaa[ 0 ]:$aaa[ 1 ]:$aaa[ 2 ]:$aaa[ 3 ]\n" ;
print "$bbb\n" ;
}

実行結果：
a:::
4567

こんな感じに変更してみたのですが、
testへの最初の引数の配列が正しく
@aaaに渡りません。
$_[ 0 ][ ? ]だと問題無く参照できるのですが、
どこか間違ってますでしょうか

>>24
プロトタイプは呼び出し前に宣言したヤツしか反映されない。

sub foo( prototypes );

foo(args);

sub foo( prototypes ){
...
}

>>23
分かったからとっとと死ね。

なんのためにプロトタイプをつかうか説明しろよこのカスどもが！！
まともに説明もできないのかこのガラクタが！！

>>27のようなヘボこそ使うことをお勧めする。
君も後10年もすれば必要性がわかるかもね。(ﾌﾟ

>>27
自分より上で自分を呼ばれた場合非常に困る。

>>29
よって、自分より下に自分のプロトタイプ置くアフォはいない。だね。

>28
どうやらオマエは説明もできないのに使ってるようだナ！
知ったかぶりがバレてしまって顔が青ざめて必死になって今調べている姿が
目に浮かぶな！ 実にこっけいなピエロ君だなオマエは！
無力なオマエは周りの人たちから陰であざ笑われていることさえも気づかずに
一生を過ごしていく、そんなちっぽけな存在のまま残り少ない人生をひっそりと
過ごしていかなければならないオマエの存在価値は小さ過ぎてどうでもいいことだ。
ただ、いまおれに相手してもらえたことだけでもありがたく思って寝ろ！

>>31
>>29-30を理解してからほざけ。な。

>>32
馬鹿相手に無茶言うなよｗ

プロトタイプ宣言をしたサブルーチンで再帰させる場合には&をつけないとだめですか？

sub foo ($) {
    $_[0] == 0 or &foo($_[0] - 1);
    print $_[0];
}

foo 10;

sub bar ($) {
    $_[0] == 0 or bar $_[0] - 1; # error
    print $_[0];
}

bar 10;

>>34 >>25のようにかける。
sub bar($);
sub bar ($) {
$_[0] == 0 or bar $_[0] - 1;
print $_[0];
}

>35
あ、なるほど。勉強になります。

質問があります。
Perlのスクリプトって、いったん全部をコンパイルしてから処理をするのでしょうか？
それとも、そのルーチンで必要な部分だけピックアップしてコンパイルするのでしょうか？

なんでこんな質問をするかといいますと、

if ($hoge) { require "hoge.pl"; &hoge(); }
といったソース書いたとします。
$hogeがtrueにならなかったときには、hoge.plの中にエラーがあっても、
警告されないような気がするんです。

だとするのなら、ケースによって全く異なる処理になるようなルーチンは、別のファイルで
作成した方が、スクリプト自体が小さくなり、より高速に処理が終了するのかな？
という風に想像しているのですが。

「むしろrequireで呼び出すファイル分ディスクアクセスが発生したりいろいろで、
　その場合は遅くなる」
という風な想像もあったりするのですが、その辺みなさんはどうお考えなのか、
ぜひお教え下さい。

>>37
man SelfLoaderが参考になると思う。

「data」というフォルダに入っている画像を一覧表示したいんですが
どうすればいいのでしょうか？？

フォルダに格納されている画像が6つの時は
★★★
★★★
画像が8つの時は
★★★★
★★★★
このように表示したいです。

>>39
してよ。

>>39
その★は、画像のサムネイルって意味？それとも
<a href=hoge.jpg>★</a>
っていみ？

>>41
★はサムネイルじゃなくて、生画像です。

(open|read|close)dir とか
glob('path/to/images/*.*')とか
`ls path/to/images` とか。

>>39
2段にしたいんだよね
だったらファイル数2で割って、そこで改行すれば良い
って俺は3ヶ月ぶりに触ってるからアホ丸出しなんだけど　（笑

えーと、コード書けない（笑　　けどこんな感じかなあ･･･

sub openDir()
　{
　　　#ディレクトリを開けてファイルを数えて２で割って$linefeedをフラグにする　
　　　&dispImage($dir,$file,$linefeed);　　　　　　
　　　#　$dirディレクトリのパス
　　　#　$ファイル名
　　　#　改行表示用のフラグ
　}

こんな感じで行けると思う　　（遅いかな
dispImageを頑張って書いてちょ

ああ、変になった

$dir　ディレクトリのパス
$file　ファイル名
$linefeed　改行表示用のフラグ

#名無しさん＠お腹いっぱい　じゃ無くなってる！

「＊＊というディレクトリの中に＊＊というファイルがあれば」
という意味のif文を教えてください。

>>47
if(-e "**/**")

>>48
サンクス！

4 名前：名無しさん＠お腹いっぱい。 投稿日：2001/04/24(火) 13:25
＞２
私は在日韓国人ですが、日本生命側が怒る気持ちも理解できます。
私も西村氏の掲示板運営に抗議するため、敢えてここで西村氏を誹謗中傷し、
「文句があれば訴状を送って来い」
と、連絡先をメールで伝えましたが、訴状は届きませんで、代わりに
イタズラ電話が毎日かかってくるようになりました。
本当に陰湿で卑劣な男です。

21 名前：名無しさん＠お腹いっぱい。 投稿日：2001/04/27(金) 22:01
ひろゆきの彼女へ

今回の件、知ってるだろ？
悪い事はいわない。
ひろゆきとは別れたほうがいいぞ。
こんなイタ電しかできない男と一緒にいてどうする。
イタ電でパクられるなんてのは、大抵は女だぞ。
ひろゆきの脳は女性ホルモンが支配している。
女と女がくっついてたってしょうがないだろ？

24 名前：名無しさん＠お腹いっぱい。 投稿日：2001/04/27(金) 22:26
いたずら電話とはひろゆきらしいな
ひろゆきの陰険さはメルマガ読んでればわかるし、驚きもしないが
それよりも自分への中傷だけには異常に反応するところが愉快だな

>50
ﾁｮﾝ公ｳｾﾞえよ

IO::Scalar を使わずに標準出力を変数に貯える方法はないでしょうか？
いちいちファイルを作っていたら大変なので困ってます

>>52

sub printx
{
my($data) = @_;
push(@buffer,$data);
print $data;
}

>>52
IO::Scalarのどこが気に入らないかはっきりしないと助言のしようがない。
塚、変数に入れて、その後どうしたい?

>53
うにゅ？ STDOUTに出力される奴を変数に送りたいんです

my $stdout;
tie *STDOUT, 'IO::Scalar', \$stdout;

こんな感じです。ActivePerl だと IO::Scalar がなくて…

>54
ActivePerlの標準インストールベースで動かないといけないので
困ってます
再帰処理で標準出力に吐いているデータを加工するためにバッファ
に貯め込みたいんですが、再帰部分に手を入れたくないんですよ

@a = (1, 2, 3, 4, 5);
@b = (5, 4, 3, 2, 1);
@c = reverse @b;

if ( @a == @c ) {
print "equal\n";
} else {
print "not equal\n";
}

if ( @a == (reverse @b)) {
print "equal\n";
} else {
print "not equal\n";
}

の実行結果が

equal
not equal

になるのはなぜですか？

>>55
IO::Scslarハックして、標準インストールでも動くようにする。

ppmでIO-stringyをインストールする事すら出来ないのか。

>>56
1 ppmでインストールさせる。
1.5 IO::Scalarは一緒に配る。
2 perltie見ながらFILEHANDLEにtie出来るクラス作る。
3 再帰部分に手を入れる。

パッケージが限られるのならオーバーライドするって手も無くはないな。

>58-61
うーん、やっぱそうですか
相手が素人さんなのでインストールさせられないんです
中見てみます（ｼｮﾎﾞｰﾝ
・・・作るか

>>57
実際に評価されているのはスカラーだよ．

my @a = (1, 2, 3, 4, 5);
my @b = (5, 4, 3, 2, 1);
my @c = reverse @b;

my $a = @a;
my $b = @b;
my $c1 = @c;
my $c2 = reverse @b;

print join "\n", $a, $b, $c1, $c2;

>>63
ああ、そうなんですか。
じゃあ、
@a == reverse @b
の部分でリストコンテキストでreverse @bを評価するってのは
できないということですか？
無理やりスカラーにするintってのがあるかと思いますが
その逆とか・・。

for($i=1;$i<=$5;$i++){
<input type=text name=$i size=10 value=$value$i>
}
この「value」の所の書き方がわかんないです。
教えてくんさい。

57のコード
equal
not equal
にはならねぇだよ？

for($i=1;$i<=$5;$i++){
print "<input type=text name=$i size=10 value=$value$i>";
}
こういう意味か?

結局、IO::Scalarを送って解決しました
うう、ﾍﾀﾚじゃぁ

>67
ごめんなさい書き方が悪かったっす、
$value = tsukue;
for($i=1;$i<=$5;$i++){
print "<input type=text name=$i size=10 value=$value$i>";}
のなかで「$value$i」を使った時に「$value$i」が「tsukue1」と認識されないで
「tsukue」と「1」に認識されちゃうんです。
なにか良い書き方はありますか？

>>69
どういう出力結果を得たいのか、例を実際書いてくれ。

>64
できないと思う．そもそも==でリストコンテキストはあり得ないんじゃないかと．
とりあえずperlfaq4にも書いてあるけど，配列の比較は面倒な方法を取らないとだめだよ．
あと，無理やりスカラーにするのはscalar．intは整数化．

my @a = qw(1 2 3 4 5);
my @b = qw(5 4 3 2 1);

sub arycmp (\@@) {
    my ($a, @b) = @_;
    @$a == @b or return;
    my $n = @b;
    $a->[$n] eq $b[$n] or return while $n--;
    return 1;
}

print (arycmp(@a, reverse @b) ? "equal\n" : "not equal\n");

＞70
ごめんなさいさらに書き方が悪かったっす、
$value1 = いちばん;
$value2 = にばん;
$value3 = さんばん;
$value4 = よんばん;
$value5 = ごばん;
print "<form action=XXX.cgi>";
for($i=1;$i<=$5;$i++){
print "項目$i<input type=text name=$i size=10 value=$value$i>";}
print "<input type=submit value=更新>";
のなかの「$value$i」を「$value1」〜「$value5」と認識させて、
フォームの「項目1〜5」のテキストスペースにそれぞれ
「いちばん、にばん、さんばん、よんばん、ごばん」と表示させたいのです。
すいません説明の仕方が下手で。
よろしくお願いします。

>>72
配列使えば？

リンク先をフォルダに指定して，そのフォルダ内の特定のファイルを開く
ようにするには，ファイル名を何にすればよいのでしょうか。

>>74
読めば読むほど味わいの増す、素晴らしい質問だと思います。

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

1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。

$value1 = いちばん;
$value2 = にばん;
$value3 = さんばん;
$value4 = よんばん;
$value5 = ごばん;
print "<form action=XXX.cgi>";
for($i=1;$i<=$5;$i++){

cgiに書かれている言語なんていうのですか？教えてください

スプリクトとCGIと意味が違うのですか？

78は神！

>72
${"value$i"}
これでいいか？
わかったら帰って宿題やれ。
>73の言うように配列使った方が利口だと思うけどな。

>>76はここで、質問するレベルに達していないと思われ。
本読む、初心者向けのサイト見るなどして、レベルアップしてから来い。
ここは一から手取り足取り教えてくれる無料教室じゃないって事だ。

誤爆スマソ >>77だ

>>72
$value1 = いちばん;
↑ これは ↓ こうしてみる。
$value1 = 'いちばん';

for($i=1;$i<=$5;$i++){
↑ これは ↓ こうしてみる。
for($i=1;$i<=5;$i++){

print "項目$i<input type=text name=$i size=10 value=$value$i>";
↑ これは ↓ こうしてみる。
print qq|項目$i<input type="text" name="$i" size="10" value="|, ${'value'.$i}, '">';

たぶんね。

いっぺんに複数行コメントするとき
どうすんだ？
Cの
/* */
みたいのないの？

>84
全ての行に#を付けて書く。

>>84
こんなのもある。

=foo
いっぺんに複数行コメントするとき
どうすんだ？
Cの
/* */
みたいのないの？
=cut

=英字
から
=cut
まで

>84
要するに、ない。
どうしてもと言うのなら、使わない変数にヒアドキュメント代入する手もあるけど、メモリの無駄だな。

>86
知らなかった。
スマソ。

>>85=87
いや、でもこれは厳密にはコメントじゃないから。

#をつかうとコンパイル時に完全に無視するけど
=は違う、みたいな話があったようななかったような…

ありがと、勉強なたぁ〜

$aaa->{'x'}->{'y'}='z' ;
これを
foreach( %aaa )
{
print "$_" ;
}
みたいなかんじで、次々に引っ張ってきたいんですけど、
可能ですか？、出来れば簡単な例など教えて下さい。

foreach my $p (keys %{$aaa}){
foreach my $q (keys %{ $aaa->{$p} }){
print "\$aaa->{$p}->{$q} = " . $aaa->{$p}->{$q} ."\n";
}
}
これでいい？

>>92
すごく、ありがとう〜〜〜
惚れました。

Data::Dumper使えよ…。

２次元配列の初期化するのに、例えば三列二行の二次元配列を
全て0にするには、
$var = 0 ;
@array = (
[ $var , $var , $var ] ,
[ $var , $var , $var ]
) ;
は分かるのですが、列数と行数を与えて初期化
するのはどのようにしたらいいのでしょうか？
$retsu = 5 ;
$gyou = 3 ;
$var = 0 ;
・・・ここから行き詰まってます。
ヒントでもお教え下さいませ。

いまいちなにしたいのかわからんけど。こういうことがしたいの？
$retsu = 5;
$gyou = 3;
$var = 0;

foreach $row (0 .. $gyou - 1) {
    foreach $col (0 .. $retsu - 1) {
        $array[$row][$col] = $var;
    }
}


0にするだけなら@array = ();でもいい気がするけど。

ｱﾌﾟﾛｰﾀﾞで*.jpgをそのままｱﾌﾟするんじゃなくて
ｱﾝｶﾀｸﾞでﾘﾝｸにするのってどうすれば良いですか？

>97
画像を表示する部分のタグ変更。

CGI内にフォームを書いているんですが、
送信ボタンを押した時に、あるサブルーチンへ飛ばしたい場合は
<form action=>の部分にどのように記述すればいいんでしょうか？

スクリプト内ではどのようにサブルーチンに飛ばしてますか？
条件があるなら条件を指定して呼び出せば良い。

100get

>>99
<input type="hidden" name="mode" value="submit">
あとは、$modeとかに値を入れてsubmitなら
フォーム送信された場合のサブルーチンへ飛ばす。
とか。。

でいいんですよね？

あぅ。100が。。。

やーいやーい

>>101
フォームが送信された場合のサブルーチン、
ってどうやるんですか？？

satoのレベルに合わせて解説できる人はすごいと思う。
みんな頑張ってsatoの難題に挑戦してくれ！

>>105
お願いします。

で、satoはどんなことをやりたいの？

余所のサイトのHTMLをperlで読み込むにはどうやれば良いのですか？

Aというサブルーチンの処理をさせたいんすけど
それをボタンが押された時に行いたいんです

すなわちtest.cgiの中に

　　　［追加］　［削除］

ボタンがこのようにあるとして、
［追加］を押した時には、サブルーチン　sub plus　へ。
［削除］を押した時には　サブルーチン　sub delete　へ。

この時<form action=test.cgi method=post>をＣＧI内に埋め込むと
複数ボタンと複数サブルーチンをどのように処理するのか・・

サブルーチンという言葉を知ってるくらいだからプログラム経験者だろう。
条件分岐はわかるね。CGI内では条件分岐して処理を場合わけする。
htmlのボタンごとにcgiの処理を分岐するには呼び出す時点で条件を指定する。
具体的には環境変数というのを使って引数を持たせる。>>101の方法。
mode=plusという引数を持ってたら追加モードへ．．ってやる。
あとは「環境変数」で検索してくれ。

<form action=test.cgi method=post>
<input type=hidden name=mode value=plus>
<input type=submit value="追加">
</form>

<form action=test.cgi method=post>
<input type=hidden name=mode value=delete>
<input type=submit value="削除">
</form>

HTMLじゃなくても良いんですけど
他のサイトのデータを読むにはどうすれば良いんでしょうか？
i-modeでソースを見たいんですけど。。。

socket使うのか。。。
勉強しなおしてきまふ。

質問！
perlってマインスイーパーとかペイントみたいな
アプリケーションって作れるの？
どうなの？おせーて★

>114
・・・・・。ネタですか？

>>114
それはJavaの仕事。

>>114
Perlだから○○はつくれない、ってことはないぞ。
得手不得手はあるにしても。
頑張ればマインスイーパーでもなんでも作れるさ。

>>114
できますが、何か？
オライリーの『実用Perlプログラミング』にはテトリスの例があがってるよ。

>>116
Javaなんて大がかりなもの持ち出すまでもない。

http://turedure.s8.xrea.com/yourmine/index.html

すいません、ファイル内容を全て $_ に入れた後、一行ずつ
スマートに処理をするには、どうすればいいのでしょうか？
一応以下のを考えましたが、m// って遅いしメモリ食うんですよね？

local $_ = '';
while (!eof(STDIN)) { $_ .= STDIN }
&func($_);

sub func {
　local $_ = shift;
　while (m/^(.*?\n)(.*)$/) {
　　$_ = $2;
　　print $1; # ここら辺にしたい処理を入れる予定
　}
　return 1;
}

他には local @_ = split(/\n/, $_); なども考えましたが、
一瞬だけメモリが二倍要りますし・・・。
あ、サブルーチンには @_ では無く $_ で渡したいのです。

>>120
local $_ = '';

個人的には「例のあれ」をプログラマが制御するのには賛同しかねる。

>>120
ファイル全部読み込んでメモリも何も無いと思う。
敢えてやるならwhileとm//gかなあ。

$/ = '';
func(<STDIN>);

sub func {
    local $_ = shift;
    print $1 while /(.*\n)/g;
    # ↑処理
}

まあ、ネタなんだろうけど。

>120
ネタかな？とも思ったが、一応「初心者スレ」なんで．．．
どうして変数$_ にファイル内容をすべていれた後に改まって１行ずつ処理をするのかわかりませんが、
結局、メモリをくわないようにファイル処理したいのならば以下のように正攻法でいくのがベターかと。
open(READ, 'filepath');
while (<READ>){
    やりたい処理 if /pattern/;
}

あと、「m// って遅いしメモリ食うんですよね？」とありますが、そんなことはありません。
特に先頭マッチ(m/^pattern/)や後方マッチ(m/pattern$/)は高速だし、１バイト文字に
マッチさせたいのならindex関数を使うほうが高速です。これは結局、処理内容に応じて
最適の処理を模索していくしかないと思いますが、それでもより高速化をもとめるのならば
C的な言語にシフトせざるを得ません。

ファイルを何度もopenしていて、
何回かに一回openに失敗してしまうなんて事はあるのですか？

どっかで閉じ忘れてるとか？
openとcloseの数は合ってますか？

>>125
すいません。open失敗したわけではないのですが
そういう場合てあるのかな〜？と思ったので。

>>124
特殊な場合にはあるよ。
ファイルハンドルに使われるメモリが足りなくなったときとか。

>>127
>ファイルハンドルに使われるメモリが足りなくなったときとか。
こういう場合があるんですね。なるほど。
けど、こんなサーバ使ってられん！てレベルの話ですよね？
レスありがとございます。

dumperで出力したファイルを、取り込みたいですけど、

ソース中に、
my $ref = {
'a' => 1,
'b' => 2
};

こんな感じで初期できますけど、これを、
ファイルにして、そのファイルから

open ( FILE , "<ファイル" ) ;
my $ref = <FILE> ;
close ( FILE ) ;

こんな感じで取り込みたいんです。
（このソースじゃ駄目でしたけど・・・）

どなたか、ご存知でしたら、ご教授ください。

>129
require "ファイル";
じゃダメなのか？

>>130
なるほど！
盲点でした。
ありがとう御座います。

すいません、またお願いします。
無名リストのに名前を付けれたと、記憶しているのですが、
その記述方法を忘れてしまいました。

$VAR1 = {
'x' => 1,
'y' => 2
};
dumperの結果ですが、変数が$VAR1になってしまうのですが、
これを変えたいのです。
以上よろしくお願いいたします。

大量の分をprintで出力する場合
print <<"EOF";
〜〜大量〜〜
EOF
で出力すると〜〜大量〜〜の分をまとめてメモリに格納しちゃうんですか？
それとも一行づつ処理して
print "〜〜〜";
print "〜〜〜";
print "〜〜〜";
と同じになるのですか？

>>133
メモリに格納する。メモリが不安なら、
$|=1;
とか使えばいいんじゃなかったかな？

バナーを表示した回数とクリックした回数を
テキストに書き出したいんですが、
バナー複数ある場合テキストの中に
$banner, $bannertitle, $url, $hyoujikaisu, $clickkaisu
という風に書き出したいです。

バナー表示回数とクリック回数を
どのように記述すればいいか是非教えて下さい。

>>135
そのまんまでいいんじゃない？
まさか、ルーチン書いてくれって事？

>>132=129
ドキュメントに書いてあることいちいち聞くなよ。Dumper.pm読んでくれんと、コロ助

>.>136
表示回数カウントの方法と、
クリック回数カウントの方法です。

>>134
レスありがとうです。
出力をバッファリングしなくなるのでprint文の
実行と同時に出力してくれるようになる。というやつですね。

これでいちいちメモリに格納しないで直接？出力する。イコール

print <<"EOF";
〜〜大量〜〜
EOF

でも

print "〜〜〜";
print "〜〜〜";

でも同じになるのでしょうか？

sub new
{
my $class = shift ;
my ( $filename ) = @_ ;

print "##### $ARGV[ 0 ]\n" ;

my $self = {} ;
bless $self ;
}

クラスのメソッドから、グローバル？の変数参照すんのどうすんの？

>>139
効率よく入出力するためのバッファリングなので、あまり気にしすぎない方がいいよ。

手元にある環境で試したけど、標準出力に対し、cygwin版Perlは行バッファリングされていたけど、
ActivePerlはバッファリングされていなかった。
いずれにせよ、STDOUTに対しては完全バッファリングはしてないんちゃうかな？
よくわかんらんけど。

>140
main::でアクセスすれば？　行儀悪いと言われるだろうがね。

>>142
すまんけど、その時の記述例をちょろと、お願い。

$package::var

>>143
すまそん。
main::$ARGV[ 0 ]
で、できた。

無名リストに名前を付ける方法を何方か、ご存知ありませんでしょうか、
記述例など、頂けると助かります。
よろしくお願いします。

>>146
無名なんだから名前なんてあるわけねーだろ。

そうでしたか、

では、Dumperで、無名リストを表示する場合、
名前を付ける方法ご存知の型は、居られませんでしょうか、
よろしくお願いします。

>>147
レスありがとう御座います。
ただ、申し訳ありませんが、今後、私の発言に干渉なさらないよう、
お願い申し上げます。

>>139
$|=1するしないにかかわらず、
その両者は同じです。

Dumper.pmの中に書いてあるっていってんだろ、ボケ。
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね
氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね氏ね

>>148
的外れで意味不明な質問をしておきながらそのデカい態度。
見上げたもんだな。
その厨っぷりに感心したから教えてやろう。

Data::Dumper->new([ ref-list ], [ name-list ]);

e.g.
print Data::Dumper->Dump([ \%HASH ], [ 'HASH' ]);
print Data::Dumper->Dump([ \%HASH ], [ '*HASH' ]);

>>150
>>151
レスありがとう御座います。
ただ、申し訳ありませんが、今後、私の発言に干渉なさらないよう、
お願い申し上げます。

引き続き、ご存知の方宜しくお願いします。

>>152

$Data::Dumper::Varname="manco";
print Dumper($manco) ;
これじゃだめ？

ttp://www.xav.com/perl/lib/Data/Dumper.html
このあたり参考になるかも

>>141>>149
ご丁寧にどうもありがとです。
けど、なんか混乱状態に陥ってます。。。
>>139の両者ともサーバへの負担はかわらずという事ですかね？

コンパイル時にその辺は最適化してるんとちゃうかなぁ。

こういうのはネタと言われる程常識外れなのですね。
ソース公開したりして無くて・・・というか、ずっと以前に
公開してた事ありましたが、直ぐに中止してよかった (笑

>>121
m// や s/// 等が続いて switch 分作る時に良くやります。
が、玄人さんは使いたがらないらしいですね。
私は初心者ですのであまり理由がわかりませんが。

>>122-123
自分はまだ「どうにかプログラムを書ける」位のレベルですので、
やっと関数・処理の切り分け、流用・設計を考慮し出したトコなのです。
main ではデータの流れだけを担当し、細かい処理は各関数に
任せた結果が例の処理でした。
で、各関数には @ で渡さず $ で統一したかった、という感じ。

やっぱり >>123 のようなのがやり方が一般的ですよね。
そうすると、便利な関数にはなるのですが、酷いと main 一個だけの
プログラムにもなりかねないので・・・もっと精進します。
有難う御座いました。

>>153
レスありがとう御座います。助かりました。
ＵＲＬも参考になりました。
とりあえず、このような形で解決できました。
ありがとうございました。

$aa->{ 'aa' } = 'aa' ;
$Data::Dumper::Terse = 1 ;
print '$aaa = ' . Dumper( $aa ) ;

結果：
$aaa = {
aa => "aa"
}

package manco ;
$manco='manco';

こんなふうにして、staitc?な変数置きたいんだけど、
駄目？

>>158
use strict ;
してたからだた
でも、どして？

>>159
ourしる

use strict ;
package manco ;
my $manco='manco';
だったぁ〜

use strict;
package system;
$system::logfile = 'bbs.log';
package main;
my $filename = $system::logfile;

こういう事じゃなくて？

>161
わざわざそんなことしてなんになるのか？
ただのアホだな！ アホのくせに書き込むんじゃねーよ！

cgiファイルの中にアクセス解析のCGIを組み込みたいんですが
そういうのって可能ですか？

例えば、htmlの場合
<html>
<!--#exec cgi="cgi-bin/accesskaiseki/accesskaiseki.cgi"-->
</html>
みたいに記述すればOKですが、同じ文章を
CGIファイルの中に付け足しても無理ですよね。
アホな質問かもしれませんがわかる方いたら教えてください。

>>156
>やっと関数・処理の切り分け、流用・設計を考慮し出したトコなのです。
>main ではデータの流れだけを担当し、細かい処理は各関数に
>任せた結果が例の処理でした。
>で、各関数には @ で渡さず $ で統一したかった、という感じ。
なるほど、意図が判った。
そういうときは、私はファイル名、もしくはファイルハンドルを関数に渡します。

>>164
CGIの中から、LWPでアクセス解析CGIをGETするのがいいかな。

>>164
動いてるそのCGIで解析するべきだと思うが。。。

>>164
具体的に何のＣＧＩに入れるのか分からないが、
掲示板みたいのなら上の方の設定部分に
$honyarara='<!--#exec cgi="cgi-bin/accesskaiseki/accesskaiseki.cgi"-->\n';
とやっておいてhtml表示部分に
print "$honyarara";
を足す。多分だけどな。
うまく行ったら私の幸せでも祈ってください。

>>168
少なくとも以前apacheで試した時は、CGI出力に対してSSIは
適用されなかったなり。

そうでしたか。

しかも間違えてたよ。
$honyarara='<!--#exec cgi="cgi-bin/accesskaiseki/accesskaiseki.cgi"-->';
print "$honyarara\n";
だよ。（鬱
逝ってきます。

164は166の方法が難しいときはSSIでなくCGIのアクセス解析にしてimgタグを上記方法で埋め込んで下さい。

print $file{ 'fh' } $str ;
こんな感じで、ファイルハンドルをハッシュの中にいれて使おうと思ったんだけど、
うまくいかんかったのだけど、どして？

最近、煽ってるやついっけど、
そういう奴は、すっこんでろよ。
ここは、【Ｐｅｒｌ】初心者コーナーだ。
質問する訳でもなく、答える気も無い奴は、
しゃべるなってこった。わかったか？

>172
初心者に質問の仕方を教えてますがなにか？
まずは質問の仕方を覚えるのが大事。
質問の仕方がわかるようになれば、問題の解決法を調べる方法もわかるようになってくる。
そうすれば他人に聞かずとも自分で調べる事もできるようになるしな。
回答を教えるだけが親切ではない。

>>173
漏れが、いいたいのはさ、
「そんな事もしらねぇ〜書き込むんじゃねぇ〜よ」
みたいな事いってるのよ、

あんたの、その上から人を見るような、口調は、正直気に入らないが、
教えて欲しい人には、利益になるから、いんじゃねか

あまり素直に答えて居座られても困ります。
129みたいなのに常駐されると特に厄介だし。
「2：それでこんな風にやってみたが･･･ 」を書いてあると、
間違いを指摘するのが容易で答えやすいのではないでしょうか。
なんの努力もなしに、教えてくれと助けを求める人の中には、
初心者というより、ただ単に頭が悪い人という場合があるので、
適当にあしらってしまうのも理解できます。
FAQのような事はgoogleや適当なWebサイトに誘導するのはアリだと思うし、
調べ方を教えるのが、質問者に対してもっとも利益になると思います。
過度の煽りには賛同しかねますが、
Perlに関する初心者向けの本で解決することを質問されていてはきりがないので、
適度に追い返して欲しいというのが本音です。

と172の煽りに乗ってしまう俺がいる。

ほとんどの方は、努力する姿勢をみせている質問者には、
煽らずに答えてあげていると思います。一部の方は・・・(省略)
172さんのような口調の方がおられると余計に荒れてしまうので、
自身も多少の自粛をお願いします。(気持ちは理解してますけど。)

@args = split(/&/, $query);
foreach $i (@args) {
($name, $val) = split(/=/, $i);
#$val =~ tr/+/ /;
#$val =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack('C', hex($1))/eg;
#$cgi{$name} = $val;

if ( $name eq 'data1' ){
$data1 = $val;
} elsif ( $name eq 'data2' ){
$data2 = $val;
}
}

これだとフォームが増えるとif〜のがズラズラ増えちゃうよね？
なんかスマ〜トにやるにはどー書いたらいいでしょか？ｗ

>>171
そういう構文が許されていないから。

>>176
> どー書いたらいいでしょか？ｗ
幸せそうですね。何か愉快な事でもあったのですか？

>>176
＞$cgi{$name} = $val;
素直に↑を使ったらいいと思うけどダメな理由でもあるの？

ネタだったのか。まじめに答えてしまった。鬱だ氏脳。さようなら。

>>177
とりあえず、
print $file{ 'fh' } $str ;
を
$fh = $file{ 'fh' } ;
print $fh $str ;
って対処してはいるんだけど、
なんかスマートじゃないなーって思って質問したんやけど、
これで、あってるのかしら？

use strict ;
use warnings ;
皆さん使ってます？

Perｌはじめたばかりの初心者なのですが
フォームで取得した情報を、テーブル内に表示しようとすると
並び順がめちゃくちゃになってこまっています。これを順番に表示するにはどうしたら
よいでしょうか？

名前　→　本文
メールアドレス　→　名前
本文　→　メールアドレス

#フォームデータの復元
foreach $pair (split(/&/, $query)) {
($key, $value) = split(/=/, $pair);

# 文字のデコード
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg;

$FORM{$key} = $value;

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

肝心の「何がしたいか」を書かないでまともな返事を期待するなよ。

アンタのやりたいことは多分これだと思うが。
-- begin code --
print { $file{fh} } $str
-- end code --

>>183
Hashってのはそういう仕様なんだよ。
順番に表示したきゃsort keys %hashやTie::IxHash、DB_FileのDB_BTREEでも使えや。

>>185
どうも有難うございました。そういう仕様なのですね。納得です。
勉強してまた、出直してきます。

>183
sortを使ってハッシュの中身を整列してから表示するという手もある。

なるほど〜。sortを使う方法ならできそうですね。
ところで、hash は順番めちゃくちゃに表示っていうのは
毎回ランダムに順番が代わるのでしょうか？それとも何か規則性あるんですか？

>>184
＞肝心の「何がしたいか」を書かないでまともな返事を期待するなよ。
そうだね、申し訳ない。
ありがと

>>188
順番は変化します。
基本的には恐らくハッシュ値の順とかだろうけど、同じハッシュ値の場合は
格納した順によって変化するはずなので、同じ順番に並ぶことを
期待しない方がいいと思う。
以上適当な解答なので、どうしても気になるならPerlのソースコードでも
見て確かめてください。
ハッシュについてはＣ言語のアルゴリズムの本をみればよく分かると思う。

>188
モジュールで整列できる物がある。
・・・以前JAPUさんに教えてもらったのにログが見つからない。（涙

掲示板とかで入力された内容を確認画面を1ページはさんで
次のページにデータを渡すには、どうすればいいのでしょうか・・・。

>192
<input type=hidden〜〜〜>
で渡す。

確認画面に書き出すリンクのurlを
〜〜.cgi?comment=sage
ってするか、フォームボタン作って
<input type="hidden" name="comment" value="sage">
ってする。もしくはjavascript使って併用することもできる。
あとはクッキー使う方法もある。削除パスワードとか。

どうも有難うございました！！！！！！！
<input type="hidden" 〜
で解決しました。皆様方に感謝です。

メソッドから、メンバーのメソッドを呼ぶときの引数について
なんですけど

package test ;
sub new {改行多すぎて省略}

sub a
{
my ( $self ) = shift ;
my ( $str ) = @_ ;
print "$self->{test} ### $str\n" ;
}

sub b
{
my ( $self ) = shift ;
my ( $str ) = @_ ;
# a( $str ) ;
a( $self , $str ) ;
#ここの引数の数と
}

package main ;
my $test = new test() ;
$test->a( "call a" ) ;
#ここの引数の数
$test->b( "call b" ) ;
exit ;

メインから呼ぶとき、
$test->a( "call a" ) ;
だけど、メソッドbから、呼ぶときは、
a( $self , "call a" ) ;
と、なっちゃったんだけど、できれば引数の数が変わるのは、避けたいいんだけど、
これは、言語仕様すか？
それとも、記述の仕方間違ってます？

>>196
何が言いたいのかよくわからんな。
もう少し纏めてから再度質問されたし。

メソッドBから呼ぶときは
$self→a("call a");
ってやりなされ。

>>198
なるほどぉ〜〜〜〜〜〜〜〜！！！
そっかぁ〜、
ありがとう！！！！！！

>>183
漏れは、
$FORM{$key} = $value;
push(@FORM_ORDER,$key);
てな感じでキーの順序を覚えておいて、
foreach(@FORM_ORDER) {...}
で回すだす。

フォームのキーの並び順に依存するのは止めた方が…。

open(TMP, ">$tmp") || &error("$tmpが変！");
print TMP "$no<>$data1<>$data2<>$date\n";

open(DATA,"$file") || &error("$fileが変！");
while (<DATA>) {
print TMP $_;

記事に$noを振りたいんだけど$noを1づつ増やして
いきたいのですが・・・どうも上手くいきません。
Perlの先輩方々よいアドバイスをください・・・

感じとしては$fileの1行目を読み込んで
$noに+1をする感じでいいのでしょうか。。。

>202
もう少しわかりやすく。
何をやりたいかよくわからない。

えと・・・

書き込みにNoをつけたいんです；−；
1番目記事,2番目の記事って感じに。

>>202
どのみちそれじゃ上書きになってるから1個しか表示されないよ。

>204
ログにナンバーを振るのでなく、表示の際にナンバーを振っていく方がいいと思うが
それじゃダメなのかな？

LogにNoが欲しいかも・・・

open(DATA,"$file") || &error("$fileが変！");
open(TMP, ">$tmp") || &error("$tmpが変！");
$tmp = <DATA>;
$tmp =~ /^(\d+)<>/;
print TMP ($1+1) . "<>$data1<>$data2<>$date\n$tmp";
while (<DATA>) {
print TMP $_;

>>202
http://www.nn.iij4u.or.jp/~nabe/osietekunn.html
君はなかなかの教えてクンだ。
だが今一歩足りないな。

もっと無意味な情報をこれ見よがしに提示し、
自分の考えを捻じ曲げて喚き散らし、
狂ったように答えを催促すれば誰しも認める第一級教えてクンになれるゾ！

>>209

了解！第一級教えてクンになれるように頑張ります。

では逝って来ます。

■■　出会いサイト開業システムレンタル　■■

儲かる出会い系ビジネス

月収１００万円オーバー!!

HP作成できない初心者でも安心して運営

出会いサイトシステムをサーバーごとレンタルします

運営者様には無料で宣伝ソフトもお付けします

１.携帯メール自動生成一括送信ソフト
２.高性能メールアドレス収集ソフト
３.サーチエンジン・掲示板一括自動ソフト

http://www.voo.to/2ch/

サブルーチンへの引数で「配列と普通の変数」を渡したいのですがどうも上手くいきません。
例えば

--------------------------------------------------------
test(@DATA1,$data,@DATA2);

sub test{
local(@DATA,$data,@DATA2) = @_;
}
--------------------------------------------------------

のようなソースの場合local(@DATA)に全てのデータが入ってしまいます。
色々試行錯誤したのですが、なかなか望む結果は得られませんでした。

で、ポインタ（リファレンス）渡しでやったみたのですが
ポインタ自体は受け渡せたのですが、そこから配列を丸ごと参照する方法がわかりません。
($data->[x]のように一個一個要素を取り出せば上手くいきました)

何かスマートな方法はないでしょうか？

>>212
参照使うのがトレンドのようです。

@$array_ref

まだかなまだかな・・・(いつものプロトタイプさんが来るのを待っている）

>>213
うお、あっさり出来たΣ（゜っ゜
サンクス！

あっさりできちゃったのか。プロトタイプ漫才見たかったのにー！

>>212

sub test(\@\$\@);

test(@data, $data, @data2);

sub test(\@\$\@){
local(*ary, *scl, *ary2) = @_;
# ...
}

Perlのサブルーチンの引数はPerl内部では参照渡しされてるらしいのですが
returnで値を返すときも内部では参照を返しているのでしょうか？

だれかまたプロトタイプがらみの質問して。
プロトタイプ野郎を見たいので。

>219
サブルーチン内でmy宣言した変数をreturnできることを考えればわかるだろ！
このうすらハゲが！

＞このうすらハゲが！
ﾊﾞﾚﾀ!?(;ﾟдﾟ|||

ヒアドキュメントの終わりの文をインデントすると違う文字列として認識されてしまいますよね？
ヒアドキュメントを含む部分をサブルーチンにしたい場合、どうしてますか？

>>223
意味がよくわからないけど，こういう事？

&foo(<<"    HERE-DOC");
        here-document
    HERE-DOC

インデントに使用した文字（タブとか）も判定に使われる．
perldataのScalar value constructorsを読むと参考になると思う．

ありがとうございますー。
英文は読みませんでしたけど、コードの例見たらわかりました。
英文って読む気がしないんですけど、
やっぱり読むほうが普通なんでしょうかね。

>>221
おまえ、いつも一言よけいだよ、
部外者だが、見るとムカツク

>>225
英語が読めると（Perlに限らず）世界は確実に広がる．
読もうとしなければいつまでも読めないまま．
読むスピードはそのうち速くなるから，頑張り過ぎない程度に気軽に読むのが良いかと．

知っている内容が多いperldocは読み易かったよ，おれの場合．

>227
お前に能書き垂れられる筋合いじゃﾈｰﾖ
何様だオマエ？？？(ﾟДﾟ)

>>227
わかっていてもなかなかね。
英語の読解力付けたいんじゃなくて、Perlで目的の
処理が出来たらいいわけなんで、ついつい。。。

>>229
漏れの場合、UNIXのmanを読むうち、いつのまにか
マニュアル英語だけは読めるようになってたよ。
構文が単純だからかねぇ。
もちろん日本語訳があれば、そっちを先に見ます。

http://learn.perl.org/で英語のメーリングリストにでも入れば
少しは英語に慣れるんじゃない?
たまにRandal L. Schwartzが答えるね。

Perl cookbookはどうですか？
effective perlはなかなか評判は良いようですが、こちらのほうはどうでしょう?
近くの本屋に売っていないもので、具体的内容が確かめられません。

参考書籍スレと間違えた、、、

参考書籍の727ですが、呼びました？

けっこう高額だそうですね。

Apr 5 16:33:08 router 544364: 17w5d: %SEC-6-IPACCESSLOGP: list 101 denied udp xxx.xxx.xxx.xxx(139) -> xxx.xxx.xxx.xxx(139), 1 packet
このようなログがtail -fで流しているのですが
Apr 5 16:33:08 udp xxx.xxx.xxx.xxx(139) -> xxx.xxx.xxx.xxx(139)
だけ表示させるperlスクリプトを作りたいと思っています。
初めてperlでスクリプトを作るのでヒントいただけたら助かります。
何かヒントになるスクリプトないでしょうか？
拡張としてはxxx.xxx.xxx.xxxのIPアドレスをgethostbyaddrつかって
ホスト名に出来るようにしていきたいと思っています。

>>235
Perlじゃなくてもawkで事足りる気もするけどね。

>>235
とりあえず、どこまで分かってて、どこでつまずいてるの？

#!/usr/bin/perl
while(<STDIN>){
print;
}

まずなにからやっていけばいいのかが解ってないレベルです。
もうしわけないです。
配列にデータを入れていかないといけないのか？とか
基本的な所から解ってないです。
発想ができてない状況なのでとりあえずこういうのをやってみろとか
ありましたら是非ともよろしくお願いします。

>238
#!/usr/bin/perl

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

まずここから。

>239
なんでCGIになってるんだ？

すみません、ついクセで・・・

use strict;

open(TAIL, "tail -f tmp.log |") or die;
while(<TAIL>) {
    if (/^(\w+ \d+ \d+:\d+:\d+ ).+(udp )(\d+\.\d+\.\d+\.\d+)(\(\d+\)) -> (\d+\.\d+\.\d+\.\d+)(\(\d+\))/) {
        print "$1$2$3@{[host($3)]}$4 -> $5@{[host($5)]}$6\n";
    }
    else {
        print $_;
    }
}

sub host {
    my $host = gethostbyaddr(pack("C4", split(/\./, $_[0])), 2);
    return $host ? "[$host]" : '';
}

>>242様
ありがとうございます。
ゆっくり勉強していくつもりだったんですがいきなり答えが。

でもこのままだと少し問題があったので多少いじりました。
#!/usr/bin/perl
use strict;

open(TAIL, "tail -f /var/log/filter.log |");
while(<TAIL>) {
if (/^(\w+ \d+ \d+:\d+:\d+ ).+(denied )(\w+ )(\d+\.\d+\.\d+\.\d+)(\(\d+\)) -> (\d+\.\d+\.\d+\.\d+)(\(\d+\))/) {
print "$1$2$3$4@{[host($4)]}$5 -> $6@{[host($6)]}$7\n";
# print $3;
}
else {
print $_;
# print $3;
}
}

sub host {
my $host = gethostbyaddr(pack("C4", split(/\./, $_[0])), 2);
return $host ? "[$host]" : '';
}

正直use strict や (pack("C4", split(/\./, $_[0])), 2);のあたりが
まったくわからないのですが勉強させていただきます。

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

うわ。print $3とかめちゃはずかし。

日本語文字列から日本語を検索したいんですが、
/$keyword/
のようにすると、$keyword の内容が２バイト文字で、その中の一文字に
「\」とか「|」が混じってると普通に検索できません。
なにかいい方法ありませんか？

/\Q$keyword\E/

>>246
２４５です。うまくいきました。ありがとう

DBMの仕組みを覚えようと思って、練習ということで無理やり
アクセスカウンタをDBMつくろうとしているのですが、↓みたいな方法にしたら
うまく表示されませんでした、どの部分に問題があるのかもしわかりましたら
教えて頂けると助かります。宜しくお願いします。

$dat = './dat/dbm_counter';

#ファイルを開いて変数に代入
if (!tie %COUNT, SDBM_File, $COUNT, O_CREAT|O_RDWR, 0666) {&error('File Not Open');}
$COUNT('now') = ++$COUNT('now');
$now = $COUNT('now');
untie %COUNT;

>248
ＤＢＭなんぞよりPerlの勉強をしたほうがいいね。

ヽ(`Д´)ﾉ perl -c　[programfile]
　-c　　check syntax only (runs BEGIN and CHECK blocks)

syntax error at - line 5, near "$COUNT("
syntax error at - line 6, near "$COUNT("
- had compilation errors.

>>248
$COUNT['now'}に変えてみそ？

>>251
あんたもどうかと思うよ。

>>248
そもそも$datはどこいった。

つーか、CGI::Carp使えYO…

修正したんですが、これで大丈夫ですか？

if (!tie %COUNT, SDBM_File, $dat ,$COUNT, O_CREAT|O_RDWR, 0666) {&error('File Not Open');}
$COUNT{'now'} = ++$COUNT{'now'};
$now = $COUNT{'now'};
untie %COUNT;

>>250
そのsyntax error っていうのが、今使っているサーバだとでてくれないので
間違いを見つけるのが大変なのですが、何をすれば表示されるのですか？

>>254
use CGI::Carp qw(fatalsToBrowser);

つか、大丈夫ですか、と質問する前に試したらどうだよ。
だがもちろん共用サーバではやるなよ。

>>255
実は全然動いてくれませんでした・・・（泣

>>256
自分の情報を出し惜しみするな。

で、CGI::Carpを使った結果はどうなんだ？

248さん、自分のパソコンにPerlは入ってないの？いくじなし。

ファイルを読み込んで、各行の空白で区切った個数を調べたいと思っています。
----test.txt-----
ABC DEF GHI
ABCDEFGHI JKL
AB CD EF GH
-----------------
だと
3
2
4
と表示したいのです。

私が作ってみたのが
open(IN,"test.txt");
@data = <IN>;
my @kazu = split(/\s/,$_);
print scalar @kazu
close(IN);
なのですが上手く動きません。

上記動作をするにはどうすればよろしいでしょうか？
お教え願えないでしょうか。

>>259
print scalar @kazu;
でした。; が抜けてました。
でも　考えているようには動きません。

>>259
オマエ$_とか<IO>の意味わかってないだろ。
今回は教えてやるから、何か一つマトモな本を読む(そして理解する)ことをおすすめするぞ。


open IN, "test.txt";
print scalar(split), "\n" while <IN>
close IN;

>>261
イタイソースですね。

>>259
事故レすですみません。
出来てしまいました。

open(IN,"test.txt");
@data = <IN>;
foreach(@data){
my @kazu = split(/\s/,$_);
print scalar @kazu;
}
close(IN);
でしたね。すみません。

ごめんなさい。偉そうなこといって置きならが<IN>の後ろに";"が抜けてました。鬱だし脳。
>>262 仰るとおり。 逝って来ます。

>>261
ありがとうございます。
ただいま勉強中です。

>>259
open(IN,"test.txt");
while(<IN>){
　　split(/ /,$_);
　　print "$#_\n";
}
close(IN);

これでどうかしら？

あ、すげー進みが速い

>>266
それは本来望む値より１少ない上に@_を破壊してしまうのであまりよろしくないのでは。

ｱｲﾀﾀﾀﾀ…名前消し忘れた（鬱

>>261
<IO>とは何の事でしょうか？
Input,Outputでしょうか。

$_ は　STDINファイルハンドルから読み取ったものを、
変数で指定しなかった場合に、戻り値を自動的に代入する変数という事でOKでしょうか？

良かったらお教え下さい。

>>268
あ。
ごもっとも。
全然ダメでした（笑

>>270
IOがInput/Outputってのはよしだが、
ここでは"IO"ってのは"X"と同じく、「何らかのファイルハンドル」って意味で使った。
で、俺が言いたかったのは<>(ヤマカッコ演算子)のこと。
<IO>でファイルハンドル"IO"から一行または全行読み込み、
whileなどの中ではデフォルトの代入先として$_が使われる、と。
試しに
<IO>;
とだけしても$_にはなにも読み込まれない。

で、$_ってのは幾つかの演算子/関数においてのデフォルトの使用変数。
>>261で示した"scalar(split)"のsplitの第二引数も$_なのでこんなこともできる。
(ちなみにデフォルトの第一引数は' 'だ。)

つーようなことが>>259のコードを見て理解しているとは思えなかったわけだ。
そんだけ。もう寝る。

そうか、ヤマカッコって読めば良かったのか。
今まで、「不等号の記号」とか言ってて、わずらわしかったんだよな・・・

> 不等号の記号
それくらいなら「小なり大なり」と家YO！

>>272
おっしゃるとおりで、理解できていません。
これから勉強します。
丁寧なご説明有り難う御座いました。

ＳＳＩの呼び出しって、相対パスじゃないと動かないんでしょうか？
絶対パスで書くとエラーが出ます。

例えば
<!--#exec cgi="../a.cgi"-->
ならＯＫですけど絶対パスで
<!--#exec cgi="www/usr/a.cgi"-->
だとエラー出ます。（↑の絶対パスは例）

絶対パスは間違ってないはずなんですが。
それとも間違ってるからエラーなんでしょうか。

>>276
例に間違い。

www/usr/a.cgi

死ぬほど相対パスです。これ。

素朴な疑問ですが、

$new = time();
($sec, $min, $hour, $day, $mon, $year) = localtime($new);

とした、$monは＋１しないといけないのに、
$dayはそのままでもいいんですか。
そういう仕様にした理由ってなんでしょ。

>>277
いや、だから例、って念を押してるじゃん・・
例が思いつかなかったからそう書いたんだけど
/home/aaa/public_html/a.cgi
これって絶対パスですよね？こういう指定をやってもエラー出る。
http://www.aaa.com/a.cgiでもエラー。

/home/aaa/public_html/a.cgi

相対パス

>>280
(ﾟДﾟ)ﾊｧ?
知ったかやめれ。

知ったかぶりも常駐するようになったか。このスレ。

>>276
絶対パスは使えないことがある。詳しくはここ参照。
http://tohoho.wakusei.ne.jp/wwwssi.htm

>>277>>280
真性か？

知ったかマンセー

>>278
('Jan','Feb','Mar')[$mon]
みたいに使え

>>278
それは日が１から始るなら月も１からにせんかい！
ってことなんだろうけど、月の表記は日本のように数的でなく
Januaryなどのように文字で表すのが一般的だからじゃない？
日は1st, 2ndって数での記述が普通だからそれに合わせたんでしょ、おそらく。

>286
違う、知ったかｶｺﾜﾙｲ

>>287
なら理由かけよ。うぜえ。

>>286氏のレスに納得！・・・・したかったけど、違うのか・・・。
>>287氏、教えてください。どして？

モジュールについてなんだけど、
Perlのモジュールって、ネイティブコードで動くの？
ようするに、早いの？

なんか/usr/lib/perl5/に
ごちゃっといっぱい入ってるんだけど、
皆、?,pmとか、?.plなんだよね、これって普通のソースだよね、
単に、requireでファイルをインクルード
してるのと、変わらないのかしら？
どうなの？

joyful noteって画像掲示板使ってるんですが、
「返信」とか「次の１件」とかのボタンをボタンじゃなくて
画像にしたい場合はどうすればいいですか？

第一に、その掲示板を知らないと誰も答えられない。
第二に、それを知らなくてもできる方法はあるがperlは関係ない。
掲示板の作者に聞くか、ウェブ制作板のjavascript関係のスレで質問しましょう。

>>290 useとrequireの違いから勉強してください。

>>294
http://tohoho.wakusei.ne.jp/html/input.htm

>>294
噂の再帰処理ですか。

>>278 287じゃないが。
答えはstruct tmの中。
tm_monが例外なのではなく、tm_mdayが例外。

>294
再帰ックなレスだな。
なるほど．．画像といったらアンカータグかと．．。
まあ「ボタンじゃなくて．．」っていう>>291は画像貼り付けたボタンもNGかもね。

掲示板で、Proxy規制機能をつけようと思っています。
今は正規表現でホストにproxy ns cacheを含むリモートホストを弾くようにしているのですが
他に追加すべき単語はあるでしょうか？

海外の匿名串は弾けなさそう・・・

>>298
2ch式にプロキシサーバにアクセスしてみるって方がいいかもね。

>>299
それも考えたんだけどポートスキャンしないとダメだから
大掛かりなスクリプトを組まないとだめだろうなぁ。
cookieを併用してみるのも考えてみます。

ありがとうございます。

正規表現で
ある変数のなかのメッセージから改行コードをマッチングさせて
改行が特定の数になったらそれ以降を切り捨てるやりかたをおしえてください

$n = 特定の数;

$message =~ s/\n{$n,}//g;

$str =~ s/((?:[^\n]*\n){3})[\w\W]*/$1/;
改行3個目以降切り捨て。
多分最適化の余地あり。

>>301
$str = ($str =~ /^((?:.*\n){$limit})/ ? $1 : $str);
303氏のよりも少しだけ速い

>>302-304
ありがとうございます

<>←→<>の変換をしたいのですが、
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
これだと全部<>になってしまいますよね？
なんかいい方法はないでしょうか？

具体的には <<<<>><を <<<<>>< みたいな感じにしたいのですけれど。。
いろいろ探したのですが見つかりませんでした。。

>306
&は&amp;と書くか全角で＆と書くかしてくれ

スカラー値で扱える最大値しりたいんだけど、
Cのlimit.hの
$_ = INT_MAX - 1 ;
みたいな事したいのだ！

多分LONG_MAX あたりじゃないの？

>>303の方に教えていただいたのはうまくいったんですが
>>304の方のほうがうまくいきません。
私のせいかもしれませんがどこがわるいのかわからないです・・・

こんばんは。
データファイル内のあるデータと一致する行だけを消す方法で
定番のやり方はあるのでしょうか？
ファイルを全部読み込んで、リストにして一致する行以外を
別のリストに作成して、書き込む方法では力づくっぽい気がしまして・・
ご教授よろしくお願いします。

>310
改行数の設定はちゃんとしてる？
my $limit = 3;

>311
ファイルを１行ずつ読み、あるデータと一致しない行を
適当なファイルに書き出していく。
そのファイルを元ファイルと置き換える。

ってのが定番でないかな。最適かどうかは知らんけど。

>>312
はい、というか直接数字いれました・・・

>314
じゃあヽ( ´ー｀)ノﾜｶﾞﾝﾈｰｽ。漏れのところではきっちり動くんだけどなあ。
perl -w とか use strict; とかしたらエラーは出る？

>314
どうやらこの板は初心者ばかりのようだからわたしがこたえておきましょう。
一応、複数環境（OS)対応版をつくってみました。まちがってたらツッコメや！

my( $nl      )= "\x0d?\x0a|\x0d"; # 複数環境用改行パターンテンプレート
my( @lim    )= (0, 3);  # 繰り返し回数設定
my( $set    );           # 取り出し文字列セット用

;# パターンをセットする
($set)= /^((?:(?:(?!$nl).)*(?:$nl)?){$lim[$[],$lim[$[+1]})/o;

>311, 313
痛々しくてみてなれないネー！
なぜハッシュをつかわないのか？ こういうときのためのハッシュだと必ず本には書いてある
はずだが、まだ理解できてないようだな！

>>316
一応煽ってあげよう。
この板は初心者ばかりとか言っておきながら間違ってたらツッコメってどーゆーことだ。
この板の連中よりも上級者なら自分で考えろ。

で、 >>314は303方式で出来てるならそれでいいｍでは？
304の方が確かにちょっと速いだろうけど、316は303よりも遅そうだし。
こんなところで引っかかるよりも、作りたいものを完成させるのが先だと思う。

>>317
本来の使い方ではないがな。

>>317
＞こういうときのためのハッシュだ

こんなアグレッシブな文体の本はクソに決まっています。

>>317
ﾊｧ？

中々面白い奴が来たな。

>318
わたしが書いたほうが、約１．５倍速でした。３１８君は、目測でわたしが書いたほうが遅そうだと
書きましたが、どう見てもわたしが書いたほうがはやそうだったからベンチとってやったよ！
わたしが書いたほうは先頭からのマッチ部分までのみの取り出しなのに対し、３０３君のは先頭から
末尾までのパターンを確認する処理と括弧内にマッチした部分への置換というまわりくどい処理を
していることから考えて、どう見てもわたしが書いたほうが速いし、それに付け加えて複数OSにも
対応しているということだ。

Benchmark: timing 10000 iterations of 303, 316...
     303: 0 wallclock secs ( 0.66 usr + 0.00 sys = 0.66 CPU)
     316: 1 wallclock secs ( 0.38 usr + 0.00 sys = 0.38 CPU)

>>308
perlのスカラーはintじゃないという罠を踏まえたうえで、
とりあえず概算でいいなら、こんなんで。
$i = 1;
print $i*=10,"\n" while $i ne Inf;

春本番の時は寂しかったけど、今になってたくさん出てきましたね。
とかく月曜日は閑散となりがちなので、明日も気合いを入れてがんがろう！

>>323
たまに
　　Benchmark: timing 10000 iterations of 303, 316...
　　 303: 0 wallclock secs ( 0.66 usr + 0.00 sys = 0.66 CPU)
　　316: 1 wallclock secs ( 0.38 usr + 0.00 sys = 0.38 CPU)
って見るんだけど、これってどうやって取るの？
方法知りたいです。

>>326
ストップウォッチ

>>314
あ、文字列の最後が改行じゃなかった場合にマッチしなかったのね。これでいいかな？
($str) = $str =~ /^((?:.*(?:\n|\z)){0,$limit})/;

Perl神の>>316氏にもプレゼント。
($str) = $str =~ /^((?:[^\x0D\x0A]*(?:\x0D\x0A|[\x0D\x0A]|\z)){0,$limit})/;

Benchmark: timing 100000 iterations of 316, ore...
　　316: 3 wallclock secs ( 3.96 usr + 0.00 sys = 3.96 CPU) @ 25278.06/s (n=100000)
　　ore: 2 wallclock secs ( 1.65 usr + 0.00 sys = 1.65 CPU) @ 60532.69/s (n=100000)

>326
ストップウォッチ

･ﾟ･(ﾉД`)･ﾟ･｡ｽﾄﾌﾟｦﾁ ｺﾜﾚﾀﾖｰ
http://www.perldoc.com/perl5.6.1/lib/Benchmark.html

>>328
ありがとうございます。
もう正規表現わけわからんので正規表現だけの本購入しました。
ＰＥＲＬリファレンス系だと細かく書いてないので
正規表現奥が深いですね

>>330
人が書いた正規表現は、まさに「魔法の呪文」みたいなもんで、
使ってみれば確かに効果は出るんだけど、それがどういう理屈で
そうなるのか解読するのは骨が折れるんだよね。

やっと、カーネル・サンダースの呪いの期限が切れた。
阪神は本来、神のチーム。
これくらいのゲームができて当たり前。
1938年に開幕７連勝した時に阪神は優勝した。
今年も９割方優勝する。
阪神電鉄の株価もウナギ昇りだ。
優勝すれば経済効果も核爆弾級だろう。
現在、阪神ファンの脳内モルヒネ分泌量は最高だ。
仕事にも遊びにもハリが出る。
阪神ファンが勝ち味に飢えていたが故に。
カーネル・サンダースは俺たち阪神ファンに17年間の試練を与えた。
今はそのことに感謝したい。
昼食時には是非ともKFCを利用したいと思っている。

KENTのYYBBSについてなんですが、
表を細く平面的にしたいんですけど、
（こんな感じ→ttp://www2.pure.cc/~cle/yy-bbs/yybbs.cgi）
どこをどういじれば良いかさっぱりです。
誰かお願い。

>>333
消えろ。スレ違いだ。

tu-ka,板違い。
Web製作板でスタイルシートのスレ探しに行け。

>>334 335
うるせーんだよｳﾞｫｹが！！！！！！！！！！

>>336

>うるせーんだよｳﾞｫｹが！！！！！！！！！！

この感嘆符の多さが、いい怒りの表現だね、

>307
すいません。えっと、
< &lt; < > &gt; < を &lt; < &lt; &gt; > &lt;
みたいに&lt;&gt;←→<>の相互変換をしたいのです。。

すいません、リストの取り出しについてなんですが
@list = (A,B,C,D,E,F);
ってのがあって
EとFだけ取り出して別の配列に入れたい
場合ってのはどうやってやればいいんでしょうか

>338
これでどう？

%conv= ('<' => '&lt;',
        '>' => '&gt;',
        '&lt;' => '<',
        '&gt;' => '>');
$_= '< &lt; < > &gt; <';

s/<|>|&(?:l|g)t;/$conv{$&}/g;
print;

>>340
やさしいお兄さん優しいですね。端から見ていてうっとりしました。
今度デートして下さい。やっぱいいです。

>339
これでどう？

@list= qw(A B C D E F);
push(@new, splice(@list, $#list- 1, 2));

>340
やっぱりすなおに以下のようにしたほうが速いかな？

s/<|>|&[lg]t;/$conv{$&}/g;

>>342
ありがとう

>340
$&は危険
s/([<>]|&[lg]t;)/$conv{$1}/g;

>342
負数のほうが簡潔
push @new, splice(@list, -2, 2);

気になって、一応ベンチとってみました。意外な結果が．．．
できるだけループ数を多くして３回とってみたらいずれも３４０のほうが速かったです。
つまり、[lg] よりも (?:l|g) のほうが速いという結果でした。

Benchmark: timing 100000 iterations of 340, 343...
     340: 12 wallclock secs (11.21 usr + 0.00 sys = 11.21 CPU)
     343: 12 wallclock secs (11.43 usr + 0.00 sys = 11.43 CPU)

[lg]と(?:l|g)の比較なんかよりも、$&を使う罪に気付けよ。
まだ間に合うから、修行しなさい。

>>346
そのベンチ結果だと誤差の範囲だな。

>348
でも以外でしょ？

スライスじゃダメなのか。
@new = @list[ 4, 5 ];

元の配列を 変えたい/変えたくない で決まるね

すみません。いきなりの質問です。

Perlソースのテンプレートが欲しいのです。
ラマとラクダがまだ家に来てくれないので欲しいのです。

第一引数でフォルダを指定して、
そのフォルダ下にある全ファイルを読み込んで処理する
テンプレが欲しいのです。

ファイル処理をする関数名はdo_file
で、そこは私が作るんで。テンプレおねがいします。

バナーをクリックした時に$datatext（テキストファイル）の中の
そのバナーのカウントが１プラスされるようにしたいんですが、うまくいきません。
以下の構文でどこか間違っている個所があれば教えて頂きたいのですが、、
ちなみにQUERY_STRINGと$read_data[1]はリンク先URLです。

#バナーをクリックした時
if($ENV{'QUERY_STRING'} eq "$read_data[1]")
{
open (DATA,$datatext);
@data = undef;
@read_data =();
@data = <DATA>;
close DATA;
for($i = 0;$data[$i];$i++)
{
@read_data = split(/\t/,$data[$i]);
$read_data[4]++; #４列目はリンクカウント数
$lastdata[$i] = "$read_data[0]"."\t"."$read_data[1]"."\t"."$read_data[2]"."\n";
}

open(WRITE,">$datatext");
print WRITE "@lastdata";
close WRITE;
print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"0;URL=$ENV{'QUERY_STRING'}\">\n";
exit;
}

>352
キミは最初に質問と言っておきながら、いつの間にかクレクレ君に大変身ですか？

353です。

あ、すいません。構文間違えました
#４列目はリンクカウント数とかかれている部分、

$read_data[2]++;

で、２列目の間違いです。

>>354
<>とか、きっとそういうのを使うとは思うんですが…
どうかおねがいします。教えてください。
ﾍﾟｺﾘm(_ _)m o０(いつのまにか…というより、もとよりそのつもりでしたが何か？
)

>355
これでどうでしょうか？動作確認はしておりませんが．．．

if ( $ENV{'QUERY_STRING'} eq $read_data[1] ){
    open(DATA, $datatext);
    while (<DATA>){
        @read_data = split(/\t/);
        $read_data[2]++;
        push(@lastdata, join("\t", @read_data)."\n");
    }
    close DATA;
    open(WRITE,">$datatext");
    print WRITE @lastdata;
    close WRITE;
    print qq(<META HTTP-EQUIV="Refresh" CONTENT="0;URL=$ENV{'QUERY_STRING'}">\n);
    exit;
}

>356
最初に質問というのなら、具体的にどこの記述でいきづまっているのか、
具体的なコードを明示すべきだろ。
それもしないでおきながら調子のいいこと言って自分を正当化すんじゃねーよ！

>>357
どうもです。
でもそれで実行して再読み込みすると、データテキストに無限に数字が書き込まれてるんですが・・

それ以前の部分の処理が悪いんでしょうか？

>>353 ifの判定文の@read_dataとifブロック中の@read_dataはバッティングしていないのか?

>352=>356

>いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。
>
>1：自分はこう言う事がしたい。
>2：それでこんな風にやってみたが･･･
>3：それだとこんなエラーが出て上手く行かなかった。
>
>1と3が無いと誰も答えられないよ、良い回答は良い質問から。
>一緒に勉強しましょう。

>359
そうですよね。処理の内容を考えずに書いてしまいました。チョット
データファイル内容がよくわからないのですが、リンク先URLはあらかじめ
データファイルに設定されているということならば以下のような感じかなと。

open(DATA, $datatext);
while (<DATA>){
chop;
@read_data= split("\t");
$read_data++ if $ENV{'QUERY_STRING'} eq $read_data[1];
push(@last_data, @read_data);
}
close(DATA);
open(WRITE,">$datatext");
for ( @last_data ){
print WRITE $_,"\n";
}
close WRITE;
print qq(<META HTTP-EQUIV="Refresh" CONTENT="0;URL=$ENV{'QUERY_STRING'}">\n);
exit;

>362
まちがってしまいました。ごめっ。

$read_data[2]++ if $ENV{'QUERY_STRING'} eq $read_data[1];

>362
またまちがってた。頭冷やしてきまーす。

push(@last_data, join("\t", @read_data));

>>364
ありがとうございます。
アクセス数の書き込みはうまく行きました。

でも今度はCGIにアクセスすると自動的に何度も何度もリロードされます。

>365
より速く処理をするために以下の書き方もアリだと思います。
常に以下のメタタグを返す処理ならば何度もリロードになるでしょう。
最終的にどうしたいの？

open(DATA, $datatext);
while (<DATA>){
@read_data= split("\t");
$ENV{'QUERY_STRING'} eq $read_data[1] ? ($read_data[2]++,push(@last_data, join("\t", @read_data)."\n")) : push(@last_data, $_);
}
close(DATA);
open(WRITE,">$datatext");
print WRITE @last_data;
close WRITE;
print qq(<META HTTP-EQUIV="Refresh" CONTENT="0;URL=$ENV{'QUERY_STRING'}">\n);
exit;

>>366
最終的にはバナーの一覧を表示させたいんです。

>366
$ENV{'QUERY_STRING'} にこのCGI自身がしていされていれば、
何度もこれを繰り返すの間違いでした。

バナーは
<a href="banner.cgi?http://www.yahoo.co.jp/"><IMG SRC="banner.gif"></a>
のようになっていて、
バナーをクリックした時にこのサブルーチンが動くようにしたいんです。

すなわちbanner.cgiに直接アクセスした時には
バナー一覧だけが表示される、という形です。

open (SET,"+>$PATH");
my @setting = <SET>

と書いたんですが、@settingには何も入ってないみたいなんです。

open (SET,"$PATH");
my @setting = <SET>
close (SET);
open (SET,">$PATH");

ならできるんですが、、、

>368
以下のようにして、メタタグをコメントにしてみては？
URL一覧かバナー画像かどちらか必要ないほうもコメントで。

while (<DATA>){
@read_data= split("\t");
print qq(<A href="$read_data[1]">$read_data[1]</A>\n); # URL一覧なら
print qq(<img src="$read_data[0]"><BR clear=all>\n); # バナー画像なら
$ENV{'QUERY_STRING'} eq $read_data[1] ? ($read_data[2]++,push(@last_data, join("\t", @read_data)."\n")) : push(@last_data, $_);
}

>369
@read_data= split("\t");の直後に以下を書くということかな？

print qq(<a href="banner.cgi?$read_data[1]"><IMG SRC="$read_data[0]" border=0></a><BR>\n);

>>372
いやいやいや、バナー表示のHTMLは別の所にあるんです。
このクリック数カウントの部分だけをsub countというサブルーチンで
呼び出したいんです。

クリック数を得るためリンクが「banner.cgi?〜」となっているんですが、
バナーをクリックするとbanner.cgiに飛んでしまう。
だからbanner.cgi?〜
　　　　　　　　　　　↑ここの値、すなわち$ENV{'QUERY_STRING'}が存在する時、
このサブルーチン&count;　を起動させたいわけです。

>370
+> だと、いきなりファイルが空になってしまいます。

open (SET,"+<$PATH");
my @setting= <SET>;

>373
なんとなくわかってきました。以前の処理を以下のブロックに入れるということかな？
勿論、メタタグは無しということで。スクリプトの最初のほうがいいかな。

if ( $ENV{'QUERY_STRING'}=~ /http:/ ){

exit;
}

>>374
どうもです。
読み込みはできましたが、書き込みが追加になってしまうのを上書きにしたいんですけど、
読み込み＆上書きは一度にできないんでしょうか？

>375
チョットまずいかな、いかのようにしたほうがよかった

if ( $ENV{'QUERY_STRING'}=~ /^http:\/\// ){

exit;
}

>376
seek(SET, 0, 0); # これではじめのほうに巻き戻すナリ！

>378
truncate(SET, 0); # これも必要だね。

>>378-379
できました！
お付き合いどうもありがとうございました。

>>377
ありがとうございます！！
これでとりあえずバナーをクリックした時にURLにジャンプするようになりました。

しかしbanner.cgi自体をリロードすると、
datatextの中のデータとかバナーの数がどんどん増えていってしまいます。

>381
たしか、サブルーチンにして呼び出すということなので、
@last_data をさいしょのほうで初期化するのをわすれていました。
１どの処理でこのルーチンを複数回呼び出すとどんどん増えていきますね。

@last_data= ();
または
@last_data= -1;
または
@last_data= undef;
または
undef @last_data;

>382
うそを書いてしまいました。

@last_data= ();
または
$#last_data= -1;
または
undef @last_data;

>>383 CSSもケアしたれや。

>>383
３つバナーがあったとすると、１つクリックした時に
全ての数値が上がるんですが・・

全部解決してもらおうと思うなよ。
自分で努力しろよ。

>385
うーん。いまひとつ全体がぼやけてしまったので。できればどこかにテキスト
ファイルとしてアップしてURLを書いてもらえれば、全体の動きがつかめやすい
のですが、そのCGIではバナーの表示やカウントアップ、そのほかどんな処理を
しているのか？？ チョット混乱してきました。

>340,345
うまくできました。ありがとう御座いました。

>>386
くたばれボケ！！

386=389 ｼﾞｻｸｼﾞｴﾝ ｶｺﾜﾙｲ

ども
パッケージについてお聞きします
いままでサブルーチンしかつかったことがないのですが
パッケージのほうがよい処理がありましてパッケージにサブルーチンを移そうとしてるんです
でもそのまんまコピペだとうまく動いてくれません。
本とか見ても最初の宣言の仕方だけで
やってはいけないこととかでてなくて困っています。
特にお聞きしたいのはパッケージ中でjcode.plなどを呼び出していいのか
変数の定義をパッケージ内でしていいのか、ファイル読み込んでいいのかなどです。
もしかしてそういうことするためにパッケージってあるんじゃないのかもしれませんが
教えてください。

本には
package PacTest ;
use Exporter ;
@P_TEST::ISA = ('Exporter');
@P_TEST::EXPORT = ('subtest');

sub subtest(){}
1;
ここまでしかでてなくて・・・

>パッケージ中でjcode.plなどを呼び出していいのか
ok
>変数の定義をパッケージ内でしていいのか
ok
>ファイル読み込んでいいのか
ok

他に何か。

>>392
ありがとうございます。
う〜む、そしたらなぜコピペで動いてくれないんだろう・・・
パッケージを使うときのタブーみたいなものありますか？

P_TEST::って何？
@ISA = ('Exporter');
@EXPORT = ('subtest');

@PacTest::ISAのまちがいです。
ここに書くためにかきなおしたんですがそのまちがいです

>>395
タブーがないのがPerlって気もするが…
「コピペで動いてくれない」ってコピペしたコードがuse PacTest;でエラーが出るって事か？

ところで話はずれるが@ISAとかにパッケージ名書くより
use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(subtest);
の方が一般的な気がする。ourとuse baseでもいいけど。

>>396
本にでてたやり方なんですけどね
秀和だめですね

スタイルの違いだからそこはまあいいんだけど、
それより俺が聞きたいのはどうやったらエラーが出たのかという状況説明なんだが

>>398
ウェブマスターに聞けエラーです

ローカルでやれよ

>>399
やれやれ・・・
「秀和だめですね」かよ・・・

>>401
技術評論社は(ﾟ∀ﾟ)ｲｲ
ソフトバンクは(´･ω･`)ｼｮﾎﾞｰﾝ

仕事でPerl使ってメールマガジン配信することになったんですが、
最終的には数万人規模のものにするらしいんです。（無理くせーけど。
普通にsendmailで送るのは無理っぽいですし、
どうしていいものかサッパリわかりません。

皆様ならどうやるでしょう？

>>403
普通にsendmailで送れ。以上。

http://www.fml.org/

マジ？sendmail数千回呼び出すの？
あ、それともBccで数万件指定するのか？
いけるのか？
どうなのか？

>>405
お、使えるかも。
ちょっと見てみる。

Net::SMTP

ちょっと教えてください。
単純にファイルから数字を読んで、1足して書き込むようなプログラム
(アクセスカウンタみたいな感じ)を作りたいのですがうまくいきません。
どうやら読み書き両用オープンがうまくいってないみたいなんです。

open(FILE,"+> data.txt");
$x=<FILE>;
print $x;
exit;

試しに上のようにすると、なぜか何も標準出力に出力されません。

open(FILE,"data.txt");
$x=<FILE>;
print $x;
exit;

これだと、ちゃんとファイルの中身が標準出力に出力されます。

どうしてなんでしょう？
環境は WINDOWS XP ＋ Active Perl です。
よろしくお願いしますm(_ _)m

>>408
＞open(FILE,"+> data.txt");
この瞬間、データが消えていることに気付いてください。

>408
この前もまったく同じ質問があったが、過去レスとか見てる？
+> だといきなりファイルが空になるゾ！

+< で読み込んで
seek(FILE, 0, 0); で巻き戻して
truncate(FILE, 0); でファイルを空にした上で書きこむ

>>408
ちなみに、>>370ね。
（あまりに質問が似ているので、ネタかと思った・・・）

激しく既出にも関わらず、ご親切に教えてくださってありがとうございます☆

本などで「+>」は「読み書き両用オープン」って説明されていますが
実際には「書き」しかできないってことですか？(オープンした瞬間データ消えるから)

>>412
んなこたぁない。ちゃんと読める。
「書いた直後に読みたい」場合に使える。

http://www.activestate.com/�d�j？

412ではないが、
実際には「書き」しかできないってことですか？
これ前から気になってた。
413の答えで納得した。
でも「書いた直後に読みたい」なんて思った事ないな、、

>>415
だから実際に'+>'や'+>>'がつかわれることはほとんどない。

すいません、ファイルハンドルをハッシュに入れたまま
使用したいのですが、STDIN が思うように動きません。
STDOUT は >>171, >>181, >>184 を参考にしてできたのですが、
<> を使う時はルールが違うのですかね。
わかる方教えて頂けませんでしょうか？

#!/usr/local/bin/perl -w
my %hash = ( in => \*STDIN, out => \*STDOUT );
while (< {$hash{in}} >) { # <= ココが STDIN の置き換えにならない
　print {$hash{out}} $_;
}
exit 1;

出力結果は GLOB(0x8103460) のみです。

>>417
グローバルなものをなぜハッシュに入れるのかは敢えて聞かないとして・・・
$tmp = $hash{in};
<$tmp>
とスカラーに格納すれば大丈夫みたい。
ハッシュや配列の形ではだめだった。
$tmpは間接ファイルハンドルと解釈するが、$hash{in}はファイル名グロブに
解釈される仕様のようです。試しに次のような使い方は正常に機能した。
$t{a} = "*.txt";
@txt = <$t{a}>;

ということで、スカラー変数を使いましょう。

>>418
わざわざ試して頂いて有難う御座います。
実はサブルーチンへ値を渡すのにハッシュを使っていたのですよ。

個人的に STDIN と STDOUT は同じルールで使って行きたい
ですので、実際にはこういう感じで使いましょうかねぇ。

#!/usr/local/bin/perl -w
package main;
exit &main;

sub main {
　$ARGV[0] && open(STDIN, $ARGV[0]);
　$ARGV[1] && open(STDOUT, "> $ARGV[1]");
　return &func(in=>\*STDIN, out=>\*STDOUT);
}

sub func {
　my %init = (in => \*STDIN, out => \*STDOUT, @_);
　my ($in, $out) = ($init{in}, $init{out}); # <= ●
　while (<$in>) { print $out $_; }
　return 1;
}

貰った値の正当性を、関数側でチェックしてから使うルールなら
そんなに無駄な処理でもない・・・あ、でも結局ファイルハンドルか。

exit(1)か・・・ハァ・・・

>>420
unix の ping コマンドとかは正常終了が 0 ですよね。
他のも一律で 0 に決まってるモンなんでしょうか。
web で 1 を見かけたので真似しだしたんですよ。最近。
スレ違いすみません。

真似すんなよ。
#define EXIT_SUCCESS 0
#define EXIT_FAILURE 1

>>422
ありがとうございます。そうか、ライブラリのヘッダか (汗

まだ、解らない事があっても、それを調べる方法さえ解らない
程度の知識ですので、つい真似というか見習ってしまうのですよ。
反省。ちなみに ping の戻り値も知ったのは jman からですしねぇ。

>423
perldocの使い方・読み方覚えるがキチ。

>>424
情報有難う御座います。早速やってみました。

% perldoc perlfaq | less
> perlfaq 砌requently asked questions about Perl ($Date:
> 1999/05/23 20:38:02 $)
> Very general, high碎evel information about Perl.
> 瞰hat is Perl?

なんかウチの環境だと文字化けする上、表示に 22sec もかかる・・。
あ、perldoc -f use とかなら化けない。
しかし英語ばかりで頭痛いですねぇ。

Perlドキュメントの読み方
http://member.nifty.ne.jp/hippo2000/perltips/podread.htm
perldoc
http://yuri.sakura.ne.jp/~propella/tips/perldoc.html

今までリスト化されて読みやすい下記サイトを聖書と崇めてましたが
http://www.namazu.org/~tsuchiya/perl/info/perl-ja_toc.html
最新版には perlpod なんて項目があったのですね。
http://www.kt.rim.or.jp/~kbk/perl5.005/index.html
.pm の中身とかを見て、ずっと頭を悩ましていましたよ。

最近この板でバカな奴みるとDream★じゃないかと疑ってしまう。

.>>426
ｱﾊﾊ

おい、<$h{in}>で困ってたやつ。下のコード試してみろ：
readline($h{in)

うるせんだよヴぉけ!!!!!!!!!!!!!!!!!!!!!!!

>>428
ホントだ、できましたよ。有難う御座います。
しかし perldoc では説明でましたが、web 上に散乱するサイトの
日本語マニュアルには全然載っていない関数みたいですね。なんでだろ。

すいません、こういう事ってどうすればよいのでしょうか。。
ダウンロード用のCGIを作っているのですが、ログ形式が

日付<>ファイル名<>総DL数<>LZHのDL数<>ZIPのDL数

となっているログのファイル名が同じの総DL数、LZHのDL数、ZIPのDL数
をそれぞれ足したものを表示されるにはどうすればよいのでしょうか。
総DL数だけならハッシュ使えば出来ると思うのですが。

具体的には
20020423<>test<>5<>2<>3
20020423<>test1<>5<>2<>3
20020424<>test<>6<>3<>3
20020424<>test1<>8<>5<>3
を
test,11,5,6
test1,13,7,6
みたいな感じで出力したいのですが。

>>431

my %count;
while (<DATA>) {
chomp;
my ($date,$name,$all,$lzh,$zip) = split /<>/;
$count{$name}{all} += $all;
$count{$name}{lzh} += $lzh;
$count{$name}{zip} += $zip;
}
foreach (keys %count) {
print join ',',$_,$count{$_}{all},$count{$_}{lzh},$count{$_}{zip},"\n"
}
<>;
__END__
20020423<>test<>5<>2<>3
20020423<>test1<>5<>2<>3
20020424<>test<>6<>3<>3
20020424<>test1<>8<>5<>3

訂正
},"\n"
↓
} ."\n"

数千行あるログファイルから
特定の位置だけを表示したい場合のスマートな方法ってどんなですか？

自分の場合は
単純に1行目から順に読み出して行って、指定行になったらループを抜ける
もしくは、配列に全部読み込んでから指定範囲だけ取り出す
ってやりかたしてるんですが、いまいちよろしくないです。
ファイルサイズによりますがカナリきついです。

また新着ログはファイルの先頭行に挿入したいのですが、この場合は
いったん全部読み込んで、先頭行にログ追加して、全行書き出す
するしかないのでしょか、、、、

新着ログだけ書き込んだファイルに
他のファイルを追記で書き込んでリネーム

>>435
ほうほう、その方法でためしてみます
やはり最終的には全行を書き出す事になるんですね、がくり。
挿入とかできたら便利なのになぁとか思った

>>436
それは太古の昔から無理。
なので、ログは先頭に追加せず、おけつに追加していき、
表示する時とかに逆順にしたほうが吉。

もしくは、先頭に追加できるファイルシステムを考案しる。

といいつつDB_File::DB_RECNOはそこそこ使える。（たまにコケるが）

教えていただきたいことがあります。

以下の２次元配列において、列部分($data[行][列])の最大インデックスを求める
効率的な方法を何卒、ご教授ください。よろしくお願いします。

一応、以下のようにループで回して比較する方法を考えましたがもっとスマートな
やりかたがありそうな気がしていますがどうしても思いつきません。

$MAX= $#{$data[$_]}> $MAX ? $#{$data[$_]} : $MAX for ($[ .. $#data);

>432
ありがとうごさいました。うまくできました。

iswebにはFFA設置してもいいんですよね？
でも、「ゲームCGIは禁止」って書いてるんですが・・・。

>441
誤爆だろうけどスレ違い。

>>441
しかも日本語が理解できてない。

>>441
ゲームCGIが禁止ならFFAも禁止に決まってるだろｺﾞﾙｧ！

アメリカのＣＧＩの日本語化に挑戦しています。
が、できません。
１週間、ずーといろいろやったのですが、
どうしても、うまく行きません。
cgi-lib.plというのが悪いような気がするのですが…。
これって、定番のライブラリですが、
うまく日本語化する方法はないのでしょうか？

>>444
うるせえんだよボケが！！！！！！！！！！！

>>445
意味不明　　氏ね！！！！

>>445
perlで日本語化ちゅーと、メッセージを日本語に置き換えたいってこと？

教えてください。
ボタンをひとつだけ押して、複数のスクリプトにデータを渡すことは可能ですか？
ひとつはメールでもらって、その中のmailアドレスから自動でメルマガに登録させたい。
検索しようにもどんな語句で調べたらよいかわかりません。一応いろいろ検索したんですけど。

>>448
フォームで入力された日本語が、
ちゃんと表示されないので、
それをちゃんと表示されるようにしたい。
jcode.plをreqireして、
&jcode…でコンバートしようとしても
うまくいかないのですが。

>>450
こっちでソース晒せよ。
http://pc.2ch.net/test/read.cgi/php/1012839651/l50

正規表現で置換後の文字列を他の変数に入れる簡単な方法ありますか？

$moto = 'a1b2c3d4e5';
$kekka = $moto ;
$kekka =~ s/[\d]//g ;

これ面倒なので、
$kekka = $motoの[\d]を削除した結果
みたいに1行で書けると嬉しいんですが。

>452
($kekka)= $moto=~ /\d/;

>>449
ひとつはメールでもらって、ってのはわかるけど、
もう一つはどんなスクリプトを起動したいの？

>>454
メルマガ登録スクリプトにアドレスを渡したいんです。
どうせならアドレス一回入力で、｢登録しますか｣の是非をチェックしてもらい、そのアドレスを渡せたらいいなと思って。


引数にアドレスも付けてをつけてポップウィンドウを開くってのもありかなあ？
でもjsにたよらないとならなそうだし。

>>449
厨的な考え方だけどLocation使ってGETでデータ渡すとか。

>>455
メールを受け取ったら、自動でスクリプトを起動するってのはだめ？

メールを受ける鯖の/etc/aliasesに
melmaga-touroku: "| /path/to/script/regist.pl"
って書いて newaliases ってコマンド実行しておけば、
メールが来た時に、スクリプト起動できるので、
漏れいつもそうやってる。

>>457
パイプを禁止しているサーバもあるから軽めに注意。

>>452
($kekka = $moto) =~ s/foo/bar/g;

＞うるせえんだよボケが！！！！！！！！！！！
これ、はやってんだ、漏れも使お、
へへへ、まんこ

こんにちは、
さっそく質問なのですが、
スカラーに入れた（入った）文字列をスカラー名にする方法ってあるのでしょうか？

$a = "test";
$b = "value";

として

$test = "value";

というようなことなのですが
よろしくお願いいたします。

>>461
せめてこのスレくらい最初から読んでくれ。

ひぃーごめんなさい。

でも本当に助かりました。
ありがとうございました。

open(LOAD,"mona.dat");
@mona1 = <LOAD>;
close(LOAD);

foreach (@mona1) {
($yakin,$hiroyuki) = split(/<>/);
if($yakin eq $FORM{'yakin'}) {
（？）
next;
}
}

え〜と、（？）の部分で、現在処理中の配列を、削除したいわけです。
ようは、配列をforeachで読んでいって、$yakinと、
送信されてきた（フォームから投稿されてきた）
$FORM{'yakin'}が一致した場合、現在処理している配列を削除したいわけです。
（？）の部分に、なんと入れたらいいのか、よろしくです

>>465
undef $array{$yakin};
とか？

foreach (@mona1) {
($yakin,$hiroyuki) = split(/<>/);
if($yakin eq $FORM{'yakin'}) {
$_ = '';
next;
}
}
@mona1 = grep /\S/, @mona1;

でいいかな？ なんか無駄が多そうだが。

thank!っす。
これで、海へ行けるぞー！

配列を二つ受け取り、その各要素ごとの和を格納した配列を返す
サブルーチンはどのように書けばいいのでしょうか？

こちとら超初心者です。質問させてください。
Apacheっていうソフトを入れて、Webサーバっつーの立てて
そこでPerlをデバッグしてみてるんですが、簡単なSSIのアクセスカウンタが動いてくれません。
HTMLで「あなたは人目のお客様です」とだけ表示されます。
エラーログには何も書いてないし、DOSプロンプトでチェックしてもSyntax OKって出るだけっす。
カウンタの数字を保存するファイルのパーミッションの問題なのかな〜とか思ってるのですが、
Apache上のファイルのパーミッションを変える方法がわからんです。
昨日はじめたばっかしなので質問の意味がさっぱりかもしれませんが、よろしくです。

>>465
splice使え。

>>470
カウンタを格納するファイルのパーミッションを、nobodyさんでも
書き込めるように汁。

>>472
c:\public_htmlにファイルを置いてやっているのですが、
いろいろ調べてみてもFTP転送時のパーミッション変更方法しか載ってなかったです。
格納ファイルのプロパティでアーカイブやら読み取り専用やら（Win98SE）、いろいろ変えてみたんですが
結果は変わらず。自分のPCなのにFTP転送とか出来るんでしょうか？
説明下手でごめんなさい。

自分を初心者と認めるなら、ApacheよりAnHTTPdがいいよ。
ＫＥＮ○さんのページでわかりやすく解説載ってたし。
ttp://www.kent-web.com

>>469 こんなかんじ

#!/usr/bin/perl -w

use strict;
our($a, $b);

sub mapup (& \@ \@)
    #(code_ref $code, array_ref $_a, array_ref $_b)
{
    my($code, $_a, $_b) = @_;
    my @retval;
    my $max_index = (@$_a < @$_b) ? @$_a : @$_b;
    
    for (my $i = 0; $i < $max_index; $i++) {
        local($a, $b) = ($_a->[$i], $_b->[$i]);
        push @retval, $code->();
    }
    return @retval;
}

my @a = (1, 2, 3);
my @b = (0, 8, 7);
my @c = qw[ G C A T ];
my @d = qw[ C G T A ];

my @sum = mapup { $a + $b } @a, @b; # (1, 10, 10)
my @pro = mapup { $a * $b } @a, @b; # (0, 16, 21)
my @bigger = mapup { $a > $b ? $a : $b } @a, @b; # (1, 8, 7)
my @concat = mapup { $a . "-" . $b } @c, @d; # (G-C,C-G,A-T,T-A)

imgboard v1.22 R6ってＩＰ隠せないんですか？
丸見えなんですが。

>>476

> いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。
>
> 1：自分はこう言う事がしたい。
> 2：それでこんな風にやってみたが･･･
> 3：それだとこんなエラーが出て上手く行かなかった。
>
> 1と3が無いと誰も答えられないよ、良い回答は良い質問から。
> 一緒に勉強しましょう。

>>476
で、ここ。

スクリプト改造工房 Part4
http://pc.2ch.net/test/read.cgi/php/1012839651/

>>473
あぁぁ、Windowsならパーミッションは関係なさそう。
SSIの場合は、
1.apacheの設定ファイル(httpd.conf)でSSI(Server-parsed HTML)が
有効になってるか確認。
　 AddType text/html .shtml
　 AddHandler server-parsed .shtml
こんなかんじ。
2.SSIを使うhtmlファイルの拡張子が .shtml になってるか確認。

あとは、>>474に従うのもありかと。

>>474
ありがとうございました。本を買って入ってたのがApacheだったので、それを使ってました。
さっそくAnHTTPdを入れて勉強してみようと思います。

>>479
丁寧にありがとうございます！
shtmlにはしてあるんですが、httpd.confをも一回チェックしてきます。

みなさん、親切で泣けてきました。（今回2Ch初書きこみ）

結局いろいろやってみた結果、ソースのflockという関数をコメントアウトしたら
カウンタが動作しました。HTTPdソフトのせいじゃなかったみたいです。
いろいろありがとうございました。

$line =~ s/田中雅夫/田中さん/g;
$line =~ s/椎名林檎/林　檎/g;
$line =~ s/志村けん/バカ殿/g;

上のようなのをハッシュにしてまとめて処理させることできませんか？
%xx = ( "田中雅夫", "田中さん", "椎名林檎", "林　檎" ,"志村けん", "バカ殿");
$nkeys = keys %xx;
$value = values %xx;
$line =~ s/$nkeys/$value/g;
自分ではこんな感じかな？とか思ったんですが…無理でした。
ご教授お願いします。。既出だったらすいません（＾＾；

>483
$nkeysと$valueをprintしてみてなにが入ってるか見てみるとダメな理由はわかると思う。
どうするのが正しいのか俺にはわからないけど。
$line =~ s/(.+)/$xx{"$_"}/g;だとkeysの一致がされないしなぁ・・・。

$hoge = join "|", keys %xx;
$line =~ s/($hoge)/$xx{$1}/g;
こんなんでいいか？

>475
_gunzipﾀﾝひさしぶり〜

>>475
スクリプトが意味不明です。初心者ですか？

>>487
ネタはやめれ。

>488
ネタじゃないと思うよ。
理解できない負け惜しみ厨だとおもう。
そういう漏れも全然理解できてないので逝ってくる...

まっぷっぷ意味不明age

open(IN, "datafile.txt");
while($line = <IN>) {
chomp($line);
%xx = ( "田中雅夫", "田中さん", "椎名林檎", "林　檎" ,"志村けん", "バカ殿");
#$nkeys = keys %xx;
#$value = values %xx;
#$line =~ s/$nkeys/$value/g;
$hoge = join "|", keys %xx;
$line =~ s/($hoge)/$xx{$1}/g;
print <<EOL;
$line
EOL
}

これで試してみたんですが無理でした（＾＾；

>491
俺のところではそれでいけるけど、datafileの中身はどうなってるの？
あとPerlのバージョンは？

もーいっこ質問、お願いです。

変数$nanashiに、
あ<>い<>う<>え<>お<>
と入ってるのですが、
この$nanashiを、
@giko = ("あ","い","う","え","お");
のように、配列に出来ますか？

@giko = split(/<>/, $nanashi);

ほ〜
ありがとん

とりあえず>>469は帰って良いよ。
プロトタイプでも勉強してきな。

datafileは

<table>
<tr>
<td>田中雅夫</td>
<td>田中さん</td>
</tr>
<tr>
<td>椎名林檎</td>
<td>林　檎</td>
</tr>
<tr>
<td>志村けん</td>
<td>バカ殿</td>
</tr>
</table>

環境はWINにactiveperl522e入れてます。
flockとか使うとエラー出たりするし、
そういう違いなんかなぁ…

496 = gunzip = 初心者
決定！ばーか

(´-`).｡ｏＯ（ちょっと遅れた春だねぇ…）

>497
やっぱり俺のところでは普通に変換される。
Win2kにanhttpd＋ActivePerl-5.6.0.616。

flockはWin95やWin98じゃ使えないんじゃなかったっけ？

522でも行くとは思うが・・・・・
630あたり入れない？

>500
はい、そうみたいです。
他の違いとかは全く分からない状態で…
勉強不足ですいません（＾＾；
ActivePerlもけっこう前に入れたものだし、
新しいのinstallしてみよっかな。
とりあえず、ありがとうございました〜

あー、データファイルとperlスクリプトで文字コードが違うとかやってない？
両方EUCで書くこと。

あーほんとんにごめん（＾＾；
きちんと実行しました！！
申し訳ない…鬱だ。。
ほんとにありがとう…４日くらいハマってました（汁

原因はなぜか分からないんですが、
ハッシュの中に
"太宰啓介", "太　宰"
を入れてて、
これを抜いたら動きました。。

啓の2バイト目が“[”だから動かない。
$hoge = "\Q". join("\E|\Q", keys %xx) . "\E";

$hoge = join "|", map{ quotemeta } keys %fuga;
の方が見栄えは良いな。
いや、>>506の方が多分効率良いけど。

469>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>475

スマソ>>507の方法じゃないと駄目だ。
"\Q" . "[\E" と "\Q[\E"は等価じゃない。

えっと、プログラム板では板違いという事でこっち来ました。
PERLのCGIを実行させようとすると何故かダウンロードを始めてしまいます。
どうなってるのでしょう？

>510
99% Content-typeの問題。

print "Content-type: text/plain\n\n";
に何か問題があるのでしょうか？

>>507
おー！動いた！ありがと〜

>啓の2バイト目が“[”だから動かない。
ふむふむ…もうついていけないレベルです（＾＾；

$hoge = "\Q". join("\E|\Q", keys %xx) . "\E";
$hoge = join "|", map{ quotemeta } keys %fuga;
これがどんなことしてるのか、
じっくり勉強してみます。

>512
１：\nを\r\nにしてみる。
２：それをスクリプトの３行目に置いてみる。

駄目みたいです・・・。
やっぱり変わらずダウンロードを開始します・・・。
何が原因なんでしょう？

>515
環境を明記した上でスクリプトの拡張子を.txtにしてアプして。

アプるほど大きくないんで乗せますね。
環境はapacheの１．３です。他に必要な環境情報ありますか？
------
#!D:/program/perl/bin/perl

print "Content-type: text/plain\r\n\n";
print "Hello Perl !";

------

>>515
httpdがApacheなら、httpd.confに
AddHandler cgi-script .cgi .pl
って書いてあるかどうかかくに〜ん。

書いてありますねぇ・・・。

>517
\r\n\nとはどういう了見だ？

あれ？こうしろって事じゃなかったんですか？はっ！もしかしてとんでもない勘違い！？

ふつー、
\n\n
だね。

あ、でもそれでもやったんですよ。
はぁ・・今日は諦めようかな・・・。

\r\n\r\nだろ、やるなら。
それと、Apacheって適当に入れただけだとExecCGIが効いてなかったような。

そうなんですか？まだ勉強不足で・・・。
それと、ExecCGIもちゃんと修正しました。

>>524
そなの？
それってDOSだとCRCRLFCRCRLFにならない？
もしかしてActivePerlなら、ならないのか・・・

「ソースがダウンロードされる」のか「実行結果がダウンロードされる」のか。

.cgiがダウンロードされてしまいます。

>>525
ちなみに、ダウンロードされるファイルの中身は、どんなんなの？
Hello Perl!
だけが書いてあるのなら、httpdはOKで、Contenet-type があやしい。

cgiスクリプトがまるまる入っているのなら、httpdの設定があやしい。

つまらん質問でｽﾏｿ
123456byteをメガ単位にするときって
何で割るの？1000？・・・

>>530
もちろん、1024^2で割る。

>>530 1048576

2**10 * 2**10で割りなされ。

> perl -e "print 1024^2"
1026
>

つまり、1Mbyteは1024^2 = 1048576byteという事なのか！
スマソ。

>>510
じぶんもずっとそれ。完璧に諦めている。
UA側の問題と理解しているが、理由に納得はしていない。

>521
>514を見て「片方だけ変えればいい」という発想できるのは驚き。
その発想力は俺の予想を越えてた。

>517
UnixかWinか。
あと>529の問いにも答えれ。

ほーい。WINで、CGIがダウンロードされます。

>>539
その答えがDQNだっつーの。

自分直ってた。原因がよく分からんままだ。

【もう】【だめぽ】

>539
悪いがここはPerlの初心者スレなんだ。
人生の初心者は幼稚園にでも行ってくれ。

>>539
「ほーい。WINで、CGIスクリプトがそのままダウンロードされます。」
ね。
つーことは、httpd が、そのスクリプトをCGIだと思ってないのよ。
httpdを再起動してだめなら、apache板へ行ったほうがいいかも。

Apacheの設定を教えてください
http://pc.2ch.net/test/read.cgi/php/1003772635/

もちろん、あちらのスレのログをまず見てｶﾞｲｼｭﾂじゃないか確認しよう。

答えろ。厨房ばっかりだなここは。

もちろん来年高校受験ですが、何か？

厨房ばっかりなのがわかったのにまだ聞くの？
それって自分が厨房以下って言ってるのと同じだと思うんだがなぁ。

次回は是非もう少し頭のよさそうな煽りをお願いいたします。

こたえろおろろろろろろろろろろろろろろろろろろろろろろろろｒ

どうか教えてください。

２次元配列で、列の最大インデックス値を求める効率的な方法がわかりません。
自分でなんとか書いてみて、もっとよい方法がありそうな気がしていますが
どうしても思いつきません。よろしくお願いします。

;# $data[行][列] の例
for ($[ .. $#data){
$#{$data[$_]}> $MAX_COL and $MAX_COL= $#{$data[$_]};
}

>>549
それで十分使えるやろ。Perlってことを忘れるなよ。
数値計算等の効率を重視するならCとかにしろって。

>>548
>>476の何が不満なんだ？
#our($a, $b);
てして、最後のほうに
print join(",",@sum),"\n";
とか書けば、動くと思うけど。

イタイ。>>475だった。

>550
了解しまっ！

４７５みたいなコード書く奴は死んでください。理解できません。

>554
理解したいなら他人に聞いてもしょうがない。
自分で勉強するしか。
>2-4のサイトの中には親切に色々教えてくれる所もあるだろう。

理解するよりも利用したいなら>475のソースをそのまま使えばいい。

>554
確かに、プロトタイプや複数処理に対応しているところは一見、知ってそうだが
効率の悪い書き方が目立つね。でも、これを理解できないの？ どこがわからないの？

>>556
>>475の効率の悪いとこって、どのへん？

>557
ループカウンタ $i なんか使う必要ないし、return も遅くなるし、
ループ内で local 宣言を逐一行なってるようなとこかな？

>>558
なるへそ。localはループの外に出して、returnは省略するとして、
$iを使わないようにするには、どうしよう。うーん。

foreach( 0 .. $max_index - 1 )
とかかかな？

http://www.kent-web.com/bbs/sample/light.cgi
このcgiに
http://yassu.no-ip.com/haikyo/cgi-bin/log.cgi?room=001
のようにURL指定すると画像張り付くようなことがしたいです。
どのようなソースをどこに付け足せばよいですか教えてください。

>560
それなら$iを使った方がいい。
その手法だと一度$max_index個の配列を一時的に作ることになってメモリを喰う。

>561
スクリプト改造工房 Part4
ttp://pc.2ch.net/test/read.cgi/php/1012839651/

>561さん
そちらの方が適切でしたか、誘導ありがとうございます。

今どきreturnが遅いとかforeach(1 .. 10000)が巨大なリストを作られるとか言ってるやつ。
書き込む前にベンチマークはしたのかと問いたい。問い詰めたい。小一時間問い詰めたい。
お前等、そんなものは今や時代遅れとちゃうんかと。

俺が見たところ、>>475での問題点は
・ループ内でlocalを使っている
・$a$bはパッケージ変数なので違うパッケージの時動かない
くらいなもんだ。

どうやらコテハン469はネタみたいなので今後は無視の方法でおながいします。
参考：http://pc.2ch.net/test/read.cgi/php/1018303030/

perlで常駐ソフトは作れないんですか？

>>567 Win, UNIX等マルチタスクOSなら作れる。 DOSのTSRは無理。

>>456
>>457
遅レスですがありがとうございました。参考になりました。
とりあえずjsのwindow.open()で?にて渡すことにしました。
Locationの使い方がサッパリ。

>>568
回答どうも。
よく分からん単語があったので調べます。

問い合わせフォームを使っているのですが、以下の内容で

<FORM name="form1" action="form.cgi" method="POST" enctype="text/plain">
<INPUT type="hidden" name="c_copy" value="on" checked>
<INPUT type="hidden" name="no_check" value="off">
<INPUT type="hidden" name="subject" value="問い合わせ">
<TABLE border=0 >
<TR>
<TD>*お名前：</TD>
<TD><INPUT name="お名前" size="16" type="text"></TD>
</TR>
<TR>
<TD>*e-mail：</TD>
<TD><INPUT name="email" size="40" type="text"></TD>
</TR>

</TABLE>
<INPUT type="submit" value=" 送信 " style="HEIGHT: 24px; WIDTH: 70px">
 <INPUT name=reset1 type=reset value="クリア" style="HEIGHT: 24px; WIDTH: 70px">
</></FORM>


全ての項目に入力した上で送信ボタンを押すと、次の画面で
−−−−−−−−−−−−−−−−−−−−−
内容確認
項目 　　内容
c_copy 　on
　　　　　no_check

メールアドレスを入力しないと送信できません
−−−−−−−−−−−−−−−−−−−−−
とメッセージが表示されてしまいます。

何が悪いのか教えていただけませんでしょうか。
よろしくお願いします。

>571
どこがPerlのコーディングの話なんだ？
Perlのコーディングの話をするスレだから、Perlのコードを出してくれ。

つーか、まずHTMLの勉強してこい。
そのHTMLソースもグチャグチャじゃないか。

>>571
form.cgiの中身がおかしいと思います。

>572&573さん、ご指摘ありがとうございます。
前任者が作成したソースをメンテナンスする事になり、苦労している次第です。
抜粋してPerlのコードを載せます。

#■内容確認
print "Content-type: text/html\n\n";
print "<html><head><title>$title</title></head>\n";
print "$body\n";
print "<h1>内容確認</h1>\n";
print "<form method=\"post\" action=\"form.cgi\">\n";
print "<blockquote><table border=1 cellpadding=3 cellspacing=3>\n";
print "<tr><td bgcolor=\"#ffcccc\"><b><font size=+1>項目</font></b></td><td bgcolor=\"#ffcccc\"><b><font size=+1>内容</font></b></td></tr>\n";
print "<tr><td></td><td></td></tr>\n";

$count = @DATA_NS;

foreach (0..$count-1) {
print "<input type=hidden name=\"$DATA_NS[($_)]\" value=\"$DATA_VS[($_)]\">\n";
print "<tr><td bgcolor=\"#ffeedd\">$DATA_NS[($_)] <br></td>";

if ($DATA_VS[($_)] =~ /\n/) { print "<td bgcolor=\"#ffffff\"><pre>$DATA_VS[($_)]</pre></td></tr>\n"; }
else { print "<td bgcolor=\"#ffffff\">$DATA_VS[($_)]</td></tr>\n"; }
print "</td></tr>\n";
}

print "</table></blockquote><p>\n";

if ($lct ne "") { print "<input type=hidden name=\"location\" value=\"$lct\">\n"; }

print "<input type=hidden name=\"mailto\" value=\"$mailto\">\n";
print "<input type=hidden name=\"no_check\" value=\"on\">\n";
print "<input type=hidden name=\"ref_page\" value=\"$ref\">\n";

if ($receipt eq "on") { print "<input type=hidden name=\"receipt\" value=\"on\">\n"; }
if ($cc eq "on") { print "<input type=hidden name=\"c_copy\" value=\"on\">\n"; }
if ($ref_url ne "") { print "<input type=hidden name=\"ref_url\" value=\"$ref_url\">\n"; }
if ($ref_name ne "") { print "<input type=hidden name=\"ref_name\" value=\"$ref_name\">\n"; }
if ($subject ne "") { print "<input type=hidden name=\"subject\" value=\"$subject\">\n"; }
if ($password ne "") { print "<input type=hidden name=\"password\" value=\"$password\">\n"; }

if ($email eq '' || !($email =~ /(.*)\@(.*)\.(.*)/)) { print "<font size=+2><b>メールアドレスを入力しないと送信できません</b></font><p>\n"; }
else { print "<input type=submit value=\"　送信(submit)　\"><p>\n"; }
print "</form><p><hr>\n";

以上、よろしくお願いします。

>575-576
なんともまぁ酷いコードだな・・・。

ともあれ>571のエラーが出るならメールアドレスが入力されてないんだよ。
[email protected]って入力して試してみ。
@と.が入ってないとエラーを吐くだけだから。

つーか、前任者には聞けないのか？

>>571よ悪いことはいわん。上司に「僕には無理です」と泣き付け。

>574さん、私もcgiとHTMLソースがうまくかみ合っていないのが原因では？と
考えています。
>577さん、それがメールアドレスを入力しているのに関わらず、エラーが
出ているから困っています。
ちなみに「hoge」「hoge@hage」「[email protected]」の何れを入力しても
同一のエラーが出ます。
>578さん、泣き付ける上司がいればいいのですが、あいにくおりません。

だって現に無理じゃん、しょうがないよ。
>>578はいいこと言ったよ？

>579
俺も>580に同意。
前任者がPerlもHTMLもロクに理解していない。
後任のあんたも全然理解していない。
そのスクリプトがエラーになる原因が「思い当たりすぎて」どうしようもない。
そしてアンタ自身にそれを試験しその経過を正確に報告するスキルが無い。
そんな状態でここから指示を出してたら１ヶ月経っても２ヶ月経っても無理だ。

はっきり言って、ケントでもレスキューでも行って多少でもまともなCGIを
拾ってきた方がよっぽどいいと思うぞ。
はっきり言う。
無理だ。

正直、俺から見ると、そのスクリプトを修正するより、自分で１から
作った方が楽にすら思える。

とりあえず、やめろとは言わん。
どっかで似たもののＣＧＩ探して、
そのＣＧＩとにらめっこして、原因を追究すべし。

２ちゃん寝るの上級者が答えてくれればいいってもんだけど、正直、わかり難い。

>>556
もっといいのを書いてください！
それだけ知った口を叩けるのだから！！！

475もいい迷惑だな(w

こんにちは、
これってどうしてちゃんとコード変換しないのでしょう？
ヒアがいけないような気もするのですが...
みなさんはメールのフォーマットってどうやっていますか？

$hoge = "こんにちは";

&jcode'convert(*hoge,'sjis');

$mail_tex = <<HERE;

フォームの内容は$hogeです。
フォームの内容は$hogeです。
フォームの内容は$hogeです。

HERE

&jcode'convert(*mail_tex,'jis');

print $mail_tex;

ちなみにこれはEUCで書いたソースだとします。
sjis変換はログ保存用だと思ってください。

どうかよろしくお願いします。

糞ばっかりだなここは
意味不明コード厨房に知ったか厨房かよ
ぼけ

本当、意味不明ですいません。
自分でもなにをしてるのか分からなくなってきています。
ちなみに、sjisの所をeucにしても一緒でした。
そろそろ動けばいいって作り方から卒業したいです。（泣

>>587
&jcode'convert(*hoge,'sjis');
を消せば、いんでないかと。

>>575
デバッグの基本はプリントだ！
$emailをチェックしている行の直前に、
print "[$email]<BR>";
って入れて、確認しよう。

とりあえず関係なさそうだが
&jcode'convert(*hoge, 'sjis')
これを
&jcode::convert(\$hoge, 'sjis');
にしておけ。

とりあえず意味なさそうだが
&jcode'convert(*hoge, 'sjis')
これを
exit;
にしておけ。

>>584
禿同。

_gunzipのコードは参考になるところが多いから常駐してﾎｽｨんだけど、
エライのに目をつけられたもんだ(w

なんかあんまり技術的な質問じゃないんですが
掲示板とチャットの違いってスクリプト的に
どのあたりで線引きされるもんですかね？
これとこれみたいな事ができればチャット、もしくは掲示板みたいな
定義があれば教えてください。

>580さん、そうですか。無理ですか・・・。(残念です)
>582さん、これを作った人とはもう連絡が取れない状況で自営業をしている
友人が困って私に調べて欲しいと依頼が来た次第です。(なので、仕事とは
全く無関係です)
指摘される通り、私にはあまり知識はありません。
別のCGIを拾ってきて、一から作ってみたいと思います。
>582さん、他の似たようなCGIと比較して原因を調査してみます。
ありがとうございました！！

あてはまればチャット
・リロードの回数が多い（リアルタイムで返事がくる）
・コメント欄がおそらく一行
・「入室」する

>>595
39
やっぱログインがポイントだよね。

>>594
デバッグプリントも試してみてくれーーー

粘着低脳ぶりが.htaccessの偉い人荒らしてた奴そっくりだな。

>595
自動リロードがあったら間違いなくチャットだな。

>593
一部勘違いされがちだが、無料鯖で禁止されるのは「チャット」じゃなくて
「チャットのような負荷の高いCGI」だからな。
「HTML吐出しなどで負荷の少ないチャット」よりも「リロードを繰り返されるBBS」
の方がよっぽど厄介だ。


そういう意図で聞いたんじゃなかったらすまない。

>>599
勘が良いね。

ttp://popup2.tok2.com/home/vbokc/moe/
こういうところから画像を一気に拾う方法ってperlだと
間単にできるんですか？

>601
LWPを使えば結構簡単にできるが、Web上に置くのは勧められないな。

>>599
チャットだとHTML吐き出しだと負荷少ないのか？

>603
チャットに限らず、HTML保存させればＣＧＩの呼び出し回数が減るから、相対的に負荷は減る。

チャットはHTML保存で付加は減らないと思われ…。
むしろ、共用メモリを使って全てメモリ上でやるのが吉と見た。

>>603,>>605
確かにチャットはHTMLでやってもあんまり意味無いよね。
その他にもHTML吐き出しだと運営上デメリットが多すぎる。

>>603>>605>>606
>>604の言うとおり、リロード時にCGIではなくHTMLにアクセスさせれば、
負荷減ると思わない？

書き出し方によるかな。
保存したログ読んでそっから別のHTMLに書きだすって真似やってたら
HTML吐き出しの方がきついんじゃない。
チャットってリロード以前にその性質上ROMより
書き込むことのほうが多いから。

>>607
リロード時の話じゃないけれど。HTML化すると投稿時の動作が
「データをPOST → レスポンス取得」から
「データをPOST → 302 Found取得 → ブラウザがhtmlをリクエスト → 結果取得」
になるので、投稿時の体感速度は確実に遅くなる。低速回線だと少し厳しい。

それにHTML化は参加者：ROMの比がROMに偏っていない限り余り意味が無いと思われ。

>609
それは確かにその通りだ。
ごもっとも。

オートリロード先をHTMLにしておけば多少は軽減になるかな？
メタタグとかでnocacheにしておいて。

>>609
たしかに、チャットなら、書き込み:ROMの比は書き込みのほうが高いか。

以下にソースを貼り付けました。これは http://dream.lib.net/room/ で配布されて
いるLightChat のログを表示するためのCGIの一部です。
#管理人の私がｺｿｰﾘROMるため(w

1. foreach $chatlog (@chatlog) {
2. 　　($name,$dmy1,$dmy2,$mail,$actime,$cont,$ip1,$ip2) = split(/<>/,$chatlog);
3. 　　if ($cont =~/<b>\[/i){
4. 　　　　$cont =~ s/<b>\[/<>/g;
5. 　　　　$cont =~ s/]<\/b>/<>/g;
6. 　　　　($dmy,$personal,$cont2) = split(/<>/,$cont);
7. 　　　　$name = "$personal";
8. 　　}
9. 　　print "<a href=\"$mail\">$name</a>＞ $cont2($actime)<br>\n";
10. # print "<a href=\"$mail\">$name</a>＞ $cont($actime)<br>\n";
11.　　print "<hr>\n";
12. }

これで、チャットのログを表示しようと思ったのですが、9行目の $cont2 に他の行
の内容が入ってしまうようです。 なお、3〜8行目を削除して10行目を生かすと
この障害は無くなります。
なにとぞ、よろしくお願いしますm(_ _)m

書き込んだ人<>2<><>[email protected]<>日時<><b>[個人 書き込んだ人＞受取人]</b> 内緒の話<>書いた人のIP<>受け手のIP<>

ログの形式は上記の通りです。

>>612
ログ中に <b>[ っつー文字列が無い行では3行目から8行目までの処理がすっ飛ばされて
前に読み込んであった$cont2が表示されているだけじゃないの？

と適当に答えてみるテスト。

>>614
それだな。

>>614
馬鹿
>>615
馬鹿

ﾜﾗﾀ・・・

>612
あ、本当だ(汗) こんな単純なことに気が付かない私が愚かでした。
鬱だ、書き直そう…

>614-615サンクスコ

sample
<form action="http://127.0.0.1/cgi-bin/input/input2.cgi" method="GET">
<input type="text" name="name">
<input type="submit" value="実行">
<input type="reset" value="クリア">
</form>
上記のHTMLフォームからデータを入力して、受け取ったデータをファイルに書きこむ処理をしたいのですがうまくいきません。
$query = $ENV{ 'QUERY_STRING' };

open IN, "$send";
@all = <IN>;
close IN;

@all = $query;
open OUT,">$send";
foreach (@all){
print OUT $_;
}
close OUT;
これではエラーが出ます。教えてください。

>>619
なんていうエラーがでるんだね？

とりあえず、ぱっと見、あやしそうなところとして、
@all = $query;
を
push(@all,$query);
に直そう。

500Internal Server Errorとでます。push(@all,$query); に変更しましたが同じでした。
$query = $ENV{ 'QUERY_STRING' };

open IN, "$send";
@all = <IN>;
close IN;

push(@all,$query);
open OUT,">$send";
foreach (@all){
print OUT $_;
}
close OUT;
この方法以外でもいいので、教えてください。

テキストファイルに記述したHEX数値から、
バイナリファイルを作成したいのですが上手くいきません。
動作イメージとしては
テキストで「31323334」とあったら、これを変換し、バイナリダンプしたときに、
「31323334」となるようにしたいのです（この例だとテキスト表示すると1234になります）。

試行錯誤しながら、以下のように作成したのですが、
テキストに「0A」があった場合に、その部分が「0D0A」になってしまうようです。
改行コードだと思うのですが、どのように対処すればいいでしょうか？

while ($_ =<F1>) {
$_ =~ s/ //g; #スペース削除
chop; #行末改行削除
$bin = pack("H*", $_);
print OUTPUT $bin;
}


使用しているのは、jperlのWIN32版です。
jperl5.005_03-990403

>>621
エラーログにはなんて出てる?
Premature end of script headers
とか出てない?

>>622
うーんと、Win32版でバイナリオープンてどーやんだっけ。
binmode(OUTPUT);
か。

>>556
早く答えろよゲス野郎

>624
おかげさまで解決しました。
ありがとうございました。

WinXP上でActivePerl 5.6を使っています。
スクリプトのあるフォルダのパスを得るにはどうすればいいのでしょうか。
open OUT, '>./hoge';
などというようにすると、現在の作業フォルダにhogeが作成されて、
必ずしもスクリプトのあるフォルダには作成されません。
そこで、必ずスクリプトのあるフォルダにhogeが作成されるように、
スクリプトのあるフォルダのパスを得たいんです。

ごめんなさい、$0ってのがありました。
この変数の値を元に取り出すことにします。

@hage = split(/<>/, "hoge<>hogehoge<>");
としたとき、@hageの要素数は2ですか？
つまり、$#hageは1になるんですか？

>>629
3

>>629
やってみりゃわかると思うけど2だ。perlfuncのsplitを読むべし。
splitはデフォルトで末尾の空文字列を省略する。

3にしたい場合は
@hage = split /<>/, "hoge<>hogehoge<>", -1;

ちなみに、最近このスレによく出てくる <> をデリミタにしたCGIって何なのかな？

>632
タグの<>を$amp;lt;&gt;に変換すると絶対に文中に<>が出てくることはないから、
CGIでは使い勝手ががいい。

>633
タイプミスｽﾏｿ｡
&と$を打ち間違える漏れって一体…(鬱

ActivePerl v5.6.1 build 631をWinXPで動かしています。
map使ってて気づいたんですが、
map { "$_", } (0..5);
を実行すると
syntax error at D:\プログ~1\hoge.pl line 1, near "} ("
Execution of D:\プログ~1\hoge.pl aborted due to compilation errors.
と言われます。
map { "$_" } (0..5);
map { $_, } (0..5);
では問題ありません。
syntax errorになる理由は何なんでしょうか。

>>634
心配するな俺もよくある。
それより\とyを打ち間違う漏れって一体･･･(鬱

map { "$_", } (0..5); が文法的に間違ってるからエラーになるんだってば。
なんで最後に , を付けたいの？

>>633
なるほど。特定のCGIがそうしてるとか、どっかのページで
推奨してるのかと思ったよん。

map { "$_", } (0..5);のどの辺りが間違ってるんでしょうか。
map { $_, } (0..5);ではエラーでないのに、
$_を"$_"に書き換えるとエラーになるのが納得いかないんです。
最後に,をつけてるのは
use Getopt::Long;
our %config = (base_uri => 'http://www.2ch.net');
GetOptions map { "$_:s" => \$config{$_} } keys %config;
print $config{base_uri};
みたいに使いたいからです。
今はmap { "$_:s" => ...をmap { $_ . ":s" => ...にして逃げています。

もちろんmap { "$_", } (0..5);の,を=>に書き換え(639であげた例のように)ても、
同じようにエラーになります。

あれ、ほんとだ。よく読んでなくてごめん。
とりあえず動くだけなら
GetOptions map { ("$_:s" => \$config{$_}) } keys %config;
にしたら動いたけど・・・・・・演算順序の関係かな？

map { +"$_", }(0..5);

perldoc -f map

>>641さん
いえ、読みにくい文書ですみませんでした。
perldocによると、
%hash = map { "\L$_", 1 } @array # perl guesses EXPR. wrong
%hash = map { +"\L$_", 1 } @array # perl guesses BLOCK. right
%hash = map { ("\L$_", 1) } @array # this also works
とのことです。
>>641さんの解決策は三番目にある方法ですね。
有り難うございました。

>>642さん、有り難うございました。
perldoc読むの忘れてました。申し訳ないです。

500Internal Server Errorとでます。push(@all,$query); に変更しましたが同じでした。
$query = $ENV{ 'QUERY_STRING' };

open IN, "$send";
@all = <IN>;
close IN;

push(@all,$query);
open OUT,">$send";
foreach (@all){
print OUT $_;
}
close OUT;
この方法以外でもいいので、教えてください。

エラーログにPremature end of script headersと出ています。どうしたらいいのですか？

モジュールのBenchmarkについて解説しているサイトありませんか？
googleでいろいろ調べましたけどありませんでした。

>>645 perldoc Benchmarkで十分だろ。

>644
CGI の質問ならスレ違いだろ！ って、そのエラーログ見て解決できんのか！

>645
以下にアクセスしろ！
ttp://perldoc/-m/Benchmark/

>>644
>どうしたらいいのですか？

回線切って首吊って(以下略

>648
なんで回線切ってなんだ？
自サーバでCGIやってるかもわからんだろうに。オマエは頭の弱いヤツだろ！

英語でわけ分かりません。
Jperlを入れるとドキュメントも日本語になるんでしょうか？

ageてるし。
鬱だ詩嚢。

>>644
スクリプト1行目のperlパスが間違ってるとか

>>650 自己レス
よく見てみたらあまりにも馬鹿な質問してる。
逝ってくる。

>>649 >>622でjperlのWIN32版とあるから間違い無く自サーバだろう。 そんな事も分からない馬鹿は首吊って死ね。

>>631
ありがとございやした。

>>649 へぇ。回線繋がってないのに2chに繋がるんだすげーナ。
カスは黙ってろよ。

Dream 黒星＝４６９

>>644
1.まず、そのスクリプトをCGI経由じゃなく、単体で起動したときに、
syntax error等くだらないエラーがでて無いか確認。
2.スクリプト自体がOKなら、スクリプトの最初に
print "Content-type: text/html\n\n";
と入れる。

これでOK。
Premature end of script headers
てーのは、必要なヘッダ(Content-type)が書き込まれてないってエラー。

>656
２ｃｈで書きこんだマシンとCGIやってるマシンが同一である根拠はまだ
どこにもしめされてないだろ！ 決め付けでしか考えられないオマエは
もう、ダメポだな！

>656
２ｃｈに書き込んだマシンとCGIやってるマシンが同一だという根拠は？
決め付けで判断するようじゃ、オマエはもうダメポだな！
はなしにならんな、このうすらハゲがっ！

なにおぅ！！！
やるかっ　このっっっ！！！！

おまえなんかしんでしまえばいい！

>>660
誰も鯖がどうとか何もいってねぇだろ。馬鹿丸出し。
無理して日本語使うなよボケが。

>>662
なんかｲｲなぁ、そのフレーズ。

Dream 黒星 ＝ ４６９ は無視の方向で。

オマエはもうダメポだな！　っつうフレーズもおれの中ではヒットだ(w

FTP接続に不具合が。。でまして。
[症状]
ログインはできてファイル受信状態でフリーズまたはタイムアウト。。
なんでしょうかね？

>>667
ｽﾚ違いだが、クライアントをPASVモードに設定にしる。

>>556
早く答えろよゲス野郎

>>669
−操作説明−
　　 ＿
　＿|＼＼＿　　　　　　　　　　　　。　　　　　 【　死　】
　|＼＿　　＿＼→　　　　　　 （>>669）_　　　|￣￣￣|
　＼|　 ＼ ＼__|　　　　　三　 　(*゜▽゜)　　　|　　　　｜
　　　￣＼|￣|　　　　　　三 　（∪∪）　　　　|　　　　｜
　　　　　　 ￣　　　　　　　　 　∪∪　　　　　|　　　　｜

※右キー以外は使用しません。

>>556
早く答えろよゲス野郎

>>668 さすが。。すばらしぃありがとう。

>665
なんで ４６９ のような無知な野郎といっしょにするのか、オマエの推論の
のまずさは後々ダメポに匹敵するほどのミスをやらかしそうで心配なのは
わたしだけならいいのだが．．．

すいません。hashで
$dic{"apple"} = "りんご";
としたときに、valueである"りんご"からkey"apple"を検索するには
どうすればいいんでしょか？

>>674 key全部なめる。同一valueが複数あるかも。

>>674
foreach $keys (keys(%dic)){
　　if($dic{$keys} eq 'りんご'){ print "ハッケソ $keys\n"; last; }
}
とか。

>>675
あ、いけね。複数の場合もあるのね。lastは無しってことで。

状況次第だが
%rh = reverse %h;
ってのも使える。

あ、結局そういう一発な関数は無いのですね。
>>678 の reverse が一番近いかも。どうもでした。

$text = "URLは、http://www.hogehoge.com です。"
となっている$textの中身を、
"URLは、<a href="http://www.hogehoge.com">http://www.hogehoge.com</a> です。"
という風に、書き換えるにはどうすればいいのでしょうか？

>680
正規表現を使う。

>>680

$text = "URLは、http://www.hogehoge.com です。";
$text =~ s{URLは、http://www.hogehoge.com です。}{URLは、<a href="http://www.hogehoge.com">http://www.hogehoge.com</a> です。"};

これが不満なら日本語を勉強してから質問しろ。

>>680
もちっとスマートにするなら、
$text = "URLは、http://www.hogehoge.com です。";
$text =~ s{URLは、(.+) です。}{URLは、<a href="$1">$1</a> です。"};
かな。

>>680
Perlメモにきちんとしたやつがあるよ。>>3のリンク先くらい巡回してから質問しる。

>>685
正規表現の[tr]って使いにくいと思った初心者でした。

>>686
tr///のどこがどう使いにくいのかなあと思ったおれでした。

>>685
きみのｶｷｺは冗長でスマートじゃないな。

正規表現の[tr]って使いにくいと思った。

で十分伝わる。

>>687
そうですね。
[tr]が使いににくい==初心者
ですもんねw

$a = "a(.*?)a";
$d = "aaabbb";
$d =~ s/$a/b/;

とやったら、
s/a\(\.\*\)a/b/;
か、
s/a(.*?)a/b/;
のどちらになるんでしょうか？

[tr]が使いにくいというのは、使い方がわからないのではなくて、
使い方はわかるがもっとよりよい記述法なりがあるということだろ。

そのよりよい（使い勝手のよい）のを教えてくれよ。

>>690
うるさいっ！ばか！
sでいいじゃないかっ！

>>690
「使いにくい」って言った本人が「[tr]が使いににくい==初心者」
つってんのに何妄想してんだ、この馬鹿は。

>>689
自分で試せば？

>692
６８８が、先のことを言った本人だという根拠は？

わたしには６８５および６８８のIDが???である以上、両者が同一人物である
という根拠のない決め付けはできないのだが、オマエは決め付けで判断する
ダメポにも匹敵するダメダメプログラマーだろ！

黒　星　先　生　ダ　メ　ポ　っ　て　な　ん　で　す　か　？

>695
金融機関コードの違いさえも認識できずにろくなテストデータも作れずに
金融不安を巻き起こすナンチャッテプログラマー集団のことだ！

金融機関コードって何ですか？

>>696
(ﾟДﾟ)ﾊｧ?
おれは 黒　星　先　生 に訊いたんだよ。なんでお前が答えるんだよ。

おれはいつかお前がDream 黒星と 黒　星　先　生 とを妄想気味に同一人物と取り違えて
ダメポにも匹敵する根拠の無い思い上がりをやらかすんじゃないかと心配だったのだが
まさかこうも簡単に事が運ぶとは・・・(w

>>695
s/ダメポ/Dream 黒星/g;

Dream 黒星に関する話題は関連スレで。
http://pc.2ch.net/test/read.cgi/php/991102630/

思ったとおりの展開になったので笑わせてもらったよ。

寂しいんだね。こっちは見てて寒かったよ。今夜はあったまって寝るよ。

(´-`)．｡oO(引っ掛けるほうも引っ掛かるほうもダメポだなあ…)

WebProg板の名無しをDream☆にしよう。

>>700
>思ったとおりの展開
思ったとおりの展開に引っかかる馬鹿が居るんだね。

Dream 黒星＝４６９

>>702
それだ！

>>685>>688
ごめん。
きみのｶｷｺは冗長ではなく、適切、いや言葉が足りないくらいだった。

>>690には
「正規表現の[tr]って使いにくいと思った初心者でした。 」
という表現でさえ、初心者であることが伝わらなかったのだから・・・

>>689

展開はまず"..."で囲った時に一回起こる => "a(.*?)a"
これは普通の文字列展開ね。だからみてわかるように何も展開
するところがないのでそのまんま。

次に正規表現として使用した時に おこる => s/$a/b/;
この場合$aを展開してるわけで、$aの中身は関係ない。すなわち s/a(.*?)a/b/;となる。

というわけでもしマッチしたらそのマッチした文字列が$1に入る事になる。

>>706
はじめのほうから読ませてもらったけど、論理的にはキミの負けだと思う。
朝早くから．．．よほど悔しかったんだね。

ダメポって、ツボにはまりそー。

正規表現の[tr] → 't'又は'r'を表す文字クラス

>>709
うむ。正規表現とtr///は全く関係ないから、それが正解だろう。

tr演算子は正規表現を使えない・・・

パスワード付きサイトの内容（検索結果のページ）を取得したいと思っています。

ログインページはＧＥＴもＰＯＳＴも使えるため、
・・・index.asp?name=AAA&pass=BBB
でログインできました。
検索結果のページもＧＥＴもＰＯＳＴも使えるため、
一度ログインしていれば、・・・result.asp?word=XXXXX
を開けばページ内容が保存されます。

これをperlでやろうとしました。

use LWP::Simple
$x = get("・・・index.asp?name=AAA&pass=BBB");
print $x;
$y = get("・・・result.asp?word=XXXXX");
print $y;

ところがこれだと、$xはログイン後のページが正しく表示されるのですが、
$yは、ログインしていないとみなされて、ログインページに飛ばされた内容が
表示されてしまいます。

解決策のヒントをよろしくお願いします。

プロ野球オールスター人気投票！ﾏﾂﾘだﾜｼｮｰｲ!
http://choco.2ch.net/test/read.cgi/news/1019188835/

>>712
何故一度ログインすればその後はName/Pass無しでもログインしているとみなされるのか。
それを考えろ。
まぁHTTP-Headersでも見てみなさいってこった。

>>714
レスありがとうございます。
HTTP-Headersですか・・・探してみます。

>>714
すみません・・・・
HTTP-Headers自体がよくわかりませんでした・・・
もう１つヒントが欲しいです。お願いします。

>>716
LWPのドキュメントを調べなされ。

>>717
HTTP::Headersというやつでしょうか？
なんとなく調べるべきことがわかりました。
ありがとうございます！

ところで・・・
調べるのは調べるんですが、そもそも私が
やろうとしてることは可能なことなんですかね？（汗

前回は、適切な助言をありがとうございました。

さて、今回はCGI RESCUEにてダウンロードした「マルチパート対応
フォームメール」(form2mail.cgi)を使っています。
その中の機能でファイルをアップロードしてメールに添付する事が
できるのですが、画像ファイルを添付した所、メールで受信して
画像を見ると画像が一部壊れてしまっています。(上部は大丈夫
だけど、下部にいくにつれて緑色になってたりノイズが入ったり
して化けてしまいます)
どうしたら、画像が壊れずに送れるのでしょうか？

>>718
HTTPのヘッダが関係あるかどうかは分からんよ。
>何故一度ログインすればその後はName/Pass無しでもログインしているとみなされるのか。
察するに、これがCookieで実現されている可能性があると俺は考えたわけだ。
これが正解なら、取得したヘッダを調べりゃ分かる。

>>707
よく分からない漏れって逝ってよしでしょうか。

>>721
分かった。

>>719
binmodeとか

>>720
なるほど。
たしかにヘッダ（これがヘッダなのかな、と自分が想像するもの）
の一番下の行に、クッキーな文字列がありました。
数字の羅列ではありましたが。

>>724
その数字の羅列を解析する必要はない。少なくとも、自ら解析コードを書く必要は無い。
要は自作のUserAgentが「Cookieを理解するUserAgentが行って然るべき返信」をすればいいのだから。

print "今日からperlの勉強をはじめました。よろしく";

delete $_1017201229{'726:nobodyさん'};

>>708
あう？オレの負け？
オレが負けたレスってどれ〜〜〜！？

cgi-lib.plやjcode.plって旧バージョンだと
何か不具合でもあるのでしょうか？
古い方がバイト数少ないので
その分サーバ負荷が軽減されるのでは？と思い
質問しました。

>729
バージョンアップというのは機能を追加、強化したりバグを修正したりするものだから
最新バージョンのほうがよいと思う。
そっちのほうで負荷軽減するならスクリプトのほうで軽減する努力した方がいいとおもう

数十、数百バイトの違いでクリティカルに負荷が変化するようなシステム
使ってるのか？それならPerlが起動しただけでヤバイな。
Ｃ言語の経験がないような人ってのは、変な事に気を遣うね。
そんなこと気にする暇があったら自分のコードを見直した方がいいと思うよ。

>>730-731
了解しました。
ありがとうございました。

print <<SEX;
cgi-lib.plやjcode.plって使う必要無いような気がするんだが
SEX

timeファンクションで秒の部分を出力しないようになんて
可能ですか？
可能であればどうやればいいですか？

>>734

time()って秒数を返してくるんだから秒の部分を出力しないって
なんのこっちゃ・・・

それともこういうこと？

use Time::Local;
## 本当の時間が12時0分52秒だったら12時0分0秒に変換
my $secs = timelocal( 0, (localtime( time() )[1..5] );

>>734
もしくは、分単位で出したいなら
int(time/60)

>>736を秒単位にするなら
60 * int time / 60

>735-736
ﾈﾀﾆ ﾏｼﾞﾚｽ ｵﾊﾞｶｻﾝ

>>737
int(time)に60をかけて60で割る。
CPUがかわいそうだぞ。そんな非生産的な計算。

>>723さん、ありがとうございます。

はい。binmodeを3ヶ所に入れてみたのですが変りませんでした。
---------------------1
sub sendmail {

if (!open(OUT,"| $nkf -j | $sendmail -t")) { &error('Error'); }
#ADD--->start
binmode(BIN);
#ADD--->end
$host = $ENV{'REMOTE_HOST'};
---------------------2
sub send_mix {
・
・
if (open(UU,"$UUENCODE $tmp$filenum $filename |")) {
#ADD--->start
binmode(BIN);
#ADD--->end
@UUFILE = <UU>;
---------------------3
sub writebin {
・
・
if (!open(BIN,"> $tmp$filenum")) { &error('Error','アップロードファイルの一時ファイルが作成できません.<br>','テンポラリーフォルダのパーミッションを確認してください.'); }
#ADD--->start
binmode(BIN);
#ADD--->end
print BIN $FILEDATA[$file];
---------------------

また、サーバー上にアップロードした一時ファイルを消さない様に
残すようにしてその画像を確認した所、
---------------------1
sub send_mix {
・
・
print OUT @UUFILE;
}
#DEL--->start
#if (-e "$tmp$filenum") { unlink("$tmp$filenum"); }
#DEL--->end
}

print OUT "--$bound\-\-\n";
---------------------
サーバーにアップされた時点では画像は崩れていませんでした。
なので、メール送信した時に崩れてしまっているのかな？と
考えています。
※ちなみに、サーバーＯＳはＵＮＩＸです。

>>738
お前、うんこ。

>>741
テキストモードで転送したんじゃないの？

>739は優先順位を理解していないｱﾌｫ

あるＣＧＩで確認キーを発行しようとしたら、こう出た。
原因わかる？
Unrecognized character \202 at ./fmail.cgi line 7. Content-type:text/html Unrecognized character \202 at ./fmail.cgi line 7. Content-type:text/html Unrecognized character \202 at ./fmail.cgi line 7.

> binmode(BIN)
ﾅﾝﾃﾞｽｶｺﾚﾊ

>>745
ソースのエラーごときでよばんでくれるか？
しかもソース隠匿。

ソース
sub obtiby{local($mailhost,$mailhostip);&sbfzwj(0);if(&mxomee == 1){&hzyfwg('SEND MAIL',<<_F);<p>すでに指定したメールアドレスにメールを送っています。</p>
<p>メールの中に書いてある確認キーを入力してから、もう一度送信してください。</p>
<p>誤って紛失してしまった場合は次の日まで待っていただき、もう一度再発行を受けて下さい。
$fd
_F
exit(0);}
eval{$SIG{ALRM}=sub{die"(Time Out)\n"};alarm 20 if($^O!~/Win/i);&tpkfcs($mail, $sysopmail);alarm 0 if($^O!~/Win/i);};
if($@ ne '' || $?){&hzyfwg('SEND MAIL',"<p>メールサーバエラー $@</p>");}else{&hzyfwg('SEND MAIL',<<_F);<p>確認キー発行申\請を受け付けました。</p>

>>745
原因はエラー表示そのままで、
「fmail.cgiの7行目にへんな文字(8進で202=16進で82)が混じってる」
からなんだけど、fmail.cgiの1〜7行めまでを見せてくれないとわからない。
>>748の一行目って、fmail.cgiの1行目なの？

↑
すげーソースだな。正直、こんなに電波がゆんゆん逝ってるソースは久しぶりに見た。

＞Unrecognized character \202 at ./fmail.cgi line 7.
７行目に日本語混ざってんだろ、どうせ。ヴォケ。糞。

>>725
わかったような、わからないような・・・・・です。
「LWP::UserAgentを使えばよい」ということですね。やってみます！
＞その数字の羅列を解析する必要はない。
＞少なくとも、自ら解析コードを書く必要は無い。
＞要は自作のUserAgentが
＞「Cookieを理解するUserAgentが行って然るべき返信」をすればいいのだから。

>電波がゆんゆん逝ってる

電波の擬音語って「ゆんゆん」なのか。

いやどーでも良いんだけど

＞alarm

綴り変

Perl の勉強スタイルってどうしてますか？
漏れはActive Perl をWindows2000にインストールして、メモ帳とかの普通のテキストエディタでソース書いて、a.plとかで保存して、ＤＯＳプロンプト立ち上げて
perl a.pl
とかやってますけど、CPad みたいに効率のいい勉強環境ないですか？

>>755
漏れはmuleをパッケージでFreeBSDに入れて、mule -nwで起動してから
セーブ、サスペンド、.M-p[RET],fg
ってやってる。

＞効率のいい勉強環境ないですか？
こういう人は、何を与えても効率よく使えない人。

>>755
漏れはCPadてものを知らないのだが
MacPerl(自前コンソールとエディタ内蔵
winならCopal
簡単な構文チェックにいいよ

@array　= qw[1 1 1];
@array1 = qw[2 2 2];
@array2 = qw[3 3 3];
出力
1 2 3
1 2 3
1 2 3
の様に各配列の要素を順番に一つずつ表示させる上手い方法は無いでしょうか？

>>759
>>475

760羽虫して

Copal インストして使ってみました。
すごくいいです。ありがとうございます。

foreach(0..3){　 　 　 　 #←これ
foreach(a..c){
　print $_;
}
}
この場合1度目の0..3は2度目のforeach文中では何て言う変数に
格納されてるんですか？

for(0..3){
print 'LOOP1 = ' . $_ . "\n";
for(a..c){
print 'LOOP2 = ' . $_ . "\n";
}
print 'LOOP1 = ' . $_ . " (ﾟДﾟ;)\n\n";
}

>>763
漏れの知識では、外側の$_は内側のループから参照でけない。

chompってどういう意味なの？
chopにｍが増えただけなの？
なんでｍが付け加えられたの？

改行だけchop

それだったらchopnとかになりそうだけど、なぜｍが選ばれたのか、そしてなぜoとpの間に挿入されたのかがわかりません。

そういうことに疑問を持たない方が賢くなれますよ

ちょむぷ

>>768 語呂が悪いからだろ。

何故nなのか小一時間（以下略

\nのnだとか言ったらアホとしか思えない。

>>766
chomp
[動詞].　（むしゃむしゃ）かむ．

>>773
おお、ようやく理解できました。

>743さん、私もそう考えてネットで調べてみた結果、binmodeを使って
バイナリモードにしてみると良いというのを見かけましたので、これを
追加してみたのですが上手くいきませんでした。

>746さん、もしかして「binmode(BIN)」のパラメータの指定が間違って
いますか？ネットで調べて「binmode(STDOUT)」や「binmode($filenum)」
に変更してみたのですが状況は変りませんでした。
しかもよく調べてみると、binmodeはサーバーＯＳがWindows系の場合の
対応でUNIXでは必要ないとの事らしいので、この対応は意味が無いのかな？
と考えています。

そこで、はじめは自分のHTMLに組み込んで使っていたので、サンプルの
HTMLとCGIをほぼそのまま(変更したのは、環境パスと送信先メールアドレス
と戻り先URLぐらい)の状態でサーバーにアップロードしてから実行しても
あいかわらず画像が崩れてしまい、状況は変りませんでした。
何か他に疑う所はありますでしょうか？

>>775
まずbinmode()についての理解を深めなさい。
動作の解らない関数をコードに入れるなんてナンセンス。
予備知識としてUNIXとDOSのテキストファイル形式の違いも勉強するとなお良し。

スリーセブンオメ＞俺

>>775
どっかのUp板にそのIスクリプトUpしてくれると、なにかわかるかも。

>778
おせっかい野郎登場ってか？

>>779
すまん、そのとーりだ。Upしなくていいよ>>775

>>780
煽りにマジレスしなくても…。

>781
煽りにマジフォローしなくても…。

(´-`).｡oO（煽り厨の >>779 = >>782 [ID:5EokjXuO] はCGIスレでも大活躍だね・・・・）

質問です。
配列@a=("hoge1","hoge2","hoge3"〜)で@aの要素として存在する文字列に関して
連想配列%flagを$flag{'hoge1'}=1
というふうにしたいのです。
foreach $_ (@a) {$flag[$_] = 1;}
とするとflagは全部1になってしまいます。
どのようにすればうまく行きますか？

>>784
ちょっと変えて
$n=1;
for ( @a ) { $flag[$_] = $n; $n++; }
とかどうでしょう。

>>785
ありがとうございます。$flag[$_]=1の間違いですか？
どちらにしても上手くいかないようです。

>784
おまえがどうしたいのかわからないよ。
hoge2の時は？hoge3の時は？

>>784
全部1でOKなんじゃないの？
それとも出現回数をカウントしたいわけ？

@aに文字列があるかどうかを調べたいんです。
hoge2がなければ$flag['hoge2']が1になって欲しくないんです。
よろしくお願いします。

ああ、そうか。書き方が悪かったです。
@aが可変なんです。

%flag = ();
for (@a) {$flag[$_] = 1;}
こうしたいのか? これじゃ無ければ手に負えん、後は任せたぞ>>793。

for $_ (@a){ $flag{$_} = 1 } じゃダメなの ?
あるかないかは、if defined $flag{...} でわかると思うけど...。
# 何故、連想配列なのに $flag['hoge2'] とか書くの ?

そりゃ１かどうかの問題じゃなくてハッシュにキーが
存在するかを調べればいいことだろ。
で、おまえがなぜこの程度のことを出来ないのかがわからない。

すみません。単純に連想配列の表現に{}とするところを
[]としていたせいだったっぽいです。792さんに指摘されて気づきました。
大変お騒がせしました。
ところでみなさんforeachって書かないんですね。

>794
人の自由さ。foreachとforはほぼ同じだし

ほぼ、どころか全く同じだったり。

>784
こういうことでは？

@a=("hoge1","hoge2","hoge3");
@flag{@a}= (1) x @a;
for ( keys %flag ){
    print $_,": ",$flag{$_},"\n";
}

弐編=神 >>>>>>>>>> Dream★=上級者 >>>>>>>> やさしいお兄さん=中級者 >>>>> 初心者 >>>>>>> japu=異常性愛車 >> _gunzip=厨房

＞＞７９８
激しく同意

８００げｔ

変数内のダブルクオーテーションは、どやって置換すればいいでしょうか？

前のページでテキストボックスから送られてきたデータの中に、 " が入ってると
処理がうまくいかないです。んで、置換しようと思ったのですが
$test =~ /"/\"/g;
とかやっても置換してくれません。お助けくだされ。

>801
具体的に問題となった処理を提示してください。

>801
何がどううまくいかないのか、さっぱりわかりません。
ついでに、
$test =~ /"/\"/g;
これはコンパイルエラーになります。