Perl コーディング初心者質問コーナー Part35

**nobodyさん** · 04/05/26 16:48

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

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

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

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

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

**nobodyさん** · 04/07/06 02:32

有効期限が1時間のcookieを焼きたい。
cookieのexpiresに使える形式の時間の取得って、
gmtime time
だと全て数字だから微妙に違うよね。

cookie用に使える形式にするのに自分でルーチンを作ろうかなとか思ってるけど、
既存のモジュールで、こういうメソッドもってるやつないのかな？

**nobodyさん** · 04/07/06 02:52

>>773
http://perldoc.jp/docs/modules/CGI.pm-2.89/CGI/Cookie.pod

**nobodyさん** · 04/07/06 04:13

>>772
http://cachu.xrea.jp/perl/

**nobodyさん** · 04/07/06 04:29

>>772
I believe Strip() first showed up in ImageMagick 5.5.7.

**nobodyさん** · 04/07/06 08:08

10/3で出た答えが整数なら真、小数点が付くなら偽を返す条件式を書きたいんですが、
PERLでは引数が整数であるか、少数点つきの数字であるかを判定してくれる関数はないのでしょうか？

**nobodyさん** · 04/07/06 08:45

>>777
馬鹿たれ

**nobodyさん** · 04/07/06 09:39

>>777
10 % 3

**nobodyさん** · 04/07/06 10:23

$answer = 10 / 3;
print "ぎーーーーーーーーーーーーーーーーーーーーーーーっ" if not $answer - int $answer;

**777=773** · 04/07/06 10:33

>>778-779ありがと。
>>774
なんかムダなソースを読みこんで重くしたくないから、自分で作ってみた。
野暮ったいソースだから、見にくいけど、色々突っ込んでくれるとありがたい。
とりあえず2時間後のGMTを計算するサブルーチン。

ifのとこは上から
処理１．何も繰り上がらず2時間だけプラス
処理２．日、曜、時刻だけ繰り上がり
処理３．処理２＋月も繰り上がり
処理４．処理３＋年も繰り上がり

一応うるう年は4で割り切れるって部分だけは採用してる。100年とか400年とかは
どうせ生きてないから無視した。

**777=773** · 04/07/06 10:39

sub ti{
( my $sec , my $min , my $hour , my $mday , my $mon , my $year , my $wday , my $isdat , my $yday ) = gmtime time;
$year += 1900;
my @wday = qw/Sun Mon Tue Wen Thu Fri Sat Sun/;
my @mon = qw/Jan Feb Mar Apr May Jun Jul Aus Sep Oct Nov Dec Jan/;
my @a = qw/31 28 31 30 31 30 31 31 30 31 30 31/;
if ( !($year % 4) ) { $a[1] += 1 ; }
my @b = qw/00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60/;
my $timer;
if ( $hour < 22 ) {
　　　　　　　　　　$hour += 2;
　　　　　　　　　　$timer = qq|$wday[$wday], $mday-$mon[$mon]-$year $b[$hour]:$b[$min]:$b[$sec] GMT|;
} elsif ( $a[$mon] != $wday ) {
　　　　　　　　　　$hour -= 22;
　　　　　　　　　　$wday += 1;
　　　　　　　　　　$mday += 1;
　　　　　　　　　　$timer = qq|$wday[$wday], $mday-$mon[$mon]-$year $b[$hour]:$b[$min]:$b[$sec] GMT|;
} elsif ( $mon != 11 ) {
　　　　　　　　　　$hour -= 22;
　　　　　　　　　　$wday += 1;
　　　　　　　　　　$mday -= $a[$mon];
　　　　　　　　　　$mon += 1;
　　　　　　　　　　$timer = qq|$wday[$wday], $mday-$mon[$mon]-$year $b[$hour]:$b[$min]:$b[$sec] GMT|;
} else {
　　　　　　　　　　$hour -= 22;
　　　　　　　　　　$wday += 1;
　　　　　　　　　　$mday -= $a[$mon];
　　　　　　　　　　$mon += 1;
　　　　　　　　　　$year += 1;
　　　　　　　　　　$timer = qq|$wday[$wday], $mday-$mon[$mon]-$year $b[$hour]:$b[$min]:$b[$sec] GMT|;
}return $timer;}

**nobodyさん** · 04/07/06 10:41

お前ら今はサイバーノーガードの時代ですよ。
cookieの有効期限はリミットの2030付近にするのがナウイですよ。

**nobodyさん** · 04/07/06 10:52

>>782
いちいち繰り上がり計算しなくても、gmtime(time+7200)でいいような気が...

**777** · 04/07/06 10:53

$mday -= $a[$mon];
のところは
$mday -= $a[$mon] -1;
だった。

**777** · 04/07/06 10:56

>>784
うおーーーーーーーーーーーーーーーーーーーーーーー！？

**nobodyさん** · 04/07/06 12:22

重くしたくないと言って無駄なコードを書くやつは（ｒｙ

**nobodyさん** · 04/07/06 13:40

list.txt
abc:123
aiu:456

１．
open(IN, "list.txt");
while (<IN>) { print; }
close(IN);

２．
open(IN, "list.txt");
while (<IN>) {
$tmp = <IN>;
print "$tmp<br>\n";
}
close(IN)

１．だと　abc:123　aiu:456　と出力されるのに
２．だと　abc:123　としか出力されないのはどうしてでしょうか、、？

**nobodyさん** · 04/07/06 13:51

>>788
aiu:456だけ表示されるというのならわかるんだけどなぁ。abc:123だけ表示される
のはかなり不思議だ。

**nobodyさん** · 04/07/06 13:51

>>788
もう一回勉強して来い

**nobodyさん** · 04/07/06 13:57

>>789
すいません、aiu:456 としか出力されない　の間違いでした・・・

**nobodyさん** · 04/07/06 15:02

色々調べたのですが、何が駄目なのか良くわからないのですが、、、

open(IN, "list.txt");
while (<IN>) { 処理 }

データを1行単位で読み込み、データのある行が存在する間は while文で繰り返す
という意味ではないのでしょうか、、、？

**nobodyさん** · 04/07/06 15:11

while (<IN>) { # ここで list.txt の一行目が読み込まれる
$tmp = <IN>; # ここで list.txt の二行目が読み込まれる
print "$tmp<br>\n" # 当然 $tmp の中には二行目しか入っていない

**nobodyさん** · 04/07/06 15:37

そうだったのですか！！
<IN>で取得したものは$_ に代入されるのですね。
本当に助かりました。有難うございます。

**nobodyさん** · 04/07/06 15:44

>>794
# 何だか表現が微妙に気になる…。

1: abc:123
2: aiu:456
3: abc:123
4: aiu:456
5: abc:123

ファイルの中身をこの5行にして、実験してみるのもいいかも。

**nobodyさん** · 04/07/06 15:49

重ね重ね有難うございます。
早速100行くらいにして試しています。

**nobodyさん** · 04/07/06 18:37

$tmp .= $_;
っでねが？

**nobodyさん** · 04/07/06 19:05

>>797
大丈夫か？（w

**nobodyさん** · 04/07/07 00:38

>>798
ループ抜けてからプリント。

**nobodyさん** · 04/07/07 03:31

>>799
何の為だ？

**nobodyさん** · 04/07/07 03:43

非常に初歩的な質問なのですが、
受け取った変数を自動的に
別ファイルへ渡す処理はどうやってすればいいのでしょうか？
（フォームを使えば変数を渡せるけど、
自動的には不可能ですよね？）

ヒントでもいいので教えてくだせえ

**nobodyさん** · 04/07/07 05:27

>>801
あとはサーバー側のファイルに記録するくらいじゃないだろうか。
phpならその「自動的」ってのに近いと思う。

**nobodyさん** · 04/07/07 11:11

cgiで受け取ったパラメータをハッシュで取り出したいんですが、
use CGI;
$q = CGI->new;
$hash = $q->Vars;
print $hash;
としたら
HASH(0x8158408)と表示されます。
%hash = $q->Vars;
だとeachなどを使ってもキーなどが出てきません。
色々と検索をするのですが、どうして良いものか解からなくなってきたので
どなたか良い方法を教えて下さい。

いちおう、下記のサイトは見たのですが上手く目的のことができませんでした。

簡単なCGI
http://member.nifty.ne.jp/hippo2000/perltips/Cgi.htm#FETCHING_A_LIST_OF_KEYWORDS_FROM

**803** · 04/07/07 11:20

すみません。
自分で色々と勘違いをしていました。
自己解決しました。

**nobodyさん** · 04/07/07 12:12

ある関数の中で require でファイルを取り込んでから
その関数を抜けたときって
require したファイルの内容は有効なんでしょうか？

**nobodyさん** · 04/07/07 12:37

>>805
有効。
何故試してみない？

**nobodyさん** · 04/07/07 15:17

>>798
頭大丈夫か？

**nobodyさん** · 04/07/07 16:04

>>807
797は明らかに間違ってるだろ？バカか？

**nobodyさん** · 04/07/07 16:32

list.txt
1: abc:123
2: aiu:456
3: abc:123
4: aiu:456
5: abc:123

open(IN, "list.txt");
while (<IN>) {
$tmp .= $_;
}
print "$tmp\n";

**nobodyさん** · 04/07/07 16:44

>>808
痛いからもういいよ

**nobodyさん** · 04/07/07 16:46

>>809

open(IN, "list.txt");
while ($tmp = <IN>) {
print "$tmp<br>\n";
}
close(IN)

暗黙の$_使うか明示的に一時変数$tmpを使うか、だけの違いだろ。

>>808
間違ってるよね

**nobodyさん** · 04/07/07 16:52

>>811
馴れ合うな、ｷﾓｲ
お前は解答さえしてればいんだよｶｽ

**nobodyさん** · 04/07/07 17:04

なんか俺の質問のせいで荒れ気味ですか！？

**nobodyさん** · 04/07/07 17:42

そうです

**801** · 04/07/07 17:54

まじっすか！？
この方法、他にないんでしょうか？

**nobodyさん** · 04/07/07 18:03

>>815
質問が意味不明だから回答が得られないんだよ

**nobodyさん** · 04/07/07 18:12

うん、意味不明

**801** · 04/07/07 18:17

要約すると、フォームでボタンをクリックして
変数を送る部分を、
クリックしなくても変数を送れるようにしたいんです。
意味分かりますかね？perlの超町長初心者なんで勘弁してください。
どうかよろしこです

**nobodyさん** · 04/07/07 18:36

>>818
ｐｅｒｌの問題じゃないです。
要は【submit】ボタンを押さなくても、submitされるようにしたいって事？
JavaScriptとかで勝手にクエリ送るとかか？
やっぱ、perl関係ないです。

**nobodyさん** · 04/07/07 18:37

超町長初心者なら尚更、要約なんかしないで、
ちゃんと持ってるもの全部吐き出してください。

**黒死犬** ◆EgxBlf8nvc · 04/07/07 18:39

<form action="unko.cfm" name="send">
<input type="hidden" name="Name" value="Value">
</form>
<script language="PerlScript">
$window->document->all->forms->send->submit();
</script>

これで出来んじゃないか（テストしてない）
てか板違い

**nobodyさん** · 04/07/07 18:42

>>818
ユーザ側の視点だと「自動的」「クリックしなくても」で済むんだろうけど、
プログラムにとっては「ある条件が満たされたとき」じゃない？
その「ある条件」は、あなたしか知らないわけですよ。

# で、JavaScriptで何かしらのイベント拾うんだろーけど。

**nobodyさん** · 04/07/07 19:48

>>818
フォームフィールドへの記入が終わる前に勝手に自動的に
CGIに送信してしまうトンデモscriptでも作るのか？

**nobodyさん** · 04/07/07 20:13

>>810
・・・何故お前が皆に叩かれてるのか未だに分かってないのか？？？
下の二つを実行してみなさい。そして首吊ってください。
# 1
while (<IN>) {
$tmp = $_;
print "$tmp\n";
}
# 2
while (<IN>) {
$tmp .= $_;
print "$tmp\n";
}

**nobodyさん** · 04/07/07 20:39

文字列の配列を全部トリミングしたいんだけど

@d = ( " abc ", " bcd ", " cde " );
for($i=0;$i<@d;$i++){ $d[$i] =~ s/^\s*(.*)\s*$/$1/; }

これをもうちょっとスマートに書いてみたいですが
どしたらいい？ for文ははずせないのかな

**黒死犬** ◆EgxBlf8nvc · 04/07/07 20:45

grep(s/^\s*(.*)\s*$/$1/, @d);

**nobodyさん** · 04/07/07 20:51

>>826
（ﾟ∀ﾟ）ｻﾝｸｽｺ!
grepって痴漢も使っていいんだ。勉強になりました。

**nobodyさん** · 04/07/07 21:40

>>824
何で俺にレスしてんの？
しかもみんなって・・・
日本語理解してるか？
ついでいっとくと俺は質問者でも解答者でもない。愉快な煽り厨

**nobodyさん** · 04/07/07 21:40

>>824
お前大丈夫か？
どこが叩かれてるんだ？>>810は・・・
レス一つもないじゃん。
まさか勝手に前の人と同じと認定してるとか？

**nobodyさん** · 04/07/07 21:45

>>824
>>810氏は誰にも叩かれてないように思えるが・・・
俺のログがおかしいのかな？再取得してみるよ

**nobodyさん** · 04/07/07 21:46

824は
>>797=>>807=>>810と認定したんだろう。

**nobodyさん** · 04/07/07 21:59

Perlでセッション関数って使えないのでしょうか？
ググっても使用例が見つからなくて困っています。

**nobodyさん** · 04/07/07 22:09

はぁ？
もっとｸﾞｸﾞれ

**nobodyさん** · 04/07/07 23:02

>>833
http://www.google.co.jp/search?hl=ja&ie=UTF-8&c2coff=1&q=Perl+%E3%82%BB%E3%83%83%E3%82%B7%E3%83%A7%E3%83%B3%E9%96%A2%E6%95%B0&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=
PHPしか出てきませんが・・・

**nobodyさん** · 04/07/07 23:07

>>834
ttp://www.google.co.jp/search?q=Perl+-PHP+%E3%82%BB%E3%83%83%E3%82%B7%E3%83%A7%E3%83%B3&ie=UTF-8
（ﾟдﾟ）ﾎﾟｶｰﾝ

**nobodyさん** · 04/07/07 23:09

>>832
Perlはね、PHPみたいになんでも関数が揃ってはいないのですよ。
モジュールを使うか自分で書くのです。

**nobodyさん** · 04/07/08 00:41

まあ use CGI::Session かな

**nobodyさん** · 04/07/08 03:00

>>826
<q cite="http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlstyle.html">
戻り値をただ単に捨ててしまうような void 文脈で、grep()やmap()、
`backticks` (訳注: `ls`のようにバッククォートで括った実行文のこと)
を使うことは避けましょう。そういった関数はすべて戻り値を持って
いるのですから、それを使うべきです。戻り値に用がないのであれば、
代わりにforeach()を使ったループか system()関数を使いましょう。
</q>

>>825
s/^\s+//, s/\s+\z// for @d;

**nobodyさん** · 04/07/08 03:04

今日始めてperl触った初心者なのですが
windowsで他のサーバのディレクトリを
ネットワークドライブに割り当て
その中のファイルに対して
-e　を実行したらエラーしか返ってきません。
自分のサーバ内なら正常にファイルを検知できたのですが
ネットワークドライブはファイルの検査ができないのでしょうか？

$Path="d:/data/"
$Data="test.dat"

if(-e "$Path$Data")

**nobodyさん** · 04/07/08 03:04

読み込んだファイルの中で文字列<HOGE>と一致する（次の）行を検出したいのですが

do $line = <FILE> until (($line eq "<HOGE>") || (eof FILE));

だと$line eq "<HOGE>"がいつまでも真になりません。
$line =~ /<HOGE>/だと真になってくれますが、「含まれる行」ではなく「一致する」行を検出したいのです。
上のやり方だとなぜ出来ないのでしょうか？

**nobodyさん** · 04/07/08 03:34

>>840
do { chomp($line = <FILE>) } until $line eq "<HOGE>" || eof FILE;

do { $line = <FILE> } until $line eq "<HOGE>\n" || eof FILE;

**nobodyさん** · 04/07/08 03:38

アンカー使えばいいじゃん。
$line =~ /^<HOGE>$/

**840** · 04/07/08 04:02

>>841-842
回答ありがとうございます。しかしそれでも解決しませんでした・・・

がその後自己解決しました。
アップロード時の文字コード変換が原因で認識しなかったようです。
# 最近HDが吹っ飛んでOSアプリすべてを再インストールしたために、FFFTPの転送設定が正しくなされてませんでした
<FILE>をアスキーモード転送でアップしたところ正しい挙動になりました。

**nobodyさん** · 04/07/08 08:07

>>825
だれも指摘してないが、その置換では末尾の空白は
とれないよ。先に.*の方に食われちゃうので。838は
黙ってさりげなく直しちゃってるけどな(笑)

**nobodyさん** · 04/07/08 09:16

>>843
それは改行コード

**nobodyさん** · 04/07/08 11:32

掲示板を作りました。
PCやドコモの携帯では普通に書き込めていましたが、auで試したら、
書き込んだ内容がURLエンコードされたまま書き込まれてしまいました。
なぜでしょうか。

書き込まれた内容　：　%92x%82%ea%82%c4%83X%83%7d%83%93

デコード処理部分
sub getparam{
my($QUERY_DATA,@pairs,$pair,$key,$value,%FORM);

if($ENV{ 'REQUEST_METHOD' } eq "POST"){
read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'});
}

@pairs = split(/&/,$QUERY_DATA);

foreach $pair (@pairs){
($key,$value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/"/"/g;
$value =~ s/&/&/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\r\n|\r|\n//g;
$value =~ s/\,/、/g;
$value =~ s/\t//g;
$FORM{$key} = $value;
}
return(%FORM);
}

**nobodyさん** · 04/07/08 11:38

>>846
君がURLエンコードされたものをデコードしてないから。
素直にCGIモジュール使った方がいいと思うよ。

**847** · 04/07/08 11:39

ごめん見落としてた。吊ってくる。

**nobodyさん** · 04/07/08 13:09

>>846
自分のスクリプトから欠陥を見つけられないならauの方の糞さを疑ったらどうだ？
三菱から欠陥を見つけられないなら乗り手の方の糞さを疑ったらどうだ？

**nobodyさん** · 04/07/08 13:26

とりあえず加工する前の生の入力($QUERY_DATA)をファイルか何かに書き出して
よく眺めてみるのがいいかもね。

**nobodyさん** · 04/07/08 13:29

GDでグラフを描こうと思ったけど
横軸が等間隔じゃないデータは
扱いにくそうだな

ほかにグラフ描くいいライブラリないかな

**nobodyさん** · 04/07/08 14:03

>>851
独り言の前にCPAN
http://search.cpan.org/search?m=module&q=Graph&n=100

**nobodyさん** · 04/07/08 14:09

各モジュールの長所・短所とかの話であれば
http://pc5.2ch.net/test/read.cgi/php/997829243/
の方がベターと思われる

**nobodyさん** · 04/07/08 16:34

>>818
http://developer.apple.com/internet/webcontent/xmlhttpreq.html
これ使えばいけるかもね

**nobodyさん** · 04/07/08 17:51

とりあえずカウントするだけのアクセスカウンタを作ろうと思ったのですが
　#!/usr/local/bin/perl -Tw
　use strict;
　
　my $data = './data.dat';
　open COUNTER, "+<", $data or die "$data:$!";
　my $count = <COUNTER>;
　$count += 1;
　seek COUNTER, 0, 0;
　print COUNTER $count, "\n";
　close COUNTER;
　#html排出
　print "$count";

　exit;
なんどやっても、おかしいと思うところやタイプミスを直しても動きません(Internal Server Error)
どこが間違っているのでしょうか？勉強後初プログラミングなもんで…
ご教授よろしくお願いしますm(_ _)m

**nobodyさん** · 04/07/08 18:01

すいません。書き忘れました。
cgiのパーミッションは755
datのパーミッションは777
です。よろしくお願いします

**nobodyさん** · 04/07/08 18:02

>>855
-Tw

**nobodyさん** · 04/07/08 18:11

>>857
速レスありがとうございます。
-Twが間違っているのですか
あの、よろしかったらどのようにすればよいのか教えていただけないでしょうか？とりあえず抜いてみたのですが、事態は変わらず…

**nobodyさん** · 04/07/08 18:12

>>855
ﾍｯﾀﾞ

**nobodyさん** · 04/07/08 18:13

>>855
ていうかエラーログ読めよ。まずはそれからだろ。

**nobodyさん** · 04/07/08 19:59

>>855
ヘッダ書け。

#!/usr/local/bin/perl
use strict;

my $data = './data.dat';
open COUNTER, "+<", $data or die "$data:$!";
my $count = <COUNTER>;
$count += 1;
seek COUNTER, 0, 0;
print COUNTER $count, "\n";
close COUNTER;
#html排出
print "Content-type: text/html;";
print "$count";

良心で書いてやったぞ（藁

**nobodyさん** · 04/07/08 20:14

>>855
まともにエラーも確認できないようじゃ、大変だよ。
見られない環境なら↓こんなんもあるし。。。
http://www.kent-web.com/utility/index.html

**nobodyさん** · 04/07/08 20:21

>>646

$testdat = 'c:/Program Files/Apache Group/Apache2/cgi-bin/test.dat

open IN, $testdat or die "$!\n";
while(<IN>){
chomp;
$record{(split(/<>/,$_))[0]} = $_;
}
print (((sort keys %record))[-1]);

でテストすると、syntax error at test1.cgi line 8, near "open "
Execution of test1.cgi aborted due to compilation errors.
が、出てしまいます、これはどこを縦・・・じゃなくて

どうやって原因をつきとめていったらいいのでしょうか？

**名無しさん＠Linuxザウルス** · 04/07/08 20:29

縦読みが出来るエラーメツセージをはく処理系が
あったら最初は楽しいかもしれんが、ウダイだろ

**863** · 04/07/08 20:34

このエラーはＷｉｎｄｏｗｓ2000のコマンドプロンプトで
perl -cw test1.cgi
で出てきたものです。

**名無しさん＠Linuxザウルス** · 04/07/08 20:37

フオームに文をいれてやると、縦読みにして
かえしてくれるやつを作るとしたら

まず何をすればいいのでしょうか？

**863** · 04/07/08 20:44

いまもコードをにらんでいますが
near "open " のところがわかりません。

近いっていったいなにが？って感じです。

**nobodyさん** · 04/07/08 20:49

open前の行が…(ry

**nobodyさん** · 04/07/08 20:51

openの近くが…（ｒｙ

**nobodyさん** · 04/07/08 21:05

お邪魔します。
よくWebｻｲﾄに『～～100の質問』ってありますよね。
あれを簡単にHTMLで出力できるようなCGIを作ってるのですが
うまくうごかなかったので、質問させてください。

処理の流れは以下の通りです。
1.テキストファイルから質問を読み込む
2.質問を一度表示させる。その際、1つの質問に対して1つのテキストエリアをつける（sub quesView）
3.テキストエリアに回答をいれ、一番最後に出力というボタンをおすことにより、HTML出力のサブルーチンに移動(sub sub regist)
4.HTML出力

質問を読み込んで出力できているのですが
HTML出力するときのサブルーチンにうまく移行できていないみたいなのですが
どうあがいてもうまくいきません。
よかったらご教授いただけませんでしょうか？

【サンプル】
ttp://cgi.www5f.biglobe.ne.jp/~c-fellow/cgi-bin/04_test/100/100q.cgi

【ソース】
ttp://www5f.biglobe.ne.jp/~c-fellow/cgi-bin/04_test/100/100q.zip

ソースはコピペだらけで、汚いと思いますが、宜しくお願いします。

**名無しさん＠Linuxザウルス** · 04/07/08 21:17

>>868
開店前の銀行がどうしたんだ？

**nobodyさん** · 04/07/08 21:19

>>868
>>869

openの前の行も、近くにも変な追記はしてないですし
さっぱりわかりません。