well, you can always redirect it to a file like this;
perl foo.pl > /null
even on a wintendo...
i suggest using a more apropriate place to 'store' your output tho ;-)
Regards,
Jos Boumans
----- Original Message -----
From: "Paul" <[EMAIL PROTECTED]>
To: "Peter Lemus" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Tuesday, May 15, 2001 7:31 PM
Subject: Re: How can I get all error messages from this script, including
system cmds.
>
> --- Peter Lemus <[EMAIL PROTECTED]> wrote:
> > Hi, folks,
> >
> > I need to get every possible error on this script
> > including errors from system commands.
>
> lol -- looks more like a batch file. ;o]
>
> Seriously, you might consider putting all this in one SOMEFILE.BAT and
> running that as an open3(), though that's a gruesome affair....
>
> Have they upgraded Windoze enough to manually redirect the error output
> yet? *NIX would make it pretty easy to shunt STDERR to a file (or
> anywhere else you wnated it) and then read it back in, but in
> Win32....?
>
> I dunno.....
>
> > sub DEBUG () { 1 }; # set level of debugness.
> > open (STDERR, ">c:/admin/errorcms.log") or die $!;
> > select STDERR;
> > print "File/s being copied
> > now.............................\n";
> > use file::spec;
> > system ("net use q: /delete"); #if drive is already
> > mapped, un-map the drive.
> > system ("net use r: /delete");
> > system ("net use s: /delete");
> > system ("net use t: /delete");
> > system ("net use u: /delete");
> > system ("net use v: /delete");
> > system ("net use w: /delete");
> > system ("net use x: /delete");
> > system ("net use y: /delete");
> > system ("net use f: /delete");
> > system ("net use r: \\\\sf_sys01\\cmsopen"); # map
> > network drives:
> > system ("net use s: \\\\de_sys01\\cmsopen");
> > system ("net use t: \\\\da_sys01\\cmsopen");
> > system ("net use u: \\\\cc_sys01\\cmsopen");
> > system ("net use v: \\\\prsys01\\cmsopen");
> > system ("net use w: \\\\lesys01\\cmsopen");
> > system ("net use x: \\\\oc_sys01\\cmsopen");
> > system ("net use y: \\\\dc_sys01\\cmsopen");
> > system ("net use f: \\\\la_sys01\\cmsopen");
> > system ("set
> > PATH=c:\;q:;r:;s:;t:;u:;v:;w:;x:;y:;z:;%PATH%");
> >
> > use file::spec;
> > use win32;
> > open (DIRS, 'c:/admin/paths.txt') || die "can't open
> > file he: $!\n";
> > sleep 1;
> >
> > while ($path=<DIRS>) { # read paths line by line.
> >
> > chdir ("c://admin//cmsfiles");
> > system ("copy *.* $path") || print "File/s
> > was/were copied to $path ....\n";
> >
> > sleep 1;
> >
> > }
> >
> >
> > system ("net use r: /delete"); #unmap the network
> > drives.
> > system ("net use s: /delete");
> > system ("net use t: /delete");
> > system ("net use u: /delete");
> > system ("net use v: /delete");
> > system ("net use w: /delete");
> > system ("net use x: /delete");
> > system ("net use y: /delete");
> > # system ("net use f: /delete"); #ok to keep mapped..
> > print "\n";
> > print "\n";
> > print "New cmsopen files have been copied
> > successfully..............\n";
> > close (DIRS);
> > close STDERR;
> >
> >
> > =====
> > Peter Lemus
> > Computer Networks Engineer
> > [EMAIL PROTECTED]
> > My Dad always tought me; when you do good; expect to receive good;
> > when you do bad; expect the bad...sooner or later.
> >
> > __________________________________________________
> > Do You Yahoo!?
> > Yahoo! Auctions - buy the things you want at great prices
> > http://auctions.yahoo.com/
>
>
> =====
> print "Just another Perl Hacker\n"; # edited for readability =o)
> =============================================================
> Real friends are those whom, when you inconvenience them, are bothered
less by it than you are. -- me. =o)
> =============================================================
> "There are trivial truths and there are great Truths.
> The opposite of a trival truth is obviously false.
> The opposite of a great Truth is also true." -- Neils Bohr
>
> __________________________________________________
> Do You Yahoo!?
> Yahoo! Auctions - buy the things you want at great prices
> http://auctions.yahoo.com/
>
