【Perl 】初心者コーナーPart8

**名無しさん＠お腹いっぱい。** · 01/10/24 14:11

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

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

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

参考書籍はこちら【【Perl,CGI】参考書籍第２版】
http://ebi.2ch.net/test/read.cgi/php/988809842/l50
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part４】
http://ebi.2ch.net/test/read.cgi/php/1000804655/l50

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

**名無しさん＠お腹いっぱい。** · 01/10/27 21:18

車だってさ(w

**名無しさん＠お腹いっぱい。** · 01/10/27 21:21

>>81　eq　ﾀｰﾐﾈｰﾀ

**名無しさん＠お腹いっぱい。** · 01/10/27 21:24

>車
過疎地うろついてないでマ板いきなよ
Perlスレもぽこぽこ建ってるし

**名無しさん＠お腹いっぱい。** · 01/10/27 22:52

ログ移転前に書いてみる。

**名無しさん＠お腹いっぱい。** · 01/10/27 22:56

移転上げ

**名無しさん＠お腹いっぱい。** · 01/10/28 21:53

age

**名無しさん＠お腹いっぱい。** · 01/10/29 03:25

(aa..zz,aA..zz,Aa..zz,AA..zz)
みたいなアルファベット大・小文字全部並べるスライスの，簡単な書き方ってありますか？

関数に文字数指定して，文字列として書かせたのを，evalして使ってるんですが
無駄なことしてるかもと思ったので。

**名無しさん＠お腹いっぱい。** · 01/10/29 03:30

もっと具体的に説明きぼん

88 · 01/10/29 03:50

>>89
普通に手で書くと，文字数増えるごとに書くのもどんどん増えていっちゃうので，
(aa..ZZ)とか(\w{3})みたいな書き方はできないかなぁと。

88の関数はこんなのです。
@arry = eval getArry(1);
sub getArry {
　my $nest = shift;
　my $word = shift || '';
　my $i = 0;
　my $ret = '';
　foreach (a,A) {
　　my $word = $word.$_;
　　if ($nest>0) {
　　　$ret .= getArry($nest-1, $word);
　　} else {
　　　$i++;
　　　$ret .= "$word..";
　　　$ret .= 'z'x length $word;
　　　$ret .= ',';
　　}
　}
　return $ret;
}

**名無しさん＠お腹いっぱい。** · 01/10/29 07:15

それ異常の書き方は無いと思うなあ。
つーかむしろ(a..z)だけにして、文字列長投げるような関数に
した方が良いんじゃないの?
呼び出しのコストを嫌ってるのか･・・・
漏れはデカイ配列の方が嫌いだけどなあ

**名無しさん＠お腹いっぱい。** · 01/10/29 07:19

あ、すまん、そうしてるんだね。
再帰しなくても良さそうだな、、
帰ったら書くわ

**名無しさん＠お腹いっぱい。** · 01/10/29 17:18

>>91
>漏れはデカイ配列の方が嫌いだけどなあ
俺もおなじくです。2文字(aa～ZZ)ぐらいならいいんですが、
4文字(aaaa～ZZZZ)なんかはちょっと配列に入れるのがつらい。

用途にもよるけど、呼び出すごとに「次の文字列」を返す関数を
作って、STLのnext_permutationみたいな使い方をするのが
いいと思う。

**名無しさん＠お腹いっぱい。** · 01/10/29 20:26

あるファイルの行数を調べたいのですが、
一番メモリを使わずに調べる方法は何ですか？

**名無しさん＠お腹いっぱい。** · 01/10/29 21:04

my宣言した変数は出来るだけ早くundefした方が良いのでしょうか？

**名無しさん＠お腹いっぱい。** · 01/10/29 21:14

>>94
nバイトずつreadして"\n"の個数を数える。

**名無しさん＠お腹いっぱい。** · 01/10/29 21:15

>>94
my ($lineNum,$fileName,$buf);
open (FH,"fileName");
while (1){
read(FH,$buf,1);
last if $buf eq '';
$lineNum++ if $buf eq "\n";
}
print "行数は$lineNumです\n";

**名無しさん＠お腹いっぱい。** · 01/10/29 21:45

>>94
open(FH, $file) or die "Can't open $file";
my $count;
$count = $. while (<FH>);
close(FH);

**名無しさん＠お腹いっぱい。** · 01/10/29 21:54

>>95
大量のデータを長期間無駄に保持するのは避けたいけど、
ほとんどの場合、あえて明示的にundefするまでもないと思う。
まあ具体的なコードを見ないと判断つかないっすね。

**始めて数日なんですが** · 01/10/29 22:08

検索したり本を見ても、書いてなかったり、さっぱり意味不明だったりと自分ではなかなか判断がつかないとき、「内では～となっているので～とした方がいい」って明解に断言してくれる人がいると役に立つんだけど、みなさんはどうしてるんですか？

**Perl上級車** · 01/10/29 22:11

>>100
首吊って氏ね。

**名無しさん＠お腹いっぱい。** · 01/10/29 22:14

>>100
> 始めて数日なんですが
日本語を？

**名無しさん＠お腹いっぱい。** · 01/10/29 22:21

>>100
perldocの該当個所を4～5回読み直し、それでも理解できなければ
いまは知る必要がないのだとあきらめて後回しにした。
すくなくとも他人の言葉には頼らなかった。

**名無しさん＠お腹いっぱい。** · 01/10/29 22:21

>>100
とにかく、首をくくるのがいいと思われ

**マジレス** · 01/10/29 22:23

>>100
始めて数日の人がそんな壁にぶつかる訳がありません。
Googleで検索したりリンク辿ったりすれば、参考になるものが
見つかるはずです。
少なくとも初心者の内は検索などで十分です。
（分不相応な事をしなければ）

そして初心者を抜ければ殆ど自分で判断できるようになる筈です。

**Perl上級者** · 01/10/29 22:27

とにかく邪魔だから二度と出てこなくていいよ。

**名無しさん＠お腹いっぱい。** · 01/10/29 22:28

>>106
お前も一々煽るな。邪魔臭い。

**Perl上級者** · 01/10/29 22:29

ﾊｧ？ココは気持ち悪い馴れ合いスレですか(わら

**名無しさん＠お腹いっぱい。** · 01/10/29 22:32

>>108
馴れ合いの逆は煽りかよ。馬鹿丸出し。
いいからとっとと失せろ。

01/10/29 22:34

Perl上級者は無視の方向で。

**名無しさん＠お腹いっぱい。** · 01/10/29 22:37

CGI.pmってどうなの？

**名無しさん＠お腹いっぱい。** · 01/10/29 22:43

>>111
「どうなの？」って聞かれても何と答えれば良いのやら。

**名無しさん＠お腹いっぱい。：** · 01/10/29 22:59

つーかPerlの上級者って、、、なんかショボイなあ　(ﾟεﾟ)

**Perl上級者** · 01/10/29 23:09

・・・と、初心者以下の素人が言いました、とさ（大爆笑）

**Perl上級者** · 01/10/29 23:12

これこの板の名無しにどうよ？
あとtinkopinpinとか　　ｹﾞﾗｹﾞﾗ～

**名無しさん＠お腹いっぱい。** · 01/10/29 23:18

shigeより馬鹿っぽい所が悲しいよな、（大爆笑）だって･・・・
この板の哀愁が漂ってくるね
もっと勉強しよ･･･

**名無しさん＠お腹いっぱい。** · 01/10/30 01:03

未熟ながら、初心者スレッドと言う事でお許しください。

あるログインCGIを作っていて
ログイン（ID/Pass）→　メニューとメイン画面をフレームで表示
と言う処理を行っています。
このときメニューとメイン画面もログイン用のファイルと一緒にしているのですが、
別々の物に分けたほうが良いのでしょうか？

//サンプル
if{
　&ログインパスチェック
}elsif{
　&左フレーム（メニュー）表示
}else{
　&右フレーム（メイン画面）表示
}
#それぞれ引数を変更してやって判定

sub ログインパスチェック{
if(パスチェックが成功したら){
print <<EOM;
<FRAME SRC=./login.cgi?id=$in{'id'}&passwd=$in{'passwd'}&cmd=01 NAME="menu">
<FRAME SRC=./login.cgi?id=$in{'id'}&passwd=$in{'passwd'}&cmd=02 NAME="main">
EOM
}else{
print <<EOM;
<FRAME SRC=./login.cgi?id=$in{'id'}&passwd=$in{'passwd'}&cmd=01 NAME="menu">
<FRAME SRC=./login.cgi?id=$in{'id'}&passwd=$in{'passwd'}&cmd=03 NAME="main">
EOM
}

瞬間的に3度同じファイルを実行する事になり、そのたびにデータを読み出しているので心配です。
また、他のファイルに分けて処理した方が動作がスムーズになる、とも聞きました。
どうでしょうか。
足りない部分があれば随時補足させて頂きます。
根本的にこんなロジックにした方が良い、と言う意見もあれば是非お聞かせください。

**名無しさん＠お腹いっぱい。** · 01/10/30 01:27

>>117
この場合、認証をすべてlogin.cgiでまかなうのも、
login.cgi、frame.cgi、main.cgi、menu.cgi等に分割するのも、
さして変わりはないと思う。
どちらにしても認証後に3つのCGIがほぼ同時に起動するわけだし。

なにか改善策があるとすれば、
＞根本的にこんなロジックにした方が良い、と言う意見
ここだろうけど、おれには考えつかない。
CGIで認証する限り、「１ページ表示するごとにパスワードファイルの読み書きが必要」と
いう問題は避けられないのでは。

**名無しさん＠お腹いっぱい。** · 01/10/30 03:48

>>118
なるほど、貴重なご意見有難うございます。
やはり逐一パスワードファイルにアクセスしないといけないのは
宿命ですかね。

**名無しさん＠お腹いっぱい。** · 01/10/30 09:32

>>117&119
どっちかってーとCGIだけどなんか質問ある？向きだけど・・・
とりあえず「セッション」とかって言葉を調べると幸せになれるかもしれません。。。えいめん。

ぽ · 01/10/30 14:05

cron でフルパス起動されるコマンドなんだけど
ライブラリの場所は相対で ../lib にあります。
エレガントな指定方法を教えてください。
今は
{
my $base;
BEGIN{
$libPath = $0;
$libPath =~ s|/[^/]+$|/lib|;
}
use lib ($libPath);
}

**名無しさん＠お腹いっぱい。** · 01/10/30 14:12

素直にフルパスで書くのが一番だと思うが。

**名無しさん＠お腹いっぱい。** · 01/10/30 16:33

>>121
フルパス指定がいやならFindBinモジュールを利用。

**121** · 01/10/30 17:03

>>123
ありがと（＾－＾）
まだまだ知らないモジュールがいっぱい．．．
精進せねば．．．

**名無しさん＠お腹いっぱい。** · 01/10/30 17:04

>>121
cronで起動するときにchdirする方法を愛用してます。
スクリプトのほうで小細工する必要なし！

**121** · 01/10/30 17:12

>>125
あと /etc/aliases から "| /foo/bar/hogehoge" でも起動されるやつも
あるんで FindBin でいくことにします

はっ /etc/aliases のやつも "| (cd /foo/bar ; ./hogehoge)" すると
いけるのかな？

**名無しさん＠お腹いっぱい。** · 01/10/31 11:19

すいません、perl全くの初心者なんですが
Mac OS 9.02から、Mac OS 10.1にして勉強を始めようと思っています
しかし、Mac OS 10.1に入ってるperlは日本語関連でかなり問題がある、
というのを聞いて驚きました。
ビギナーではMac OS 10.1はやめておいた方がいいのでしょうか？
参考書みてもそもそも正常に動作しなかったら挫折しやすい、というか。
どのような問題があるかはgoogleなどで引っかけても上手くかからなかったので
わからないんですが、よろしければアドバイスお願いします。

**名無しさん＠お腹いっぱい。** · 01/10/31 11:30

ここはマック使う人少ないみたいだよ。
マックのことはマック使ってる人に聞くのがよろし。

マックでプログラムやるなら
http://pc.2ch.net/test/read.cgi/mac/1003548817/
ＭＡＣの開発ソフト
http://pc.2ch.net/test/read.cgi/tech/978844038/

**名無しさん＠お腹いっぱい。** · 01/10/31 11:41

あの＝。jcode.plとcgi-lib.plって再配布して
いいんですか？

**名無しさん＠お腹いっぱい。** · 01/10/31 12:04

>>128
あ、ありがとうございます

**あげてみる** · 01/11/02 13:01

seekの説明にある、「行番号をバイトオフセットに変更するインデックス」を作成してくれるモジュールないっすかねえ

**名無しさん＠お腹いっぱい。** · 01/11/02 19:40

質問なんですが
ハッシュをサブルーティンに渡して、サブルーティンの中でも同じように
ハッシュとして参照したいのですが、どうもうまくいきません。
下のように書いたのですが、値が表示できません。
どのようにすればうまくいくか教えていただけないでしょうか？

my %jjj ;
$jjj{'aaa'} = "111";
$jjj{'bbb'} = "222";
$jjj{'ccc'} = "333";
&test( %jjj ) ;

sub test {
my $jjj_ref = @_ ;
print("####　$jjj_ref->{'aaa'}") ;
}

Ks · 01/11/02 20:11

掲示内容が不適格であったらごめんなさい。
httpヘッダで困っています。

・httpの拡張ヘッダって編集できるものなの？
・どうやって編集するの？
・拡張ヘッダの設定内容を見て処理をするって可能なの？どうやって
　するの？

誰か教えて頂けませんか？
もしくはわかるサイトを教えて頂けませんか？宜しくお願いします。

**名無しさん＠お腹いっぱい。** · 01/11/02 20:17

&test( \%jjj ) ;
sub test {
my $jjj_ref = $_[0] ;
print("####　"."$jjj_ref->{'aaa'}") ;
}
ハッシュの前に引数の受け取り方を調べよう　：-）

**名無しさん＠お腹いっぱい。** · 01/11/02 20:18

どうやってするのか分からないけど全て可能です。
詳しくはここ
http://www.w3.org/Protocols/rfc2616/rfc2616.html

**名無しさん＠お腹いっぱい。** · 01/11/02 20:34

冷たいんだね

**名無しさん＠お腹いっぱい。** · 01/11/02 20:37

プロトタイプって手もある
sub test(\%);

test(%jjj);

sub test(\%){
my $href = shift;
print $href->{aaa};
}

**名無しさん＠お腹いっぱい。** · 01/11/02 20:41

変数に例えば
$hoge ='aa,bbb,cc,ddd,nn,nn,yy,zzz';
のように格納されていた場合後ろから2つ目の「,」
の位置を調べたいのですがどうすれば良いのでしょうか？
お願いします。

**名無しさん＠お腹いっぱい。** · 01/11/02 21:38

(length join ',,',(split /,/,reverse $test)[0,1])

**名無しさん＠お腹いっぱい。** · 01/11/02 21:43

>139
レスありがとうございます。
早速使わせていただきます。
どうもでしたm(_ _)m

**名無しさん＠お腹いっぱい。** · 01/11/02 21:46

rindexを２回使うという手も。

**名無しさん＠お腹いっぱい。** · 01/11/02 21:49

>141
それはどういうものでしょうか？
POSを使うのですか？

**141** · 01/11/02 22:01

>142
文字を後ろ向きに検索して，見つかった位置を返す。
perldoc -f rindexあたりで説明見られると思う。

**名無しさん＠お腹いっぱい。** · 01/11/02 22:03

試してみます。
親切にどうもありがとうございますです。

**132** · 01/11/02 23:28

>>134
>>137
ありがとうございます。勉強し直します。

&test( \%jjj ) ;こう書いてました。
根本的に勉強不足だったようです。

**ｃｇｉビギナー** · 01/11/03 01:03

掲示板を作っています。ベテランには痛い質問かもしれませんが
今ｅａｌｉｓという掲示板で奮闘しています。
関連サイト→http://kano.vis.ne.jp/erial/
そこの設置開設のところでｐａｒｌパスを書き込むのですが
最初の行に#!/usr/local/bin/perlと書き込めばよろしいのでしょうか？
まだ質問がありますがひとまずお願いいたします。

**名無しさん＠お腹いっぱい。** · 01/11/03 01:16

>>146
何を言いたいのか全く解りません。
普通、CGIを設置する上で"Perlのパス"といった場合は
#!/usr/local/bin/perl
などの1行を指す場合は多いです。
この1行はサーバ上のPerlというプログラムの位置
（WinでいうならC:\Program Files\perl\perl.exeという感じ）
を表します。
そのため、サーバによってインストールされた場所も異なり、
サーバごとに記述するべき内容異なります。

そもそも、ここに書き込む前にしかるべきサイトで
CGIについて勉強してくるべきだと思われます。

**名無しさん＠お腹いっぱい。** · 01/11/03 01:16

>146
KENT氏のページへ行かれたほうがよろしいかと思います。
http://www.kent-web.com/

氏のサイトは，初心者にも優しいと定評があります。

**148** · 01/11/03 01:19

誤字
優しい->易しい

**ｃｇｉビギナー** · 01/11/03 01:18

>>147
ご忠告感謝いたします。>>148氏が書き込まれたサイトにて学んできます。

**名無しさん＠お腹いっぱい。** · 01/11/03 02:42

他のサイトからのアクセスを制限したいのですが、
（チャットのよそからの発言を禁止するような感じです。）
referer調べる以外で良い方法は無いものでしょうか？

**名無しさん＠お腹いっぱい。** · 01/11/03 02:55

>>151
IDを発行するとか。

**名無しさん＠お腹いっぱい。** · 01/11/03 13:58

再帰の深さってどれ位まで許されてるんでしょうか？
処理系依存ですかね
スタック食い尽くす前にヲーニングくれたりしないかな・・・

**名無しさん＠お腹いっぱい。** · 01/11/03 15:58

$_
ってなんですか？
厨房でスイマセン…。

**名無しさん＠お腹いっぱい。** · 01/11/03 16:04

@_ = ($_[0], $_[1], $_[2]);

**名無しさん＠お腹いっぱい。** · 01/11/03 16:14

ﾊｧ(゜Д゜）?

**ｃｇｉビギナー=146** · 01/11/03 16:31

何とか掲示板が設置いたしましたがその掲示板で書き込みをしたとき
あとページエラーが出てしまいます。
原因は$INI{'locate'} = 'http://www.hogefoo.ne.jp/~bar/cgi-bin/ealis/';
という所で「eliasをインストールするDIRのhttpパスを書く」という単語の意味がわからず
間違っている書き込みをしていると思います。
お手数なのですが改善できる術は無いでしょうか？
関連サイト→http://kano.vis.ne.jp/erial/ealis/setup.html
そのealisを置いている場所は
ttp;//トップ/cgi-bin/test
のテスト言うディレクトリに入れてあります。よろしくお願いいたします。

**名無しさん＠お腹いっぱい。** · 01/11/03 16:53

eliasをインストールするDIRのhttpパスを書く
　　↓
eliasをインストールするディレクトリのアドレスを書く
　　↓
分からない単語は検索しろ
ディレクトリ、アドレス、パス、http://www.google.com/

**ｃｇｉビギナー=146** · 01/11/03 17:02

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

**名無しさん＠お腹いっぱい。** · 01/11/03 17:37

$_ は省略時に暗黙の内に使われる変数。
たとえば、
while(<>) { print }
は
while($_ = <>) { print $_ }
と等価。
length の引数を省略したときは length $_ を返す、とかいろいろあるので、「プログラミングPerl改訂版」を読みましょう。
(perldoc でもよいが)

**名無しさん＠お腹いっぱい。** · 01/11/03 18:59

$_を介すると、ほんのちょっとだけ処理が早くなる傾向がある（ようだ）。
常時、積極的に使用するほどメリットがあるとは思わないが、
何万回といったループの中で使うと結構でかい差になるかもしれない。

**名無しさん＠お腹いっぱい。** · 01/11/03 19:12

>>157 初心者は使うなって書いてあるやん・・・

**_gunzip@鬱だ詩嚢** · 01/11/03 20:33

>>153
my()で確保しているpadlist内の変数の数/大きさにも依りますから
一概に何回、とは言いきれません。

ただ、-w オプションを付ける、ないしwarningsプラグマで
"recursion"カテゴリの警告を行うよう設定していれば、
サブルーチンの100回以上の再帰呼び出しがなされた時点で警告が出ます。
(中止するわけではないので、あまり意味はありませんが)

各CVは、おのおの自分自身の再帰呼び出し回数をxcv_depth
メンバに保持していますから、内部APIのCvDEPTHマクロを利用して、
規定回数以上になれば強制的にreturnさせるコードを挿入する
ぐらいしか対策がないような気がします。

I32 get_depth(SV *sv)
{
    if(SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVCV)
        return CvDEPTH(SvRV(sv));
    else
        return -1;
}

**_gunzip@鬱だ詩嚢** · 01/11/03 20:43

っていうか、数えた方が早いね。

**名無しさん＠お腹いっぱい。** · 01/11/03 23:48

>>159 ｃｇｉビギナー=146
ここは1に書いてあるように「perlのコーディングで困ってる人のスレ」
だから、こっちで聞く方が良いと思いますよ。

ＣＧＩだけど、なんか質問ある？part４
http://pc.2ch.net/test/read.cgi/php/1000804655/l50

**名無しさん＠お腹いっぱい。** · 01/11/04 00:00

>>151
手続きなど無しで制限したいのですがやはり無理でしょうか？
お願いします。

**名無しさん＠お腹いっぱい。** · 01/11/04 00:06

>151 自鯖なら .htaccess。

**名無しさん＠お腹いっぱい。** · 01/11/04 00:22

>167
.haccessで制限できますか？
↑関連スレで質問した方が良いかな？

**名無しさん＠お腹いっぱい。** · 01/11/04 01:34

>>168
167は.htaccessでユーザ認証しなさいってことじゃないすか。
いちおう.htaccessのRewriteRule/RewriteCondを使うと
リファラを見て外部からのアクセスを拒絶することはできるけど、
151でリファラ以外の方法って書いてあるしね。

**名無しさん＠お腹いっぱい。** · 01/11/04 03:26

バイナリコードを含む文字列を特定の長さに切りたいのですが
どうすれば良いでしょうか？

$str='a壱弐参四五'; # length:11
$str=~s/^(.{10}).*/$1/;

例えばこんな感じで長さを10にする事はできるのですが、
バイナリデータをぶった切ってしまってバイナリの片割れが出てきてしまいます。
切る所がバイナリデータだった場合は回避して、この場合は長さ9にしたいです。
バイナリデータの判別方がわかれば何とかできると思いますがわかりません。
どうすれば実現できるでしょうか？

**ｃｇｉビギナー=146** · 01/11/04 03:44

>>165
無事に掲示板を設置することが出来ました。
どうやらＤＩＲ＝ディレクトリのことらしいでここら辺がわからなかったのですよ。
色々お手数をおかけしました。今度β版と言う難しいのに挑戦しようと思っているので
そちらの方に質問をさせていただくかもしれません。
とりあえず今はトホホのサイトにて勉強しながらやっていきます。

**名無しさん＠お腹いっぱい。** · 01/11/04 04:04

>>170
いろいろあると思うが、おれはこうしてる。
(1)最初に10バイトで切る。
(2)先頭から「正しいバイナリ」が続く部分だけ残して、その後ろを削除。

たとえば「Shift_JISまたはASCII」を切り出す場合は、
$str = substr($str, 0, 10);
$str =~ s/^((?:[\x81-\x9F\xE0-\xEC][\x40-\x7E\x80-\xFC]|[\xA1-\xDF]|[\x20-\x7E])*).*/$1/;

**名無しさん＠お腹いっぱい。** · 01/11/04 04:18

>>172
正しいバイナリというのがそう言う感じで記述できるんですね。
扱おうとしてるのはSjisだし、なんなら文字コード変換もできるので、
そのまま使えそうです。
漠然とわかったので、自分の中でちょっと煮詰めてみます。
ありがとうございましたー。

**名無しさん＠お腹いっぱい。** · 01/11/04 04:37

>>173
>正しいバイナリというのがそう言う感じで記述できるんですね。
いや「Shift_JISまたはASCII」というのは、
正規表現であらわせる素直なデータだからね。

「正しいバイナリ」の定義によっては、１バイトずつ切り出して
逐一判定しなければならない場合もたぶんあるでしょう。
いつでも正規表現が使えるとは思わないほうがいい。

**173** · 01/11/04 14:35

>>174
メタキャラを含んだ文字列の正規表現でエラーというのは
既に実感を伴って経験済みです。

ともあれ、無事に実現できました。ありがとうございます。
しばらく様子を見てみて、エラーが生じたりするようならまた考えてみます。

**153** · 01/11/04 17:36

_gunzipたんｱﾘｶﾞﾄｰ（・∀・）&& お久しぶり
ちょっと聞き方がタコでしたね、perlマンセーな処理が有ったんですけど
家では問題無かったのに、会社のプアﾏｼｰﾝだとあぼーんしたんで
少し気になったんです、流石にそこまでは面倒見てくれないですか。。。
取り合えず50回位潜ったら、一旦全部抜けて、
続きからやり直し、って言う風にしてみましたです。

**名無しさん＠お腹いっぱい。** · 01/11/04 17:57

ちょっとお聞きしたいのですが
いま、ちょっとはまってしまっています。
状態は、５００文字から１０００文字くらいの文字列をいくつか作って
print文で表示させたいのですが、文字列を３個作って、３カ所print文を
文字列作成後に表示させようとすると、最後のprint文の途中まで表示して
そのまま待ち状態に、一回プログラム止めて今度は５個作って表示させると
さっき止まった３個目はきちんと表示されて、今度は５個目の途中で表示が
止まってしまいます。何回か実行させてみても同じところで表示が止まって
しまいます。どうも長い文字列のprint文（いくつかある時の）最後のprint
文で起こるようなのですが
出力先はブラウザです。print文の後には文字列を使う処理がありますが
そこまで進めません。print文で止まってしまって
どなたか同じような状態になったことある方いらっしゃられませんか？
どのようにしたら正常に表示できるのでしょうか？
わかりにくい説明ですみませんが、どうぞよろしくお願いします

**名無しさん＠お腹いっぱい。** · 01/11/04 18:05

$| = 1;

ぽ · 01/11/04 18:49

>>170
Jcode.pm に　jfold ってのがあるよ

**177** · 01/11/04 20:39

もう一つお聞きしたいのですが
perlで、C言語とかでいうデバッガみたいなものは、ないのでしょうか？
上で書いたような状態でもう２，３日苦しんでいる状態で
できれば、１行ずつとかで、実行して原因がわかればと考えたのですが
わかる方、どうかご回答よろしくお願いします

**名無しさん＠お腹いっぱい。** · 01/11/04 20:51

当方，Ｃ言語のプログラマです．
ある特定の定義を一気にコメント化したりするのに，
sed等のコマンドを使って，シェルスクリプトを書いてました．
こんどperl を使ってこういう処理を使用と思ってるのですが，
あなたの使っているいいソースありませんか？（笑）