Re: [Networker] Windows Networker Notification and Perl
2004-09-22 10:28:30
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.
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
|
|
|