いつもお世話になっております。
コンストラクタへ引数を渡しsyntaxチェックを行うとエラーとなります。
ご教授願えないでしょうか。
※Perlは一昨日から初めてです。
[エラー内容]
sample.pm: Bareword "SAMPLE_LOG" not allowed while "strict subs" in use at sample.pm line 278.
[sample.pm]
package sample
lib ../common/
use Log.pm
my $log = Log->new(SAMPLE_LOG);
[Log.pm}
package main
use constant SAMPLE_LOG = 'sample.log';
定数を定義しているのですが・・・・
A 回答 (6件)
- 最新から表示
- 回答順に表示
No.6
- 回答日時:
たとえば sample.pm の 1行目は
package sample
となっていますが, 本当にこれでいいのですか? あなたのところでは, セミコロンがなくても普通に動作しているのですか?
その次の
lib ../common/
でも, 「lib ってなんだ」とか「../common/ ってどんな式なんだ」とか疑問になりますよね.
「やりたい事は書いているので、問題はないかと思ってはいる」とのことですが, この例を使って試そうとすると「やりたいこと」にたどり着く前に細かなエラーをつぶしていく必要があります. 確かに細かいところなんだけど, それは逆にいえば「気を付けて質問するつもりはない」という意思表示のようにも取れてしまいます.
そして, その手間をかけても Perl 5.14.2 では
main に constract を定義すると Barewordとなり、
パッケージLog内で constant定義するとsyntax OKとなります。
とはならない.
この回答への補足
度々ご指摘有難う御座います。
すみません。
実際には
package sample → package sample;
lib ../common/ → use lib '../common/';
しかも一番肝心なバージョンが抜けていました。
バージョンは5.8.8です。
いろいろとご指摘有難う御座いました。
なんとか解決しました。
ローカルで色々試した所
パッケージ → パッケージで mainのconstantを使用する場合
my $log = Log->new(main::SAMPLE_LOG);
としなければならないと言う事が分かりました。
ありがとうございました。
No.4
- 回答日時:
そうなると状況が質問とは変わってきちゃうから, 具体的なスクリプトを (もちろん「使っているものをそのままで」とはいわないけど) 出してください.
なお, 実際に出すときには「こんな風に書き換えた」と変更点のみを書きだすと無用な混乱を招くことになるので, 面倒でも改めて全体を出すようにしてください.
この回答への補足
補足が足りずにすみません
package sample
lib ../common/
use Log.pm
my $log = Log->new(SAMPLE_LOG);
[Log.pm}
package main
use constant SAMPLE_LOG = 'sample.log';
package Log;
#コンストラクタ
sub new {
my $this = shft;
my ($name) = @_;
return 1;
}
パッケージsampleから
パッケージLogに引数を渡して、
sample.logの定義があるかを返す処理です。
main に constract を定義すると Barewordとなり、
パッケージLog内で constant定義するとsyntax OKとなります。
Log.pmは他のcgi等から呼ばれるため、
他の使用方法とあわせたいのが正直なところです。
宜しくお願いします。
No.3
- 回答日時:
あ, #2 は #1 のように直してもダメだったときに意味を持ちます. 質問文のままだと, おそらく (コンパイルできたとしても)
期待した動作にはならないでしょう.仰るように
$log = sample::SAMPLE_LOG;
だといけました。
しかし、Log.pm内にはもうひとつパッケージが存在し、
その中でコンストラクタをよんでいいます。
なので、$log = main;;SAMPLE_LOG
は問題ないのですが、
その後のコンストラクタを呼ぶ場合にはどうしたらいいのでしょうか
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
End Sub が必要です。
-
文字列で入力したプログラムか...
-
Makefile と <math.h>
-
perl コンストラクタへの引数
-
intel fortranのエラーで困って...
-
C# IEnumerable が IEnumerable...
-
フォートランでの記述に関して
-
typedef による2重定義
-
Mac OSX上でFortranを使いたい
-
対応する関数ヘッダーがありません
-
プロポからのパルス値解析ソー...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
String""から型'Double'への変...
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
教えて下さい
-
配列数式の解除
-
UserForm1.Showでエラーになり...
-
【プログラム】プログラミング...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
End Sub が必要です。
-
フォートランのエラーについて...
-
43:syntax error at end of input
-
intel fortranのエラーで困って...
-
C# IEnumerable が IEnumerable...
-
他クラスからForm1内コントロル...
-
Delphiでif文がうまく書けないです
-
C2065: 'EnumDisplayDevices' :...
-
DLL内からの外部変数の参照
-
構造体のポインタ参照
-
pythonの条件分岐(if)
-
ラズパイ上の、pythonのエラー...
-
Excel VABについて 下記記述が...
-
フォートラン(fortran)のエラー...
-
Excel VBA: UserForm.Show で実...
-
#ifndefとかヘッダファイルにつ...
-
DLLの使い方とerror C2146につ...
-
C言語コンパイルエラー cygwin
-
Makefile と <math.h>
-
python numpy.linalg.inv()での...
おすすめ情報