くだすれPerl（超初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
486:nobodyさん 07/10/26 13:37:59 状況がハッキリ想像できてないので迷惑な答えになってしまうかもしれないけど CGI-Sessionではたしか配列はリファレンス渡しだったと思う。 最初に↓こう準備しておいて $arrayref = [];　　　　　　　　#初期化式 $session->('sql', $arrayref);　#セッションに格納 その都度 $$arrayref[0] = $sql; $$arrayref[1] = $sql; $$arrayref[n] = $sql; でいけるかも？ 487:nobodyさん 07/10/26 17:05:53 1fUnrvio ほんとにどうしようもない初心者なのですが誰か教えてください。 #!C:/Perl/bin/perl require "cgi-lib.pl"; &ReadParse(*input); @list={$input{'a'},$input{'b'},$input{'c'}} $result=0; foreach $value (@list) { if($value == 0){$result++;} elsif($value == 1){$result=$result+2;} else{$result=$result+3;} } if($result<=1){$message = "文章１";} elsif(($result>=2)&&($result<=4)){$message = "文章２";} else{$message = "文章３";} inputにはラジオボタンから0〜2の値が送られてくるように設定してあります。 messageが結果として表示されるようにしてあるんですが何度やってもエラーがでてしまいます。 どこが間違ってるのでしょうか？

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4299日前に更新/307 KB
担当:undef