トップページ⇒php
1001コメント354KB

【Perl 】初心者コーナーPart8

■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。01/10/24 14:11ID:???
いらっしゃーい、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を見よう。
0102名無しさん＠お腹いっぱい。01/10/29 22:14ID:???
>>100
> 始めて数日なんですが
日本語を？
0103名無しさん＠お腹いっぱい。01/10/29 22:21ID:WYkKLjrw
>>100
perldocの該当個所を4〜5回読み直し、それでも理解できなければ
いまは知る必要がないのだとあきらめて後回しにした。
すくなくとも他人の言葉には頼らなかった。
0104名無しさん＠お腹いっぱい。01/10/29 22:21ID:???
>>100
とにかく、首をくくるのがいいと思われ
0105マジレス01/10/29 22:23ID:???
>>100
始めて数日の人がそんな壁にぶつかる訳がありません。
Googleで検索したりリンク辿ったりすれば、参考になるものが
見つかるはずです。
少なくとも初心者の内は検索などで十分です。
（分不相応な事をしなければ）

そして初心者を抜ければ殆ど自分で判断できるようになる筈です。
0106Perl上級者01/10/29 22:27ID:???
とにかく邪魔だから二度と出てこなくていいよ。
0107名無しさん＠お腹いっぱい。01/10/29 22:28ID:???
>>106
お前も一々煽るな。邪魔臭い。
0108Perl上級者01/10/29 22:29ID:???
ﾊｧ？ココは気持ち悪い馴れ合いスレですか(わら
0109名無しさん＠お腹いっぱい。01/10/29 22:32ID:???
>>108
馴れ合いの逆は煽りかよ。馬鹿丸出し。
いいからとっとと失せろ。
0110 01/10/29 22:34ID:???
Perl上級者は無視の方向で。
0111名無しさん＠お腹いっぱい。01/10/29 22:37ID:???
CGI.pmってどうなの？
0112名無しさん＠お腹いっぱい。01/10/29 22:43ID:???
>>111
「どうなの？」って聞かれても何と答えれば良いのやら。
0113名無しさん＠お腹いっぱい。 ：01/10/29 22:59ID:???
つーかPerlの上級者って、、、なんかショボイなあ　(ﾟεﾟ)
0114Perl上級者01/10/29 23:09ID:???
・・・と、初心者以下の素人が言いました、とさ（大爆笑）
0115Perl上級者 01/10/29 23:12ID:???
これこの板の名無しにどうよ？
あとtinkopinpinとか　　ｹﾞﾗｹﾞﾗ〜
0116名無しさん＠お腹いっぱい。 01/10/29 23:18ID:???
shigeより馬鹿っぽい所が悲しいよな、（大爆笑）だって･・・・
この板の哀愁が漂ってくるね
もっと勉強しよ･･･
0117名無しさん＠お腹いっぱい。01/10/30 01:03ID:???
未熟ながら、初心者スレッドと言う事でお許しください。

あるログイン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度同じファイルを実行する事になり、そのたびにデータを読み出しているので心配です。
また、他のファイルに分けて処理した方が動作がスムーズになる、とも聞きました。
どうでしょうか。
足りない部分があれば随時補足させて頂きます。
根本的にこんなロジックにした方が良い、と言う意見もあれば是非お聞かせください。
0118名無しさん＠お腹いっぱい。01/10/30 01:27ID:mgB2/g2W
>>117
この場合、認証をすべてlogin.cgiでまかなうのも、
login.cgi、frame.cgi、main.cgi、menu.cgi等に分割するのも、
さして変わりはないと思う。
どちらにしても認証後に3つのCGIがほぼ同時に起動するわけだし。

なにか改善策があるとすれば、
＞根本的にこんなロジックにした方が良い、と言う意見
ここだろうけど、おれには考えつかない。
CGIで認証する限り、「１ページ表示するごとにパスワードファイルの読み書きが必要」と
いう問題は避けられないのでは。
0119名無しさん＠お腹いっぱい。01/10/30 03:48ID:???
>>118
なるほど、貴重なご意見有難うございます。
やはり逐一パスワードファイルにアクセスしないといけないのは
宿命ですかね。
0120名無しさん＠お腹いっぱい。01/10/30 09:32ID:???
>>117&119
どっちかってーとCGIだけどなんか質問ある？向きだけど・・・
とりあえず「セッション」とかって言葉を調べると幸せになれるかもしれません。。。えいめん。
0121ぽ01/10/30 14:05ID:KnXoAd8A
cron でフルパス起動されるコマンドなんだけど
ライブラリの場所は 相対で ../lib にあります。
エレガントな指定方法を教えてください。
今は
{
my $base;
BEGIN{
$libPath = $0;
$libPath =~ s|/[^/]+$|/lib|;
}
use lib ($libPath);
}
0122名無しさん＠お腹いっぱい。01/10/30 14:12ID:???
素直にフルパスで書くのが一番だと思うが。
0123名無しさん＠お腹いっぱい。01/10/30 16:33ID:???
>>121
フルパス指定がいやならFindBinモジュールを利用。
012412101/10/30 17:03ID:???
>>123
ありがと（＾−＾）
まだまだ知らないモジュールがいっぱい．．．
精進せねば．．．
0125名無しさん＠お腹いっぱい。01/10/30 17:04ID:HjkR1Pfb
>>121
cronで起動するときにchdirする方法を愛用してます。
スクリプトのほうで小細工する必要なし！
012612101/10/30 17:12ID:???
>>125
あと /etc/aliases から "| /foo/bar/hogehoge" でも起動されるやつも
あるんで FindBin でいくことにします

はっ /etc/aliases のやつも "| (cd /foo/bar ; ./hogehoge)" すると
いけるのかな？
0127名無しさん＠お腹いっぱい。01/10/31 11:19ID:odi0QzL3
すいません、perl全くの初心者なんですが
Mac OS 9.02から、Mac OS 10.1にして勉強を始めようと思っています
しかし、Mac OS 10.1に入ってるperlは日本語関連でかなり問題がある、
というのを聞いて驚きました。
ビギナーではMac OS 10.1はやめておいた方がいいのでしょうか？
参考書みてもそもそも正常に動作しなかったら挫折しやすい、というか。
どのような問題があるかはgoogleなどで引っかけても上手くかからなかったので
わからないんですが、よろしければアドバイスお願いします。
0128名無しさん＠お腹いっぱい。01/10/31 11:30ID:???
ここはマック使う人少ないみたいだよ。
マックのことはマック使ってる人に聞くのがよろし。

マックでプログラムやるなら
http://pc.2ch.net/test/read.cgi/mac/1003548817/
ＭＡＣの開発ソフト
http://pc.2ch.net/test/read.cgi/tech/978844038/
0129名無しさん＠お腹いっぱい。01/10/31 11:41ID:bNMt3mta
あの＝。jcode.plとcgi-lib.plって再配布して
いいんですか？
0130名無しさん＠お腹いっぱい。01/10/31 12:04ID:???
>>128
あ、ありがとうございます
0131あげてみる01/11/02 13:01ID:yAhXsts1
seekの説明にある、「行番号をバイトオフセットに変更するインデックス」を作成してくれるモジュールないっすかねえ
0132名無しさん＠お腹いっぱい。01/11/02 19:40ID:+bAAQDJN
質問なんですが
ハッシュをサブルーティンに渡して、サブルーティンの中でも同じように
ハッシュとして参照したいのですが、どうもうまくいきません。
下のように書いたのですが、値が表示できません。
どのようにすればうまくいくか教えていただけないでしょうか？

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

sub test {
my $jjj_ref = @_ ;
print("####　$jjj_ref->{'aaa'}") ;
}
0133Ks01/11/02 20:11ID:???
掲示内容が不適格であったらごめんなさい。
httpヘッダで困っています。

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

誰か教えて頂けませんか？
もしくはわかるサイトを教えて頂けませんか？宜しくお願いします。
0134名無しさん＠お腹いっぱい。 01/11/02 20:17ID:???
&test( \%jjj ) ;
sub test {
my $jjj_ref = $_[0] ;
print("####　"."$jjj_ref->{'aaa'}") ;
}
ハッシュの前に引数の受け取り方を調べよう　：-）
0135名無しさん＠お腹いっぱい。01/11/02 20:18ID:???
どうやってするのか分からないけど全て可能です。
詳しくはここ
http://www.w3.org/Protocols/rfc2616/rfc2616.html
0136名無しさん＠お腹いっぱい。01/11/02 20:34ID:???
冷たいんだね
0137名無しさん＠お腹いっぱい。01/11/02 20:37ID:???
プロトタイプって手もある
sub test(\%);

test(%jjj);

sub test(\%){
my $href = shift;
print $href->{aaa};
}
0138名無しさん＠お腹いっぱい。01/11/02 20:41ID:ofsCZTnG
変数に例えば
$hoge ='aa,bbb,cc,ddd,nn,nn,yy,zzz';
のように格納されていた場合後ろから2つ目の「,」
の位置を調べたいのですがどうすれば良いのでしょうか？
お願いします。
0139名無しさん＠お腹いっぱい。01/11/02 21:38ID:???
(length join ',,',(split /,/,reverse $test)[0,1])
0140名無しさん＠お腹いっぱい。01/11/02 21:43ID:29kqQmn/
>139
レスありがとうございます。
早速使わせていただきます。
どうもでしたm(_ _)m
0141名無しさん＠お腹いっぱい。01/11/02 21:46ID:???
rindexを２回使うという手も。
0142名無しさん＠お腹いっぱい。01/11/02 21:49ID:29kqQmn/
>141
それはどういうものでしょうか？
POSを使うのですか？
014314101/11/02 22:01ID:/ySb/MGF
>142
文字を後ろ向きに検索して，見つかった位置を返す。
perldoc -f rindexあたりで説明見られると思う。
0144名無しさん＠お腹いっぱい。01/11/02 22:03ID:29kqQmn/
試してみます。
親切にどうもありがとうございますです。
014513201/11/02 23:28ID:+bAAQDJN
>>134
>>137
ありがとうございます。勉強し直します。

&test( \%jjj ) ;こう書いてました。
根本的に勉強不足だったようです。
0146ｃｇｉビギナー01/11/03 01:03ID:???
掲示板を作っています。ベテランには痛い質問かもしれませんが
今ｅａｌｉｓという掲示板で奮闘しています。
関連サイト→http://kano.vis.ne.jp/erial/
そこの設置開設のところでｐａｒｌパスを書き込むのですが
最初の行に#!/usr/local/bin/perlと書き込めばよろしいのでしょうか？
まだ質問がありますがひとまずお願いいたします。
0147名無しさん＠お腹いっぱい。01/11/03 01:16ID:???
>>146
何を言いたいのか全く解りません。
普通、CGIを設置する上で"Perlのパス"といった場合は
#!/usr/local/bin/perl
などの1行を指す場合は多いです。
この1行はサーバ上のPerlというプログラムの位置
（WinでいうならC:\Program Files\perl\perl.exeという感じ）
を表します。
そのため、サーバによってインストールされた場所も異なり、
サーバごとに記述するべき内容異なります。

そもそも、ここに書き込む前にしかるべきサイトで
CGIについて勉強してくるべきだと思われます。
0148名無しさん＠お腹いっぱい。01/11/03 01:16ID:???
>146
KENT氏のページへ行かれたほうがよろしいかと思います。
http://www.kent-web.com/

氏のサイトは，初心者にも優しいと定評があります。
014914801/11/03 01:19ID:???
誤字
優しい->易しい
0150ｃｇｉビギナー01/11/03 01:18ID:???
>>147
ご忠告感謝いたします。>>148氏が書き込まれたサイトにて学んできます。
0151名無しさん＠お腹いっぱい。01/11/03 02:42ID:cMX/dhh7
他のサイトからのアクセスを制限したいのですが、
（チャットのよそからの発言を禁止するような感じです。）
referer調べる以外で良い方法は無いものでしょうか？
0152名無しさん＠お腹いっぱい。01/11/03 02:55ID:???
>>151
IDを発行するとか。
0153名無しさん＠お腹いっぱい。 01/11/03 13:58ID:???
再帰の深さってどれ位まで許されてるんでしょうか？
処理系依存ですかね
スタック食い尽くす前にヲーニングくれたりしないかな・・・
0154名無しさん＠お腹いっぱい。01/11/03 15:58ID:cu67OhWQ
$_
ってなんですか？
厨房でスイマセン…。
0155名無しさん＠お腹いっぱい。01/11/03 16:04ID:???
@_ = ($_[0], $_[1], $_[2]);
0156名無しさん＠お腹いっぱい。 01/11/03 16:14ID:???
ﾊｧ(゜Д゜）?
0157ｃｇｉビギナー=14601/11/03 16:31ID:???
何とか掲示板が設置いたしましたがその掲示板で書き込みをしたとき
あとページエラーが出てしまいます。
原因は$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
のテスト言うディレクトリに入れてあります。よろしくお願いいたします。
0158名無しさん＠お腹いっぱい。 01/11/03 16:53ID:???
eliasをインストールするDIRのhttpパスを書く
　　↓
eliasをインストールするディレクトリのアドレスを書く
　　↓
分からない単語は検索しろ
ディレクトリ、アドレス、パス、http://www.google.com/
0159ｃｇｉビギナー=14601/11/03 17:02ID:???
>>158
ありがとうございます。
0160名無しさん＠お腹いっぱい。01/11/03 17:37ID:vwyWsLPj
$_ は省略時に暗黙の内に使われる変数。
たとえば、
while(<>) { print }
は
while($_ = <>) { print $_ }
と等価。
length の引数を省略したときは length $_ を返す、とかいろいろあるので、「プログラミングPerl改訂版」を読みましょう。
(perldoc でもよいが)
0161名無しさん＠お腹いっぱい。01/11/03 18:59ID:???
$_を介すると、ほんのちょっとだけ処理が早くなる傾向がある（ようだ）。
常時、積極的に使用するほどメリットがあるとは思わないが、
何万回といったループの中で使うと結構でかい差になるかもしれない。
0162名無しさん＠お腹いっぱい。01/11/03 19:12ID:???
>>157 初心者は使うなって書いてあるやん・・・
0163_gunzip@鬱だ詩嚢01/11/03 20:33ID:???
>>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;
}
0164_gunzip@鬱だ詩嚢01/11/03 20:43ID:???
っていうか、数えた方が早いね。
0165名無しさん＠お腹いっぱい。 01/11/03 23:48ID:???
>>159 ｃｇｉビギナー=146
ここは1に書いてあるように「perlのコーディングで困ってる人のスレ」
だから、こっちで聞く方が良いと思いますよ。

ＣＧＩだけど、なんか質問ある？part４
http://pc.2ch.net/test/read.cgi/php/1000804655/l50
0166名無しさん＠お腹いっぱい。01/11/04 00:00ID:oP9d6xQM
>>151
手続きなど無しで制限したいのですがやはり無理でしょうか？
お願いします。
0167名無しさん＠お腹いっぱい。01/11/04 00:06ID:???
>151 自鯖なら .htaccess。
0168名無しさん＠お腹いっぱい。01/11/04 00:22ID:oP9d6xQM
>167
.haccessで制限できますか？
↑関連スレで質問した方が良いかな？
0169名無しさん＠お腹いっぱい。01/11/04 01:34ID:???
>>168
167は.htaccessでユーザ認証しなさいってことじゃないすか。
いちおう.htaccessのRewriteRule/RewriteCondを使うと
リファラを見て外部からのアクセスを拒絶することはできるけど、
151でリファラ以外の方法って書いてあるしね。
0170名無しさん＠お腹いっぱい。01/11/04 03:26ID:h2smYChV
バイナリコードを含む文字列を特定の長さに切りたいのですが
どうすれば良いでしょうか？

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

例えばこんな感じで長さを10にする事はできるのですが、
バイナリデータをぶった切ってしまってバイナリの片割れが出てきてしまいます。
切る所がバイナリデータだった場合は回避して、この場合は長さ9にしたいです。
バイナリデータの判別方がわかれば何とかできると思いますがわかりません。
どうすれば実現できるでしょうか？
0171ｃｇｉビギナー=14601/11/04 03:44ID:???
>>165
無事に掲示板を設置することが出来ました。
どうやらＤＩＲ＝ディレクトリのことらしいでここら辺がわからなかったのですよ。
色々お手数をおかけしました。今度β版と言う難しいのに挑戦しようと思っているので
そちらの方に質問をさせていただくかもしれません。
とりあえず今はトホホのサイトにて勉強しながらやっていきます。
0172名無しさん＠お腹いっぱい。01/11/04 04:04ID:cP9onYMm
>>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/;
0173名無しさん＠お腹いっぱい。01/11/04 04:18ID:h2smYChV
>>172
正しいバイナリというのがそう言う感じで記述できるんですね。
扱おうとしてるのはSjisだし、なんなら文字コード変換もできるので、
そのまま使えそうです。
漠然とわかったので、自分の中でちょっと煮詰めてみます。
ありがとうございましたー。
0174名無しさん＠お腹いっぱい。01/11/04 04:37ID:???
>>173
>正しいバイナリというのがそう言う感じで記述できるんですね。
いや「Shift_JISまたはASCII」というのは、
正規表現であらわせる素直なデータだからね。

「正しいバイナリ」の定義によっては、１バイトずつ切り出して
逐一判定しなければならない場合もたぶんあるでしょう。
いつでも正規表現が使えるとは思わないほうがいい。
017517301/11/04 14:35ID:???
>>174
メタキャラを含んだ文字列の正規表現でエラーというのは
既に実感を伴って経験済みです。

ともあれ、無事に実現できました。ありがとうございます。
しばらく様子を見てみて、エラーが生じたりするようならまた考えてみます。
0176153 01/11/04 17:36ID:???
_gunzipたんｱﾘｶﾞﾄｰ（・∀・）&& お久しぶり
ちょっと聞き方がタコでしたね、perlマンセーな処理が有ったんですけど
家では問題無かったのに、会社のプアﾏｼｰﾝだとあぼーんしたんで
少し気になったんです、流石にそこまでは面倒見てくれないですか。。。
取り合えず50回位潜ったら、一旦全部抜けて、
続きからやり直し、って言う風にしてみましたです。
0177名無しさん＠お腹いっぱい。01/11/04 17:57ID:vlyHsBRz
ちょっとお聞きしたいのですが
いま、ちょっとはまってしまっています。
状態は、５００文字から１０００文字くらいの文字列をいくつか作って
print文で表示させたいのですが、文字列を３個作って、３カ所print文を
文字列作成後に表示させようとすると、最後のprint文の途中まで表示して
そのまま待ち状態に、一回プログラム止めて今度は５個作って表示させると
さっき止まった３個目はきちんと表示されて、今度は５個目の途中で表示が
止まってしまいます。何回か実行させてみても同じところで表示が止まって
しまいます。どうも長い文字列のprint文（いくつかある時の）最後のprint
文で起こるようなのですが
出力先はブラウザです。print文の後には文字列を使う処理がありますが
そこまで進めません。print文で止まってしまって
どなたか同じような状態になったことある方いらっしゃられませんか？
どのようにしたら正常に表示できるのでしょうか？
わかりにくい説明ですみませんが、どうぞよろしくお願いします
0178名無しさん＠お腹いっぱい。01/11/04 18:05ID:???
$| = 1;
0179ぽ01/11/04 18:49ID:iWvZka32
>>170
Jcode.pm に　jfold ってのがあるよ
018017701/11/04 20:39ID:vlyHsBRz
もう一つお聞きしたいのですが
perlで、C言語とかでいうデバッガみたいなものは、ないのでしょうか？
上で書いたような状態でもう２，３日苦しんでいる状態で
できれば、１行ずつとかで、実行して原因がわかればと考えたのですが
わかる方、どうかご回答よろしくお願いします
0181名無しさん＠お腹いっぱい。01/11/04 20:51ID:6q0Jo2MQ
当方，Ｃ言語のプログラマです．
ある特定の定義を一気にコメント化したりするのに，
sed等のコマンドを使って，シェルスクリプトを書いてました．
こんどperl を使ってこういう処理を使用と思ってるのですが，
あなたの使っているいいソースありませんか？（笑）
0182名無しさん＠お腹いっぱい。01/11/04 21:59ID:RPCUxOjp
>>181
s2p とか a2p を使うと吉かと。
018317701/11/04 22:19ID:vlyHsBRz
書き忘れたのですが
いくつかのcgiを経由して、情報を集めて処理するcgiで現象が起きています
引き継いでいるデータがかなりあるので、困っています
一個のモジュールでのデバックはやったことあるのですが、
画面表示(html)->入力データ処理・検索・画面表示(cgi)->入力データ処理・画面表示(cgi)->
のような感じで、最終的に現象の起こっているcgiに行く頃にはかなりの情報があります
こういう場合コマンドラインでのデバックって可能なのでしょうか？
htmlもそのまま表示されてボタンとか押せないですよね
何かいい方法ありませんでしょうか？
よろしくお願いします
0184名無しさん＠お腹いっぱい。01/11/04 22:46ID:PfX5esry
CGIほとんど書いたことないんで詳しいことは他の方に譲りますが
#っていうか間違ってるかも知れない
180>
perl -d script_name

183>
use CGI::Carp;
HTMLのコメント文としてデバッグ情報を出力
perl -d -MModule -e '1;' してmoduleをテスト
スクリプトそのものを少し書き換えてコマンドラインで動くようにする
とかいうのを思い付きます。
018517701/11/04 22:57ID:vlyHsBRz
>>184さん
ありがとうございます。
調べて試してみます
018615101/11/05 01:45ID:J/g4IyEG
>>169
やはりrefererを使ってはじくしか無いのですね。
レスありがとうございました。
0187名無しさん＠お腹いっぱい。01/11/05 16:44ID:???
>>181
ある特定の定義って何よ？
そこんとこ、もう少し聞かせてくれない？ C言語だよね？
0188名無しさん＠お腹いっぱい。01/11/05 18:02ID:???
http://natto.2ch.net/test/read.cgi?bbs=off&key=1003929930
これ逝く人いないの？
0189名無しさん＠お腹いっぱい。01/11/05 18:04ID:???
sub func() {
#...
}

sub func()
{
#...
}

みなさんはどっちが好みですか？
0190名無しさん＠お腹いっぱい。01/11/05 18:41ID:5Lr/KNWp
>>189
前者。
0191名無しさん＠お腹いっぱい。01/11/05 18:57ID:???
>>181
同じく、関数定義の事言ってるのか、だったら呼んでる所も
一緒に殺すって事?　どうもperl万歳っぽい気はするが意味が解らん　ｗ
俺は関数改造した時とか一気に名前入れ替えるのに使ってる
0192名無しさん＠お腹いっぱい。01/11/05 21:48ID:???
関数の処理の負荷に関するスレ立てるのってどう？
同じ処理でもこっちの方が良いとか。
あと前誰かだしてたけど、処理の負荷に関するページの紹介とか。
同じ変数使いまわすなら最初に変数の領域を確保しといた方が
良いとかそんなの。
0193名無しさん＠お腹いっぱい。01/11/05 22:30ID:???
こっちではどうでしゃっろ
http://pc.2ch.net/test/read.cgi/php/991313362/
019419201/11/05 22:35ID:???
スレ立てるまでも無いですね。
というかスレ立ててもすぐ下がっちゃうか…。
どこかこんなページあれば教えて欲しいです。
0195名無しさん＠お腹いっぱい。01/11/05 23:18ID:???
>>181
ちゅうかsedもCも知ってるならそん位1日で出来る様になるよ！
perldocの、「sedの洗練されたPGが〜〜」「Cに洗脳されたPGが〜〜」
辺り読めばバッチシ、正規表現なんかは後方互換性有るから結構そのまま使えるしね
その手のはビックリする位サクサク出来ちゃうぞっと♪
そしてダメな人間になって行くのじゃ　　ふふふ
0196名無しさん＠お腹いっぱい。01/11/06 03:08ID:???
>>195
そそ。で、Perlないと仕事する気にもならないと。（ｗ
実際、Unix -> Winに移ってきて、シェルやコマンド群の貧弱さには
閉口したけど、Perlが使えるんで何とか工夫してやってる。
ただ、Winで真っ黒な背景のDOS窓開いて、パイプやリダイレクト組み合わせて
コマンド打ち込んでいると、確実に異端視される。
素人にはお勧めできない。(縛
0197名無しさん＠お腹いっぱい。01/11/06 04:54ID:???
Macperlの初心者なのですが、もしご存じの方がいらっしゃいましたら
教えてください。webページのフォームからpostメソッドでファイルを
cgiにアップロードしようとしているのですが、32KB以上のデータって
macperlだと受けとれないんでしょうか。32KB以下のサイズのファイル
だとうまくいっているのですが・・・。
0198名無しさん＠お腹いっぱい。01/11/06 16:49ID:???
>>197　サーバは何使ってるの?
少なくともMacperlにはそんな機能は無いしバグも上がっていない(筈)
0199名無しさん＠お腹いっぱい。01/11/06 17:01ID:???
>197
cgi-lib.plを利用していますか？
＞$cgi_lib'maxdata = *****; # maximum bytes to accept via POST - 2^17
この行を確認してみてください。
0200名無しさん＠お腹いっぱい。01/11/06 17:11ID:TnuiR6XG
自分のいえの鯖にcgiファイル置いてみてみようと思ったんだけど
「Internal Server Error」が出ます。
パーミッションもあってると思うし原因が不明です。
Apacheでcgiの許可のあるディレクトリに置いてます。
test1.cgiって言うファイルです。

perlの場所も確かめました。
0201名無しさん＠お腹いっぱい。01/11/06 17:19ID:???
>>200
それだけの情報でどうしろと？
■ このスレッドは過去ログ倉庫に格納されています