【Perl 】初心者コーナーPart7

952 ：名無しさん＠お腹いっぱい。：01/10/24 01:07 ID:???

>>950
@kkk = ([3,4,5],[2,3,4],[6,7,8]);
ではなく？

>> 951、952
1次元で () で囲むので多次元でもそうだと思い込んでいました。
有難うございました。

954 ：名無しさん＠お腹いっぱい。：01/10/24 02:11 ID:Haoaz9Y7

$foo{bar}->[0] = 'あ';
$foo{bar}->[1] = 'い';
$foo{bar}->[2] = 'う';

というのがある状態で

foreach $hoe ( $foo{bar} )
もしくは
foreach $i ( 0 .. $#foo{bar} )

みたいな取り出し方ってできないのでしょうか？

955 ：名無しさん＠お腹いっぱい。：01/10/24 02:20 ID:???

取り合えずperllol辺りを良く読んだ方がいいかと・・・

956 ：つーか。。：01/10/24 02:47 ID:???

>>949
のレス貰って分からないとマズイですよ
配列であれハッシュであれ、デリファレンスしたものに対して操作しましょ

957 ：名無しさん＠お腹いっぱい。：01/10/24 04:48 ID:6Q3D2kbA

#!/usr/local/bin/perl
print "content-type: text/html\n\n";

$g=25425425124%241;
print "$g\n";

これ実行すると0が返ってくる・・・別のサーバーに置くと14が・・意味不明。
わかる人いますか？

958 ：名無しさん＠お腹いっぱい。：01/10/24 04:55 ID:???

マルチポストはやめれ。
http://piza2.2ch.net/test/read.cgi/tech/991994996/505-

959 ：名無しさん＠お腹いっぱい。：01/10/24 05:51 ID:???

変数の初期化って特に必要無いんでしょうか?
どうもＰＥＲＬの作法に慣れなくて・・・・

960 ：名無しさん＠お腹いっぱい。：01/10/24 06:02 ID:???

>>９５７
再現しないぞー　て当たり前か（´Д｀；）

961 ：　　：01/10/24 07:20 ID:WMwwHA4O

目か頭が壊れてる可能性が高いですね

962 ：名無しさん＠お腹いっぱい。：01/10/24 07:26 ID:???

#!/usr/bin/perl -wT

require japu;

963 ：名無しさん＠お腹いっぱい。：01/10/24 07:32 ID:???

>>959　その感じだとCからかい?、だとしたらPerlは不定では無い
0又は空文字列って感じ(C#って良いよね)
今の君は白百合女学園からフリースクールに転校してきたような状態なんだよ　へへ

他に嵌るパターンて言うと、ループ、再帰、mod_perl環境、undumpした実行ファイル
位かな、どれも前のウンコが入っててｼﾎﾞｰﾝて奴だからそんなに凶悪じゃ無いし。
勿論慣れなきゃ全部初期化してもOK、コストがどうとか言う奴はホットケ(ｗ
書いてればそのうち慣れてくるもんだし。

**もし**宣言の事言ってるんだったら、こっちはちゃんとしよう。
常時strict縛りがお勧め

964 ：954：01/10/24 09:57 ID:???

>>955
PerlLoL読みました。
参照ではなく実体で渡す必要があるから

foreach $hoe ( @{$foo{bar}} ){
foreach $hoe ( $#{$foo{bar}} ){

とやればいいのですね！
無事解決しました。ありがとうございます。

965 ：名無しさん＠お腹いっぱい。：01/10/24 09:59 ID:???

なんかここが「かちゅ～しゃ」で読めなくなってる。
なぜに？

966 ：名無しさん＠お腹いっぱい。：01/10/24 10:00 ID:???

my $ref = func();
print $$ref;

sub func{
　my $hoge;
　$hoge = "hoge";
　return \$hoge;
}

Cでこれやると駄目だよねえ。PerlでOkな理由がわかんない・・・。

967 ：名無しさん＠お腹いっぱい。：01/10/24 11:30 ID:???

>>967
Perlのmy変数はCのauto変数と違い、
・スタックには積まれるわけではない。
・参照がなくなるまで実体も消えない。
と考えればよいでしょう。

968 ：911：01/10/24 11:41 ID:EX0y50So

まずページを開いた時に

sub login {

if ($FORM{'pass'} ne "$pass") {
&header;
エラーメッセージ表示。
exit;
}
else{　日記のCGIそのまま }
exit;
}

でパスをチェックして、つぎに日記CGIないのパスチェックで管理モードに移行させたいのです。
日記CGI単体での動作確認は取れてます。
どこがいけないのでしょうか？

969 ：ぽ：01/10/24 11:49 ID:1tmsVagU

use strict している状態で eval() をした場合
strict がエラーになっても $@ になにも設定されません（T_T
Known Bug でしょうか？

use strict;
eval(<<'EOF;');
$X = 1;
EOF;
if(defiend($@)){
print "[$@]\n";
}

970 ：名無しさん＠お腹いっぱい。：01/10/24 12:13 ID:???

>>911
次のページに移動するとき
hoe.cgi?pass=password
みたいに渡してる？

971 ：名無しさん＠お腹いっぱい。：01/10/24 12:16 ID:???

@fff[0..1][2]
のようなスライスをすることは出来ますか？
（スライスとは言わないのかも）

972 ：JAPU ◆JAPUTeX. ：01/10/24 12:28 ID:???

>>969
"Bug" かどうかは分かりませんが、Perl 5.6 では $@ に "Global symbol ..."
が格納されます。

973 ：ぽ：01/10/24 12:31 ID:1tmsVagU

>>972
ありがとうございます。
こちらは Perl5.005_03 です。
ふーむどうしようかなぁ
STDERR には "Global symbol ..." が出力されるので
こいつを捕まえるのがいいのかな。

974 ：ぽ：01/10/24 12:34 ID:1tmsVagU

STDERR, STDOUT を上書きして文字列として取得したり
はたまた文字コード変換を追加したりできるモジュールとか
ありませんでしょうか？
&hogehoge(STDERR, \&buffering);
&hogehoge(STDOUT, sub { new Jcode(@_)->sjis(); });
みたいな感じで。
CPAN検索中．．．．でも探すのヘタなんですよ（TT

975 ：名無しさん＠お腹いっぱい。：01/10/24 12:38 ID:???

まんまのがありますね。
http://search.cpan.org/search?dist=Tie-STDERR

976 ：名無しさん＠お腹いっぱい。：01/10/24 12:41 ID:VLOxIr/R

use CGI;
$cgi = new CGI;
%FORM = $cgi->Vars;

をやろうとしています。Win32上の Perl 5.6.1では出来るのですが
プロバイダにある 5.005_03 では
Undefined subroutine CGI::Vars
と言われてしまいます。

古いバージョンの CGI.pmではどのように要素を取り出したら
よいのでしょうか？

977 ：名無しさん＠お腹いっぱい。：01/10/24 12:47 ID:???

そろそろ次スレだな。

978 ：名無しさん＠お腹いっぱい。：01/10/24 13:09 ID:???

>>976
%FORM = map{ $_, $cgi->param($_) } $cgi->param();

979 ：名無しさん＠お腹いっぱい。：01/10/24 13:15 ID:???

$logfile
---
2
1<>dataA<>dataB<>dataC<>
2<>dataA<>dataB<>dataC<>
EOF

処理
open(NUM, "< $logfile");
@log = <NUM>;
close(NUM);
$num = shift(@log);
chomp($num);
$num++;
$data = "$num<>$a<>$b<>$c<>";
unshift(@log, "$num\n");
push(@log,"$data\n");
open(ADD, "> $logfile");
print ADD "@log";

$logfile
---
3
1<>dataA<>dataB<>dataC<>
2<>dataA<>dataB<>dataC<>
3<>dataA<>dataB<>dataC<>
EOF

という風に
unshift(@log, "$num\n");
では行頭に半角スペースが入らなかったのに
push(@log,"$data\n");
open(ADD, "> $logfile");
としたら各行の行頭に半角スペースが入ってしまいました。
全く分からないのですが、どこで半角スペースが入ってしまっているのでしょうか？

980 ：979：01/10/24 13:18 ID:???

あわわ。。
半角スペース失敗。全角で書きます。
処理後の$logfile
---
3 #ここには入ってない。
　1<>dataA<>dataB<>dataC<> #ここの行頭
　2<>dataA<>dataB<>dataC<> #ここの行頭
　3<>dataA<>dataB<>dataC<> #ここの行頭
EOF

981 ：名無しさん＠お腹いっぱい。：01/10/24 13:23 ID:???

>>979 過去ログ見ようね
http://corn.2ch.net/php/kako/996/996075607.html の409-415

982 ：966：01/10/24 13:24 ID:???

>>967
参照カウンタ持ってるのか。なるほどさんくすありが㌧

983 ：979：01/10/24 13:33 ID:???

>>981
う…。失礼しました。
逝ってきます。

過去ログ全部取得して保存しておこう…。

984 ：名無しさん＠お腹いっぱい。：01/10/24 14:03 ID:???

my 新スレ立てるよー;

985 ：名無しさん＠お腹いっぱい。：01/10/24 14:14 ID:???

お願いします。
ってもう立ってるね。
コピペ中っぽいのでまだリンクは張らず。

986 ：これが貼りたかったーー：01/10/24 14:18 ID:???