TSperl 発言

藤岡さん、ありがとうございました。

　落としてきました。  ある、ある、と思ったら、これらは（おそらく全部）、
active perl でも .pl  の形で、c:\perl\lib にちゃんとインストールされてい
ました。

　ところが、（ご面倒をお掛けするというか、しょうのない奴でほんとうに申し
訳ないのですが）、perl4 でのライブラリーの呼び方（？）がうまくいかないの
です。


--- test3.pl ---
    use Getopt::Std;
    getopts('a:bc');

print "\$opt_a==$opt_a  \$opt_b==$opt_b  \$opt_c==$opt_c\n";
----------------
C:\>test3.pl -a12 -c5           #Jperl5です。
$opt_a==12  $opt_b==  $opt_c==1


とうまくいったのですが、


--- test4.pl ---
    require 'Getopts.pl';
    &getopts('a:bc');

print "\$opt_a==$opt_a  \$opt_b==$opt_b  \$opt_c==$opt_c\n";
----------------
C:\>Jperl4 test4.pl -a12 -c5
EOF in string at C:\PERL\LIB/Getopts.pl line 39.
                 ^^^^^^^^^^^これはjperl4がちゃんとPERLLIBを読めた
                 　　　　　 証拠だとは思うのですが。（おめでとう！）
                 
これが、39行目付近

            if($rest ne '') {
                $ARGV[0] = "-$rest";    #line 39　EOF???
            }


　何か分かりますでしょうか？　m(__)m
　単純に呼び方がいけないのだとは思うのですが…。

文太