分室の分室

ina 2011/12/12 13:19 jacode.pl を require するアプリケーションプログラムは use strict; してもしなくてもどちらでも構いません。

hello.pl
--------------------------------
use strict;
require './jacode.pl';
print "Hello, jacode.pl!\n";
--------------------------------

bye.pl
--------------------------------
no strict;
require './jacode.pl';
print "No, jacode.pl!\n";
--------------------------------

jacode.pl 自体は use strict; していませんが、だからと
いってアプリケーションプログラムまで use strict; して
はいけない、という決まりはありませんよ。

foussin 2011/12/12 23:41 今、仕事から帰ったとこなので、まだ未確認ですが、
丁寧なアドバイスありがとうございます。

知らなかったです。

あとで確認してみます。

foussin 2011/12/13 03:10 ina さま、確認しました。↓

------------------------------------
#!/usr/bin/perl

# hello.pl

use strict;
use warnings;
require 'jacode.pl';

my $hello = "Hello, jacode.pl!";
my $code = &jcode::getcode(\$hello);
$code .= "";
print $hello, " => ", $code, "\n";

$hello = "こんにちは, jacode.pl!";
$code = &jcode::getcode(\$hello);
$code .= "";
print $hello, " => ", $code, "\n";

=result
c:\usr\edit>hello.pl
Hello, jacode.pl! =>
こんにちは, jacode.pl! => sjis
=cut

__END__
------------------------------------

ちゃんと動くんですね。
私にとっては嬉しい誤算です。感動しました。

私の認識不足でした…。
strict、プラグマ、については特に…ですね。

Perl4 のスクリプトは require でも
例外で止まるものと完全に思い込んでいて、
検証すらしていなかったです。

ダメですね、これじゃ。
おそらく、ご迷惑をおかけしたかと思います。
以後、気をつけたい、と反省してます。

スパム対策のためのダミーです。もし見えても何も入力しないでください