5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

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

【Perl】初心者コーナー Part16

1 :3PIO ◆3pIoOHKo :02/09/15 15:11 ID:???
いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

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

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

CGIだけど、なんか質問ある? Part 6 (その2)
http://pc.2ch.net/test/read.cgi/php/1025930486/
参考書籍の話題は【【Perl,CGI】参考書籍 第2版】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4】
http://pc.2ch.net/test/read.cgi/php/1012839651/

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

2 :3PIO ◆3pIoOHKo :02/09/15 15:13 ID:???
[過去ログ]
Part1 http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980 参照不能
 DAT: http://tako.2ch.net/perl/dat/957208980.dat
Part2 http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087 参照不能
 DAT: http://tako.2ch.net/perl/dat/971817087.dat
Part3 http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521 参照不能
 DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part4 http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156 参照不能
 DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part5 http://pc.2ch.net/php/kako/988/988728069.html
Part6 http://pc.2ch.net/php/kako/996/996075607.html
Part7 http://pc.2ch.net/php/kako/1000/10002/1000267444.html
Part8 http://pc.2ch.net/php/kako/1003/10039/1003900311.html
Part9 http://pc.2ch.net/php/kako/1009/10095/1009549309.html
Part10 http://pc.2ch.net/php/kako/1014/10145/1014556702.html
Part11 http://pc.2ch.net/php/kako/1017/10172/1017201229.html
Part12 http://pc.2ch.net/php/kako/1019/10199/1019917048.html
Part13 http://pc.2ch.net/php/kako/1022/10227/1022731565.html
Part14 知らん
Part15 http://pc.2ch.net/test/read.cgi/php/1028816385/

[ひまぢん氏のミラー]
Part1 http://www.angelfire.com/ak5/2ch-web-program/kako/957208980.html
Part2 http://www.angelfire.com/ak5/2ch-web-program/kako/971817087.html
Part3 http://www.angelfire.com/ak5/2ch-web-program/kako/979894521.html
Part4 http://www.angelfire.com/ak5/2ch-web-program/kako/984430156.html
Part5 http://www.angelfire.com/ak5/2ch-web-program/kako/988728069.html


3 :nobodyさん:02/09/15 15:31 ID:???


4 :3PIO ◆3pIoOHKo :02/09/15 15:34 ID:???
>>3
うん。ちょっと疲れた

5 :nobodyさん:02/09/15 15:46 ID:???
\\\\\\\\\\
\ ^ ^ \
| -@ @ -|
| △ |/
| / \/
\ ○< 新スレおめでとうございます
\ \
-----/ \


6 :nobodyさん:02/09/15 16:19 ID:???
前スレ>>975
普通に\n教えてあげた方が早いんじゃ。。

7 :nobodyさん:02/09/15 16:25 ID:???
コテハンで継続スレ立てるなヴォケ

8 :nobodyさん:02/09/15 17:25 ID:???
>>7
削除依頼ヨロ

9 :nobodyさん:02/09/15 18:23 ID:???
open(LOG,"+<$logfile");
flock(LOG,2);
@log=<LOG>;
@log = &format_log($maxlog,@log);
seek LOG,0,0;
print LOG @log;
truncate(LOG,tell);
close LOG;

みたいなのがあって意味はわかると思うんですが、
truncate(LOG,tell);
ってなくていいような気がするんですが、どうなんでしょう。
これが書いてある事でどんなメリットがあるのか教えてください。

10 :nobodyさん:02/09/15 18:38 ID:???
>>9
truncate関数の意味がわからないのか。
それなら、検索すれば三秒で解決すると思うんだが。

11 :nobodyさん:02/09/15 18:42 ID:???
>>10
だからファイルサイズを変更するなんて記述する事の意味を聞いているのですよ。

12 :nobodyさん:02/09/15 18:46 ID:???
>11
ファイルサイズが前より小さくなった時に意味をなす。

13 :9:02/09/15 18:51 ID:???
>>12
らじゃ

スピードに影響があるらしいということで解決マーク。

14 :nobodyさん:02/09/15 19:29 ID:???
>>1
氏ねカス

15 :nobodyさん:02/09/15 20:01 ID:???
コテハンで継続スレ立てるなヴォケ

16 :nobodyさん:02/09/15 20:03 ID:???


7 名前:nobodyさん 投稿日:2002/09/15(日) 16:25 ID:???
コテハンで継続スレ立てるなヴォケ


8 名前:nobodyさん 投稿日:2002/09/15(日) 17:25 ID:???
>>7
削除依頼ヨロ

17 :nobodyさん:02/09/15 20:04 ID:???
↑馬鹿

18 :nobodyさん:02/09/15 20:07 ID:???
>>10
( ´,_ゝ`)

19 :nobodyさん:02/09/15 20:19 ID:???
コテハンで継続スレ建てるな。売名厨房か

20 :nobodyさん:02/09/15 20:29 ID:???
日付をフォーマットし直す場合、
$time = sprintf("%02.d",$time);
よくこうしろと言われてますが、
$time = "0$time" if ($time<10);
こちらの方が軽くてイイと思うのですが
どうでしょうか?

21 :nobodyさん:02/09/15 20:40 ID:PweXUHcd
sub abc{
foreach(@a){
push @line,"<small>$_</small>\n";
}
return @line;
}
とし、
@textpart=&abc();
とし、
print "<body>@textpart</body>";
のようにしたところ、
1行目は問題ないのですが2行目以降
必ず行頭に半角スペースが入ります。なんででしょう。
上記のプロセスは無関係でしょうか。

22 :nobodyさん:02/09/15 20:49 ID:???
>>21
配列はデフォールトでは空白によって区切られたリストです
だからそれを展開すると空白も出力されます
ただし、"..."に入れないで、表に出せば空白は入りません
print "<body>", @textpart, "</body>";




23 :nobodyさん:02/09/15 20:49 ID:???
>20
万が一、すでに$timeが02とかになっていた場合、002になってしまうからでは?
あまり大きくなく汎用性を気にしないならそれでもいいんじゃない?

24 :nobodyさん:02/09/15 20:50 ID:???
>21
配列の区切り詞が半角スペースになってるから。

25 :nobodyさん:02/09/15 20:53 ID:???
>>20
月、日、時間、分、秒のそれぞれに一桁か二桁かの判定(if文)を
入れるのが大変、というかそれによってsprintfより重くなってし
まうからではないでしょうか
一個だけなら、そんなに変わらないでしょうが





26 :21:02/09/15 21:00 ID:???
>>22>>24
レス感謝です。

>"..."に入れないで、表に出せば空白は入りません
試したら言われた通りになりました。
実際はヒアドキュメントの中に書いていたのでずっとわからずにいました。
ありがとうございました。

27 :nobodyさん:02/09/15 21:06 ID:WvlaRVTE
2chのスレッドをファイルに取得したいのですが普通に取得すると
HTTP/1.1 302 Found

が返ってきてうまく取得できないのです。
スレッド一覧はうまく取得できるのですが。

こんな感じで$input_fileにhtmlファイルを取得していますが
何かリクエストのコマンドに工夫が必要なのでしょうか?

socket(S, 2, 1, 0);
connect(S, $name);
select(S); $| = 1; select(stdout);
print S "GET $path HTTP/1.0\n";
print S "Host: $host\n";
print S "Connection: close\n\n";
$str=join("",(">",$input_file));
open(FOUT,$str);
while(<S>) {
print FOUT $_;
}
close(FOUT);


28 :3PIO ◆3pIoOHKo :02/09/15 21:32 ID:???
unlink(">>19");

29 :nobodyさん:02/09/15 21:35 ID:???
>28
コテハンでスレ立てるのはともかく、そこで煽るなよ。

>27
LWPは使えないの?

30 :nobodyさん:02/09/15 21:37 ID:???
delete(">>19");
undef(">>19");
We thank you, Mr. 3PIO!

31 :nobodyさん:02/09/15 22:45 ID:???
>>28=>>30
マジ引いた

32 :nobodyさん:02/09/15 22:50 ID:???
コテハンで継続スレ建てるな。売名厨房か


33 :nobodyさん:02/09/15 22:50 ID:???
>>27
>open(FOUT,$str);
↑ open(FOUT,$str)|| die $!; の方が良いのでは?
2chのdat生取りはそれなりに作法が有ったんじゃ無いか
それと、生Socket使うよりIO::Socketとか29の言う様にLWPなんて
便利な物があるので、そっちを勧める
wgetに放り込むとか  (w


// 固定に異常に粘着する猿はコイツなので気にしないように
http://pc.2ch.net/test/read.cgi/php/1029945604/l50

34 :nobodyさん:02/09/15 22:52 ID:???
コテハンで継続スレ建てるな。売名厨房か


35 :nobodyさん:02/09/15 22:55 ID:???
Part3でも同じことがありましたな〜

36 :nobodyさん:02/09/15 22:55 ID:???
▼社会的弱者↓
   彡川川川キチガイミ〜
   川川川/  \|〜 プゥ〜ン    / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
  ‖|‖ ◎---◎|〜   クサイ   / この板では俺様以外は固定を名乗るな!
  川川‖    3  ヽ〜      <  XSとParrotが使えて、PERL5.8をコンパイル
  川川   ∴)д(∴)〜        \ 出来る俺様を差し置いて固定とはなんだ!!
  川川      〜 /〜 カタカタカタ \  俺は一日中Perlを触ってるプロだ
  川川‖    〜 /‖ _____  \ PerlCCもhernessも使える
 川川川川___/‖  |  | ̄ ̄\ \  \ 上級者の俺のイソターネットを見てくれ!!
   /  ヒキコモリ  \__| 低収入 | ̄ ̄|  \ http://hiero_pl.tripod.co.jp/
  /  \__>>34   |  |    |__|      \____________
  | \  中卒 |つ   |__|__/ /    
  / アホ ̄ ̄  | ̄ ̄ ̄ ̄|  〔 ̄ ̄〕

37 :nobodyさん:02/09/15 23:02 ID:???
糞固定必死だなw

38 :nobodyさん:02/09/15 23:11 ID:???
>>23
>>25
前ベンチマークで計った記憶があるのですが、
全て変換してもsprintfの方が重たいんですよね。
sprintf使った方がシンプルで見やすいからでしょうか?

39 :nobodyさん:02/09/15 23:20 ID:???
>>38
0$time if (...);

こんなのがダサイとも気持ち悪いとも思わないのならどっちでもヨロシ
一兆回ループするなら速い方が良いかもね


40 :27:02/09/15 23:27 ID:d22Bbzx7
>>27です。

>>29 >>33
レスありがとうございます。
2chのスレッド取得はどんな作法があるのか調べてるのですが
よくわからないです。
Irvineではうまく落とせますね。


41 :nobodyさん:02/09/15 23:28 ID:???
ハッシュをスカラーコンテキストで評価すると
xx/yyみたいに表示されますが、さっぱり意味がわかりません。
誰か小学生にも分かるように教えて下さい

42 :nobodyさん:02/09/15 23:33 ID:vqb5QhHr
CGI.pmを使用しています。

print
 header(-charset=>'euc-jp'), start_html("INPUT"),
 "性別: ", radio_group(-name=>'sex', -values=>['男', '女'],
 -default=>'-', -labels=>\%labels), br,
……

例えばラジオボタンを上記のような記述で記述すると
param('sex') に"男"あるいは"女"が渡されてきます。
2バイト文字を使って条件判断をするのはちょっと気持ち悪いのですが、
表示文字をアルファベットにするわけにも行きません。
直接2バイト文字の条件判断を使わず、帰ってくる値を簡単な変数(0,1やm,f等)に置き換えることは出来ませんでしょうか。


43 :nobodyさん:02/09/16 01:22 ID:???
>>42
ハッシュで定義しとけばいいじゃん
@sex{('男', '女')}= (0, 1);

$sex= %sex{param('sex')};

44 :nobodyさん:02/09/16 01:58 ID:???
質問です。

まず、aaa.html に <!--#exec cgi="bbb.pl" --> と記述しておきます。
で、ccc.html から aaa.html に飛ぶと、
もちろん $ENV{'QUERY_STRING'} は ccc.html になりますよね。

そうじゃなくて、aaa.html を参照したい時にはどうすればよいでしょうか?
環境変数にそんなのないですよね…?

45 :nobodyさん:02/09/16 02:12 ID:???
$ENV{'QUERY_STRING'} がaaa.htmlになるのか?

46 :44:02/09/16 03:34 ID:UarIxOyF
>>45
> $ENV{'QUERY_STRING'} がaaa.htmlになるのか?
失礼しました…。
$ENV{'HTTP_REFERER'}の間違いです。すんません。

47 :44:02/09/16 03:38 ID:???
自己解決しました。
$ENV{'DOCUMENT_URI'}ですね。ありがとうございました。

48 :nobodyさん:02/09/16 03:47 ID:???
>>44 vs. >>46
ぜーんぜん違うじゃんかよ
$ENV{'HTTP_REFERER'}は、bbb.plが呼ばれたページだから
aaa.htmlとなるはず


49 :b:02/09/16 03:49 ID:oqHfjXJ7
http://profiles.yahoo.co.jp/tengaiten2002

50 :nobodyさん:02/09/16 06:18 ID:???
>>39
そういうことですよね
ありがとうございました


51 : ◆JAPH9PWA :02/09/16 09:10 ID:???
>>20>>38
私が以前ベンチマークしたらsprintfの方が速かったけどなぁ。
ちなみにどんなコードでテストした?


52 :3PIO ◆3pIoOHKo :02/09/16 12:02 ID:???
>>31
いや、>>30は俺じゃない

53 :42:02/09/16 12:22 ID:m4c9VqI1
>>43
ご回答ありがとうございます。
つまり、そういう方法で置き換えることしか方法が無いということですね。
イチイチ置き換えないといけないとなるとCGI.pm使うのも微妙なところだなぁ。

ちなみにそちらの方法を試したら動きませんでした(^^;
今直してます。

54 :nobodyさん:02/09/16 13:00 ID:???
>>52 コテハンで継続スレ建てるな。売名厨房

55 :3PIO ◆3pIoOHKo :02/09/16 15:01 ID:???
$_ =~ s/>>54/あぼーん/;

56 :nobodyさん:02/09/16 15:05 ID:???
s/3PIO ◆3pIoOHKo/あぼーん/g;

57 :nobodyさん:02/09/16 15:10 ID:???
>55
>29と同じ事を言わせるな。
スレ立て自体は感謝してる。
だが煽りにのって煽り返すなよ。
そんなだから延々煽られるんだろうが・・・。

コテハン煽りを放置できないならコテハン使うな。
名無しに戻れ。
じゃなければこのスレから去ってくれ。
真面目に返答してるコテハンまで悪い目で見られるだろ。
頼むから。

初心者スレを潰したいわけじゃないだろう?
あんた自身の手でこのスレをクソスレにでもしたいのか?

58 :nobodyさん:02/09/16 15:10 ID:???
いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

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

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

CGIだけど、なんか質問ある? Part 6 (その2)
http://pc.2ch.net/test/read.cgi/php/1025930486/
参考書籍の話題は【【Perl,CGI】参考書籍 第2版】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4】
http://pc.2ch.net/test/read.cgi/php/1012839651/

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

59 :3PIO ◆3pIoOHKo :02/09/16 15:11 ID:???
while (1) { unlink(">>56"); }
ず〜っと氏んでろ

60 :3PIO ◆3pIoOHKo :02/09/16 15:11 ID:???
>>57
へいへい

61 :nobodyさん:02/09/16 15:24 ID:???
コテハン云々以前に3PIO ◆3pIoOHKoは厨であることが決定しますた

62 :nobodyさん:02/09/16 15:53 ID:???
私は自分の名前を入力してあってるかあってないかと言うことを聞いてくるスクリプトをつくりたいのですが

print "あなたのお名前を入力してください:"; chomp($name = <STDIN>);
do
{
print "あなたのお名前は",$name,"さんですね?\n";
print "YES:0NO:1\n"; $logic = <STDIN>; print "\n"; chomp($logic);
if ($logic == 0)
{
print "やはりそうでしたか";
}
elsif ($logic == 1)
{
print "嘘はつかないでください\n";
}
else
{
print"YESかNOかで答えてください";
}
}
until($logic == 0);

と作りました。しかし0か1かを入力するところを0,1以外で入力するとelse構文のないようが表示されず
終了してしまいます。
なぜでしょうか?

63 :nobodyさん:02/09/16 16:18 ID:???
>>62
eqで文字列比較にしてみてわ

64 :nobodyさん:02/09/16 16:20 ID:???
わかりました。がんばってみます。
ありがとう

65 :This is perl, version 5.003_07:02/09/16 17:56 ID:???
$str =~ /$hoge/;

という場合、$hoge の値として ? とか ( ) とかの
記号が入ってる場合、その記号を文字そのものとして
パターンマッチさせるにはどうすればいいんでしょか?

66 : ◆JAPH9PWA :02/09/16 18:08 ID:???
$str =~ /\Q$hoge\E/;
# \Q はquotemeta()の頭文字で\Eはendの意かなぁ…

67 :This is perl, version 5.003_07:02/09/16 18:11 ID:???
どもです〜!!

68 : ◆JAPH9PWA :02/09/16 18:12 ID:???
ってマルチかい…。
まともな回答を望んでいるなら一言くらい何か書いた方がいいよ。


69 :42:02/09/16 23:48 ID:m4c9VqI1
どうも、CGI.pmのラジオボタンで質問した者です。
結局色々やっても>>43さんの方法は出来ませんでした。(TT

あとこの方法は非常に長いパラメータがついてしまうと大変な気がするのですが、、、、
例えば男、女ではなく
print
"問1: ", radio_group(-name=>'sex', -values=>[
'2ちゃんねるは諸言語のプログラミングを学ぶ上で非常に有用なコミュニティであり、云々〜(以下永延と)と思う',
'2ちゃんねるはどちらかというと学ぶと言うよりは遊び感覚で参加すべきであり云々〜(以下小一時間)だと思う'
],・・・・・・・・・・・・・

な感じだと文章をパラメータにして置き換えなければいけないんですよね。

こりゃ困ったな。。。

70 :nobodyさん:02/09/17 05:04 ID:yqtkGr1m
windows上でPerlを使ってるんですが

opendir(DIR,"./");
while($_ = readdir(DIR)){
 print "$_," . (stat)[9] . "\n";
}
closedir(DIR);

とやっても、ファイルの更新時間が見れません。
statがWindowsでサポートされていないのであれば、
ほかに代わる方法ないでしょうか?


71 :71:02/09/17 08:09 ID:???
イメージカウンタを作っています。
gifcat.pl を使って

open(PUT, ">counter.gif");
flock(PUT, 2);
binmode(PUT);# MS-DOS や Windows の場合に必要です。

foreach $gif (@num)
{
$int = $imgpath . $gif;
$imagefile = "$int . .gif";
push(@getimg, $imagefile);
}

print PUT &gifcat'gifcat("@getimg");
print <PUT>;
flock(PUT, 8);
close(PUT);

というコーディングをしたんですが、うまく表示できませんでした。
gifcat.plの使い方がおかしいのでしょうか?



72 :nobodyさん:02/09/17 08:19 ID:???
>>70
ちゃんと出とるはず
perldoc -f stat
9 mtime last modify time in seconds since the epoch
(The epoch was at 00:00 January 1, 1970 GMT.)
# modifyはmodifiedの間違いじゃない?



73 :nobodyさん:02/09/17 08:24 ID:???
>>71
$imagefile = "$int . .gif";
=>$imagefile = $int . ".gif";
でしょ



74 :かるぴすうぉ〜た:02/09/17 08:55 ID:yqtkGr1m
>>72
それが、私の環境では、出ないんです。
Perlのバージョンは
This is perl, v5.6.1 built for MSWin32-x86-multi-thread
OSは、Windows2000。


75 :nobodyさん:02/09/17 09:00 ID:yqtkGr1m
ああ、コテハン入れたままになってた、、打つ。

仕方がないので、ファイルの書きこみ時、最後の行にでもtimeの値を書きこんで
随時それを読み込んで参照することで、しばらくは解決させることにします。
もし、ファイルに対して直接更新時間にアクセスできるような処理方法があったら
おながいしうます。


76 : ◆JAPH9PWA :02/09/17 09:07 ID:???
>>70,>>75
そんなはず無いんだけどね。そのPerlが壊れてるなら別だけど。
実際私の環境(ActivePerl631, WinME)だとそのコードだと正常に動くし。

それとももしかしてopendirの引数にカレントディレクトリ以外の値を与えてる?
それだと失敗するよ。

77 :71:02/09/17 09:10 ID:???
>>73
&gifcat に"$int.gif"("1.gif""2.gif"...)を渡したいんです。
それとも、GIF画像自体を渡すんでしょうか・・・

スレ違いかも失礼

78 :nobodyさん:02/09/17 09:16 ID:???
>>70,>>75
おらwin98SEのActivePerlのv5.6.0 built for MSWin32-x86-multi-threadだけ
ど問題なく動いてるYo



79 :nobodyさん:02/09/17 09:20 ID:???
>>77
だから、
$imagefile = "$int . .gif";
じゃ1\ .\ .gifとか2\ .\ .gigっていうファイル名になっちゃうんじゃないって
言ってるんだけど('\ 'ってのは半角空白ね)

80 :nobodyさん:02/09/17 09:26 ID:???
>>77
答えてるヤシがいるんだからいちいち
スレ違いかも失礼
なんて書くなよ


81 :nobodyさん:02/09/17 11:52 ID:???
$line が16バイト以上なら14バイトまで削って .. をつけるようにしたいです
自分なりにも考えました

if(length $line > 16){
    $line = (join "", (split "", $line)[0..13]) . "..";
}

これよりもっと効率のいい方法がありそうだと思うのですがあったら教えてください

82 :nobodyさん:02/09/17 11:56 ID:???
substr

83 :nobodyさん:02/09/17 12:52 ID:???
>>81
s/(.{14}).+/$1../;


84 :71:02/09/17 12:54 ID:???
>79
納得

>80
ごめん

85 :71:02/09/17 13:12 ID:???
71のコードをデバッグしてみました。
>79が原因でパスが間違っていたのと、変数名がサブルーチン部分と
重複しているものがありました。

>73=77さん、>80さん、ありがとうございますた!

86 :86:02/09/17 15:28 ID:???
cgiにアクセスした時、最初はパスワードの入力画面だけが表示され
パスワードを入力すると管理画面に入る、というのを行いたいです。
暗号処理はいらないです。うまいやり方を教えてください。
お願いします。

87 :nobodyさん:02/09/17 15:58 ID:???
>86
if(パスワードが送信されてきた){
&管理画面;
}else{
&パスワード入力画面;
}

88 :nobodyさん:02/09/17 16:12 ID:???
>>70
>>76 さんの答えがビンゴだと思うけど一応。

opendir DIR, ($dir = './');
print(scalar gmtime((stat $dir . $file)[9]), ' ', $file, "\n")
while $file = readdir DIR;
closedir DIR;

用途によっては stat よりファイルテスト演算子の方がいいかも。

89 :必殺bodyさん:02/09/17 16:22 ID:???
>86
do {
&パスワード入力画面;
}
until($password == <INPUT>)
とか

90 :nobodyさん:02/09/17 16:23 ID:???
あやや、>87さんとかぶった・・・
すみません〜

91 :nobodyさん:02/09/17 16:43 ID:bZ09p6Xo
ファイルを作成するとき間違ってchomd 6666と記述したら、
---S--x-w-[000]という削除できないファイルができてしまったのですが
管理者に削除してもらわないと無理でしょうか?

92 :nobodyさん:02/09/17 17:23 ID:???
>>91
unlink(削除したいファイル);
を実行しても消せなければ管理者さんにすがろう

93 :91:02/09/17 17:31 ID:???
unlinkでも消せませんでした。
管理者にすがってみます。
ありがとうございました。

94 :nobodyさん:02/09/17 18:39 ID:???
>>82-83
Thanks to your kindness!!

95 :3PIO ◆3pIoOHKo :02/09/17 21:11 ID:0b85vBv+
>>57
昨日は本当にスマンかった
今度から気を付ける。

許してくれm(__)m

96 :nobodyさん:02/09/17 21:30 ID:???
もう帰って来んなよ

97 :nobodyさん:02/09/17 23:47 ID:???
3PIO ◆3pIoOHKo だって   ( ´,_ゝ`) プッ

98 :nobodyさん:02/09/17 23:47 ID:nVaQI6CN
私は今CGIの勉強中で本を買って自サーバーを立ててそこでテストしながら勉強中です。
そこでテストすると500InternetServerErrorが出てしまいます。
まったく内容の同じサンプルCGIを自サーバーで開くと問題なく作動します。
スクリプトは何回も確認しましたが間違ってはいないようです。
保存時の文字コードが関係あるようなのですが、調べてもなかなかわかりません。
cgiはメモ帳で作成しています。OSはXPで自サーバーはApacheです。
どうすれば正常に作動するのでしょう?

99 :nobodyさん:02/09/17 23:50 ID:???
>そこでテストすると500InternetServerErrorが出てしまいます。

そこで って、どこ?

100 :98:02/09/17 23:53 ID:nVaQI6CN
>>99
文章拙くてすみません。
そこで = 自サーバー(Apache)です。

281 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)