1001コメント332KB

【Perl】初心者コーナーPart9

■ このスレッドは過去ログ倉庫に格納されています

0001名無しさん＠お腹いっぱい。

01/12/28 23:21ID:SPLRvqQi

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

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

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

参考書籍はこちら【【Perl,CGI】参考書籍第２版】
http://pc.2ch.net/test/read.cgi/php/988809842/
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part5】
http://pc.2ch.net/test/read.cgi/php/1009331505/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/

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

0474名無しさん＠お腹いっぱい。

02/01/30 13:08ID:???

>>473
スミマセン
perlでって意味です。

0475名無しさん＠お腹いっぱい。

02/01/30 13:19ID:???

>474
perlでリネームする。

0476名無しさん＠お腹いっぱい。

02/01/30 13:24ID:???

レンタル鯖　UNIX　LINUX
どこも、板違いに思えたので、
こちらで質問させてください。

CGI(Perl)を自作していて、
＠Ｌｉｎｅｓに、文字列を埋め込んで
（HTMLの文法に沿った文字列です）
print "@LINES";
この処理を、ＡのサーバーとＢのサーバーで実行した場合、
表示できるＡのサーバーと表示できずにエラーとなるＢの
サーバーがあります。

これは、物理的なメモリーの不足が問題でしょうか？
Apacheの設定の問題でしょうか？
次回、Ｃのサーバーをレンタルする場合に、
上記のエラーを回避できるサーバーを選択するには、
何を確認すればいいのかわかりません。。。
どうか教えていただきたいです。

ちなみに、@LINESを出力できないって問題は、
foreach $temp(@LINES){
print $temp;
}
これで、クリアしました。

また、foreachで一行ずつ、書き出す場合と
@LINESで一気に書き出す場合で
サーバーにかける負担と
プログラムの処理にかかる時間についても
ご教授いただければ、幸いです。

よろしくお願いします。
長文スイマセン。。。。

0477名無しさん＠お腹いっぱい。

02/01/30 13:31ID:jvP4y3Zo

>476
それぞれのサーバの環境、特に導入されているperlのバージョンなどが
わからなければ何とも言いようがないけど、このケースでは全く
Apacheは関係ないし、メモリの実装量も、あまり関係あるとは思えないな。
オーバーフローでも起こしていない限りスワップしてでも実行するだろうし。

perl単体の問題だと思います。

0478名無しさん＠お腹いっぱい。

02/01/30 13:37ID:jvP4y3Zo

>474
$souce_dir = "test"; # リネームしたいディレクトリ名
$dist_dir = "test1; # リネーム後のディレクトリ名
`mv $souce_dir $dist_dir`;

0479476

02/01/30 13:37ID:???

>477
ご回答ありがとうございます。
失敗したＢのサーバーのPerlのバージョンを
調べてみます。

@LINESで一気に書き出す場合と、
$LINESで、一行ずつ書き出す場合については、
Per単体の問題がない場合は（エラーで落ちない場合）
@LINESの方が高速に動作すると考えても良いでしょうか？

0480名無しさん＠お腹いっぱい。

02/01/30 13:39ID:jvP4y3Zo

>479
foreachの行程分だけ早いだろうけどね。
微々たる問題だとは思うけど。

0481476

02/01/30 14:02ID:???

>480
ご回答ありがとうございます。

スワップファイルをHDに書き出す可能性や
サーバーにかける負担を考えると
foreachの方が良いってことですね。

ありがとうございました。

0482名無しさん＠お腹いっぱい。

02/01/30 14:14ID:jvP4y3Zo

>481
ううん、逆です。
foreachのほうがその繰り返しの行程分
リソース食うって意味です。
でも多分本当に微々たる問題だと思います。

0483日付の計算？

02/01/30 14:27ID:5H2ncmbe

たとえば、今日から30日後の年月日を算出すると
いった場合どうしてます？。なんかカレンダーの
テーブルとか自作しなくちゃいけないとか？

随分前から悩んでるんですけど・・。

0484名無しさん＠お腹いっぱい。

02/01/30 14:33ID:???

>483
localtime(time + 30*24*3600);

0485名無しさん＠お腹いっぱい。

02/01/30 15:14ID:L4I/gPlU

"@LINES"だと文字列をつくるんでリソース食わないか? あと、print foreach @LINES と print "@LINES"は$"によっては、
結果が違ってくるね

0486日付の計算？

02/01/30 16:40ID:5H2ncmbe

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

0487名無しさん＠お腹いっぱい。

02/01/30 17:45ID:5H2ncmbe

[簡単な暗号化]

cryptのような暗号化されたものを、元の状態にもどせない
ものではなくて、

任意のキーを与えて文字列を暗号化して、またそれをその
のキーで元の文字列に復元できる。

なるたけサーバーに付加がかからない。

って何か方法があるだろうか？

もしくはもっと簡単でもいいので、今思いつく方法としては
文字コードに変換して幾つかずらして暗号化するって方法ぐ
らいかな。

0488名無しさん＠お腹いっぱい。

02/01/31 03:29ID:???

>>487
その辺がお手軽では？
全く強度を気にしないならBASE64辺りでも良いだろうけど。
少し凝るなら文字コードに変換したのをKeyで作った変換テーブルで
変換すると云う手も有る(テーブルを作る都合上処理は大きくなるけど)。
或いは適当な(数学で云う)関数を作ってKeyにより係数を変動させる。
その関数に文字コードから変換した数を代入し値を出し、適当に文字に
変換なんて手もあるかも(この場合計算誤差が出ないようしなけりゃ成らない…)。

ぱっと考えたものだと上記くらいですね。
処理の重さは…知らない(笑)。
暗号強度と暗号化の複雑さは大体天秤の関係で状況に拠るから一概には
どれが良いっては言えないのは当然だから難しい問題かもしれないけど。

ちなみに自分は新たにアルゴリズム考えるのめんどいからCPAN辺りからモジュール
拾ってきて組み込んだなぁ…。

0489名無しさん＠お腹いっぱい。

02/01/31 10:46ID:???

あれ？このコードが動かないんだけど、もしかしてオレ何か勘違いしてる？

#!/usr/bin/perl
use 5.6.1;
use FreezeThaw 0.41, qw(freeze thaw);
my $a = thaw freeze ['Anon_Array_ref' ];
print ref($a) ? "ok\n" : "not ok\n";
__END__

0490名無しさん＠お腹いっぱい。

02/01/31 10:47ID:HryKlcft

age忘れ。
動かないっつか「okにならない」ね。

0491名無しさん＠お腹いっぱい。

02/01/31 10:57ID:???

$a がリファレンスじゃないからじゃねーの？

0492名無しさん＠お腹いっぱい。

02/01/31 11:06ID:???

>>491 そりゃちょっと教え方が不親切じゃねーの。
>>489 thaw の返値は配列なので、リストコンテキストで受ける必要あり。

0493489

02/01/31 11:20ID:???

ガーソ…そんな単純なことだったとは…。
>>491 >>492
ありがとう。

0494名無しさん＠お腹いっぱい。

02/01/31 12:25ID:???

>>492
ｽﾏｿ。俺はFreezeThawとか言うﾓｼﾞｭｰﾙ知らんから
>>491程度しか分からんかったんだよぅ。

0495名無しさん＠お腹いっぱい。

02/01/31 12:40ID:cIzQvI9F

>>488
ご返答ありがとうございます。
そうですね、どっかでモジュール拾ってくるのが得策かも。

ちょっと昨日帰りの電車で考えたのは、文字列をランダム
に配置しなおして、その位置情報をキーとして解読する方法。

つまり、文字列「abcde」を「53124」というキーで再配置する。
暗号化された結果は「ecabd」になる。解読はそれをキーの位
置情報で並べ替える。16進数使えば16文字まで可能だし。たぶ
ん簡単そうだ。

まぁ、わかるヒトがみれば３秒で解読できるだろうけど(ﾜ)、
この辺が簡単でいいかな。

0496perl-5.6.1

02/02/01 14:19ID:SRe8SKGM

#!/usr/bin/perl -w
use strict;

open(FILE, "filename");
foreach (<FILE>) {
　　print "$.: $_";
}
close(FILE);

これを実行したら、filenameの行数が40行だとすると、
$.が全部40になるんですが。

0497名無しさん＠お腹いっぱい。

02/02/01 14:53ID:???

>>496
while(<FILE>){

foreach はループに入る前に
リストを全部用意する（この場合ファイルを全部読み込む）からね。

0498名無しさん＠お腹いっぱい。

02/02/02 05:14ID:uZ4d4EH7

ファイルの末にデータを付け足す事はできる。
じゃぁ、データを削る事はできるか？ゴメンねむいんだ。
初心者が生意気にも掲示板作成中。いいやねよう。
おやすみ。

0499名無しさん＠お腹いっぱい。

02/02/02 08:03ID:Z9fivj2K

htmlソースから、<htmlタグ>ほげ</htmlタグ>を抽出したい(perl)と思ってます。
で、こういう話題（途中改行にも対応とか云々・・・）をあつかったサイトが、有名どころの
どこかにあった気がするのですが・・・
ご存じないですか？

0500名無しさん＠お腹いっぱい。

02/02/02 09:01ID:fydzz3EG

あのPerlスクリプトを書くのに文字コードはEUCが良いといわれてますが
EUCのメリットって文字化け対策（\回避）がいらないだけですか？
その他にS-jisよりも優れてる部分ってあります？

0501名無しさん＠お腹いっぱい。

02/02/02 09:18ID:???

>>500
それだけあれば十分だろ。

0502名無しさん＠お腹いっぱい。

02/02/02 09:22ID:H8DUG7wU

>>499
ここかな？
http://www.din.or.jp/~ohzaki/perl.htm

>>500 も行ってみると役立つと思うよ。

0503500

02/02/02 14:15ID:???

なるほど。ありがとうございました。

0504名無しさん＠お腹いっぱい。

02/02/02 15:41ID:???

指定したＩＰアドレス以外は別ページへ飛ばすにはどうしたらいいですか？

0505504

02/02/02 19:46ID:???

早く教えろよ

0506名無しさん＠お腹いっぱい。

02/02/02 19:54ID:???

if(指定したIPアドレス以外){
別ページに飛ばす
}

0507名無しさん＠お腹いっぱい。

02/02/02 19:55ID:???

>505
お前が常時監視して手動で誘導しろよ。

0508　　

02/02/03 00:25ID:1JKHBAhE

a.pl
として、
#!/usr/local/bin/perl
print "sine";
と書きました。そして、サーバーにアップして、
chmod 755 a.pl
で、絶対パスで、実行した所
[homepage@sv ~]# /home/homepage/a.pl
/home/homepage/a.pl: Command not found.
と出てきます。
ファイルは、あるのに、コマンドは無い...って
どうしてですか？

0509名無しさん＠お腹いっぱい。

02/02/03 00:28ID:+IXT+7Wc

>508
/usr/local/bin/perl -V
とかやってみれ。

0510504

02/02/03 00:29ID:???

>506
ﾌﾟ
早く教えろよ
わかるやついないのか？

0511504

02/02/03 00:30ID:???

>507　
はぁ・・・・低脳。
いいから早く教えろよ

0512　　

02/02/03 00:30ID:1JKHBAhE

こんなに、長いのが出てきました。
Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
Platform:
osname=linux, osvers=2.2.18-1.6, archname=i386-linux
uname='linux dhcp-115.jp.tlan 2.2.18-1.6 #1 tue feb 13 04:54:12 utc 2001 i686 unknown '
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef useperlio=undef d_sfio=undef
Compiler:
cc='cc', optimize='-O2', gccversion=2.95.2.1 19991024 (release)
cppflags='-Dbool=char -DHAS_BOOL'
ccflags ='-Dbool=char -DHAS_BOOL'
stdchar='char', d_stdstdio=undef, usevfork=false
intsize=4, longsize=4, ptrsize=4, doublesize=8
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
alignbytes=4, usemymalloc=n, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt
libc=, so=so, useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Characteristics of this binary (from libperl):
Built under linux
Compiled at Feb 16 2001 06:49:02
@INC:
/usr/lib/perl5/5.00503/i386-linux
/usr/lib/perl5/5.00503
/usr/lib/perl5/site_perl/5.005/i386-linux
/usr/lib/perl5/site_perl/5.005

0513名無しさん＠お腹いっぱい。

02/02/03 00:32ID:+IXT+7Wc

>512
そしたら、
perl /home/homepage/a.pl
ってやってみそ。

0514　　

02/02/03 00:35ID:1JKHBAhE

ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!!
動きました！！！！
何だったのでしょうか？

0515名無しさん＠お腹いっぱい。

02/02/03 03:56ID:5Ne5ycjd

PerlでファイルアップロードCGIを作りたいのですが、経験がないのでセキュリティなどで不安です。
参考になるフリー配布のスクリプトがあったら教えてください。

0516名無しさん＠お腹いっぱい。

02/02/03 04:01ID:+IXT+7Wc

>515
http://www.google.co.jp/search?q=%83A%83b%83v%83%8D%81%5B%83h%81@perl%81@CGI&hl=ja&lr=

0517名無しさん＠お腹いっぱい。

02/02/03 04:06ID:+IXT+7Wc

ＥＲＲＯＲ：スレッド立てすぎです。。。

ホストntttkyo050192.adsl.ppp.infoweb.ne.jp
WebProg板のみんなで作ろうよ！
名前：名無しさん＠お腹いっぱい。
E-mail： age
内容：
まず、WebProg板謹製アップローダーとか、どうでしょ？

0518名無しさん＠お腹いっぱい。

02/02/03 04:35ID:1D0LvUGL

>>517
よかったら，このスレ使ってください。
学習用にCGI書くスレです。

【CGI】合同開発室
http://pc.2ch.net/test/read.cgi/php/1001950501/l50

0519あぼーん

NGNG

あぼーん

0520名無しさん＠お腹いっぱい。

02/02/03 12:48ID:???

>>476
おそらく、Perl5の""内での@の解釈が変わったことによるものだと思う。
出力されないといっているほうは、そのまま"@LINE"という文字列が
出力されいないか？もしそうだとしたら、Perlがversionが古い。

で、print "@LINES"; の代用として foreach $temp (@LINES){ print $temp }
で問題ないのなら、素直に print @LINES; としとけ。

0521名無しさん＠お腹いっぱい。

02/02/03 13:48ID:???

@LINES @Lines どっちだよ。

0522名無しさん＠お腹いっぱい。

02/02/04 12:16ID:6nIPvsGB

こんにちわ、perlの事で他スレから誘導されてきました
マルチポストですが質問させてください。
以下のスクリプトですが

　#! /usr/bin/perl 　# お約束
　# 私のスクリプトそのままです（編集はしてません）
　$TMP = 10 ** 10; 　# $TMP　に10の10乗を代入
　$X = 10; 　# $X　に10を代入
　while ($TMP) 　# $TMPが0になるまで繰り返し処理
　 {$A = --$TMP % $X; 　# $TMPの値を-1し、$Xの剰余を$Aに代入
　 print "$A $TMP \n";}# 処置した値を画面に表示

上記のスクリプトですが、表示される$Aの値が変化しません
5 999999999
5 999999998
5 999999997 ......

$Xの値が１だと$Aは0で固定
$Xの値が２だと$Aは1で固定
$Xの値が３だと$Aは0で固定
$Xの値が４だと$Aは3で固定
$Xの値が５だと$Aは0で固定
$Xの値が６だと$Aは3で固定
$Xの値が７だと$Aは3で固定
$Xの値が８だと$Aは7で固定
$Xの値が９だと$Aは3で固定

私の知識が正しければ、$TMPの値を$Xで割った余りの数値が表示され
1行ごとに値が変更されると思うのですが。。。

どこか間違っているのでしょうか
識者の皆様、ご回答をお願いします

0523名無しさん＠お腹いっぱい。

02/02/04 12:40ID:???

>522
10**10じゃなくて10**3から試してミソ。

0524522

02/02/04 13:18ID:6nIPvsGB

>>523

返答ありがとうございます
早速10**3で試してみたところ、期待通りの動作が確認できました
（10**9まで、動作が確認できました）
どうやら値が大きすぎたようです
でも、$TMPの数値は整数で表示されているのに・・謎だ。

助かりました

0525カリハン

02/02/04 15:00ID:uKBk3jL4

FLASH板住人用アップローダを作ったのですが、頻繁に503がでてしまい困っています。
http://www.th-ladybird.co.jp/flash/

回避方法として、ftpでUPするものを作ろうと思うのですが、それって可能でしょうか？
当方UNIXのコマンドほとんどわかりません。

上記の製作可否や、503の回避方法、それらの教材サイト、教本、等ありましたら教えてください。

0526名無しさん＠お腹いっぱい。

02/02/04 16:14ID:???

503 Service Unavailable なんてあまり見ないな。
ソースを見なきゃ何も言えないね。

0527カリハン

02/02/04 16:20ID:uKBk3jL4

普通にpostからうけとって、エンコードして、エラーつけてるだけです。
http://www.th-ladybird.co.jp/flash/upload.txt

0528名無しさん＠お腹いっぱい。

02/02/04 16:51ID:???

>>525
もう少し症状を詳しく書いてくれると助かるんだが･･･
Unavailableはどんな時に出るの?
適当に解釈すると、ファイルサイズが大きくなるとUL途中で
コネクションが切れると言う事かな
だとしたら、99%サーバサイドの問題なのでどうしようも無いんじゃ
ないかな。
後の1%は説明が面倒なので省略　ｗ

で、FTPならanonyで開放する事になるんだけど、作ると言うか開放して
おしまいなので、何の知識も要らないでしょ
ただ、今時そんな危ない所は誰も使わないと思うよ
最近はExecutableなflashが問題になってたりするし、怖くて見れないよ

0529名無しさん＠お腹いっぱい。

02/02/04 16:54ID:???

あ、FTPってWEBでULした後にスクリプトからFTPしたいと言う事かなあ
だったら全く意味が無い。
HTTPDがリクエストを処理をする段階でヘバってるんだから
試しに何秒位で死ぬか実験してみればよく解るよ

0530名無しさん＠お腹いっぱい。

02/02/04 17:03ID:???

>>527
503で見られなかった。
サーバーの負荷が高いだけじゃない？

0531カリハン

02/02/04 17:12ID:uKBk3jL4

症状は、
UP容量は5,000,000バイトでしばってあるんですが、とりあえずテストでは、UP途中でオチたことはないです。
UPはできるのですが、ファイルUP後ほぼ必ず503がでてしまいます。

チャット設置なんかを禁止しているので、サーバが弱いのは間違いないのですが、なんか回避できないかなと。
ここのレスはチェックしつつ、>>529を勉強してみます。

ありがとうございました。

0532カリハン

02/02/04 17:14ID:???

ちなみに、ここからかりてます。
SAKURA.AD.JP // SAKURA INTERNET
http://www.sakura.ad.jp/

0533名無しさん＠お腹いっぱい。

02/02/04 17:24ID:???

>>527
なんつーか、いかにも"素人が書きました"っつー感じのスクリプトだな。

0534カリハン

02/02/04 17:32ID:???

プログラムって物自体これが始めてのまぁ素人ですから。
大目に見てください。

0535カリハン

02/02/04 17:39ID:???

すみません、もしかして、オレ勘違いしてますか。
初心者スレじゃなくて、素人スレ探して聞くべき質問ですか。

0536名無しさん＠お腹いっぱい。

02/02/04 18:04ID:???

>527にアクセスした時にも１回503が出た。
アクセス数か転送量かどちらかが一定以上になるとストップかけられるとかは？
鯖業者に聞いた方が早くない？

0537カリハン

02/02/04 18:06ID:???

>>536
ありがとう。そうしてみます。

0538Name_Not_Found

02/02/04 18:48ID:???

あのー、超初心者の質問なので気がひけるのですが、
ジオシティーにＨＰをなんとか作ることができたのですが、
掲示板を設置したいなとおもって、フリーソフトのＢＢＳをダウンロードして
使おうとしたのですが、Perlへのパスがわからなくて、行き詰まっています。
ジオシティーのパスを知っているもしくは
どこに行けばわかるか知ってらっしゃる方、よろしければ教えていただけませんでしょうか。

0539名無しさん＠お腹いっぱい。

02/02/04 18:53ID:???

スレ違いだよ
GeocitiesってPerl使えないんじゃないの?
FAQ探して読んでみるべし
「CGIは使えますか?」とか有るから

0540Name_Not_Found

02/02/04 19:13ID:???

>539　
ありがとうございます。
そうなんですか、ちょっとがっかりです。
間違ってスレに書き込んでしまってすみませんでした。

0541名無しさん＠お腹いっぱい。

02/02/04 21:10ID:???

>>537
sakuraはサーバ負荷が高くなると、そのエラーを返します。
業者に聞くまでもなくFAQに載ってますよ。
回避策はまぁ、負荷を小さくするしか。

そもそも共用鯖で503が出るほど使うなｺﾞﾙｧ。
1日辺り数万アクセス、ギガ単位の転送量あるはずだぞ。
503だとおそらく転送量の方だと思う。ここら辺り見てくださいな。
http://xxxxx.sakura.ne.jp/log.html　xxxxxxは自分所のサーバ名
http://www.sakura.ad.jp/support/web/errmsg/err-web.html

0542perlのバージョン

02/02/04 22:48ID:4hvyQ2bt

perlのCGIからperlのバージョンって調べられるっけ？

0543名無しさん＠お腹いっぱい。

02/02/04 22:56ID:???

open(PIPE,'/usr/local/bin/perl -v |');
print <PIPE>;
close(PIPE);

0544名無しさん＠お腹いっぱい。

02/02/04 22:59ID:???

0545perlのバージョン

02/02/04 23:16ID:4hvyQ2bt

>>543
すいません。いっぱい出てきました。

0546名無しさん＠お腹いっぱい。

02/02/04 23:17ID:???

print `/path/to/perl -v`;

0547名無しさん＠お腹いっぱい。

02/02/04 23:18ID:???

>>545
さぁ！そこで正規表現の出番だ！

ッテ言うか>>544さんを試してください。。。

0548_gzip

02/02/04 23:22ID:???

$]
ないし
perl -V:version

0549perlのバージョン

02/02/04 23:27ID:4hvyQ2bt

>>544
$]は、書き間違いかと思ってしまった・・
だんだん自分が嫌になってきた(鬱

0550名無しさん＠お腹いっぱい。

02/02/04 23:31ID:???

ｶﾞﾑﾊﾞﾚｰｗ

0551名無しさん＠お腹いっぱい。

02/02/05 01:36ID:bVJSiotc

他人のＨＰに張ってあるリンク数を自動的に調べて書き出すスクリプト
を教えてもらえないでしょうか？

Ａさんのページは○個のリンクが張ってあります。
Ｂさんのページは○個のリンクが張ってあります。

という具合にしたいのですが。。。

0552名無しさん＠お腹いっぱい。

02/02/05 02:10ID:???

以前Web制作で聞いてらっしゃいましたね。

0553名無しさん＠お腹いっぱい。

02/02/05 02:51ID:hit8P6YF

$linknum=scalar /(<a)/sgi;

0554名無しさん＠お腹いっぱい。

02/02/05 03:25ID:fmBbp0lc

Tスイッチを付けると @INCの価が変わるんですが（ .がなくなる）
そんなもんなんですか？
5.005_03です。

0555名無しさん＠お腹いっぱい。

02/02/05 03:36ID:???

そんなもんですと言えば良いのか?　ｗ
カレントをコマンドサーチパスに加える事の危険性と
意味は同じだと思うが。

0556554

02/02/05 04:17ID:???

>555
Tスイッチについて調べても、 @INCについて触れているものがなかったので
@INCは自分の環境でしか変わらないのかなぁ思い質問しました。

> カレントをコマンドサーチパスに加える事の危険性
は知らなかったのですが、
カレントディレクトリにスクリプト内で使われているのと同名のファイルを
他人に勝手に置かれた時に、意図しない動作をする可能性があるから危険
ということですか？

0557カリハン

02/02/05 10:14ID:???

>>541
それがですね。スナックのHPと上記アップローダだけおいてるんですが、
HPのほうは1日多くても20アクセス（内半分は従業員）ほどなんです。

0558名無しさん＠お腹いっぱい。

02/02/05 17:55ID:???

>>556
>カレントディレクトリにスクリプト内で使われているのと同名のファイルを
>他人に勝手に置かれた時に、意図しない動作をする可能性があるから危険

その通り。

ついでに-T付けると$ENV{PERL5LIB}とかも無効になるから。

0559名無しさん＠お腹いっぱい。

02/02/05 20:07ID:kMSeXYwX

掲示板を作りたいのですが、
書き込みフォームは別に作る必要があるのですが
ログをとりたいのですが、
これだと入力したのを出力するだけの事しか出来ません。
誰か改造を・・・。
#!/usr/local/bin/perl

#データの受け取り
read( STDIN, $query,$ENV{ 'CONTENT_LENGTH' } );

@in_params = split( /&/, $query );
foreach $in_param ( @in_params ) {
( $key,$value ) = split( /=/,$in_param );
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-f0-9])/pack('C',hex($1) )/ge;
$param{ $key } = $value;
}

#結果の出力
print "Content-type: text/html\n\n";
print $param{ 'name' };
print "<br>";
print $param{ 'gimon' };
print "<br>";
exit;

0560名無しさん＠お腹いっぱい。

02/02/05 20:11ID:???

>>559
意味がわからない。
説明もプログラムの意図も。

あ、ファイル！ファイル！

open

print

<>

close

など勉強して。

0561名無しさん＠お腹いっぱい。

02/02/05 21:20ID:???

その前に日本語を勉強して。

0562名無しさん＠お腹いっぱい。

02/02/05 22:05ID:???

日本語を勉強し終わったら常識を勉強して。

0563名無しさん＠お腹いっぱい。

02/02/05 22:11ID:Zu+hD/6k

ゲームを作ろうとして頑張ってるんですが、
まず最初に、Login画面を出して、
個人の認証をおこないます。

その次に、その認証した人用に、常にHTMLを反映させたいのですが、
どうすればいいでしょうか？

たとえば、モナーという人がログインしたら、
常に、モナーという人を意識したページにしたいんですが。

誰か、教えてくださいませ。

0564名無しさん＠お腹いっぱい。

02/02/05 22:15ID:???

>>563
cokkieで良いのかな？
$ENV{"HTTP_COOKIES"};
書き込み方は勉強して。

もしくは生成するページのリンクを

/path/a.cgi?name=モナー

として常にモナー用のデータを出力するようにするとか。

0565563

02/02/05 22:23ID:Zu+hD/6k

>>564
そうなんですよね。
クッキーでやるのがベストかな。

>もしくは生成するページのリンクを
>
>/path/a.cgi?name=モナー
>
>として常にモナー用のデータを出力するようにするとか。
これだと、誰かが不正に利用してしまいそうで、
（まぁ、パスワードも常に出力するというのもありだけど）
厳しいかなぁと。
他のログインを利用してるページを見ると、
この方法は使ってないようですし。

0566名無しさん＠お腹いっぱい。

02/02/05 22:33ID:???

もうないけどrobotmailっ言うwebメールがこの方式。
もちろん暗号化＋httpsだったけど。

0567563

02/02/05 22:40ID:Zu+hD/6k

ふむふむ。

なんか、もっとスマートな方法はないでしょうか？
クッキーも拒否してる人がいないとは限らないし。

ヘルプミ～

0568名無しさん＠お腹いっぱい。

02/02/05 22:42ID:???

COOKIEの時点でガリガリにスマート。

0569名無しさん＠お腹いっぱい。

02/02/05 22:43ID:???

そこまでする奴は君のサービスも迷惑と感じる人。

0570563

02/02/05 22:46ID:Zu+hD/6k

やはり、クッキーですか。

クッキー以外になにかあればと思ったのですが。
教えてくれて、どうもありがとうございました。

0571セキュリティホールについて

02/02/05 23:19ID:Iem+OJzp

大変御無沙汰しています。教えていただきたいことがあります。
ＷＥＢはセミプロ程度、ＷＥＢ言語系は素人若干書き換え程度です。
現在、ボランティア系の団体で複数の応募フォーム、ＳＳＬＰＧＰクレジットカード引き落としなどを
使ったホームページを担当しています。
若干コーディングできる方から、簡易計算自動入力、曜日自動入力を強く勧められて以下の
スクリプトを頂きました。
曜日自動入力については、動作して入力欄がブランクでなく選択なので、安全上問題ない気がしますが、
自動計算に関して、動作もおかしく、それよりも入力欄ブランクで、タグその他
記述された場合、セキュリティ面でかなり不安なのですが、いかがでしょうか。
私個人としては、買物カゴ式の別ＣＧＩをあてる方が良いのではないかと思うのですが、
どうか教えて下さい。宜しく。（長くて乗らないので一部除く）


<HTML>
<HEAD><TITLE>簡単な入力検査の例</TITLE>
</HEAD>
<BODY>
<H3>簡単な例</H3><HR>
<FORM NAME="ValidForm">
5/18
<INPUT TYPE="TEXT" NAME="T0" SIZE="3">
人
<p>5/19
<input type="text" name="T1" size="3">
人</p>
<p>合計
<input type="text" name="T2" size="3">人</p>
<p>申込金（人数×2000円）<input type="text" name="T3" size="20">円</p>
<p>入金日　2002年<select size="1" name="D1">
<option value="1">1</option>
</select>月<select size="1" name="D2">
<option value="1">1</option>
</select>日<input type="text" name="T4" size="3">曜日</p>
<p>　</p>
</FORM>
</BODY>
</HTML>

0572Name_Not_Found

02/02/05 23:25ID:IJ+Ly9Q8

すごく初歩的なことで壁に当たっています。
相対パスの記入の仕方で
../みたいなのってもっと..が小さくないといけないと思うのですが
どうやって打てばいいでしょうか？
よろしくお願いします。

0573名無しさん＠お腹いっぱい。

02/02/05 23:29ID:Zu+hD/6k

>>571
あなたの質問に答えてあげたいけれど、
微妙に日本語の意味がわからないです。

でも、タグが心配なのであれば、
Perlの正規表現を使って除去すればいいのではないでしょうか？

■ このスレッドは過去ログ倉庫に格納されています