[21828] in Perl-Users-Digest
Perl-Users Digest, Issue: 4032 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Oct 26 18:06:20 2002
Date: Sat, 26 Oct 2002 15:05:09 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 26 Oct 2002 Volume: 10 Number: 4032
Today's topics:
Re: AUTOLOAD and multiple inheritance <heather710101@yahoo.com>
Re: Before I buy the Book ... (ebchang)
Re: Before I buy the Book ... <pasdespam_desmond@zeouane.org>
Re: defined() upon aggregates (hashes and arrays) is no <spicano@netzero.net>
Re: defined() upon aggregates (hashes and arrays) is no <tassilo.parseval@post.rwth-aachen.de>
h2ph issue <jdsmith_80127@yahoo.com>
Re: MD5 password encryption <Juha.Laiho@iki.fi>
newbie: Multiply picture lines in format doesn't work. (uncle_ziba)
Re: newbie: Multiply picture lines in format doesn't wo <pinyaj@rpi.edu>
Re: pulling out text from between two strings (shambolic)
Re: RegExpr <wksmith@optonline.net>
Re: Replacing string in binary file <tassilo.parseval@post.rwth-aachen.de>
Re: setreuid on AIX 5.1 with perl 5.6.1 <techcog@acme.N3T>
Re: Simple Question on Hash ... <jurgenex@hotmail.com>
Re: Simple Question on Hash ... <thomas-usenet@arcor.de>
Sub: how to access the internet programatically across( (R.Padmakumar)
usemymalloc: Whose malloc is that? <arthur@excalibur-internet.net>
Win32: Hiding console window (donald)
Re: Win32: Hiding console window <jurgenex@hotmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 26 Oct 2002 20:30:22 +0000 (UTC)
From: Da Witch <heather710101@yahoo.com>
Subject: Re: AUTOLOAD and multiple inheritance
Message-Id: <apeu0u$mpu$1@reader1.panix.com>
In <apck7k$gpg$2@nets3.rz.RWTH-Aachen.DE> "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de> writes:
>Not sure what you want. Your new class C will inherit both the AUTOLOAD
>from A as well as the one from B. Since AUTOLOAD is basically a
>catch-all mechanism, the usual left-to-right search through @INC will
>not apply and C will always call B::AUTOLOAD().
Actually, there's a standard way to solve this problem (which I
discovered in the Camel book after I sent my original post), basically
to "register" the subs that each AUTOLOAD is meant to handle via "use
subs". E.g. if I put "use subs ('foo');" in package A and "use subs
('bar');" in package B, then $c->foo and $c->bar will be handled by
the appropriate AUTOLOADs (where $c is an instance of C).
hk
------------------------------
Date: Sat, 26 Oct 2002 16:06:59 GMT
From: echang@netstorm.net (ebchang)
Subject: Re: Before I buy the Book ...
Message-Id: <Xns92B37B42CE7D1echangnetstormnet@207.106.92.86>
Desmond Coughlan <pasdespam_desmond@zeouane.org> wrote in
<slrnarjaaf.6je.pasdespam_desmond@lievre.voute.net>:
>Le Fri, 25 Oct 2002 15:25:44 -0500, brian d foy <comdog@panix.com> a
>écrit :
>
>{ snip }
>
>>> ... and might as well be reading Chinese. Is this the sort of shit
>>> that I can expect ?
>
>> what is "shit"? since you do not know Perl yet, you shouldn't be
>> surprised if you jump in the middle of a tutorial and do not
>> understand the terms.
>
>You should not interpret the word 'shit' as being pejorative. It means,
>'stuff'. Sorry if I gave the impression that I was criticising.
>
To any people, "shit" is not only perjorative, it is obscene and highly
offensive. It's more than a matter of interpretation; it's a deep
understanding reinforced by a generous mouthful of soap.
For introductory books, _Learning Perl_ is a good place to start, though it
does assume you are familiar with programming. Another excellent beginning
book is Elements of Programming with Perl by Andrew Johnson (Manning Press).
Instead of looking at an unrelated tutorial, check out the online sample
chapters for the books:
http://www.oreilly.com/catalog/lperl3/chapter/ch04.html for LP, and
http://www.manning.com/getpage.html?project=johnson&filename=Chapters.html
for Elements.
------------------------------
Date: Sat, 26 Oct 2002 19:26:03 +0000
From: Desmond Coughlan <pasdespam_desmond@zeouane.org>
Subject: Re: Before I buy the Book ...
Message-Id: <slrnarlr2a.1h50.pasdespam_desmond@lievre.voute.net>
Le Sat, 26 Oct 2002 16:06:59 GMT, ebchang <echang@netstorm.net> a écrit :
{ snip }
> To any people, "shit" is not only perjorative, it is obscene and highly
> offensive.
With respect, I have apologised and shall not do so again. If you consider
'shit' to be 'obscene and highly offensive', then I can only assume that
your native language is not English.
{ snip }
Thanks again to all for the pointers. :-)
--
Desmond Coughlan |CUNT#1 YGL#4 YFC#1 YFB#1 UKRMMA#14 two#38
desmond @ zeouane.org |BONY#48 ANORAK#11
http: // www . zeouane . org
------------------------------
Date: Fri, 25 Oct 2002 22:19:39 -0700
From: "spicano" <spicano@netzero.net>
Subject: Re: defined() upon aggregates (hashes and arrays) is not guaranteed to produce intuitive results
Message-Id: <apd8lc$4vc$1@news01.intel.com>
So my data structures are more complex (has array references also) but I
can expand the subroutine to handle this. Thanks!
Was wondering why perl 'vivifies' like that?
Why doesn't perl just quit 'early' with undef on a read?
Silvio
"Benjamin Goldberg" <goldbb2@earthlink.net> wrote in message
news:3DB7963B.3CEBF12F@earthlink.net...
> spicano wrote:
> >
> > From Perlfunc man page:
> > 1030 parentheses. On the other hand, use of defined()
> > 1031 upon aggregates (hashes and arrays) is not
> > 1032 guaranteed to produce intuitive results, and
should
> > 1033 probably be avoided.
> >
> > Basic problem: when checking if a hash key is defined, all higher level
hash
> > keys are created.
> > I do not want intermediate keys to exist afterwards.
> >
> > Simple example:
> > #!/usr/bin/perl
> > if (defined $a{1}{2}{3}) { print "123 defined first pass.\n"; }
> > if (defined $a{1}{2}) { print "12 defined second pass.\n"; }
> >
> > produces:
> > 12 defined second pass.
> >
> > Checked on perl5.00404 & 5.6.1 on Linux/Solaris.
> >
> > I do not want intermediate hash keys to be created, and I do not want to
> > code:
> > if (defined %a &&
> > defined $a{1} &&
> > defined $a{1}{2} &&
> > defined $a{1}{2}{3}) { .... }
> >
> > I could code a string function, that tears away at the structure using
> > eval(), but it cannot
> > be this difficult to not create intermediate hash references?
>
>
> sub exists_no_autovivify {
> my ($h, @keys) = @_;
> my $lastkey = pop @keys;
> UNIVERSAL::isa( ($h=$h->{$_}) , "HASH" ) or return
> for @keys;
> return exists $hashref->{$lastkey};
> }
>
> if( exists_no_autovivify( \%a, "1", "2", "3" ) ) {
> # true if $a{1}{2}{3} exists.
> }
>
> [untested]
>
> --
> my $n = 2; print +(split //, 'e,4c3H r ktulrnsJ2tPaeh'
> ."\n1oa! er")[map $n = ($n * 24 + 30) % 31, (42) x 26]
------------------------------
Date: 26 Oct 2002 07:45:12 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de>
Subject: Re: defined() upon aggregates (hashes and arrays) is not guaranteed to produce intuitive results
Message-Id: <apdh68$t8s$1@nets3.rz.RWTH-Aachen.DE>
[ please don't top-post ]
Also sprach spicano:
> So my data structures are more complex (has array references also) but I
> can expand the subroutine to handle this. Thanks!
>
> Was wondering why perl 'vivifies' like that?
> Why doesn't perl just quit 'early' with undef on a read?
Because autovivification is often very handy. Imagine you have:
%hash = (
key1 => { nested1 => 'value1',
nested2 => 'value2', },
key2 => { nested1 => 'value1',
nested2 => 'value2', },
key3 => ... );
built from a file or so. You can't always know whether 'key1' or 'key2'
or whatever already exists. Now you can simply insert:
$hash{key2}->{nested3} = 'value3';
even if 'key2' hadn't been there before. If you first had to create it
thusly:
$hash{key2} = { };
you'd overwrite anything that would have been there previously. So that
would result in a lot of exists() tests that would need to be done
recursively for arbitrarily deep structures.
Nonetheless, a mere exists() shouldn't autovivify the keys in between so
IMHO that's actually a bug (but a known one).
Tassilo
--
$_=q!",}])(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus;})(rekcah{lrePbus;})(lreP{rehtonabus;})(rehtona{tsuJbus!;
$_=reverse;s/sub/(reverse"bus").chr(32)/xge;tr~\n~~d;eval;
------------------------------
Date: 26 Oct 2002 04:31:41 GMT
From: <jdsmith_80127@yahoo.com>
Subject: h2ph issue
Message-Id: <apd5rd$871$1@news.cudenver.edu>
I have just upgraded one of my servers to Red Hat Linux 8.0.
Which has Perl 5.8.0. I am trying to run h2ph -r -l but it
spits back and error that says:
require '_h2ph_pre.ph'
Then hangs.
what can I do to resolve this?
Thanks in advance
jds
------------------------------
Date: Sat, 26 Oct 2002 06:02:01 GMT
From: Juha Laiho <Juha.Laiho@iki.fi>
Subject: Re: MD5 password encryption
Message-Id: <apdb2v$qlk$1@ichaos.ichaos-int>
"cheechew" <cheechew@hotmail.com> said:
>MD5 could not be appropriate. How about 3DES with key. Any perl module
>on that?
And how would you protect that key? By encrypting that with 3DES and
another key? You're stuck in a loop.
If you need to store (within yuor program, or its data files) a password
that you need to provide to some other entity as an authentication
token, then, in essence, you'll have to store it as cleartext.
You can obfuscate it, you can make it hard to find. But in the end, your
program will contain the code to locate the data and also your program
will contain the code to transform the data back to plaintext form.
The end effect of this is that someone with your program and the data
containing the (possibly obfuscated) password essentially has the
plaintext password.
--
Wolf a.k.a. Juha Laiho Espoo, Finland
(GC 3.0) GIT d- s+: a C++ ULSH++++$ P++@ L+++ E- W+$@ N++ !K w !O !M V
PS(+) PE Y+ PGP(+) t- 5 !X R !tv b+ !DI D G e+ h---- r+++ y++++
"...cancel my subscription to the resurrection!" (Jim Morrison)
------------------------------
Date: 26 Oct 2002 11:31:19 -0700
From: uncle_ziba@yahoo.com (uncle_ziba)
Subject: newbie: Multiply picture lines in format doesn't work.
Message-Id: <377e309d.0210261031.200bf6ab@posting.google.com>
Hello, I've tried search and read through man perlform but I'm still
having a mental block with the following.
I'm trying to make a format using multiple picture lines but get an
error "Can't find string terminator "" anywhere before EOF"
here is the code:
format STDOUT =
+----------------------------------------------------+
| Check No. @>>>>>>|
| @ @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
| @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
| @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
| @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<|
| |
| Pay to the |
| order of: @<<<<<<<<<<<<<<<<<<<<<< @######.## |
| |
| For: @<<<<<<<<<<<<<<<<<<<<<<<<< Stamped Signature |
+----------------------------------------------------+
$chkno, $first, $last, $addr[1], $addr[2], $phone, $date, $payee,
$amount, $memo
.
write STDOUT;
What am I missing? The code works OK if put a variable after each
line with @ but then the code does not look readable.
TIA
--
Vasiliy
------------------------------
Date: Sat, 26 Oct 2002 14:37:29 -0400
From: Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
To: uncle_ziba <uncle_ziba@yahoo.com>
Subject: Re: newbie: Multiply picture lines in format doesn't work.
Message-Id: <Pine.A41.3.96.1021026143637.15714A-100000@vcmr-104.server.rpi.edu>
[posted & mailed]
On 26 Oct 2002, uncle_ziba wrote:
>format STDOUT =
>+----------------------------------------------------+
>| Check No. @>>>>>>|
>| @ @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
>| @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
>| @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
>| @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<|
>| |
>| Pay to the |
>| order of: @<<<<<<<<<<<<<<<<<<<<<< @######.## |
>| |
>| For: @<<<<<<<<<<<<<<<<<<<<<<<<< Stamped Signature |
>+----------------------------------------------------+
>$chkno, $first, $last, $addr[1], $addr[2], $phone, $date, $payee,
>$amount, $memo
>.
>write STDOUT;
That's a malformed format.
>What am I missing? The code works OK if put a variable after each
>line with @ but then the code does not look readable.
Uh, that's the way formats are supposed to look.
format line
variable line
format line
variable line
If you want something different, use sprintf().
--
Jeff "japhy" Pinyan RPI Acacia Brother #734 2002 Acacia Senior Dean
"And I vos head of Gestapo for ten | Michael Palin (as Heinrich Bimmler)
years. Ah! Five years! Nein! No! | in: The North Minehead Bye-Election
Oh. Was NOT head of Gestapo AT ALL!" | (Monty Python's Flying Circus)
------------------------------
Date: 26 Oct 2002 04:05:35 -0700
From: johnston.jay@mtvne.com (shambolic)
Subject: Re: pulling out text from between two strings
Message-Id: <f333df78.0210260305.5e009f56@posting.google.com>
tadmc@augustmail.com (Tad McClellan) wrote in message news:<slrnariicb.3d3.tadmc@magna.augustmail.com>...
> shambolic <johnston.jay@mtvne.com> wrote:
> > tadmc@augustmail.com (Tad McClellan) wrote in message news:<slrnarhdlo.22f.tadmc@magna.augustmail.com>...
> >> shambolic <johnston.jay@mtvne.com> wrote:
>
>
> >> if ( $doc =~ /netname(.*?)RIPE/s ) {
> >> print "$1\n";
> >> }
>
>
> > now, if it's not too much trouble, is there a regex i could employ in
> > order to match the 5th incidence of "RIPE" in the string?
>
> Here's how to do it for the 3rd occurence:
>
> --------------------------------------
> #!/usr/bin/perl
> use warnings;
> use strict;
>
> my $doc = 'stuff0 netname stuff1 RIPE
> stuff2 RIPE stuff3
> RIPE stuff4 RIPE';
>
> if ( $doc =~ /netname((?:.*?RIPE){3})/s ) {
> print "$1\n";
> }
> --------------------------------------
brilliant! that's done the trick.
thanks very much.
------------------------------
Date: Sat, 26 Oct 2002 16:06:48 GMT
From: "Bill Smith" <wksmith@optonline.net>
Subject: Re: RegExpr
Message-Id: <s4zu9.18824$D63.15162@news4.srv.hcvlny.cv.net>
"Ryan Shondell" <shondell@cis.ohio-state.edu> wrote in message
news:xcw8z0muxgu.fsf@psi.cis.ohio-state.edu...
> mary_wong1232002@yahoo.com (Mary Wong) writes:
>
--snip--
> sub check_pairs {
> my $word = shift;
> my $count;
> while ($word =~ /([a-z])\1/g) { $count++ }
> return $count >= 3;
> }
>
--snip--
or a somewhat shorter version:
sub check_pairs{
my @pairs = shift =~ /([a-z])\1/gi;
return @pairs >= 3;
}
It is unclear from the original problem whether or not
the /i is required.
Bill
------------------------------
Date: 26 Oct 2002 07:35:29 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de>
Subject: Re: Replacing string in binary file
Message-Id: <apdgk1$sto$1@nets3.rz.RWTH-Aachen.DE>
Also sprach David K. Wall:
> develop@gistenson.com wrote:
>
>> Tassilo,
> [snip]
>> You said that I should get rid of the develop@gistenson.com. I'll look
>> into how to do this and take care of it, if it poses a problem.
>
> What he said was "Also sprach develop@gistenson.com:". Note that Tassilo's
> email address is in Germany. "also sprach" is roughly equivalent to "thus
> spoke".
So that was what made him think he should get rid of something. The
false friendliness between English 'also' and German 'also' never
occured to me. :-)
Tassilo
--
$_=q!",}])(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus;})(rekcah{lrePbus;})(lreP{rehtonabus;})(rehtona{tsuJbus!;
$_=reverse;s/sub/(reverse"bus").chr(32)/xge;tr~\n~~d;eval;
------------------------------
Date: Sat, 26 Oct 2002 05:23:47 GMT
From: "techcog@acme.N3T" <techcog@acme.N3T>
Subject: Re: setreuid on AIX 5.1 with perl 5.6.1
Message-Id: <1601400.1Y6NqvUVop@gryphon>
Villy Kruse wrote:
> On Fri, 25 Oct 2002 06:20:27 GMT,
> techcog@acme.N3T <techcog@acme.N3T> wrote:
>
>
>>I've got perl 5.6.1 compiled on AIX and
>>I defined setreuid and setregid when I ran Configure.
>>
>>But when I attempt to set the REAL_USER_ID in
>>a script running as root nothing happens.
>>I do know that I can change the EFFECTIVE_USER_ID.
>>But that's not enough, I need to use setreuid.
>>
>>A small c program can call and use setreuid properly.
>>
>>So has perl been crippled on AIX? I know that in
>>previous versions of AIX setreuid was broken so
>>has some disabling bit of code been left around?
>>Or is it something else?
>>
>>
>
>
> The AIX kernel does not allow setting the real user id without
> at the same time setting the effective and saved user id to the
> same value, and that only if the effective user id is superuser
> at the time of the call. Usualy the C function setuid()
> is used for that purpose but with the right combination of
> arguments to setreuid() you can get the same result.
uid of capncrunch = 12345
as root I can do a setreuid(12345,12345)
and it does what I need; sets REAL_USER_ID = 12345
What's the problem? It's certainly not AIX.
>
> The perl view if the set?uid() function doesn't fit very well
> to this behaviour; that is, I havent found a perl construct
> that would reliable do the same as setuid(newuid) does in a
What about an ifdef for AIX ???
> C program. The POSIX::setuid on perl 5.005 isn't even close to
> the behaviour of the corresponding C function of the same name .
POSIX::setuid doesn't work either.
>
>
>
> Villy
------------------------------
Date: Sat, 26 Oct 2002 04:19:17 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Simple Question on Hash ...
Message-Id: <9Jou9.3101$IU6.448@nwrddc03.gnilink.net>
Desmond Coughlan wrote:
[...]
> #!/usr/bin/perl
> {
> my %family_colouring = {
> sister1 => "brown",
> father => "grey",
> mother => "grey",
> sister2 => "blonde",
> moi => "brown",};
>
> $test_member = $family_colouring{"sister1"};
> print $test_member ;
> }
>
> Try as I might, I cannot get that script to print. It runs, no
> problems, no error messages, but it will not print out 'brown',
> irrespective of what I do. I tried moving the braces around, I tried
> changing the name of the scalars ... :-(
You should ALWAYS use strict and warnings.
Then Perl would have told you what is wrong in your code
Reference found where even-sized list expected at C:\tmp\t.pl line 4.
use strict;
use warnings;
{
my %family_colouring = {
...
In short: replace the {} with ().
jue
------------------------------
Date: Sat, 26 Oct 2002 23:52:28 +0200
From: "Thomas Dehn" <thomas-usenet@arcor.de>
Subject: Re: Simple Question on Hash ...
Message-Id: <3dbb0f59_2@news.arcor-ip.de>
"Desmond Coughlan" <pasdespam_desmond@zeouane.org> wrote:
> {
> my %family_colouring = {
> sister1 => "brown",
> father => "grey",
> mother => "grey",
> sister2 => "blonde",
> moi => "brown",};
>
> $test_member = $family_colouring{"sister1"};
Apart from the comments others have already made,
I doubt that "sister1" will be interpreted as
the unquoted string sister 1 to which you assigend the value "brown".
Thomas
------------------------------
Date: 26 Oct 2002 07:50:48 -0700
From: paxi_9@yahoo.com (R.Padmakumar)
Subject: Sub: how to access the internet programatically across(via) an ISA firewall
Message-Id: <35ac076f.0210260650.10ef67ac@posting.google.com>
Sub: how to access the internet programatically across(via) an ISA firewall
Hi,
The Proxy that i am using is having a strictly configured ISA server
such that the internet clients (eg IE, Netscape or some customized
internet clients) needs to authenticate by giving a
1. User Name
2. Pass Word
3. Domain Name
(If i am using IE and trying to open a url, immidiatly IE prompts a
dialog for "User Name", "Pass Word" and "Domain Name" that are used
for authentication from the serverside. These credentials are normally
my emailid/password/email-domain-name)
I am trying to write a program that uses the following APIs for
accessing the internet and download a page..
//START
HINTERNET goInetHnd;
HINTERNET aoURL;
//OPEN CONNECTION
goInetHnd = ::InternetOpen (
STD_BROWSER_SIG,
INTERNET_OPEN_TYPE_PRECONFIG,
NULL, NULL, 0
);
//SPECIFY AUTHENTICATION USERNAME
strcpy (azUser,"user-name");
aiUsrLen=strlen (azUser);
InternetSetOption (goInetHnd, INTERNET_OPTION_USERNAME, azUser,
(unsigned long)aiUsrLen);
//SPECIFY AUTHENTICATION PASSWORD
strcpy (azPass, "pass-word");
aiPasLen=strlen (azPass);
InternetSetOption (goInetHnd, INTERNET_OPTION_PASSWORD, azPass,
(unsigned long)aiPasLen);
//OPEN URL
aoURL = ::InternetOpenUrl (
goInetHnd,
azUrl,
NULL, 0, 0, 0
);
//GET PAGE DATA
InternetReadFile (aoURL, azTemp, aiReadLen, &aiLen); // placed in loop
//CLOSE URL
InternetCloseHandle (aoURL);
//END
Here i donno how to specify the "domain name" authentication. There is
no option in InternetSetOption API like INTERNET_OPTION_DOMAINNAME. I
also tried by passing the domain-name along with user-name as
//SPECIFY AUTHENTICATION USERNAME
strcpy (azDomAndUser,"domain-name\\user-name"); // strcpy
(azDomAndUser,"\\domain-name\\user-name");
aiDomUsrLen=strlen (azDomAndUser);
InternetSetOption (goInetHnd, INTERNET_OPTION_USERNAME, azDomAndUser,
(unsigned long)aiDomUsrLen);
And this is also not working.. I tried with all the possible
combinations of username/password and domain name... and i couldnt get
the result
Actually, the returning page has the following text.
HTTP 407 Proxy Authentication Required - The ISA Server requires
authorization to fulfill the request. Access to the Web Proxy service
is denied. (12209)
Internet Security and Acceleration Server
This error message is very similar to the page that is obtained by
cancelling the authentication dialog.
I am in extreme need to obtain a good optimum solution for this.. if
possible by using WinInet API. Please let me know your suggestion.
Regards
R.Padmakumar
------------------------------
Date: Sat, 26 Oct 2002 13:27:26 -0400
From: "supernews" <arthur@excalibur-internet.net>
Subject: usemymalloc: Whose malloc is that?
Message-Id: <urlk2cmrpttf5f@news.supernews.com>
When compiling perl, does the config variable 'usemymalloc' when set to 'n'
use perl's malloc or the system malloc.
My confusion is over what the 'my' refers to: perl or the system. I've read
the INSTALL doc that comes with the perl 5.6.1 source tarball, but I'm still
not sure.
Does anyone know which malloc is preferred on a FreeBSD system, or does it
matter?
Thanks in advance for clearing this up for me.
Art
------------------------------
Date: 26 Oct 2002 05:45:08 -0700
From: dtk@berlin.com (donald)
Subject: Win32: Hiding console window
Message-Id: <e43f4ba.0210260445.6cec8a2c@posting.google.com>
Well I have to run my script on logon (i use win2k) and it really
iritates to have that console box displayed as script is running. I
have found some article about this:
http://www.winscriptingsolutions.com/Articles/Index.cfm?ArticleID=16299
but it seems not to work on my mashine, error follows:
Can't locate Win32API.pm in @INC (@INC contains: c:/Program
Files/PERL/lib c:/Pr
ogram Files/PERL/site/lib .) at c:/test.pl line 2.
BEGIN failed--compilation aborted at c:/test.pl line 2.
I'm new to perl but it seems i don't have some Win32API module, right?
Before I download this module, does anyone know some cleaner way of
doing this, and not using native APIs. Thanks
------------------------------
Date: Sat, 26 Oct 2002 15:34:31 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Win32: Hiding console window
Message-Id: <bCyu9.21830$wm6.21607@nwrddc01.gnilink.net>
donald wrote:
> Well I have to run my script on logon (i use win2k) and it really
> iritates to have that console box displayed as script is running. I
If you are using ActiveState Perl (you didn't mention) then call wperl.exe
instead of perl.exe.
jue
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.
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 4032
***************************************
