I tested the following

write a script: see below

on the command prompt do

dir | perl aa.pl

the output of the dir command is written in xx.txt

script:

# <-- starts here

while(<>) {
        push(@XX,$_);
}

my $file = "c:/xx.txt";
open(OUT,">$file") || die "FATAL: cannot open '$file',$!";
foreach $line (@XX) {
        print OUT $line;
}
close OUT || die "FATAL: cannot close '$file',$!";

# <--end here

Question: how did you define your notification

Maarten

On Wednesday 22 September 2004 16:05, Adam Yen wrote:
> I'm trying use Activestate Perl 5.8.x with Legato Networker 7.1.1 on
> Windows for notifications. My perl test scripts are not taking in standard
> input <STDIN>. See example below. However the scripts do work in command
> prompt. I already read previous postings by people who had similar problems
> but no solution was given. Anyone out there have any ideas? Thanks.
>
> -Adam
>
> ps.-i also tried John Stoffel's nss.pl script and that didn't work either.
> I contacted him and he has no experience with Windows legato notifications
> with perl.
>
> Example1:
> #!e:/perl/bin/perl.exe
>
> open (LEGATO, "-");
> @INPUT = <LEGATO>;
> close(LEGATO);
>
> open (OUT, ">>e:/temp/legato.txt");
>
> foreach $rawline (@INPUT) {
>     print OUT $rawline;
>   }
> close (OUT);
>
> --
> Note: To sign off this list, send a "signoff networker" command via email
> to listserv AT listmail.temple DOT edu or visit the list's Web site at
> http://listmail.temple.edu/archives/networker.html where you can
> also view and post messages to the list.
> =*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=

--
Maarten Boot,
Compuware Europe B.V.
Hoogoorddreef 5
1101 BA Amsterdam

--
Note: To sign off this list, send a "signoff networker" command via email
to listserv AT listmail.temple DOT edu or visit the list's Web site at
http://listmail.temple.edu/archives/networker.html where you can
also view and post messages to the list.
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=