open OUT, "kekka.dat";

$name1 = "荒木";
$name2 = "井上";
$name3 = "上田";
$name4 = "江口";
$name5 = "小川";
$san = "さん";
$kun = "くん";

%kokugo = (araki =>94, inoue => 73, ueda =>76, eguchi => 69, ogawa =>84);
%sugaku = (araki =>81, inoue => 93, ueda =>64, eguchi => 83, ogawa =>74);
%eigo = (araki =>89, inoue => 85, ueda =>81, eguchi => 75, ogawa =>87);

print %kokugo
print %sugaku
print %eigo

$score[1] = $kokugo{araki} + $sugaku{araki} + $eigo{araki};
$score[2] = $kokugo{inoue} + $sugaku{inoue} + $eigo{inoue};
$score[3] = $kokugo{ueda} + $sugaku{ueda} + $eigo{ueda};
$score[4] = $kokugo{eguchi} + $sugaku{eguchi} + $eigo{eguchi};
$score[5] = $kokugo{eguchi} + $sugaku{eguchi} + $eigo{eguchi};

print $score;

print OUT $name1.$kun, $score[1], $score[1]/3;
print OUT $name2.$san, $score[2], $score[2]/3;
print OUT $name3.$kun, $score[3], $score[3]/3;
print OUT $name4.$kun, $score[4], $score[4]/3;
print OUT $name5.$san, $score[5], $score[5]/3;
close OUT;
教えてください

A 回答 (3件)

初心者なんですが、回答していいものか・・・



下記の個所を修正すれば、とりあえずは動くと思うのですが

1行目
<before>
open OUT, "kekka.dat";
<after>
open OUT, ">kekka.dat";

11~13行目
<before>
%kokugo = (araki =>94, .....
<after>
%kokugo = ("araki" =>94, .....

15~17行目
<before>
print %kokugo
<after>
print %kokugo;

25行目
<before>
print $score;
<after>
print @score;

これでとりあえずは動くとおもうのですが・・・ファイルは更新されないようです。
他に気になった点がいくつか・・・

15~17行目
print %kokugo;
※ %配列をいきなり出力してしまうのは、とても大胆なような気がするのですが($変数にワンクッションおくとか・・・27~31行目もおなじような気がします。・・・)

23行目
<before>
$score[5] = $kokugo{eguchi} ....
<after>
江口くん じゃなくて 小川さん ですよね・・・どうでもいいですか・・・


素人ながら、私もにたようなプログラムで、苦しんでいたもので・・・
ついつい、回答してしまいました。
大変、失礼しました。
    • good
    • 0

まず15から17行目でセミコロンが抜けています.



print %kokugo ;
print %sugaku ;
print %eigo ;

後はファイルオープンできてません.

27~31行目のOUTを取るととりあえず標準出力で表示されるようです。

※perl for winをインストールしてローカル環境でデバッグしましょう。
以上、仕事中のおじさんでした(^^;)
    • good
    • 0

CGIの文法ことはわからないんですが、多分


$score[]って配列なんですよね。

print $score;

この部分で配列扱いされていないようですが・・・・
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

Q${str}と$strの違いとは?

スカラー変数の${str}と$strの違いとは何なのでしょうか。

スカラー変数における{}の意味がよくわかりません。
別になくても処理は変わらない気がしますが、
どういった際に{}は使用するのでしょうか?

Aベストアンサー

もしPerlでのことでしたら、スカラー変数名を{}で囲むのは、それ以降に半角文字が続く場合に、そのスカラー変数名と半角文字の文字列との境界を明示するためだと思います。 変数自体に何かの違いがあるということではないはずです。

たとえば、処理の中でスカラー変数$strに続けてstrという文字を書き出したい場合、「$strstr」と記述すると、[$str]とは別の[$strstr]という名前のスカラー変数と認識されてしまいます。 これを避けるために、スカラー変数名を{}で囲って、「${str}str」と記述することで、$strというスカラー変数に、strという文字が続いていると認識させる、という具合だと思います。

見当違いでしたらごめんなさい。

Q$ENV{'REMOTE_HOST'}について

CGIにて$ENV{'REMOTE_HOST'}を取得したところ
スパム投稿なのですが、$ENV{'REMOTE_HOST'}が
IPアドレスの値である142.54.182.186が入っていました。
普通はkd182249232116.au-net.ne.jp
などという形になると思うのですが
142.54.182.186
となっていることが通常ありえるのでしょうか?
リモートホストを取得し、IPアドレスの形式であった場合、
この投稿者を弾いてしまっても問題ありませんか?

Aベストアンサー

IPアドレスが入っているか、ホスト名が得られるかは、Apacheの設定によります。
ホスト名を得る設定になっていてもDNSの逆引きがその時たまたま失敗すると、IPアドレスのまま設定されます。
なので、「ホスト名が入っていたら儲けもの」くらいの感覚で扱うのがよいかと。

Q引数処理に$ENV{'PATH_INFO'}を用いた際のクッキーについて

自作cgiの引数を $ENV{'PATH_INFO'}を用いた形式
(hoge.cgi/aaa/bbb/cccという形式)に変更しました。

ところが、組み込んでいるアクセス解析用のクッキーが
本来ならば hoge.cgiに対してクッキー1個となるはずですが、

hoge.cgi で1個目
hoge.cgi/aaa で2個目
hoge.cgi/aaa/bbb で3個目
hoge.cgi/ccc で4個目
 ・・
と、引数が変わるたびに発行されてしまいます。
ブラウザで確認すると同じ内容のクッキーが
アクセスした際の引数の分だけズラズラと羅列されています。

本来あるべき形である hoge.cgiに対してクッキー1個にするには
どのようにしたら良いのでしょうか。

Aベストアンサー

Cookie出力の際にパスを設定すれば大丈夫です。指定方法は参考URLを見てください。
とりあえず path=/ をつければ大丈夫ですが、詳細に指定することもできます。
例えば hoge.cgi のURLが
  http://www.example.com/foo/hoge.cgi
だとしたら、path=/foo とすることで
  http://www.example.com/bar/hoge.cgi
などにはCookieが送信されなくなります。
また、www がなくてもアクセスできるページである場合には、domain=.example.com も追加することで
  http://www.example.com/foo/hoge.cgi
にも
  http://example.com/foo/hoge.cgi
にもCookieが送信されるようになります。
(これをしないと、www付きで発行したCookieが、wwwなしの方に送信されません。)

参考URL:http://www.tohoho-web.com/wwwcook.htm#CookieWrite

Cookie出力の際にパスを設定すれば大丈夫です。指定方法は参考URLを見てください。
とりあえず path=/ をつければ大丈夫ですが、詳細に指定することもできます。
例えば hoge.cgi のURLが
  http://www.example.com/foo/hoge.cgi
だとしたら、path=/foo とすることで
  http://www.example.com/bar/hoge.cgi
などにはCookieが送信されなくなります。
また、www がなくてもアクセスできるページである場合には、domain=.example.com も追加することで
  http://www.example.com/foo/hoge.cgi
にも
...続きを読む

Q$ENV{'QUERY_STRING'}以外で引数を取得するには?

CGI上で$ENV{'QUERY_STRING'}を使用しないで引数を取得するにはどうしたらいいのでしょうか?

hoge.cgi?XXXX の XXXX を取得したいのですがある理由によって$ENV{'QUERY_STRING'}が使用できません。

よろしくお願いいたします。

Aベストアンサー

hoge.cgi?xxxx ではなく、
hoge.cgi/xxxx という表記のURIが許されるなら、
$ENV{'PATH_INFO'}を使う方法があります。

Q@town = ("Aタウン","Bタウン","Cタウン");

@town = ("Aタウン","Bタウン","Cタウン");


上のような配列の値を、テキストファイルに保存して読み込みたいのですが、どうしたらよいのか分かりません。

誰か詳しい方、よろしくお願いします。

Aベストアンサー

use Storable qw(nstore retrieve);

my @towns = qw(TownA TownB TownC);
my $file = 'serialize.dat';
nstore( \@towns, $file ) || die "$file:$!";
@towns = ();

my $towns_ref = retrieve($file) || die "$file:$!";
print $_, $/ for @{$towns_ref};


このカテゴリの人気Q&Aランキング

おすすめ情報