namazu-ml(avocado)

[Kaz SHiMZ <kshimz@xxxxxxxxx>]

清水＠住友林業です。


Sat, 5 Dec 1998 10:55:39 +0900 に、
Satoru Takabayashi <satoru@xxxxxxxxxxxxx> さんは書きました ;

> >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 で実行してみました。ちなみに 1.3.0.0 の mknmz 他の
スクリプトは、これで問題なく動いているように見えます。

  [F:\]perl -v

  This is perl, version 5.005_53 built for os2

  Copyright 1987-1998, Larry Wall


  OS/2 port Copyright (c) 1990, 1991, Raymond Chen, Kai Uwe Rommel
  Version 5 port Copyright (c) 1994-1998, Andreas Kaiser, Ilya Zakharevich

（以下省略）

以下はテストの結果。

  [F:\temp] perl ./test.pl
  1172: 0
  1173: 1
  1174: 2
  1175: 3
  1176: 4
  1177: 5
  1178: 6
  1179: 7
  1180: 8
  1181: 9
  1182: 10
  (ここで Ctrl + C )

  Process terminated by SIGINT

  [F:\temp]perl ./temp.pl 2351
  1188: 2351
  1189: 2352
  1190: 2353
  1191: 2354
  1192: 2355
  1193: 2356
  (ここで Ctrl + C )

  Process terminated by SIGINT

  [F:\temp]

古川さんと高林さんの意図通りに動いているように見えますが、
広瀬さんの結果と見比べて、なぜか不安が...


  Mon, 7 Dec 1998 08:54:07 +0900 に、
  Ken-ichi Hirose <hirose@xxxxxxxxxxxxxxxxxxxx> さんは書きました ;

> 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>

Windows95 or NT の process id の採番ルールがよくわからないのですが、
これで正常なんでしょうか?  $i が 0 - 1 - 2 と増加していくとき、pid
が増えたり減ったりするものなのでしょうか? 

end
--
  住友林業株式会社  情報システム部   清水 和佳
 
  TEL: +81-3-5322-6672  FAX: +81-3-5322-6658  Niftyserve: XLW01034
  e-mail: <kshimz@xxxxxxxxx>