[17047] in Perl-Users-Digest
Perl-Users Digest, Issue: 4459 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Sep 28 14:06:06 2000
Date: Thu, 28 Sep 2000 11:05:14 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <970164313-v9-i4459@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 28 Sep 2000 Volume: 9 Number: 4459
Today's topics:
Re: [IGNORE - OFF TOPIC] Re: Controlling line length re <uri@sysarch.com>
Re: [Q] Sorting an array of arrays of references nobull@mail.com
Al Gore's Mother Invented Perl <MLCook@collins.rockwell.com>
Re: Al Gore's Mother Invented Perl <russ_jones@rac.ray.com>
Re: Al Gore's Mother Invented Perl <amonotod@netscape.net>
Re: Al Gore's Mother Invented Perl <bill.kemp@wire2.com>
Re: ASAP: How $SCALAR = $LIST <amonotod@netscape.net>
Re: ASAP: How $SCALAR = $LIST <amonotod@netscape.net>
Re: dereferencing an array from within a hash value nobull@mail.com
enter-key in forms <philipp.schill@t-online.de>
Re: Help with Unix processes. (Urgent!) <Torsten.Schindler@ccc.uni-erlangen.de>
Re: How to get length of scalar? <mcarruth@talk21.com>
Re: How to get length of scalar? <mcarruth@talk21.com>
Inconsistant cookie setting <pdmos23@geocities.com>
IO::Socket::SSL <dukman821@yahoo.com>
Re: IPC::Shareable "Munged shared memory segment" error <steven@ircnet.dk>
Re: need help with LWP/https/proxy <mbudash@sonic.net>
Re: need help with LWP/https/proxy <mbudash@sonic.net>
Re: newbie - flushing content to the browser scottfreez@my-deja.com
Re: newbie - flushing content to the browser <jeff@vpservices.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 28 Sep 2000 15:39:58 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: [IGNORE - OFF TOPIC] Re: Controlling line length read by <>
Message-Id: <x7og187cfl.fsf@home.sysarch.com>
>>>>> "NM" == Nicolas MONNET <nico@monnet.to> writes:
NM> What the fuck was Uri Guttman <uri@sysarch.com> trying to say:
>> so go away already. how many times do you have to be told?
NM> Please, please, please ... Could we start a gun-control thread
NM> instead? Oh wait, even better: an abortion thread.
why don't you shoot yourself and then go back in time and get aborted.
1/2 :)
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: 28 Sep 2000 12:47:11 +0100
From: nobull@mail.com
To: w-s@gmx.de
Subject: Re: [Q] Sorting an array of arrays of references
Message-Id: <u9itrg8sw2.fsf@wcl-l.bham.ac.uk>
w-s@gmx.de (Wolfgang Schauer) writes:
> I fruitlessly tried to sort the rows numerically ascending
> depending on a specific field like
> @array = sort {$a <=> $b} $table->[2];
FAQ: "How do I sort an array by (anything)?"
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Thu, 28 Sep 2000 09:37:45 -0500
From: "Michael L. Cook" <MLCook@collins.rockwell.com>
Subject: Al Gore's Mother Invented Perl
Message-Id: <39D357B9.62F448C5@collins.rockwell.com>
Read and vote on the story "Al Gore's Mother Invented Perl".
http://segfault.org/story.phtml?mode=2&id=39be3756-043cd9e0
------------------------------
Date: Thu, 28 Sep 2000 10:41:56 -0500
From: Russ Jones <russ_jones@rac.ray.com>
Subject: Re: Al Gore's Mother Invented Perl
Message-Id: <39D366C4.30B175A1@rac.ray.com>
"Michael L. Cook" wrote:
>
> Read and vote on the story "Al Gore's Mother Invented Perl".
>
> http://segfault.org/story.phtml?mode=2&id=39be3756-043cd9e0
Yeah, right, and Hoyt Axton's mother wrote "Heartbreak Hotel." Pull
the other one, this one's tired.
(very funny link, thanks)
--
Russ Jones - HP OpenView IT/Operatons support
Raytheon Aircraft Company, Wichita KS
russ_jones@rac.ray.com 316-676-0747
Quae narravi, nullo modo negabo. - Catullus
------------------------------
Date: Thu, 28 Sep 2000 16:05:58 GMT
From: amonotod <amonotod@netscape.net>
Subject: Re: Al Gore's Mother Invented Perl
Message-Id: <8qvq8v$8b3$1@nnrp1.deja.com>
In article <39D357B9.62F448C5@collins.rockwell.com>,
"Michael L. Cook" <MLCook@collins.rockwell.com> wrote:
> Read and vote on the story "Al Gore's Mother Invented Perl".
>
> http://segfault.org/story.phtml?mode=2&id=39be3756-043cd9e0
>
If Al Gore's mom 'invented' Perl, it must've been as a nickname for
Gore himself:
Pitiful excuse (for) real life
Pathetically extraneous rabid loser
Pious excelling rectal licker
Color me independent conservative,
amonotod
--
`\|||/ amonotod@
(@@) netscape.net
ooO_(_)_Ooo________________________________
_____|_____|_____|_____|_____|_____|_____|_____|
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 28 Sep 2000 17:19:07 +0100
From: "W Kemp" <bill.kemp@wire2.com>
Subject: Re: Al Gore's Mother Invented Perl
Message-Id: <970158224.13822.0.nnrp-01.c3ad6973@news.demon.co.uk>
Who's Al Gore.
Remember the world doesn't take part in "the world series".
------------------------------
Date: Thu, 28 Sep 2000 15:19:23 GMT
From: amonotod <amonotod@netscape.net>
Subject: Re: ASAP: How $SCALAR = $LIST
Message-Id: <8qvnhh$5tl$1@nnrp1.deja.com>
In article <MPG.143d434f6a4c0ba79897d4@localhost>,
jason <elephant@squirrelgroup.com> wrote:
> amonotod wrote ..
> >You already have... $columns is a scalar value of the number of
fields
> >in $properties->{columns}, and @columns is an array (with a hash as
the
> >first field).
>
> look again amonotod .. $properties->{columns} contains a reference to
an
> empty list .. which is also what $columns contains
>
> >Try :
> >print $columns ,"\n";
>
> I think you should try this .. you might see the error of your ways ;)
>
> --
> jason -- elephant@squirrelgroup.com --
>
I apologize for my hasty, and apparently incorrect, post. OP, please
read the rest of the thread...
amonotod
--
`\|||/ amonotod@
(@@) netscape.net
ooO_(_)_Ooo________________________________
_____|_____|_____|_____|_____|_____|_____|_____|
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 28 Sep 2000 15:29:50 GMT
From: amonotod <amonotod@netscape.net>
Subject: Re: ASAP: How $SCALAR = $LIST
Message-Id: <8qvo52$6f0$1@nnrp1.deja.com>
In article <m3hf719qu2.fsf@dhcp11-177.support.tivoli.com>,
Ren Maddox <ren.maddox@tivoli.com> wrote:
> jason <elephant@squirrelgroup.com> writes:
>
> > amonotod wrote ..
> > >In article <39D259DC.7DE580A8@webimpact.com>,
> > > Don Vaillancourt <donv@webimpact.com> wrote:
> > >> How to I get the number of elements in a list that is only
accessible
> > >> through a reference from a scalar.
> > >>
> > >> I have the following of code:
> > >>
> > >> $properties->{columns}=[];
> > >> $columns=$properties->{columns};
> > >>
> > >> $columns->[0]={"name" => "delete",
> > >> "type" => $NUMBER,
> > >> "size" => 1,
> > >> "unique" => $FALSE,
> > >> "primary_key" => $FALSE,
> > >> "required" => $TRUE,
> > >> "allow_null" => $FALSE};
> > >>
> > >> How do I find how many elements the list pointed to by
> > >> $properties->{columns} contains.
> > >
> > >You already have... $columns is a scalar value of the number of
fields
> > >in $properties->{columns}, and @columns is an array (with a hash as
the
> > >first field).
> >
> > look again amonotod .. $properties->{columns} contains a reference
to an
> > empty list .. which is also what $columns contains
> >
> > >Try :
> > >print $columns ,"\n";
> >
> > I think you should try this .. you might see the error of your ways
;)
>
> You neglected to quote the very next thing that amonotod wrote:
>
> > >At this point, since you had
> > >$properties->{columns}=[]; #This is empty, as in 0 fields.
> > >
> > >you should get
> > >
> > >
> > >Yeah, nothing.
>
> (Except that you should get "0", not nothing.)
Well, in my experience, anytime I print a 0 value, I get a null print.
>
> amonotod's point was that the OP had code that basically gave him what
> he wanted, he just needed to use it at the right time in the right
> place.
>
> --
> Ren Maddox
> ren@tivoli.com
>
Vindicated!, if only partially...
Thanks, Ren.
amonotod
--
`\|||/ amonotod@
(@@) netscape.net
ooO_(_)_Ooo________________________________
_____|_____|_____|_____|_____|_____|_____|_____|
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 28 Sep 2000 17:33:14 +0100
From: nobull@mail.com
Subject: Re: dereferencing an array from within a hash value
Message-Id: <u98zsc8oj9.fsf@wcl-l.bham.ac.uk>
abigail@foad.org (Abigail) writes:
> nobull@mail.com (nobull@mail.com) wrote on MMDLXXXV September MCMXCIII in
> <URL:news:u9lmwc92bl.fsf@wcl-l.bham.ac.uk>:
> {}
> {} In that case you'll also need:
> {}
> {} local @" = ', ';
>
>
> And the purpose of this might be... ?
Opps, of course I meant:
local $" = ', ';
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Thu, 28 Sep 2000 19:11:50 +0200
From: "Philipp Schill" <philipp.schill@t-online.de>
Subject: enter-key in forms
Message-Id: <8qvu27$dur$10$1@news.t-online.com>
hi everybody,
does anyone know how the enter-key is linked with forms? I know pages where
i can press enter and the form will be submitted, on other pages it doesn't
work. how can i activate this function ?
waiting for reply... ;-)
phil.
------------------------------
Date: Thu, 28 Sep 2000 17:39:38 +0200
From: Torsten Schindler <Torsten.Schindler@ccc.uni-erlangen.de>
Subject: Re: Help with Unix processes. (Urgent!)
Message-Id: <39D3663A.C3CD1614@ccc.uni-erlangen.de>
This is a multi-part message in MIME format.
--------------4029FEA7D8DE17627F1286A3
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hallo Kent Perrier,
>
> This may be the "better" solution in the long term. This way, the processing
> code will not have to change if you get access to a 4 (or 8 or 16 or 64..)
> CPU box to process your data on.
>
We have already NQS on our system, but I want to do it in Perl.
Any suggestions to improve my simple OO version I have attached?
Regards,
Torsten
--------------4029FEA7D8DE17627F1286A3
Content-Type: text/plain; charset=us-ascii;
name="Workprocessor.pm"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="Workprocessor.pm"
package Workprocessor;
use Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(init start);
use strict;
my $debug = 1;
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = {
'NPROCESS' => undef, # Number of concurrent processes to use
'WORKUNITS' => [], # Array of jobs to run
};
bless $self, $class;
$self->init(@_) if (defined @_);
return $self;
}
sub init {
my $self = shift;
my ($nprocess,$workunits) = @_;
$self->{'NPROCESS'} = $nprocess;
@{$self->{'WORKUNITS'}} = @{$workunits}; # List of Workunits
return 1;
}
sub start_job {
my $job = shift;
my $pid;
unless (defined($pid = fork)) {
die "fork of process failed: $!";
}
unless($pid) {
$job->start();
}
return $pid;
}
sub start {
my $self = shift;
my %running;
my $job;
my $pid;
while (keys %running < $self->{'NPROCESS'} and scalar(@{$self->{'WORKUNITS'}}) > 0) {
$job = shift @{$self->{'WORKUNITS'}}; # Remove job from array
$pid = &start_job($job);
print "Starting job ($pid): ", $job->name(), "\n" if $debug;
$running{$pid} = $job;
}
# --- Version with signal handler ---
$SIG{"CHLD"} = sub {
if (scalar(@{$self->{'WORKUNITS'}}) > 0) {
$job = shift @{$self->{'WORKUNITS'}}; # Remove job from array
$pid = &start_job($job);
print "Starting job ($pid): ", $job->name(), "\n" if $debug;
$running{$pid} = $job;
}
};
while (keys %running > 0 or scalar(@{$self->{'WORKUNITS'}}) > 0) {
foreach my $process (keys %running) {
$pid = waitpid($process,0); # Harvest a child
print "Finished job ($pid): ", ($running{$pid})->name(), "\n" if $debug;
delete $running{$pid}; # Update our record of children
}
}
# --- Version without signal handler ---
# while (keys %running > 0 or scalar(@{$self->{'WORKUNITS'}}) > 0) {
# foreach my $process (keys %running) {
# $pid = waitpid($process,0); # Harvest a child
# print "Finished job ($pid): ", ($running{$pid})->name(), "\n" if $debug;
# delete $running{$pid}; # Update our record of children
#
# if (scalar(@{$self->{'WORKUNITS'}}) > 0) {
# $job = shift @{$self->{'WORKUNITS'}};
# print "Starting job ($pid): ", $job->name(), "\n" if $debug;
# $pid = &start_job($job);
# $running{$pid} = $job;
# }
# }
# }
}
1;
--------------4029FEA7D8DE17627F1286A3
Content-Type: text/plain; charset=us-ascii;
name="Workunit.pm"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="Workunit.pm"
package Workunit;
use Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(init start name);
use strict;
sub new {
my $proto = shift;
my $class = ref($proto) || $proto;
my $self = {
'JOB' => undef,
};
bless $self, $class;
$self->init(@_) if (defined @_);
return $self;
}
sub init {
my $self = shift;
my $job = shift;
$self->{'JOB'} = $job;
return 1;
}
sub start {
my $self = shift;
if (ref ($self->{'JOB'}) eq "SCALAR") {
exec ${$self->{'JOB'}};
exit 0;
}
else {
&{$self->{'JOB'}};
exit 0;
}
}
sub name {
my $self = shift;
if (ref ($self->{'JOB'}) eq "SCALAR") {
return "${$self->{'JOB'}}";
}
else {
return "$self->{'JOB'}";
}
}
1;
--------------4029FEA7D8DE17627F1286A3
Content-Type: application/x-perl;
name="check.pl"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
filename="check.pl"
#!/usr/local/bin/perl -w
use Workunit;
use Workprocessor qw(start);
use strict;
# Flush on
$| = 1;
my $vamprun = "vamprun ";
my $flags = "-i ";
my @molecule = qw(test_md2 test_md1 test_md3 test_md4 test_md5);
# Set the number of concurrent processes to use
my $njobs = 2;
# Initialize array with workunits
my @work_units;
foreach my $mol (@molecule) {
# Build up my command line
my $calc = $vamprun.$flags.$mol.' >/dev/null 2>&1 ';
#
push(@work_units,new Workunit(\$calc)); # The Workunit needs a function or a ref to
} # a SCALAR
# Create a work processor
my $processor = new Workprocessor($njobs,\@work_units);
# And process the work
$processor->start;
--------------4029FEA7D8DE17627F1286A3--
------------------------------
Date: Thu, 28 Sep 2000 18:10:51 +0100
From: "Mark Carruth" <mcarruth@talk21.com>
Subject: Re: How to get length of scalar?
Message-Id: <8qvu41$sb9$1@neptunium.btinternet.com>
As a large proportion of the Internet is centered around HTML, I think it is
a good idea that whatever programme anyone writes to talk to an NNTP server
has some form of HTML parser built in.
And, yes URI, my message DID contain some information but as you people
don't seem to care about what I have to say, I shan't bother helping people
any more.
--
-----------------------------------------------
Mark Carruth
mcarruth@talk21.com
"Mark Carruth" <mcarruth@talk21.com> wrote in message
news:8qthfc$26d$1@uranium.btinternet.com...
Why is it you people have such a problem with HTML. Either, get a decent
mail client for Windows, or if you use Unix and you are such a bloody genius
at it to go criticising other people, make yourself a f*c*i*g HTML parser
that will work on Windows.
You will notice that this message is in plain text for you "Challenged"
people.
--
-----------------------------------------------
Mark Carruth
mcarruth@talk21.com
"Uri Guttman" <uri@sysarch.com> wrote in message
news:x7u2b28o07.fsf@home.sysarch.com...
did you actually have anything to say? or was it lost in the sea of html
crap?
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Thu, 28 Sep 2000 18:22:58 +0100
From: "Mark Carruth" <mcarruth@talk21.com>
Subject: Re: How to get length of scalar?
Message-Id: <8qvur2$4il$1@uranium.btinternet.com>
The reason I post HTML is that I use Outlook Express to look at these
newsgroups, and I also use Outlook Express to read my mail.
As I send all my emails (which are part of my LIFE Uri) using HTML, the
programme sends all my posts in HTML. I never have people moaning about HTML
in Email so I don't know why I should change.
--
-----------------------------------------------
Mark Carruth
mcarruth@talk21.com
"Mark Carruth" <mcarruth@talk21.com> wrote in message
news:8qthfc$26d$1@uranium.btinternet.com...
Why is it you people have such a problem with HTML. Either, get a decent
mail client for Windows, or if you use Unix and you are such a bloody genius
at it to go criticising other people, make yourself a f*c*i*g HTML parser
that will work on Windows.
You will notice that this message is in plain text for you "Challenged"
people.
--
-----------------------------------------------
Mark Carruth
mcarruth@talk21.com
"Uri Guttman" <uri@sysarch.com> wrote in message
news:x7u2b28o07.fsf@home.sysarch.com...
did you actually have anything to say? or was it lost in the sea of html
crap?
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Thu, 28 Sep 2000 16:58:04 GMT
From: Pasquale <pdmos23@geocities.com>
Subject: Inconsistant cookie setting
Message-Id: <39D37937.A804553B@geocities.com>
Hoping some experienced eyes may see something I don't. Code & details
below.
My problem is, sometimes the cookie is set and sometimes it doesn't. Or
I have to do it more than once. The reason I think it is the setting
and not the getting is because after I set the cookie I go and see if
the file has been created and it isn't.
Once the cookie is set with the info I haven't had a problem getting the
info.
I have read docs and even looked at other scripts to compare, but
nothing. Any help would be much appreciated.
Thanks
Pasquale
I have setup a pop-up page with 3 fields of info to be filled out and
have put/set in a cookie, so the info can be used throughout the site
for other request forms without the user always filling out the same
info each request. To set the cookie from this "info" page, I use a
small script to do this;
## pretty much the full script below for setting cookie
use strict;
my $from = form input;
my $fname = form input;
my $lname = form input;
print "Set-Cookie: e-mail=$from; expires=31-Dec-2000 00:00:00 GMT\n";
print "Set-Cookie: firstname=$fname; expires=31-Dec-2000 00:00:00
GMT\n";
print "Set-Cookie: lastname=$lname; expires=31-Dec-2000 00:00:00
GMT\n";
print "Content-type: text/html\n\n";
print <<HTML;
<html>
<head>
<title>Thank you</title>
</head>
<body>
<font face="arial"><b>
Thank you for filling out the information.<br>
You may now <a href="javascript:close()">close</a> this window.
</font></b>
</body>
</html>
HTML
## end setting cookie script
The code I use to get the cookie info, is a sub that is called at the
top of the script which is used to process all the different request
forms. I have it setup like this;
## request form script & cookie getter
my %crumbles;
&GetCookie;
...... #variables
....... # some conditional stmts & e-mailing
## this is near the bottom of the script
sub GetCookie {
if ($ENV{'HTTP_COOKIE'}) {
my @cookies = split(/; /, $ENV{'HTTP_COOKIE'});
my $cookie;
foreach $cookie(@cookies) {
my($name, $value) = split(/=/, $cookie);
$crumbles{$name} = $value;
}
}
}
## end of request form script
Already mentioned above....
My problem is, sometimes the cookie is set and sometimes it doesn't. Or
I have to do it more than once. The reason I think it is the setting
and not the getting is because after I set the cookie I go and see if
the file has been created and it isn't. Once the cookie is set with the
info I haven't had a problem getting the info.
I have read docs and even looked at other scripts to compare, but
nothing. Any help would be much appreciated.
Thanks
Pasquale
------------------------------
Date: Thu, 28 Sep 2000 17:29:39 GMT
From: Donald <dukman821@yahoo.com>
Subject: IO::Socket::SSL
Message-Id: <8qvv5s$c8h$1@nnrp1.deja.com>
Currently I am attempting to build support into a program which will
allow the retrieval of https:// pages. I am using IO::Socket::SSL for
this support. The problem that I am having is not being able to define
an IO::Socket::SSL object. Whenever I do for example
$newSSLSocket = IO::Socket::SSL->new( Listen => 5,
LocalAdddr => 'localhost',
LocalPort => 9000,
Proto => 'tcp',
);
$newSSLSocket comes back as undefined. I have also attempted to test
out the examples that are located in the package under the 't'
and 'demo' sub-dirs. Each example gives me an error of 'Unable to
create a IO::Socket::SSL object' which is given because of the
undefined value returned from the IO::Socket::SSL->new() method. I have
tested IO::Socket->new() and do not receive an undefined value using
that method. I'm wondering if anyone has had the same problem w/ the
IO::Socket::SSL package.
I am using IO-Socket-SSL-0.75 w/ Net_SSLeay.pm-1.05 based on the
OpenSSL 0.9.6 libs. Also I am using perl v5.6.0.
Does anyone have any suggestions on what to do, or any other solutions
that I can use to support SSL w/o using LWP.
Thanks in advance for any help you can provide!
- Donald
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 28 Sep 2000 15:38:43 GMT
From: steven <steven@ircnet.dk>
Subject: Re: IPC::Shareable "Munged shared memory segment" errors
Message-Id: <8qvom2$6vi$1@nnrp1.deja.com>
In article <8p68ln$caf$1@nnrp1.deja.com>,
steinra@my-deja.com wrote:
> > I've had no luck at all sharing hashes with IPC::Shareable. When I
> insert
> > or delete to a hash in one process, the change isn't seen in other
> processes
> > that are sharing the hash.
Interesting. My changes and additions are being propogated, just when I
delete a key and attempt to access it again in any way do I get munged
shared memory segment errors. I just tried installing IPC::Shareable
0.51 on Solaris 7 today actually and got the same errors upon testing.
I've spent too much time looking at it now and just cannot get it to
work under mod_perl properly - but the docs _do_ say it's alpha
software, so I guess I can't complain too much. It mostly works, just
the important bit doesn't ;) I'm going to try with IPC::SharedCache at
the weekend, and I'll let you know the outcome.
Cheers,
--
steven
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 28 Sep 2000 09:13:25 -0700
From: Michael Budash <mbudash@sonic.net>
Subject: Re: need help with LWP/https/proxy
Message-Id: <mbudash-D3DD63.09132528092000@news.pacbell.net>
In article <8qvh8v$gc873$1@fu-berlin.de>, w-s@gmx.de (Wolfgang Schauer)
wrote:
> mbudash@sonic.net (Michael Budash) wrote in
> <tzuA5.80$QH1.85022@news.pacbell.net>:
>
> >hey all -
> >
> >has anyone out there ever used LWP to access a secure url thru a proxy? i
> >encounter a "communications error (-8192)" when doing so... anybody got a
> >clue? this is a high profile project at my current contract - i'd like to
> >come out a hero!
>
> there is a bug in libwww concernig https through a proxy server, you might
> want to check
> http://www.ics.uci.edu/pub/websoft/libwww-perl/archive/2000h1/0419.html
> or
> http://www.ics.uci.edu/pub/websoft/libwww-perl/archive/2000h2/0163.html
>
> Regards,
>
> Wolfgang
thank you so VERY much - i'll try the patch(es) today and let everyone
know...
usenet ROCKS!!
--
Michael Budash ~~~~~~~~~~ mbudash@sonic.net
------------------------------
Date: Thu, 28 Sep 2000 09:15:03 -0700
From: Michael Budash <mbudash@sonic.net>
Subject: Re: need help with LWP/https/proxy
Message-Id: <mbudash-A5EB99.09150328092000@news.pacbell.net>
In article <st5j9d2bq92s44@corp.supernews.com>, "Dale Emmons"
<dale@emmons.dontspamme.com> wrote:
> "Michael Budash" <mbudash@sonic.net> wrote in message
> news:tzuA5.80$QH1.85022@news.pacbell.net...
> > hey all -
> >
> > has anyone out there ever used LWP to access a secure url thru a proxy?
> > i
> > encounter a "communications error (-8192)" when doing so... anybody got
> > a
> > clue? this is a high profile project at my current contract - i'd like
> > to
> > come out a hero!
> >
> > tia -
> > michael
>
> I've never done that way, but you might try this: get a script to
> retrieve a
> page through ssl via LWP. Once you can do that, try to get a page through
> a
> proxy. Then combine the two. Divide and conquer. BTW: I suspect that the
> proxy is what's causing the problem. Maybe you should tackle that
> first...
>
>
actually, it turns out that LWP is the culprit (see Wolfgang Schauer's
post in this thread). this was confirmed by my client's (morgan stanley
dean witter online - msdwonline.com) proxy expert yesterday...
thanks!
--
Michael Budash ~~~~~~~~~~ mbudash@sonic.net
------------------------------
Date: Thu, 28 Sep 2000 17:14:57 GMT
From: scottfreez@my-deja.com
Subject: Re: newbie - flushing content to the browser
Message-Id: <8qvuad$bak$1@nnrp1.deja.com>
Whatever........I guess the fact that the program is written in Perl
has nothing to do with my reasons for posting it here? The question
still remains if anyone cares to answer.
TIA,
scottfreez
In article <39D16392.B4F1579D@myself.com>,
simonis@myself.com wrote:
> scottfreez@my-deja.com wrote:
> >
> > I'm writing a link checker that loops through an array of links,
checks
> > them and then outputs the results to the browser as well as a
database.
> >
> > As my list of links is up around 60,000, I'd like to be able to have
> > the results of each iteration of the checker loop sent straight to
the
> > browser. Or, maybe break them into chunks of 50 or 100. As it stands
> > now, it flushes periodically and I'm not sure what is causing it to
do
> > this. Can someone either tell me 1) how to control the flushing, or
2)
> > what causes the server/program(?) to flush the results? I'm running
the
> > program on IIS.
> >
> > Any insight would be much appreciated.
>
> Any Perl or perl related question equally appreciated. Yours isn't.
> Best bet is to check a CGI group, such as:
>
> comp.infosystems.www.authoring.cgi
>
> HAND
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 28 Sep 2000 10:52:55 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: newbie - flushing content to the browser
Message-Id: <39D38577.50977231@vpservices.com>
scottfreez@my-deja.com wrote:
>
> In article <39D16392.B4F1579D@myself.com>,
> simonis@myself.com wrote:
> > scottfreez@my-deja.com wrote:
> > >
> > > As my list of links is up around 60,000, I'd like to be able to have
> > > the results of each iteration of the checker loop sent straight to
> > > browser.
> > > ...
> > > Any insight would be much appreciated.
> >
> > Any Perl or perl related question equally appreciated. Yours isn't.
> > Best bet is to check a CGI group, such as:
> >
> > comp.infosystems.www.authoring.cgi
>
> Whatever........
I see, you call yourself a newbie but you won't take an experienced
user's advice on where to find the answer to your question. That bodes
well.
> I guess the fact that the program is written in Perl
> has nothing to do with my reasons for posting it here?
So, in other words, if you write a program in Perl that keeps track of
how many canoes a business rents, you should ask questions about boats
in the Perl newsgroup?
> The question
> still remains if anyone cares to answer.
Here is the sum total of the Perl answer: put $|++ at the top of your
script. That does as much as Perl can do to flush the buffer contents.
If you want to find out why that will probably have very little impact
on your users' experience, go to the group that Drew pointed you towards
because they are the ones who discuss the fact that buffering can be
implemented by web servers, by proxies, by browsers and that therefore
any flushing in the CGI script (whether it is Perl or not) is only a
small part of the picture.
> > > what causes the server/program(?) to flush the results? I'm running
> > > the program on IIS.
That's a good question, but how IIS operates, and how servers flush or
buffer data is a question for a newsgroup about servers and/or CGI, not
for a newsgroup about Perl. One person has already posted a misleading
HTTPD related answer to your question. But to even go into why their
answer is misleading would take a detailed discussion of web serving and
that is better carried out in a place where web serving experts hang
out.
--
Jeff
------------------------------
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 V9 Issue 4459
**************************************
