【Perl】初心者コーナーPart11

**nobodyさん** · 02/03/27 12:53

　
いらっしゃーい、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を見よう。

**nobodyさん** · 02/03/27 12:54

[過去ログ]
Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980　参照不能
　DAT: http://tako.2ch.net/perl/dat/957208980.dat
Part2　http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087　参照不能
　DAT: http://tako.2ch.net/perl/dat/971817087.dat
Part3　http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521　参照不能
　DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part4　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

**nobodyさん** · 02/03/27 12:54

[総合]
　・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/

**nobodyさん** · 02/03/27 12:54

[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/

帝国 ◆JXzsccCc · 02/03/27 12:58

続き

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スレ

**nobodyさん** · 02/03/27 13:02

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

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

**nobodyさん** · 02/03/27 13:08

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

帝国 ◆JXzsccCc · 02/03/27 13:32

試したけどダメでした。

**nobodyさん** · 02/03/27 13:36

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

**nobodyさん** · 02/03/27 15:56

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

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

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

**nobodyさん** · 02/03/27 15:59

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

02/03/27 16:05

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

＆ReadPars(*in)

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

**nobodyさん** · 02/03/27 16:06

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

**こちらも初心者** · 02/03/27 16:14

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

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

13 · 02/03/27 16:25

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

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

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

13 · 02/03/27 16:35

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

お邪魔いたしました。

**nobodyさん** · 02/03/27 16:40

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

10 · 02/03/27 16:42

>>13

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

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

**nobodyさん** · 02/03/27 16:52

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

10 · 02/03/27 17:23

>>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冊購入いたしました。

10 · 02/03/27 17:41

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

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
こちらのページが大変参考になりました。

**nobodyさん** · 02/03/27 19:03

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

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

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

10 · 02/03/27 21:15

>>22

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

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

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

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

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

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

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

10 · 02/03/27 22:18

>>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 ][ ? ]だと問題無く参照できるのですが、
どこか間違ってますでしょうか

**nobodyさん** · 02/03/27 22:30

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

sub foo( prototypes );

foo(args);

sub foo( prototypes ){
...
}

**nobodyさん** · 02/03/27 22:42

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

**nobodyさん** · 02/03/27 23:28

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

**nobodyさん** · 02/03/27 23:50

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

**nobodyさん** · 02/03/27 23:57

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

**nobodyさん** · 02/03/27 23:58

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

**nobodyさん** · 02/03/28 00:08

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

**nobodyさん** · 02/03/28 00:10

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

**nobodyさん** · 02/03/28 00:13

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

**nobodyさん** · 02/03/28 00:25

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

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;

**nobodyさん** · 02/03/28 00:30

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

**nobodyさん** · 02/03/28 00:34

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

**nobodyさん** · 02/03/28 05:37

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

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

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

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

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

**nobodyさん** · 02/03/28 08:53

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

ノバ · 02/03/28 15:03

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

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

**nobodyさん** · 02/03/28 15:11

>>39
してよ。

**nobodyさん** · 02/03/28 15:12

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

ノバ · 02/03/28 15:16

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

**nobodyさん** · 02/03/28 15:38

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

**nobodyさん** · 02/03/28 17:09

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

**nobodyさん** · 02/03/28 17:14

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

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

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

**nobodyさん** · 02/03/28 17:16

ああ、変になった

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

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

**nobodyさん** · 02/03/28 18:00

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

**nobodyさん** · 02/03/28 18:07

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

**nobodyさん** · 02/03/28 18:21

>>48
サンクス！

**nobodyさん** · 02/03/28 19:01

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

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

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

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

**nobodyさん** · 02/03/28 21:23

>50
ﾁｮﾝ公ｳｾﾞえよ

**nobodyさん** · 02/03/28 23:17

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

**nobodyさん** · 02/03/28 23:23

>>52

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

**nobodyさん** · 02/03/28 23:28

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

52 · 02/03/28 23:30

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

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

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

52 · 02/03/28 23:37

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

**nobodyさん** · 02/03/28 23:43

@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

になるのはなぜですか？

**nobodyさん** · 02/03/28 23:58

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

**nobodyさん** · 02/03/29 00:01

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

**nobodyさん** · 02/03/29 00:03

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

**nobodyさん** · 02/03/29 00:14

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

52 · 02/03/29 00:17

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

**nobodyさん** · 02/03/29 00:41

>>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;

57 · 02/03/29 01:22

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

**始めて約一ヶ月** · 02/03/29 01:44

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

**nobodyさん** · 02/03/29 01:47

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

**nobodyさん** · 02/03/29 02:10

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

52 · 02/03/29 02:16

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

**始めて約一ヶ月** · 02/03/29 02:27

>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」に認識されちゃうんです。
なにか良い書き方はありますか？

**nobodyさん** · 02/03/29 02:54

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

**nobodyさん** · 02/03/29 03:38

>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");

**始めて約一ヶ月** · 02/03/29 04:20

＞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」のテキストスペースにそれぞれ
「いちばん、にばん、さんばん、よんばん、ごばん」と表示させたいのです。
すいません説明の仕方が下手で。
よろしくお願いします。

**自動ツッコミプログラムV0.01** · 02/03/29 04:29

>>72
配列使えば？

M · 02/03/29 06:31

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

**nobodyさん** · 02/03/29 07:49

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

**nobodyさん** · 02/03/29 07:53

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

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

**nobodyさん** · 02/03/29 09:37

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

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

**nobodyさん** · 02/03/29 09:38

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

**nobodyさん** · 02/03/29 09:46

78は神！

**nobodyさん** · 02/03/29 09:50

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

**nobodyさん** · 02/03/29 10:29

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

81 · 02/03/29 10:31

誤爆スマソ >>77だ

**nobodyさん** · 02/03/29 10:42

>>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}, '">';

たぶんね。

**nobodyさん** · 02/03/29 13:51

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

**nobodyさん** · 02/03/29 13:58

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

**nobodyさん** · 02/03/29 13:58

>>84
こんなのもある。

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

=英字
から
=cut
まで

**nobodyさん** · 02/03/29 13:59

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

**85=87** · 02/03/29 14:00

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

86 · 02/03/29 14:04

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

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

**nobodyさん** · 02/03/29 14:13

ありがと、勉強なたぁ～

**nobodyさん** · 02/03/29 16:22

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

**nobodyさん** · 02/03/29 16:39

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

91 · 02/03/29 16:50

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

**nobodyさん** · 02/03/29 18:22

Data::Dumper使えよ…。

**nobodyさん** · 02/03/30 12:03

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

**nobodyさん** · 02/03/30 13:19

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

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

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

**nobodyさん** · 02/04/01 04:59

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

**nobodyさん** · 02/04/01 06:49

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

**sato** · 02/04/01 12:58

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

**nobodyさん** · 02/04/01 13:07

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

**初心者** · 02/04/01 13:07

100get

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

でいいんですよね？

**初心者** · 02/04/01 13:08

あぅ。100が。。。

**100！** · 02/04/01 13:10

やーいやーい

**sato** · 02/04/01 13:18

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

**nobodyさん** · 02/04/01 13:26

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

**sato** · 02/04/01 13:27

>>105
お願いします。

**nobodyさん** · 02/04/01 13:36

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

**nobodyさん** · 02/04/01 13:45

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

**sato** · 02/04/01 13:48

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

すなわちtest.cgiの中に

　　　［追加］　［削除］

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

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

**nobodyさん** · 02/04/01 13:55

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

**nobodyさん** · 02/04/01 13:55

**108** · 02/04/01 15:19

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

**108** · 02/04/01 15:38

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

**nobodyさん** · 02/04/01 16:46

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

◆Googlexo · 02/04/01 16:52

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

**sato** · 02/04/01 17:01

>>114
それはJavaの仕事。

**nobodyさん** · 02/04/01 17:05

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

**nobodyさん** · 02/04/01 17:06

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

**nobodyさん** · 02/04/01 17:48

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

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

**nobodyさん** · 02/04/02 05:14

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

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

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

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

**nobodyさん** · 02/04/02 06:15

>>120
local $_ = '';

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

**nobodyさん** · 02/04/02 07:35

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

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

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

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

**nobodyさん** · 02/04/02 10:03

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

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

**nobodyさん** · 02/04/02 13:32

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

**nobodyさん** · 02/04/02 13:38

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

**124** · 02/04/02 13:52

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

**Dream ★** · 02/04/02 13:54

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

**124** · 02/04/02 14:08

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

**nobodyさん** · 02/04/02 14:09

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

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

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

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

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

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

**nobodyさん** · 02/04/02 14:11

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

**１２９** · 02/04/02 14:24

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

**１２９** · 02/04/02 14:27

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

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

**nobodyさん** · 02/04/02 15:26

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

**Dream ★** · 02/04/02 16:05

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

☆ · 02/04/02 16:15

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

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

**nobodyさん** · 02/04/02 16:24

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

**nobodyさん** · 02/04/02 16:39

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

☆ · 02/04/02 16:39

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

**nobodyさん** · 02/04/02 17:40

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

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

print <<"EOF";
～～大量～～
EOF

でも

print "～～～";
print "～～～";

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

**nobodyさん** · 02/04/02 18:24

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

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

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

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

**nobodyさん** · 02/04/02 18:25

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

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

**nobodyさん** · 02/04/02 18:36

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

**140** · 02/04/02 18:56

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

**nobodyさん** · 02/04/02 18:57

$package::var

**140** · 02/04/02 18:58

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

**１２９** · 02/04/02 19:24

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

**nobodyさん** · 02/04/02 19:27

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

**１２９** · 02/04/02 19:37

そうでしたか、

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

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

**nobodyさん** · 02/04/02 19:43

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

**nobodyさん** · 02/04/02 19:51

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

**147** · 02/04/02 20:44

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

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

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

**１２９** · 02/04/02 21:19

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

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

**nobodyさん** · 02/04/02 21:56

>>152

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

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

**139** · 02/04/02 21:58

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

**nobodyさん** · 02/04/02 22:20

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

**120** · 02/04/02 22:36

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

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

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

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

**１２９** · 02/04/02 23:35

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

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

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

**nobodyさん** · 02/04/03 00:09

package manco ;
$manco='manco';

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

**158** · 02/04/03 00:18

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

**nobodyさん** · 02/04/03 00:24

>>159
ourしる

**158** · 02/04/03 00:56

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

**nobodyさん** · 02/04/03 01:03

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

こういう事じゃなくて？

**nobodyさん** · 02/04/03 01:23

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

**nobodyさん** · 02/04/03 02:53

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

例えば、htmlの場合
<html>

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

**nobodyさん** · 02/04/03 02:59

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

**nobodyさん** · 02/04/03 03:19

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

**nobodyさん** · 02/04/03 03:47

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

**nobody** · 02/04/03 04:15

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

**166** · 02/04/03 04:28

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

**168** · 02/04/03 04:41

そうでしたか。

しかも間違えてたよ。
$honyarara='';
print "$honyarara\n";
だよ。（鬱
逝ってきます。

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

**nobodyさん** · 02/04/03 11:21

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

**nobodyさん** · 02/04/03 11:28

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

**nobodyさん** · 02/04/03 11:41

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

**nobodyさん** · 02/04/03 12:00

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

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

**nobodyさん** · 02/04/03 12:58

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

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

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

春虫 · 02/04/03 13:18

@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～のがズラズラ増えちゃうよね？
なんかスマ～トにやるにはどー書いたらいいでしょか？ｗ

**nobodyさん** · 02/04/03 13:18

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

**nobodyさん** · 02/04/03 13:19

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

**nobodyさん** · 02/04/03 13:23

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

**179** · 02/04/03 13:27

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

**nobodyさん** · 02/04/03 13:48

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

**nobodyさん** · 02/04/03 13:59

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

02/04/03 15:35

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;

**nobodyさん** · 02/04/03 16:05

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

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

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

**nobodyさん** · 02/04/03 16:06

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

**183** · 02/04/03 16:18

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

**nobodyさん** · 02/04/03 16:29

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

**183** · 02/04/03 16:38

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

**181** · 02/04/03 16:42

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

**nobodyさん** · 02/04/03 16:54

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

**nobodyさん** · 02/04/03 17:09

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

02/04/03 18:02

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

**nobodyさん** · 02/04/03 18:34

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

**nobodyさん** · 02/04/03 18:39

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

**192** · 02/04/03 18:44

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

**nobodyさん** · 02/04/03 21:56

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

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" ) ;
と、なっちゃったんだけど、できれば引数の数が変わるのは、避けたいいんだけど、
これは、言語仕様すか？
それとも、記述の仕方間違ってます？

**nobodyさん** · 02/04/03 22:05

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

**nobodyさん** · 02/04/03 22:16

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

**nobodyさん** · 02/04/04 00:06

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

**nobodyさん** · 02/04/04 01:44

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