NTツールML メッセージ閲覧

"iwanaga" <iwanaga@iida.sse.co.jp> さん、こんにちは。たむら　けんいち です。

        Tue, 20 Oct 1998 14:32:48 -0000 の
        [NT-TOOLS 00630] perlでBlatJ を稼動
        に関するメールのリプライです。

  はじめましてです。

"iwanaga"> ＤＥＣ Ａｌｐｈａで稼動しているBlatJを含むｐｅｒｌスクリプトが、
"iwanaga"> ＤＥＣ Ｉｎｔｅｌで稼動しません。
"iwanaga"> 考えられる原因がお解りになれば、お知らせください。
"iwanaga"> 
"iwanaga"> ＡＬｐｈａで開発したこのスクリプトの作成者によると、同じ状況にぶち当たり、
"iwanaga"> ｐｅｒｌをバージョンＵＰしたら稼動したそうなので、最新のｐａｒｌをダウンロ
"iwanaga"> ードしました。
"iwanaga"> 
"iwanaga"> ＤＥＣＩｎｔｅｌ環境：ＮＴ４．０＋ＩＩＳ３＋Ｐｅｒｌ（build316)+Blatj15ij4
"iwanaga"> ＤＥＣAlpha環境：ＮＴ４．０＋ＩＩＳ３＋Ｐｅｒｌ（build307)+Blatj15aj
"iwanaga"> 
"iwanaga"> perlスクリプト
"iwanaga"> open(OUT, "| c:/blatj/blatj.exe - -s \"test\" -t $mailto");
"iwanaga"> print OUT "＊＊＊test＊＊＊\n\n";
"iwanaga"> close(OUT);

以下の、スクリプトで問題なく送信できました。

$mailto = "t9655832\@aar.trans-cosmos.co.jp";
#                  ^ "@"を quate
open( OUT, "| D:/winnt/system32/blatj.exe -  -s \"TEST\" -t $mailto" );

print OUT "＊＊＊TEST ＊＊\n\n";
close OUT;

コマンドラインから、"perl foo.pl" での実行結果と、画面表示はどうですか？
Blatjへの引数の渡し方に問題あれば、パラメータの表示などがでるので判断できると思います。
スクリプト内での確認は、"print STDERR ～" などで、デバッグできます。

[perl -v]
        Win32 port Copyright (c) 1995-1996 Microsoft Corporation.
                All rights reserved.
        Developed by ActiveWare Internet Corp., http://www.ActiveWare.com

Perl for Win32 Build 316 - Built 09:44:44 Mar 13 1998

This is perl, version 5.003_07

Copyright 1987-1996, Larry Wall

        + suidperl security patch
Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5.0 source kit.

[blatj]
Blat v1.5J4: WinNT console utility to mail a file via SMTP, for ISO-2022-JP

                    --------------------------------------------------
                        トランス・コスモス株式会社　福岡支社システム課
                        　　　　　　　　　　　　田村　賢一
                                        t9655832@aar.trans-cosmos.co.jp
 　　　　　　           ** ruby はじめました。**
                    --------------------------------------------------