Perlコーディング初心者質問スレ Part 48

**nobodyさん** · 2006/04/26(水) 18:00:50

Perlのコーディングで困ってる人のスレです。

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

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

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

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

**nobodyさん** · 2006/04/26(水) 19:05:38

やりすぎ。パフォーマンスチューニングは特に気になるところだけに集中すべき。

**nobodyさん** · 2006/04/26(水) 20:00:46

>>1
乙

**nobodyさん** · 2006/04/26(水) 20:13:44

スレ立て乙

>>10
その処理のためにスクリプトが10バイトくらい増えてたりしてｗ
データ大きい時に使うリファレンスはメモリ使用量じゃなく速度目当ての方が多いんじゃないかな。

**nobodyさん** · 2006/04/26(水) 20:40:59

>>10
メモリーを節約したいならそんなもんじゃぜんぜん不十分だろ。
リファレンスが必要になる時点でおわっとる。
変数は全部グローバルにして使いまわさないと。
コピーに比べたら関数の呼び出しはめっちゃコスト高いからな。
もちろん配列をループで扱うなんてもってのほか。
似たような処理はコピーペーストで記述したほうが速いぞ。
さらにやるなら変数ひとつについてファイルをひとつ作って
必要になったときのみ読み込むようにすると信じられないくらいメモリーが節約できる。
他にもまだまだあるけどこれ以上の極意はタダじゃ教えられないなー

**nobodyさん** · 2006/04/26(水) 20:52:51

とまあそのくらい Perl でのパフォーマンスチューニングというものは虚しいものなのだよ。

**nobodyさん** · 2006/04/26(水) 21:14:04

Perlでパフォーマンスを上げにくいということは
逆にいえばパフォーマンスを下げにくいということ？
たまに処理がクソ重い掲示板をとか見かけるんだけど、あれは何が原因なんだろう。
もちろん同じ鯖上で他の掲示板は速かったりする。

**nobodyさん** · 2006/04/26(水) 22:08:45

MEMORY I/OよりもDISK I/Oを選んでる時点で>14はクソ
以上

ハイ次

**nobodyさん** · 2006/04/26(水) 22:27:04

「必死にメモリだけを節約してどうする？」って意味の皮肉だろ。

**nobodyさん** · 2006/04/26(水) 22:35:51

perl起動しただけで結構喰ってるだろうに
スカラ変数１個のメモリなんて誤差範囲に含まれるくらい

**nobodyさん** · 2006/04/26(水) 22:40:24

10みたいなやつに限ってsubの中でグローバル変数を定義してるに違いない

**nobodyさん** · 2006/04/26(水) 22:50:55

>>16
掲示板で体感でわかるほどの違いになることなんかないんじゃなかろうか。
たまたま別の処理でメモリー使い切っていたとか無駄な解析で遅くなっているとか。
やたらCSSやJS、画像が多いと体感でもはっきり遅いけどね。

**nobodyさん** · 2006/04/27(木) 01:36:01

前スレ消費してください

**nobodyさん** · 2006/04/27(木) 09:26:13

>>16
表示する部分だけ拾えばいいところを全メッセージなめてるとかは
普通にありそうだな。

**nobodyさん** · 2006/04/27(木) 10:10:59

過去ログの量に比例して (下手するとそれ以上で) 重くなるとかね。

**nobodyさん** · 2006/04/27(木) 11:54:18

つーか前スレの奴ageで書き込んでるし昨日の変な奴だろ…
無視しろよ。

**nobodyさん** · 2006/04/28(金) 04:16:53

1： 16進数で範囲演算子をするにはどうしたらいいでしょうか？
2： for ($a = 0; $a <= f; $a++)
3：ダメポ

**nobodyさん** · 2006/04/28(金) 04:27:40

# 16進数
for (my $a = 0; $a <= 0xf; $a++) {
　　print "$a:(ﾟдﾟ)<ｼﾒｼﾞ\n";
}

# 範囲演算子？
for (0 .. 0xf) {
　　print "$_:(ﾟдﾟ)<ｼﾒｼﾞ\n";
}

26 · 2006/04/28(金) 04:48:31

>>27
thx!!
0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
じゃなくて
0,1,2,3,4,5,6,7,8,9,a,b,c,d,e
と演算させるには地道に置換しかないですか？

**nobodyさん** · 2006/04/28(金) 05:25:00

pack使え

**nobodyさん** · 2006/04/28(金) 06:25:40

リストを作ればいい。
for('0'..'9', 'a'..'f'){ ... }

**nobodyさん** · 2006/04/28(金) 08:57:45

こんな時こそ sprintf じゃないのか？

**nobodyさん** · 2006/04/28(金) 09:48:18

>>31
正解！

26 · 2006/04/28(金) 16:24:53

domo!

**nobodyさん** · 2006/04/28(金) 21:23:07

>>27
ｼﾒｼﾞｽﾚに帰れｗ

**nobodyさん** · 2006/04/29(土) 07:14:54

$str =~ s/// と、tr/// の機能の違いがわかりません。
どっちも同じこと出来ますよね？
本にはtrの方が高速だと書いてあります。なら全部trでいいですよね？
変換と置き換えの違いがわかりません。
教えてください。

**nobodyさん** · 2006/04/29(土) 08:09:45

>どっちも同じこと出来ますよね？
使い方次第。

>本にはtrの方が高速だと書いてあります。なら全部trでいいですよね？
何をしたいかによる。

試しにs/// で、変数中に含まれる小文字アルファベットを全部大文字にする
正規表現を書いてみよう。
trだと　tr/a-z/A-Z/; なんだけど、違いが分かるかな？

**nobodyさん** · 2006/04/29(土) 08:10:16

>>35
http://perldoc.jp/docs/perl/5.6.1/perlop.pod#item_s_PATTERN_REPLACEMENT_egimosx
http://perldoc.jp/docs/perl/5.6.1/perlop.pod#item_tr_SEARCHLIST_REPLACEMENTLIST_cds

**nobodyさん** · 2006/04/29(土) 09:02:10

tr///はパターンマッチをしていないってハッキリ書けよ。

**nobodyさん** · 2006/04/29(土) 12:25:23

trはメタキャラクタ(エスケープシーケンスの一部)は通すけど、キャラクタクラスは通さない。
気をつけないと嵌る。

tr/\t\n//; # タブと改行にマッチ
tr/\d\s//; # "d"と"s"にマッチ

**nobodyさん** · 2006/04/29(土) 23:34:00

<STDIN>を一度使うと以後使えなくなりますよね？
read (STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
read (STDIN,$buf,$ENV{'CONTENT_LENGTH'});
$buf eq '' and die;

$buf = $buffer;
ではなくてもう一度<STDIN>に入力する方法ってありませんか？

**nobodyさん** · 2006/04/30(日) 00:16:51

>>40
何故それ(STDINへの再入力)が必要なのか、やりたい事を書いて下さい。

**nobodyさん** · 2006/04/30(日) 01:07:11

>>40
> <STDIN>を一度使うと

使うってどういう意味？標準入力に出力したいのかな。

> もう一度<STDIN>に入力する方法

STDIN へ出力はできないのでは。
というより、設計を見直した方がよさそう。

**nobodyさん** · 2006/04/30(日) 05:58:26

>39
処理する(考慮する)内容が少ないからtrが高速ということか

**nobodyさん** · 2006/04/30(日) 06:02:22

STDINは読み進んだら、後ろは消えてなくなります
そういう仕様です

なので、STDINで読み取ったものを再利用したいのなら一度ファイルに書き戻すか、
サイズが小さいなら読み込んだものを再利用するようにコーディングすればいいです

35 · 2006/04/30(日) 07:48:31

>>36
s/[a-z]/[A-Z]/;
ですね。違いは・・・カッコ？
>>37
参考ページありがとうございます。
ｔｒ///は正規表現を使えないということでいいのでしょうか。
>>38
つまり、探すんじゃなくて見つけたモノを単純に置き換えるということでしょうか。
>>39
なるほど。タブや改行を使えると・・・。でもメタ文字は使えないということですね。

みなさん解説ありがとうごぜーました。
ようやく違いがわかりました。
重複するとこもあるけど、役割はちゃんと違うんですね。

**nobodyさん** · 2006/04/30(日) 09:13:52

>>43
文字クラス展開の有無なんかより、
バックトラックする必要の無い事の方が大きいと思うよ。

>>45
tr/ab/AB/ に等価なのは
s/[ab]/ $& eq 'a' ? 'A' : $& eq 'b' ? 'B' : $& /eg

36 · 2006/04/30(日) 10:54:32

>>45
ちっがーう！　ちゃんと動かして試してみた？
「g」オプションが無いんですよ。

…というのは嘘で、もし s/// で書くとしたら

s/a/A/g;
s/b/B/g;
（中略）
s/z/Z/g;

ってしないとダメなんだ。全然違うでしょ？
>>45に gつけても、出てくるのは小文字アルファベットを [A-Z]に置換した
ワケワカメな結果だけ。
[A-Z][A-Z][A-Z]　[A-Z][A-Z][A-Z]　[A-Z]…とか。

36 · 2006/04/30(日) 10:59:21

$bar= "i have a pen.\n";
$bar=~ s/[a-z]/[A-Z]/g;
print $bar;

結果：
[A-Z] [A-Z][A-Z][A-Z][A-Z] [A-Z] [A-Z][A-Z][A-Z].

# キャラクタクラスだのパターンマッチだのより先に言うべき事が…（;´д｀）

40 · 2006/04/30(日) 11:00:50

(STDINへの再入力)が必要な理由は
自分のHPで複数の掲示板を設置しているのですがコメントスパムがひどいんです。
その対策として現在稼動しているCGIにスパム対策を記述したplファイルをrequire '….pl';と読み込ませば
今後の追加対策もplファイルひとつで対応出来ます。
本体のCGIを改造するのは複数あるので困難だし配布先がバージョンアップすると一からやり直しだし、。
という理由で対策用のplファイルで一度<STDIN>読み込んで処理し問題無ければ本体のCGIに戻る→標準入力から呼び出す処理が始まる。
という理由です。

**nobodyさん** · 2006/04/30(日) 11:13:20

>>49
複数の掲示板って一体いくつあるの？
面倒がらずに改造したものを一つ一つ上書きすればいいじゃん。

'….pl'でコメントスパム対策ができるくらいのスクリプトは書けるんでしょ？
本体の頭でrequireしておいて、<STDIN>の後ろに外部サブルーチン呼び出しを
書くだけだから実質２行の追加で本体改造は終わると思うんだが。

**nobodyさん** · 2006/04/30(日) 11:28:56

適当にラッパー書く手もありますがね。

**nobodyさん** · 2006/04/30(日) 12:03:02

そもそもここは「お手軽に既存スクリプトを改造したい人の手助けをするスレ」じゃないよな。
改造物なら専用スレできいてほすぃ。
あくまでもPerlコーディング初心者、つまりこれから上達したい人の質問にその道の先輩が
答えるのが本道なわけだし。

**nobodyさん** · 2006/04/30(日) 13:42:36

>>47-48
tr/ab/ba/ と s/a/b/g; s/b/a/g; は結果が変わるから
tr/a-z/A-Z/ を s/a/A/g …のように説明するのはどうかと思うんだ。

**47-48** · 2006/04/30(日) 13:58:12

>>53
そりゃ、結果は変わるよね（変換がまとめて行われるか否かってレベルで）。
s/a/A/g; のように26回繰り返せば tr と同じ事ができるよって言いたかったんじゃなくて
s/// と tr/// の用途の違いを見せたかっただけ。

そもそも tr は 0-9 a-z A-Zのように連続している事が保証されている文字グループを
同数の別文字に変換する目的なので、その場合は数の多寡に限らず s/// は使わないのがよい。
とか追記すればよかったかな。

**47-48** · 2006/04/30(日) 14:09:07

それともちろん trには文字リストを２つ並べて変換するって用途もある。
jperlやPerl5.8＋UTF8で、漢字の新旧変換とか異体字変換する時に重宝する。

40 · 2006/04/30(日) 14:33:27

確かにあからさまな初心者的質問では有りませんが、
自作しているPerlのコーディングに関する内容なのでここで質問した次第です。
スレ主1の趣旨とかけ離れていると思いませんでしたし。それにここは人が多そうなので。

どうせならrequire '….pl';1行の改造だけで済ませたいです。
# GETメソッドによるチェックもあるのでCGIの2行目に記述しているから

どういうラッパーなんでしょうか？
パイプを変則的に使えば実現出来るのは知っていますが、うちのプロバイダのサーバでは
パイプが使えないようなんです。

**nobodyさん** · 2006/04/30(日) 15:34:27

>>56
> 自作しているPerlのコーディングに関する内容

え、自作なの？ >>49では

> 配布先がバージョンアップすると一からやり直しだし

って書いてあるけど…。

**nobodyさん** · 2006/04/30(日) 15:53:15

Perlのdirty hackをなめるなっ
例えば本来のSTDINを閉じてIO::Stringにtieするモジュール。
strictじゃない環境で動かすつもりならIO/String.pmに
ttp://search.cpan.org/src/GAAS/IO-String-1.08/String.pm
を置いて、四行目以降をplファイルに突っ込めばOK。
#=======================================
package Hack::STDIN::Seekable;
use strict;
use warnings;

use IO::String;

my $stdin = join '', <STDIN>;

close STDIN;
tie *STDIN, 'IO::String', \$stdin;
1;
#=======================================
…新たに書こうとしてるならこんなのは絶対に使って欲しくないけどね

**nobodyさん** · 2006/05/01(月) 00:18:30

Text::ChaSenモジュールをインストールしたのですが、
プログラム中でUse::TextChaSenとしても実行されていないようです。
#!C:/cygwin/bin/perl
use Text::ChaSen;
print "hoge";
とするとエラーも何も出ずに終わってしまうのですが、どういうことなのでしょうか？
モジュールが正しくインストールされていないんですかね？

**nobodyさん** · 2006/05/01(月) 00:30:02

酔っ払い中。

>>59
> プログラム中でUse::TextChaSenとしても実行されていないようです。
その宣言は間違いかもしれません。一般に、 use Text::ChaSen; かも。

> use Text::ChaSen;
> print "hoge";
> とするとエラーも何も出ずに終わってしまう
モジュールが正しく導入された、正常な状態です。
モジュールのインストールでミスってると、@INCを全部探したけどモジュールのファイルが
見つからんぞ、どないなっとんねん？というエラーメッセージが出るはずなので。

結論としては「何ら問題なくインストールできてる。use するときの書き方を再確認すると安心」
ぐらいじゃないですか？

**>>60** · 2006/05/01(月) 00:34:25

use Text::ChaSen;
print "hoge";
とした場合hogeは表示されると思うのですが、それすら表示されないのです。
use Text::ChaSenの行でプログラムが終了してそれ以降の行に進んでいない気がするのですが…

**nobodyさん** · 2006/05/01(月) 01:02:08

>40
CGIアクセスが実行されるときは、それが投稿なのか普通にアクセスされただけなのかは判別出来てるよね？
それなら簡単じゃないかと・・・
たとえば
my($spamflag) = 0;
if($in{'exec'} eq 'postmsg'){
　　require 'denypost.pl';
　　$spamflag = &denypostcheck($in{'posttitle'}, $in{'posthome'}, $in{'postmail'}, $in{'postbody'});
}
のようにすりゃいいんじゃないのでしょか？
denypost.plは
sub denypostcheck{
　　だらだら～あーだこーだ
}
1;
だけ

難しく考えすぎじゃないのかな？

**nobodyさん** · 2006/05/01(月) 10:13:04

@rankpairs=split(/&/,$ranking);
foreach $log(@rankpairs){
　　　　($jikan,$name,$score)=split(/=/,$log);
　if($pair{score}>$score){
push(@newrank,"$hiduke=$pair{name}=$pair{score}");
$check=1;
　　　　　}
　　　　　if($check==1){
　　　　　　　　　　　　if($pair{name} eq $name){next;}
　　　　　}
push(@newrank,"$jikan=$name=$score");
}

　得点ランキング用のCGIで、個人の最高得点を記録した後、
ログファイルにある$log{name}データと、フォームから送られた$pair{name]が同じ場合は、
それ以降、同じ名前の人は登録をせずにスルーしたいのですが、どうしてもうまく動いてくれません。
全てが「真」と判断されてしまうみたいで、全て「next」を通ってしまいます。

一体、どこが間違っているのでしょうか？　perlの辞典も買ってきて
色々と調べているのですが本当に分かりません。

**nobodyさん** · 2006/05/01(月) 10:59:16

>63
ロジックをよく見直せ。
pushした後で名前の値を比較してどーすんだよ。アフォかいな。

**nobodyさん** · 2006/05/01(月) 11:19:05

一回目のプッシュは登録されて構わないので、そこで$checkを1にしておいて、
それ以降のループで名前の比較をして、nextしているつもりなのですが…。

**nobodyさん** · 2006/05/01(月) 11:28:23

@rankpairs=split(/&/,$ranking);
foreach $log(@rankpairs){
　　　　($jikan,$name,$score)=split(/=/,$log);
　　　　　if($check==1){
　　　　　　　　　　　　if($pair{name} eq $name){next;}
　　　　　}
　　　　　if($pair{score}>$score){
　　　　　　　　　　　　push(@newrank,"$hiduke=$pair{name}=$pair{score}");
　　　　　　　　　　　　$check=1;
　　　　　}
push(@newrank,"$jikan=$name=$score");
}

でも、順番を変えたら成功しました。
なぜこれだとうまく行くのか、正直まだ理由が理解できていませんが、
>>64、ヒントを下さってありがとうございました。

**nobodyさん** · 2006/05/01(月) 12:00:35

>66
そのソースじゃ問題ありそうな悪寒

**nobodyさん** · 2006/05/01(月) 12:03:06

教えて下さい。

掲示板を作っているのですが
openで読み取りの前に読み込むログを
ロックする必要はあるのでしょうか？

**nobodyさん** · 2006/05/01(月) 12:11:37

ログを飛ばしたくないならロックはした方がいい
k○ntのロックの仕方は真似しちゃ駄目よ

**nobodyさん** · 2006/05/01(月) 12:15:54

>69
ありがとうございます。

**nobodyさん** · 2006/05/01(月) 15:50:31

ke*ｔって本も出してるし、利用者多いし、優れたコード書く人じゃなかったのか。

◆TWARamEjuA · NG

ｶﾞｸﾌﾞﾙ

**nobodyさん** · 2006/05/01(月) 17:07:02

m9(^Д^) ・・・

**nobodyさん** · 2006/05/01(月) 17:15:00

初心者の僕に何が悪いのか説明してください・・・

**nobodyさん** · 2006/05/01(月) 17:15:27

フレームネタなんで、その辺はこちらへどうぞ。

KENT WEB 総合スレ Part2
http://pc8.2ch.net/test/read.cgi/php/1078991985/

**nobodyさん** · 2006/05/01(月) 17:28:20

>>75
ｻﾝｸｽ。
必死だということだけは理解した。

**nobodyさん** · 2006/05/01(月) 18:08:15

俺が思うにKENTで配布されてる物の大半は初心者の頃に書いた奴だと思うのだが
今でもあんな書き方してるんだったら知らん＾＾；

**nobodyさん** · 2006/05/01(月) 18:09:41

（＾ω＾；）……

**nobodyさん** · 2006/05/01(月) 19:50:42

もう kent 話はいいじゃないか。
おまえら注目しすぎ。

**nobodyさん** · 2006/05/01(月) 19:53:55

KENTさま～

**nobodyさん** · 2006/05/01(月) 19:57:37

>>69
最後の1行余計。
KENTのソースで普段から勉強してんのか？

40 · 2006/05/01(月) 20:23:44

58氏有難うございます。
動作確認しました。
個人的に使うだけなので・・・(^^;

稼動中の掲示板にはrequire一行だけしか記述せずに動作させてみたかったんです。
>>40
にもそれらしいことは書きましたが
plファイル抜ける時にreturn $buffer;としてそれを受け取るように稼動中のCGIも改造すれば
すむんですが、こだわってみたかったんです。
だからplファイルはほとんどif文ばかりです。もちろんそれがPOSTとGETなのか動作判定はしてます。
動作的に投稿時の<STDIN>を2回処理する無駄はありますが、体感出来るほどでもないですし。

**pel** · 2006/05/02(火) 10:15:11

Windows2003ServerにActivePerl5.8.8,mod_perl2をインストールし、CGIを作成しているのですが、長時間かかる処理を実行したいため、ブラウザがタイムアウトを起こさないようにバックグラウンドで処理を実行したいと思っています。
例えば下記CGIを実行したとき、バックグラウンドでthre2を実行しておき、ブラウザにはすぐthre1を実行した結果としてprintを実行したいのですが、thre2の終了を待たなければ、thre1は実行されないのです。
これではブラウザがハングアップしてしまうのですが、どのようにしたらよいのでしょうか？
perlのforkやDOSのコマンドstartも試したのですが駄目でした。

***************
use v5.8.0;
use threads;

my $thread1 = threads->new(\&thre1, "1");
my $thread2 = threads->new(\&thre2, "2");

$thread1->join;
$thread2->join;

sub thre1() {
print "$_\n";
threads->yield();
}

sub thre2() {
sleep(30);
threads->yield();
}
***************

よろしくおねがいします！

※マルチポストさせていただいています。
http://www.gac.jp/article/index.php?stats=question&category=10&id=17717&command=msg

**nobodyさん** · 2006/05/02(火) 11:06:58

似たような処理を一つのルーチンにまとめてモード別の細かい条件はifで判断して実行していくのと、
全体のコードが長くなっても、ifを使わないで別処理にしていくのでは、どっちがいいんでしょうか？
前者はコードは短くなりますが、頻繁にifを使うので処理が重くなりそうな気がするんですが・・・

**nobodyさん** · 2006/05/02(火) 11:09:23

>>83
fork使うのなら、
CGI fork バックグラウンド
で検索すると出てくると思う。

**nobodyさん** · 2006/05/02(火) 11:10:02

winでforkって使えるんだっけ

**nobodyさん** · 2006/05/02(火) 11:14:23

>>84
つ多態

85 · 2006/05/02(火) 11:33:29

あー、Windowsの場合は平行処理してくれないのか。

**pel** · 2006/05/02(火) 11:35:57

85>>
86>>

UNIXサーバで動いたforkを使ったソースそのままをWindowsサーバで動かしたら、thread同様printされずです。

**nobodyさん** · 2006/05/02(火) 11:39:33

でもthreadは使えるんじゃなかったっけ

**pel** · 2006/05/02(火) 12:09:46

すいません、今テストしたところ、threadは使えてバックグラウンド処理は行えているようです。
(タスクマネジャ参照)
しかし、ブラウザが拘束されて、printされないことが回避できません。
方法知りませんか？

**pel** · 2006/05/02(火) 12:11:19

書き直し。

すいません、今テストしたところ、threadは使えてバックグラウンド処理は行えているようです。
(タスクマネジャ参照)
しかし、ブラウザが拘束されて、sleepが終わらないとprintされないことが回避できません。
方法知りませんか？

**nobodyさん** · 2006/05/02(火) 12:18:06

ttp://perldoc.jp/docs/perl/5.8.1/perlthrtut.pod

**pel** · 2006/05/02(火) 12:29:52

>>93
joinをdetachに変えてみます！

**pel** · 2006/05/02(火) 15:13:58

>>93
うまくいきました！！
ありごうとうございました。

**nobodyさん** · 2006/05/02(火) 15:30:13

Net::FTPを使って

$net_ftp->rmdir('directory');

だと、空じゃないディレクトリは消えないのですが、これを

rm -rf(unix)
rd /s /q(NTのCMD)

みたいなことってできますか?
先にディレクトリの中を空にしてから、cdup()で上がって消すしかないですか?

あと、これはついでなのですが・・・
rmdir(DIR,[RECURSE])
mkdir(DIR,[RECURSE])

の中に入るRECURSEって何を入れたらいいもんなんでしょう。。

**nobodyさん** · 2006/05/02(火) 15:46:28

recurseは再帰。
$net_ftp->rmdir('dir', 1);
みたいにしたらディレクトリの中身ごと消してくれる。
とNet::FTPのドキュメントに書いてある。

**nobodyさん** · 2006/05/02(火) 16:33:51

>>97
そのあたりはドキュメント見ながらやったのですが、

$net_ftp->rmdir('dir', 1);

をやるとエラーが出ます。

Deep recursion on subroutine "Net::FTP::rmdir" at C:/perl/lib/Net/FTP.pm line 612.

となって、100回以上ループしてるようなんです。
1と文字列の'true'は試してみました・・・

**nobodyさん** · 2006/05/02(火) 17:55:48

教えて下さい
今CGI掲示板をいじっているのですが

foreachの前に配列や変数を空にする場合
よく@xxx=();　$=0;と見るのですが
undefはあまり使わないのでしょうか？

**nobodyさん** · 2006/05/02(火) 19:04:32

undefはｱﾎﾞｰﾝ
初期化とは意味が違います

**nobodyさん** · 2006/05/02(火) 19:49:10

>>100
ありがとうございます
意味は判るのですが

どちら使うか迷ってまして
適当に使ってみます。

**nobodyさん** · 2006/05/02(火) 20:30:46

#!/usr/bin/perl -W

use strict;

my($test);

$test=""; #初期化
print $test;

undef $test; #削除
print $test;

結果：Use of uninitialized value in print at a.pl line 11.

まぁお好みでいいんじゃね？

**nobodyさん** · 2006/05/02(火) 20:32:50

warningsなんて使ってる奴まだ居たのか…Perlの意味ねーだろ

**nobodyさん** · 2006/05/02(火) 20:34:26

>>>103そんなお前のソースは見辛い

**nobodyさん** · 2006/05/02(火) 20:35:43

>>104
いや、strictなソースは素晴らしいけど、warningsはマジで要らなくないか？
空の値をprintするだけでも警告出るんだぞ？

**nobodyさん** · 2006/05/02(火) 20:36:41

空の変数をprintするのが悪いだろｗ

**nobodyさん** · 2006/05/02(火) 20:37:40

-wなんて超几帳面な奴しか使ってないよ

**nobodyさん** · 2006/05/02(火) 20:47:13

ワーニングはデバックする時しか使ってね

**nobodyさん** · 2006/05/02(火) 20:51:56

運用時には-Wは使ってないけど、開発中は常にそれでやってる

**nobodyさん** · 2006/05/02(火) 21:03:44

そんなｵﾌﾟｼｮﾝがあるのを初めて知った。