- ベストアンサー
perl cgiの局所変数について
現在perlを使ってcgiのプログラムを組んでいるのですが、初歩的なことがよくわかっておらず、難儀しております。 調べてみたのですが中々理解できず困っているので助けてほしいです。 全てを書くと長くなってしまうので端折って書かせていただきます。 現在、局所変数のエラーで詰まっております。 送信プログラムのGETを使用していたのですが、セキュリティ的に危険ということがわかりまして、 POSTを使うように変更しました。 しかし、エラーが発生し、進まなくなってしまいました。 use strictを記述した後にエラーが発生し、原因を調べたところ、大域変数の使用を禁止してしまうという効果があることがわかりました。 検索して調べて出てきた対策として、全ての変数を定義して、myを記述すれば解決できるとあったので、myを記述してみたところ、エラーが発生してしまいました。 Can't declare null operation in my at ****.cgi line 38, near "tr/+/ /;" Execution of /virtual/www/****.cgi aborted due to compilation errors. というエラーが取れないです。 @array2 =~ tr/+/ /; という記述に問題があるらしいということしかわからないのですが、よくわかりません。 すみませんが、教えて頂きたいです。
- kmwrod
- お礼率64% (37/57)
- CGI
- 回答数2
- ありがとう数10
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
変換演算子（tr///）はスカラ変数にしか適用できません。 配列の場合、@array[n]=~tr/+/ /; $array[n]=~tr/+/ /; はOKですが @array=~tr/+/ /; はエラーになります。
その他の回答 (1)
- kmee
- ベストアンサー率55% (1857/3366)
無闇にmyを付ければいいってものではありません。 ちゃんと意味と有効範囲を考えてください。 >Can't declare %s in my > (F) スカラ変数、配列変数、ハッシュ変数だけが、字句スコープの変数として宣言できます。これらは、名前として通常の識別子を持たなければなりません ということで、 「my」を付けた場所とか、(括弧の有無とかによる)適用する相手の指定が間違ってるのでは?
お礼
返信ありがとうございます。 myについて、もう少し研究してみます。
関連するQ&A
- apacheで動作してIISで動作しないcgi
webに検索エンジン機能を付けようと思いいmsearchという検索cgiを入れたのですが、apacheサーバだとうまく動いてくれるのですが、iis（var4)だとエラーがでて動いてくれません。 （エラーの内容はSyntax errorとExecution of aborted dueto compilation errorsだったと思います） ＵＮＩＸ系ｗｅｂサーバで動いてiisで動かないＣＧＩというのは存在するのでしょうか？ また、あるとしたら何が原因で、対処法はあるのでしょうか？ 非常に困っていますどなたか知恵をお貸し下さい。 お願いします。 msearch:http://www.kiteya.net/script/msearch/
- ベストアンサー
- CGI
- perl niftyについて。use CGI;
画像アップロードのスクリプトを作ろうと思っているのですが、 use CGI; という記述をすると、ここでエラーに引っかかります。 下はperl checkerでのエラー表示です Can't locate CGI.pm in @INC (@INC contains: /usr/local/lib/perl5/5.00503/sun4-solaris /usr/local/lib/perl5/5.00503 /usr/local/lib/perl5/site_perl/5.005/sun4-solaris /usr/local/lib/perl5/site_perl/5.005 .) at a.cgi line 10. BEGIN failed--compilation aborted at a.cgi line 10. 参考ＵＲＬはここ http://www.topstudio.co.jp/~kmuto/html/node38.html niftyでは使えないようになってしまっているのでしょうか？ また、CGI.pmを使わないファイルアップロードの仕組みを解説しているサイトを知っている方がいたら、教えてくださいませ。
- ベストアンサー
- CGI
- CGIでsoft were errorが出ます。。。
CGIフォームを設置して試しに送信ボタンを押してみると、柿のエラーが出ます。 Software error: Can't modify subtraction (-) in scalar assignment at form.cgi line 38, near ");" Execution of form.cgi aborted due to compilation errors. 同じパターンのフォームを同じ階層上に置いてあり、そちらは上手く動作します。 今回のフォームは、多少項目をいじったため、CGIの方もそれにあわせて修正したのですが、どこがどう間違ってるのかわかりません。 アドバイスお願いいたします。 また、line 38, near というのは、CGIの中の38行目付近という意味でしょうか？ その場合、38というのは、どこからどう数えればよいのでしょうか？
- ベストアンサー
- その他([技術者向] コンピューター)
- perl use strict エラーにならない?
perlの使い方を勉強しているのですが use strict;を記述すると 変数宣言が必要になるということですが 以下のように記述してもエラーになりません。 use strict;を記述すると my $a;がないと$a="Hello";で エラーになるのではないのでしょうか。 ---test.pl---- use strict; $a="Hello"; print $a; -------------- >test.pl Hello > (Windows7, ActivePerl)
- ベストアンサー
- Perl
- useとrequireでエラー
初歩的な質問で失礼いたします。 下記の記述でプログラムを実行すると正常にプログラムが動きます。（省略以降は全く同一のプログラムです） ■実行問題なし１ #!/usr/local/bin/perl require 'cgi-lib.pl'; require 'jcode.pl'; --------省略--------------- ■実行問題なし２ #!/usr/local/bin/perl use strict; use DBI; --------省略--------------- しかし、下記の記述だとエラーが発生していまいます。 #!/usr/local/bin/perl use strict; use DBI; require 'cgi-lib.pl'; require 'jcode.pl'; --------省略--------------- エラーログは、下記の通りです。 Global symbol "$in" requires explicit package name at search.cgi line 21. Global symbol "$parameter" requires explicit package name at search.cgi line 23. Global symbol "$name" requires explicit package name at search.cgi line 23. Execution of search.cgi aborted due to compilation errors. requireとuseは同時に記述してはいけないのでしょうか？ 同時に記述しないと目的のプログラムを実現する方法が大きく変わってきてしまうので、非常に困ってしまいます。 もし、ご存知の方がいらっしゃったら教えてください。 宜しくお願い致します。
- 締切済み
- Perl
- Perlの変数宣言について
PHPを毎日書いている者ですが、たまたまPerlのメールフォームをカスタマイズ しなければならなくなりました。 use strict宣言がある場合、変数はmyまたはlocalで宣言しなければいけないようですが、 サブルーチン内に sub form { ・・・ my ($form_value,$error_list) = @_; ・・・ print $error_list{'inquiry_type1'} としたところ、 Global symbol "%error_list" requires explicit package name at ・・・ と、宣言が無い場合に出るというエラーが出ました。 $error_listには、inquiry_type1は入っているはずなのですが、どのような 宣言をすればよいのでしょうか？ よろしくお願いします。
- ベストアンサー
- Perl
- cgi-libを使って変数値渡しをしたいのですが
cgi間の変数渡しの質問をしたのですが、うまくいかなかったので、調べてみると、 cgi-lib.pl'を使うことで簡単に値を渡せるということが分かりました。 ですが、 use lib '/home/www'; require 'cgi-lib.pl';# cgi-lib.plを呼び出す $test=1000; # 変数値渡し？ form_input_post.cgi?name=$test; &ReadParse(*in); として、$testの値をform_input_post.cgiに渡そうとしたのですが。 コンパイルエラーが出てしまいました。 Can't modify constant item in scalar assignment at form_input_post.cgi line 49, near "$test;" syntax error at form_input_post.cgi line 49, near "$test;" form_input_post.cgi had compilation errors. というエラーです。 初歩的なミスな気がしますが原因がわからないので教えて頂きたいです。 よろしくお願いします。
- 締切済み
- CGI
- 変数名（配列）の中の変数
配列変数の名前の中に変数を入れたい場合、どのように記述すればいいのでしょうか？ use strictを用いて、以下のように書いてみましたが、エラーが出て上手く動きません。 ループ x: 1-3 ループ y: 1-2 ${"answer$x"[$y]}=入力値 ←この部分を教えてください。 ループ閉 y ループ閉 x -------------------- answer1[1] answer1[2] answer2[1] answer2[2] answer3[1] answer3[2] とループを通るように、変数名を設定したいのですが、 エラーが出て実行ができません。 エラー：Can't use string ("answer1") as an ARRAY ref while "strict refs" in use at～ -------------------- 実際のプログラムは以下のように書いています。（該当部分のみ） for(my $x=1; $x<$num; $x++) { for (my $y=0; $y<$n; $y++) { my $y = ($x*$n)+$d; my @line = split(/\r/, $data[$y]); my @line0 = split(/\t/, $line[0]); ${"answer$x"[$y]} = $line0[0]; } } よろしくお願いします。
- 締切済み
- Perl
- Perlでuse strictと %inの共存
use strictを使うと、変数の使用に厳密にチェックしてくれるので、便利だと思い使いましたが、ReadParse後の%inを利用する場合に宣言されていないエラーが表示されます。意味的には正しいですが、$in{'test'}など CGIで受け取った内容が扱えなくなるので、困っております。何か解決方法は有るのでしょうか？ use strict; require 'cgi-lib.pl'; require 'jcode.pl'; &ReadParse; my $x = $in{'md'};
- ベストアンサー
- Perl
- CGI(Perl)でメールフォームを作ったのですが
CGI(Perl)でメールアドレス、名前、内容のメールフォームを作ったのですがうまくいきません。 http://homepage.biglobe.ne.jp/errorpage/500.html CGIプログラムのエラーが発生しました。 原因 CGIプログラムの実行に問題があります。 まれに、予期しないサーバのエラーが原因でこのメッセージが出る場合があります。 と表示されます。 CGIのプログラムを作る前はHTMLだけで作っていました。 <form action="mailto:メールアドレス"～ メールアドレスを非公開で送信するには。
- ベストアンサー
- Perl
お礼
返信ありがとうございます。 元々$だったところを無理やり@にした為こうなりました、やってみます。