- ベストアンサー
requireで同じライブラリを複数回、呼び出すとどうなるか
seta_takahiroの回答
特に、意図があって見つけたページではありませんが 「perl require」で検索したらすぐに見付かりました http://cocohome.hp.infoseek.co.jp/perl_ref/require.html というのでどうでしょう。 実験してみるのが良いと思うので 呼び出される側のファイルで、読み込まれたときに 何か文字列をファイルか標準出力に出してみたらどうでしょう。
関連するQ&A
- requireしたライブラリにuseを記入
メール送信のプログラムを作っています。 本体のプログラムmain.cgiから、 メール送信用のサブルーチンを記入した、 email.plというのを require 'email.pl'; とメール送信が必要な場合だけ読み込んでいます。 この email.plに use Encode; や use Jcode; のようにuse文を記入するのは、 Perlの作法としては適切なのでしょうか。 それともuse文はmain.cgiに記入するのが適切なのでしょうか。 email.plにuse文を記入しても動きますし、 main.cgiにuse文を記入した場合とベンチマークを比べたりしましたが あまり変わらないのですが、 useはコンパイルしたときに実行されるので、 実行のときに読み込まれるrequireしたライブラリに記入していいのか不安なのです。 私としては必要なときだけ読み込みたいので、 email.plにuse文を記入したいのですが。 どうぞよろしくお願いします。
- 締切済み
- Perl
- requireの使い方のどこがおかしいのでしょう？
言語はperlです。 789.cgiから456.plを呼び出したいのですが、シンタックスエラーが出てきます。 789.cgiのrequireに関する行をコメントにしたら実行されるのですが…。 requireを使わずに、サブルーチン自体を789.cgiの中に書き込むことには成功しているのですが、 イマイチrequireを使った呼び出しのコツがわかりません。 どなたかご教授下さい。 以下にスクリプトを示しておきます。 よろしくお願いします。 *****以下789.cgi***** #!/usr/local/bin/perl use CGI::Carp qw(fatalsToBrowser); require "456.pl"; $a=12; $b=15; $d="xxxxxxxx"; $d=&plus(); print "content-type:text/html\n\n"; print <<"HTML_HTML"; <html> <head> <title> ヒアドキュメント </title> <body> ***** <br> $d <br> ***** <br> $a <br> ***** <br> $b <br> ***** </body> </html> HTML_HTML ***********以下456.pl************ sub plus { my $a=10; my $b=10; $c=$a+$b; return $c; }
- ベストアンサー
- CGI
- requireのファイルの置き場所
サーバ移行にともない、新Webサーバを構築中です。 それで、旧サーバと新サーバでrequire '○○.pl'; などの、require を使用する時の置き場所が いまいちわかりません。 以前は、 Inetpub └scripts └wwwmail2 └test というフォルダ構成で、testフォルダのなかに test.plという、動かしたいperl本体と、 requireの.plを全部入れて動いていましたが、 新WWWサーバでは、requireするperlを Scriptsフォルダの下に置かないと、動かなくなりました。 （Scriptsの配下のwwwmail2－testの中にrequireの.plを 入れたのでは動かなかった。） ディレクトリの設定をどこかでしなくてはいけないのでしょうか。 この質問の仕方で不安ですが、よろしくお願い致します。
- 締切済み
- Perl
- requireについて教えてください。
こんにちは、require について教えてください。 require されるファイルの最終行は 1 を書くのが一般的ですが、 他の値を書くと何か問題があるのでしょうか？ 以下の実験をしてみました。 -- require されるファイル array.pl -- #! usr/bin/perl -w use strinct; ['a','b','c',] -- 実行するスクリプト -- #! /usr/bin/perl use strict; my $array_ref = get_array_ref('array.pl'); print "$_n" foreach ( @{$array_ref} ); exit(); sub get_array_ref { return eval {require $_[0]}; } -- 結果 -- a b c 結果はうまく行ったのですが、eval も含めてこの様な使い方は 間違っていませんでしょうか？ よろしくお願いします。
- 締切済み
- Perl
- requireの使い方がわかりません。
外部ファイルのサブルーチンを(requireを使って)読み込んで使用したいのですが、どうもうまく行きません。 cgiファイルとplファイル、どっちも作って両方試してみましたがだめでした。 なにかこの方法だとできないことなど制限ってあるのでしょうか。 それとも、何か特別な処理が必要なのでしょうか。 原因が分からず困っています。
- ベストアンサー
- CGI
- require文が実行できない
perl で require 'cgi-lib.pl'; または require "jcode.pl"; を実行すると、 Internal Server Error The server encountered an internal error or misconfiguration and was unable to complete your request. Please contact the server administrator, admin@mshome.net and inform them of the time the error occurred, and anything you might have done that may have caused the error. More information about this error may be available in the server error log. というメッセージが出ます。(cgi-lib.pl、jcode.plは同じディレクトリにあります。)
- 締切済み
- 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
- cgi-lib.plのReadParse関数
あるパールからcgi-libを呼び出して、ReadParse関数を使おうとするとInternal Server Errorがでてしまいます。 パールの中身は #!/usr/local/bin/perl require 'cgi-lib.pl'; require 'jcode.pl'; &ReadParse(*in); です。 そこで３行目と５行目の行頭に#をつけて飛ばすとパールは正常に動きます。 これってcgi-lib.plのReadParse関数がいけないんでしょうか？ ダウンロードしたまま何も変更していないのに..... ちなみにサーバーのパールのバージョンは5.004のようです。
- ベストアンサー
- CGI
- Perl require 共通の変数 外部ファイル
ファイルが多くなってきて、その中でも共通の変数があるので 外部ファイルにまとめたい・・・ ～test.pl～ #!/usr/bin/perl require("testcommon.pl"); print qq(Content-type: text/html\n\n); print <<END; <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=$CHARSET"> <title>外部CGIファイル読み込み</title> </head> <body> END print qq($test<br>$data<br>$NEW); print <<END; </body> </html> END exit; 1; ～testcommon.pl～ #!/usr/bin/perl $test = "テスト"; $data = "テストです"; $CHARSET = "UTF-8"; $NEW ="サーバー"; 1; まずこれが現在テスト中で サーバーAでは、これでいけているのですが、 サーバーBでは、これではいけず、 エラーログを見ると 「@INC～/usr/local/lib64/perl5～」 とでてます。これがどのような意味をささしているのかわからないです。 いつも1行目に書く「#!/usr/bin/perl」の部分を書き換えてみたのですが・・・ さらにサーバーBでは、ログファイルなど開く際、フルパスでないと開けません。 require("testcommon.pl");←これですと インターネットサーバーエラーとなってしまいます。 これはエラーログを見るとフルパスで指定と書いていたので、 require("/path/path/path/testcommon.pl"); のようにしました。 これで、一応表示はできたのですが、 testcommon.plで新しい変数を書き加えると、（$NEW123 = "追加したい変数";) 表示されません。 またCHARSETでUTF-８を指定してますが、 更新や、再度ページに入ったりすると、 CHARSETの変数が反応していなかったりしています。ページでソースを確認すると 変数の部分が空欄になってます。 これは require("/path/path/path/testcommon.pl"); が読み込んでいなかったり読み込んでいたり もしくは、一度なにをしたのかわからないですが、このフルパスの場所に testcommon.plのファイルをおいて、そのときのままになっている など、原因、対処がわからず困っております。 ※というより結論としては、 共通の変数を１つのファイルでしようしたいということです。 ～common.pl～ $a = 123; $b = "テスト"; $c = 2; ～test1.pl～ $TEST = $a * $c; print "$b$TEST\n"; #結果「テスト246」 ～test2.pl～ $TEST123 = $a + $c; print "$TEST123$b; #結果「125テスト」 このような感じ・・・(+_+)
- 締切済み
- Perl
- jcode.pl と &ReadParse()
CGIファイルの先頭は #!/usr/local/bin/perl require './cgi-lib.pl'; require './jcode.pl'; &ReadParse(); という感じになっています。 ここでのの require は、日本語を使うためのもの だと思っています。合っていますか？ &ReadParse() というのは何ですか？ require と関係があるみたいです。 require を書かずに &ReadParse() を書くとCGIエラーになります。
- ベストアンサー
- CGI
お礼
requireについて書かれたページを見つけてくださり、 ありがとうございます。 後で、実験してみようと思います。