[17942] in Perl-Users-Digest
Perl-Users Digest, Issue: 102 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jan 19 18:11:42 2001
Date: Fri, 19 Jan 2001 15:10:14 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <979945813-v10-i102@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 19 Jan 2001 Volume: 10 Number: 102
Today's topics:
Re: perlcc for Win NT b.linda@sh.cvut.cz
Re: Question about domain users/groups <arthuro@wanadoo.nl>
Return Page neurofase@my-deja.com
Return Page neurofase@my-deja.com
Re: Return Page (Peter L. Berghold)
Re: Suppressing stderr on `` commands (LMC)
Re: Suppressing stderr on `` commands <wgunderman@web.compuserve.com>
Re: Suppressing stderr on `` commands (Tad McClellan)
Re: Suppressing stderr on `` commands <james@NOSPAM.demon.co.uk>
Re: Suppressing stderr on `` commands (Abigail)
Re: Testing for defined() gives me a warning (LMC)
Re: Testing for defined() gives me a warning <ren.maddox@tivoli.com>
Using Perl to Access DB2 for Linux tutorial awtech@my-deja.com
Re: Using perl to update an ASP? <mike@belrose.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 18 Jan 2001 11:26:17 +0000 (UTC)
From: b.linda@sh.cvut.cz
Subject: Re: perlcc for Win NT
Message-Id: <946jsp$fka$1@ns.felk.cvut.cz>
did u manage to compile it?! perlcc won run it yelds message thatsome file is missing.
I have found that it caused by -u<none> option, but cound find where to correct it
eacooper2085@my-deja.com wrote:
> Hello,
> I would like to compile my perl program to an a standalone
> executable. I have the ActivePerl software and perlcc gives a message
> saying it is very experimental. Is there reliable software to do this?
> thanks in advance,
> Eric
> eric.cooper@clarent.com
> Sent via Deja.com
> http://www.deja.com/
------------------------------
Date: Fri, 19 Jan 2001 21:24:26 +0100
From: "Arthuro" <arthuro@wanadoo.nl>
Subject: Re: Question about domain users/groups
Message-Id: <3a68a323$0$21671@reader5>
Thanks this is great information!
<nobull@mail.com> wrote in message news:u9elxzcth2.fsf@wcl-l.bham.ac.uk...
> "Arthuro" <hexorhaxor@vaxor.com> writes:
>
> > Is there a way to extract a list of users and the groups they're in from
a
> > primary domain server (Windows NT)?
>
> There are at least modules supplied with ActiveState Perl providing
> interfaces to the relevant Win32 API:
>
> Win32::NetAdmin
> Win32API::Net
>
> BTW: The documentation of these modules is full of trival mistakes but
> mostly you can work out what's needed.
>
> use Win32API::Net 'GetDCName', 'GroupEnum';
>
> sub global_groups {
> my $DomainController='';
> GetDCName('','',$DomainController) or die "$! $^E";
> my @groups;
> GroupEnum($DomainController,\@groups) or die "$! $^E";
> @groups;
> }
>
> Figuring out the one to list users is left as an exercise for the
> reader.
>
> You may also want to visit http://www.roth.net/perl
>
> --
> \\ ( )
> . _\\__[oo
> .__/ \\ /\@
> . l___\\
> # ll l\\
> ###LL LL\\
------------------------------
Date: Fri, 19 Jan 2001 19:54:41 GMT
From: neurofase@my-deja.com
Subject: Return Page
Message-Id: <94a61s$pe$1@nnrp1.deja.com>
When using perl to convert an website form into an email is there
anyway to speed up the time from pressing submit, to the email being
sent and the next page fulling loading.
I am trying to get the return page to load quicker
Ta
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Fri, 19 Jan 2001 19:54:52 GMT
From: neurofase@my-deja.com
Subject: Return Page
Message-Id: <94a626$pg$1@nnrp1.deja.com>
When using perl to convert an website form into an email is there
anyway to speed up the time from pressing submit, to the email being
sent and the next page fulling loading.
I am trying to get the return page to load quicker
Ta
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Fri, 19 Jan 2001 20:36:35 GMT
From: peter@uboat.berghold.net (Peter L. Berghold)
Subject: Re: Return Page
Message-Id: <slrn96h9aj.37i.peter@uboat.berghold.net>
On Fri, 19 Jan 2001 19:54:52 GMT,
neurofase@my-deja.com <neurofase@my-deja.com> wrote:
>When using perl to convert an website form into an email is there
>anyway to speed up the time from pressing submit, to the email being
>sent and the next page fulling loading.
>
You could possibly fork off a process that handles sending the email
and using the parent to paint the page...
--
-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
Peter L. Berghold Peter@Berghold.Net
"Linux renders ships http://www.berghold.net
NT renders ships useless...."
------------------------------
Date: Fri, 19 Jan 2001 14:15:30 -0500
From: "Antoine Beaupre (LMC)" <lmcabea@lmc.ericsson.se>
Subject: Re: Suppressing stderr on `` commands
Message-Id: <3A689252.2965C25E@lmc.ericsson.se>
I'm not sure I understand very well your question, but by the subject,
the following works very well here.
% perl -e 'open(STDOUT, "/dev/null"); system("ls");'
% perl -e 'open(STDERR, "/dev/null"); system("ls
/dev/nosuchfileordirectory");'
%
Note: no output in both cases. Should have given, if output not
redirected:
% ...
certification config package system
conf.patch logs patches
% ...
nosuchfileordirectory: No such file or directory
%
See http://www.cpan.org/doc/manual/html/pod/perlfunc/open.html
A.
Billy G wrote:
>
> I want to suppress stderr output from `` commands because the output is not
> serialized with output written by the perl script directly. I'm setting
> autoflush on stdout and stderr in my perl script and redirecting output to a
> log file. This results in serializing the stdout and stderr output lines
> but the stderr coming from `` commands appears to get appended at the end
> when my script exits rather than serialized with the other output.
>
> How can I suppress stderr or serialize it with the perl script output
> stream?
--
La sémantique est la gravité de l'abstraction.
------------------------------
Date: Fri, 19 Jan 2001 15:26:19 -0500
From: "Billy G" <wgunderman@web.compuserve.com>
Subject: Re: Suppressing stderr on `` commands
Message-Id: <94a80a$iq0$1@sshuraac-i-1.production.compuserve.com>
I found that appending " 2>&1" to my backquoted commands forces stderr to be
written to stdout which can be supressed.
------------------------------
Date: Fri, 19 Jan 2001 20:41:07 GMT
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Suppressing stderr on `` commands
Message-Id: <slrn96h2o8.86m.tadmc@tadmc26.august.net>
Antoine Beaupre (LMC) <lmcabea@lmc.ericsson.se> wrote:
>See http://www.cpan.org/doc/manual/html/pod/perlfunc/open.html
Checking the docs is a Very Good Idea, but why send him out
"onto the 'net" when the very same data is already on his
own hard disk?
perldoc -f open
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 19 Jan 2001 22:36:29 +0000
From: James Taylor <james@NOSPAM.demon.co.uk>
Subject: Re: Suppressing stderr on `` commands
Message-Id: <ant192229868fNdQ@oakseed.demon.co.uk>
In article <slrn96h2o8.86m.tadmc@tadmc26.august.net>, Tad McClellan
<URL:mailto:tadmc@augustmail.com> wrote:
> Antoine Beaupre (LMC) <lmcabea@lmc.ericsson.se> wrote:
>
> >See http://www.cpan.org/doc/manual/html/pod/perlfunc/open.html
>
>
> Checking the docs is a Very Good Idea, but why send him out
> "onto the 'net" when the very same data is already on his
> own hard disk?
>
> perldoc -f open
I agree in general, but there is no perldoc on my system and finding
the equivalent HTML documentation on my hard disc requires me to dig
about a bit, so I was grateful for the URL which I could click on and
get an instant display of the relevant page.
--
James Taylor <james (at) oakseed demon co uk>
PGP key available ID: 3FBE1BF9
Fingerprint: F19D803624ED6FE8 370045159F66FD02
------------------------------
Date: 19 Jan 2001 22:55:26 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Suppressing stderr on `` commands
Message-Id: <slrn96hheu.rgg.abigail@tsathoggua.rlyeh.net>
James Taylor (james@NOSPAM.demon.co.uk) wrote on MMDCXCVIII September
MCMXCIII in <URL:news:ant192229868fNdQ@oakseed.demon.co.uk>:
:} In article <slrn96h2o8.86m.tadmc@tadmc26.august.net>, Tad McClellan
:} <URL:mailto:tadmc@augustmail.com> wrote:
:} > Antoine Beaupre (LMC) <lmcabea@lmc.ericsson.se> wrote:
:} >
:} > >See http://www.cpan.org/doc/manual/html/pod/perlfunc/open.html
:} >
:} >
:} > Checking the docs is a Very Good Idea, but why send him out
:} > "onto the 'net" when the very same data is already on his
:} > own hard disk?
:} >
:} > perldoc -f open
:}
:} I agree in general, but there is no perldoc on my system and finding
:} the equivalent HTML documentation on my hard disc requires me to dig
:} about a bit, so I was grateful for the URL which I could click on and
:} get an instant display of the relevant page.
If there's no perldoc on your system, you have a broken installation of
perl. Now, if you want to cover for the case that perldoc is missing,
your shouldn't rely on a browser being present. Such broken systems
might not have a browser installed - perl after all predates webwowsers.
In case perldoc is not present, use "man perlfunc". If man is absent,
get a new sysadmin.
Abigail
--
map{${+chr}=chr}map{$_=>$_^ord$"}$=+$]..3*$=/2;
print "$J$u$s$t $a$n$o$t$h$e$r $P$e$r$l $H$a$c$k$e$r\n";
------------------------------
Date: Fri, 19 Jan 2001 14:07:27 -0500
From: "Antoine Beaupre (LMC)" <lmcabea@lmc.ericsson.se>
Subject: Re: Testing for defined() gives me a warning
Message-Id: <3A68906F.F7D7FBF9@lmc.ericsson.se>
I can barely believe I was so stupid. Sorry for the inconvenience.
A.
nobull@mail.com wrote:
>
> No, that's line 135.
>
--
La sémantique est la gravité de l'abstraction.
------------------------------
Date: 19 Jan 2001 12:43:03 -0600
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: Testing for defined() gives me a warning
Message-Id: <m3k87rjsco.fsf@dhcp11-177.support.tivoli.com>
"Antoine Beaupre (LMC)" <lmcabea@lmc.ericsson.se> writes:
> I have the following code:
>
> sub epgetpath {
> my $ent = shift;
> return "" if ($ent eq "");
> my ($path, undef) = `epgetpath $ent`;
> if (defined($path)) {
> chomp $path;
> } else {
> print "***** WARNING: can't find entity $ent (epgetpath returned:
> \"$path\")\n";
Here, you're interpolating $path even though you know it is
undefined. This is where the error comes from. For some reason that
I've never bothered to investigate, the error inside an if block
sometimes refers to the line that begins the if instead of the line
where the error is.
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Fri, 19 Jan 2001 21:18:14 GMT
From: awtech@my-deja.com
Subject: Using Perl to Access DB2 for Linux tutorial
Message-Id: <94aaub$5gn$1@nnrp1.deja.com>
===========================================
In this free, dW-exclusive tutorial you'll learn how to install and use
a Perl interface to the IBM DB2 Universal Database, Personal
Developer's Edition. You'll also learn by example how to query the
sample database provided with the DB2 Personal Developer's Edition.
http://www6.software.ibm.com/reg/devworks/dw-linuxperl-i?
open&l=perlNG,t=gr,p=perldb2
===========================================
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Fri, 19 Jan 2001 20:58:45 GMT
From: Michael T. Belrose <mike@belrose.net>
Subject: Re: Using perl to update an ASP?
Message-Id: <94a9pu$4cq$1@nnrp1.deja.com>
Don't forget to make your Perl script identify itself as Mozilla,
or whatever your browser says it is. You might want to use some sort
of network monitor or sniffer (just on your PC) to see what exactly
your browser sends to the server, then write your script to mimic it.
Don't forget to run the script from the same PC you use to access the
webpage.
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 102
**************************************
