namazu-ml(avocado)


[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: check point



広瀬と申します。

 <satoru@xxxxxxxxxxxxx> wrote.
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>>(4)
>>exec($^X, $0, @ARGV) という形で exec しているので、起動のしかたによっ
>>ては、これではまずい場合もあるかもしれません。
>Win32, OS/2 では正しく動くか不安です。
>
>    #!/usr/bin/perl
>    my $i = 0;
>    $i = defined $ARGV[0] ? $ARGV[0] : 0;
>    print "$$: $i\n";
>    exec($^X, $0, ++$i);
>なるスクリプトで動作確認してもらえます? > 広瀬さん, 清水さん

perl は Perl for Win32 Build 316
で、以下のようになりました。
A:\tmp>perl selfexec.pl
-182099: 0
-1650395: 1
-180295: 2
-1647923: 3
-1661451: 4
-1643071: 5
-1648235: 6
-1644427: 7
-1644247: 8
-1639451: 9
-1645407: 10
-2015567: 11
-1650567: 12
-1643835: 13
-1647671: 14
-1663103: 15
-1692435: 16
-1664595: 17
-1664835: 18
-1669403: 19

A:\tmp>

ばっちり大丈夫みたいですね。

   Best regards,
--
Ken-ichi Hirose (^^)k!
e-mail: hirose@xxxxxxxxxxxxxxxxxxxx