[13672] in Perl-Users-Digest
Perl-Users Digest, Issue: 1082 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 15 16:17:53 1999
Date: Fri, 15 Oct 1999 13:17:36 -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: <940018656-v9-i1082@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 15 Oct 1999 Volume: 9 Number: 1082
Today's topics:
Use Perl to Close File In Use on NT? <smontgomery@digitalblaze.net>
Re: Use Perl to Close File In Use on NT? <dwoods@ucalgary.ca>
Re: use strict <gellyfish@gellyfish.com>
Re: use strict <cassell@mail.cor.epa.gov>
Using LWP to perform an LADP Query <lucp@nortelnetworks.com>
Re: Using LWP to perform an LADP Query mike808@mo.net
Re: Using LWP to perform an LADP Query <gisle@aas.no>
Re: Using LWP to perform an LADP Query <cw@dwc.ch>
Re: Using Net::Ping troubles (Lars Erik Kolden)
Re: Using Net::Ping troubles (Anno Siegel)
Re: Using Net::Ping troubles <l.e.kolden@hfstud.uio.no>
Re: Using Net::Ping troubles (Anno Siegel)
Re: Using Net::Ping troubles <l.e.kolden@hfstud.uio.no>
Re: Using Perl to add line nums? (Craig Berry)
using Tie::IxHash with nested hash tables (Peter Bismuti)
using Tie::IxHash with nested hash tables (Peter Bismuti)
Re: using Tie::IxHash with nested hash tables (Peter Bismuti)
Re: using Tie::IxHash with nested hash tables (Peter Bismuti)
Re: using Tie::IxHash with nested hash tables <david@gigawatt.com>
Vegas Info for the Comdex-bound <keithp@execpc.com>
Re: Vegas Info for the Comdex-bound (brian d foy)
Re: Vegas Info for the Comdex-bound <cassell@mail.cor.epa.gov>
Re: We do complex Perl Programming at very competetive (Kragen Sitaker)
What does $| = 1 mean? <kilminjaro@hotmail.com>
Re: What does $| = 1 mean? (Bill Moseley)
Re: What does $| = 1 mean? <msalter@bestweb.net>
Re: What does $| = 1 mean? (Brett W. McCoy)
Re: What does $| = 1 mean? <emschwar@rmi.net>
What is best..? <u2orange@bigfoot.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 11 Oct 1999 19:32:08 -0600
From: "Sean Montgomery" <smontgomery@digitalblaze.net>
Subject: Use Perl to Close File In Use on NT?
Message-Id: <N1SM3.317$Jc.1474@newsfeed.slurp.net>
I need to be able to write a Perl script that allows closing a file on a
remote NT server (NT4). In other words, I am on server A and somebody has
the file 'somefile.exe' open on server B. Is it possible that Perl can
close this file handle? The problem is that we are attempting to replace
'somefile.exe' with an updated version, and it fails because the file is in
use. I can manually close the file through File Manager or Server Manager,
but we'd like to automate this process.
Any help is appreciated.
Sean Montgomery
------------------------------
Date: Wed, 13 Oct 1999 13:56:05 -0700
From: Dan Woods <dwoods@ucalgary.ca>
Subject: Re: Use Perl to Close File In Use on NT?
Message-Id: <7u2ob6$k6e@ds2.acs.ucalgary.ca>
I can't help you with NT, but on UNIX you normally just
move the file (rename) and then install the new program.
The old program will still be in use until users log
off, so you can't delete it until later. However all
new users will use the new program.
Thanks...Dan.
http://www.4loops.com
------------------------------
Date: 12 Oct 1999 20:04:30 -0000
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: use strict
Message-Id: <7u048e$1la$1@gellyfish.btinternet.com>
On 11 Oct 1999 22:51:36 GMT Greg Bacon wrote:
> In article <3802748F.70F65541@trespass.net>,
> Frank Hale <frankhale@trespass.net> writes:
>
> : I am in the process of writing a cgi application. I am relatively new to
> : perl and would like to know if I should use the "-w" option and "use
> : strict;" in all my scripts? Is it bad practice to not use these?
>
> Yes, yes, no, and yes. The only time that I don't enable -w and use
> strict is when I'm writing a quick one-off.
I find that I just carry on typing
i#!/usr/bin/perl -w<enter><enter>use strict;<enter><enter><esc> after
vi <filenmae> nowadays whatever I am doing without even thinking about it...
/J\
--
Jonathan Stowe <jns@gellyfish.com>
<http://www.gellyfish.com>
Hastings: <URL:http://dmoz.org/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Tue, 12 Oct 1999 15:37:33 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: use strict
Message-Id: <3803B82D.38A52A87@mail.cor.epa.gov>
Tom Phoenix wrote:
>
> On 11 Oct 1999, Jeff Zucker wrote:
>
> > Also you might want "use diagnostics" although it is less important.
>
> You should not "use diagnostics" in production code, although it's fine
> during development. It adds around 500ms to an empty program's startup
> time, at least on my machine. Cheers!
A valid point. But suggesting "use diagnostics" to a beginner
having trouble with error messages sounds like a *good* idea
to me. Well, I advise doing so on a regular basis, so I had
better think it's a good idea.
But clearly, leaving it in when running that debugged CGI
script has a big downside. :-)
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Thu, 14 Oct 1999 11:14:59 -0400
From: "Luc Poirier" <lucp@nortelnetworks.com>
Subject: Using LWP to perform an LADP Query
Message-Id: <7u4s52$j2b$1@bmerhc5e.ca.nortel.com>
I'm having great difficulty trying to perform ldap queries through a cgi on
a Windows NT machine. My last ditch effort was to use the LWP module and try
to "webafy" my query...
Here's the code:
use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
$ldap_string = "ldap://myserver/and query params that work when I cut and
paste into netsacpe";
my $req = HTTP::Request->new( 'GET' => $ldap_string );
my $res = $ua->request($req);
print "Error: " . $res->status_line . "\n";
print "result: $res->content\n";
Here's the error I get when I hard code values and run from command line:
Error: 501 Protocol scheme 'ldap' is not supported
This leads me to believe that LWP doesn't support an ldap:// request. Can
anyone offer me any suggestions (well, apart from doing it on Unix -
although I know it would be easier to do on Unix)?
I'm running ActiveState's Perl 5.005_03 for Win32. On and NT 4 server.
Thanks in advance for your time,
Luc
------------------------------
Date: Thu, 14 Oct 1999 18:22:39 GMT
From: mike808@mo.net
Subject: Re: Using LWP to perform an LADP Query
Message-Id: <7u570r$qe$1@nnrp1.deja.com>
In article <7u4s52$j2b$1@bmerhc5e.ca.nortel.com>,
"Luc Poirier" <lucp@nortelnetworks.com> wrote:
> This leads me to believe that LWP doesn't support an ldap:// request.
You need to 'implement' the LDAP protocol for LWP.
Look at the connection protocols (I think Gisle Aas wrote them). You
just need to add an LDAP.pm in ($SITELIB)/LWP/Protocols/ that probably
uses the Net::LDAP modules. Read the other protocols are implemented
for hints.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 14 Oct 1999 22:18:26 +0200
From: Gisle Aas <gisle@aas.no>
Subject: Re: Using LWP to perform an LADP Query
Message-Id: <m3n1tld7cd.fsf@eik.g.aas.no>
mike808@mo.net writes:
> In article <7u4s52$j2b$1@bmerhc5e.ca.nortel.com>,
> "Luc Poirier" <lucp@nortelnetworks.com> wrote:
> > This leads me to believe that LWP doesn't support an ldap:// request.
>
> You need to 'implement' the LDAP protocol for LWP.
> Look at the connection protocols (I think Gisle Aas wrote them). You
> just need to add an LDAP.pm in ($SITELIB)/LWP/Protocols/ that probably
> uses the Net::LDAP modules.
This module is already written:
$ perl -MCPAN -eshell
cpan shell -- CPAN exploration and modules installation (v1.50)
ReadLine support enabled
cpan> i LWP::Protocol::ldap
Module id = LWP::Protocol::ldap
CPAN_USERID GBARR (Graham Barr <gbarr@pobox.com>)
CPAN_VERSION undef
CPAN_FILE GBARR/perl-ldap-0.13.tar.gz
INST_FILE (not installed)
This means that if you just install 'perl-ldap', then request with
ldap URLs should work trough LWP.
--
Gisle Aas
------------------------------
Date: Thu, 14 Oct 1999 19:20:54 +0200
From: Christoph Wernli <cw@dwc.ch>
Subject: Re: Using LWP to perform an LADP Query
Message-Id: <380610F6.5AFBE724@dwc.ch>
Luc Poirier wrote:
>
> Error: 501 Protocol scheme 'ldap' is not supported
>
> This leads me to believe that LWP doesn't support an ldap:// request. Can
> anyone offer me any suggestions (well, apart from doing it on Unix -
> although I know it would be easier to do on Unix)?
You'll have to use PerLDAP, available from http://www.mozilla.org/directory/perldap.html
-w
------------------------------
Date: Thu, 14 Oct 1999 09:51:09 GMT
From: l.e.kolden@hfstud.uio.no (Lars Erik Kolden)
Subject: Re: Using Net::Ping troubles
Message-Id: <3805a752.9574838@nntp.uio.no>
On 29 Sep 1999 16:09:58 +0100, Jonathan Stowe
<gellyfish@gellyfish.com> wrote:
>Patrick Blalock <pblalock@orgtek.com> wrote:
>> I was trying to write some utilities using Perl and the Net::Ping module. I
<cut>
>>> ping.pl
>> Bad arg length for Socket::unpack_sockaddr_in, length is 0, should be 16 at
>> /usr/lib/perl5/5.00503/i386-linux/Socket.pm line 295.
>>
>> I'm running Red Hat Linux 6.0 and Perl 5.005_03, does anyone know what the
>> problem with this script is?
>>
>
<cut>
>reports. I would recommend that you get the source code for Perl and
>compile it yourself rather than use the Redhat RPM.
That is very strange. Although I have Redhat 6.0 (that seems to be a
common denominator), I can't get it to work even if I compile and
install the source package (and yes, I did rpm -e the old one).
The problem seems to be with udp, but if I try to use tcp it returns 0
both if the remote host is alive or dead.
If I try to run new with "icmp" as protocol it works excellent, but
that is not what I want!
Any ideas on this?
Best regards,
Lars Erik Kolden
------------------------------
Date: 14 Oct 1999 12:03:11 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Using Net::Ping troubles
Message-Id: <7u4gpv$cia$1@lublin.zrz.tu-berlin.de>
Lars Erik Kolden <l.e.kolden@hfstud.uio.no> wrote in comp.lang.perl.misc:
>On 29 Sep 1999 16:09:58 +0100, Jonathan Stowe
><gellyfish@gellyfish.com> wrote:
>
>>Patrick Blalock <pblalock@orgtek.com> wrote:
>>> I was trying to write some utilities using Perl and the Net::Ping module. I
><cut>
>>>> ping.pl
>>> Bad arg length for Socket::unpack_sockaddr_in, length is 0, should be 16 at
>>> /usr/lib/perl5/5.00503/i386-linux/Socket.pm line 295.
>>>
>>> I'm running Red Hat Linux 6.0 and Perl 5.005_03, does anyone know what the
>>> problem with this script is?
>>>
>>
><cut>
>>reports. I would recommend that you get the source code for Perl and
>>compile it yourself rather than use the Redhat RPM.
>
>That is very strange. Although I have Redhat 6.0 (that seems to be a
>common denominator), I can't get it to work even if I compile and
>install the source package (and yes, I did rpm -e the old one).
>
>The problem seems to be with udp, but if I try to use tcp it returns 0
>both if the remote host is alive or dead.
>
>If I try to run new with "icmp" as protocol it works excellent, but
>that is not what I want!
>
>Any ideas on this?
Oh... I think we had this before, a few months ago. Let's see what
I remember.
Experimentally, tcp ping works for all sorts of hosts, except for
linux partners, where it declares the host dead, no matter what.
I don't remember whether the occasional error message with 'udp'
was discussed. I see it here too, with one linux partner, but not
with another. Go figure.
The bottom line was, the only reliable ping is icmp ping. Take it
(possibly including the setuid to root), or leave it.
Anno
------------------------------
Date: Fri, 15 Oct 1999 11:06:24 +0200
From: Lars Erik <l.e.kolden@hfstud.uio.no>
Subject: Re: Using Net::Ping troubles
Message-Id: <3806EE90.1D1B2112@hfstud.uio.no>
Anno Siegel wrote:
>
> Oh... I think we had this before, a few months ago. Let's see what
> I remember.
>
> Experimentally, tcp ping works for all sorts of hosts, except for
> linux partners, where it declares the host dead, no matter what.
>
> I don't remember whether the occasional error message with 'udp'
> was discussed. I see it here too, with one linux partner, but not
> with another. Go figure.
>
> The bottom line was, the only reliable ping is icmp ping. Take it
> (possibly including the setuid to root), or leave it.
>
That's too bad, because I'm running Net::FTP too, and that package
doesn't seem do anything reasonable when run with a setuid-wrapper.
But I'll post that in a different message. Thanks for your response,
anyway.
Lars Erik
--
Lars Erik Kolden http://bug.fix.no
+47 22 18 71 79 l.e.kolden@hfstud.uio.no
+47 22 02 53 18
------------------------------
Date: 15 Oct 1999 13:23:35 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Using Net::Ping troubles
Message-Id: <7u79sn$ek6$1@lublin.zrz.tu-berlin.de>
Lars Erik <l.e.kolden@hfstud.uio.no> wrote in comp.lang.perl.misc:
>Anno Siegel wrote:
>>
>> Oh... I think we had this before, a few months ago. Let's see what
>> I remember.
>>
>> Experimentally, tcp ping works for all sorts of hosts, except for
>> linux partners, where it declares the host dead, no matter what.
>>
>> I don't remember whether the occasional error message with 'udp'
>> was discussed. I see it here too, with one linux partner, but not
>> with another. Go figure.
>>
>> The bottom line was, the only reliable ping is icmp ping. Take it
>> (possibly including the setuid to root), or leave it.
>>
>
>That's too bad, because I'm running Net::FTP too, and that package
>doesn't seem do anything reasonable when run with a setuid-wrapper.
>But I'll post that in a different message. Thanks for your response,
>anyway.
Well, you probably wouldn't want to run ftp under root anyway. So
if you're going to shell out the ping you might as well use the
system ping.
Anno
------------------------------
Date: Fri, 15 Oct 1999 18:13:41 +0200
From: Lars Erik <l.e.kolden@hfstud.uio.no>
Subject: Re: Using Net::Ping troubles
Message-Id: <380752B5.932FDFD9@hfstud.uio.no>
Anno Siegel wrote:
>
> Lars Erik <l.e.kolden@hfstud.uio.no> wrote in comp.lang.perl.misc:
> >Anno Siegel wrote:
> >>
<cut>
>
> Well, you probably wouldn't want to run ftp under root anyway. So
> if you're going to shell out the ping you might as well use the
> system ping.
>
What do you mean by "system ping"? /bin/ping? In that case, I don't
know of any options that makes it just check if the host is alive and
return. I know it does on some unix systems, but appearently not on
mine. Sorry if this is a very silly question - I'm not an experienced
network programmer - but could you give me a hint?
Lars Erik
--
Lars Erik Kolden http://bug.fix.no
+47 22 18 71 79 l.e.kolden@hfstud.uio.no
+47 22 02 53 18
------------------------------
Date: Tue, 12 Oct 1999 20:55:38 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Using Perl to add line nums?
Message-Id: <s0782adibhk37@corp.supernews.com>
Ala Qumsieh (aqumsieh@matrox.com) wrote:
: Yeah. What I actually meant is that Larry went into the trouble of
: using printf() instead of simply using
:
: print $., " "
:
: because (I assumed) he wanted to preserve the nice formatting of the
: line numbers. With the 1000 lines limit, any line numbers above 1000
: will not be properly formatted.
Yes, but if you simply use $., you get 9 lines with single-digit numbers,
then 90 with double-digit numbers, then 900 with triple-digit. The
unevenness toward the beginning is obvious and distracting. If you use a
3-digit minimum width, the first discontinuity doesn't occur until the
thousandth line, and then next one after that is at ten thousand. Given
that most files to be worked with may be less than a thousand lines long,
this seems an intelligent, practical solution.
: Of course "properly" is highly subjective.
Of course. De gustibus non disputandum est.
: PS. I don't drink coffee. My supply of caffeine comes from chocolate
: and Pepsi. Perhaps I should be expanding my sources. Any ideas?
:
: PPS. Coke is *NOT* an option!
http://www.peppermints.com/ *Warning*: These puppies are highly
addictive.
--
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| "There it is; take it." - William Mulholland
------------------------------
Date: 14 Oct 1999 03:34:07 GMT
From: bismuti@cs.fsu.edu (Peter Bismuti)
Subject: using Tie::IxHash with nested hash tables
Message-Id: <7u3ivf$qqv$1@news.fsu.edu>
tie %form, "Tie::IxHash";
This works fine, I can retrieve elements in the order which
they were entered. But what about this?
$form{$page_name}{$table_name}{$field_name}
I've tried every possible combination and nothing seems to work.
The most obvious choice would be to try:
tie %{form{$page_name}}, "Tie::IxHash";
Which doesn't work. Could anyone please tell me if and how I can
next hash tables and retrieve entries in order using Tie::IxHash?
Thanks much!
------------------------------
Date: 14 Oct 1999 03:49:42 GMT
From: bismuti@cs.fsu.edu (Peter Bismuti)
Subject: using Tie::IxHash with nested hash tables
Message-Id: <7u3jsm$on$1@news.fsu.edu>
FYI, I believe that I have figured it out:
tie %form, "Tie::IxHash";
foreach $page (@pages){
tie %{$page_name},"Tie::IxHash";
.
.
$form{$page_name} = \%{$page_name};
}
------------------------------
Date: 14 Oct 1999 04:25:53 GMT
From: bismuti@cs.fsu.edu (Peter Bismuti)
Subject: Re: using Tie::IxHash with nested hash tables
Message-Id: <7u3m0h$7hj$1@news.fsu.edu>
Peter Bismuti (bismuti@cs.fsu.edu) wrote:
Hmm, looks like this works only one level deep, or
at least I can only get it to work one level deep.
There could also be a problem with name collisions
I'd prefer not to have to go to arrays, but maybe there
is no choice.
:
: FYI, I believe that I have figured it out:
:
: tie %form, "Tie::IxHash";
: foreach $page (@pages){
: tie %{$page_name},"Tie::IxHash";
: .
: .
:
: $form{$page_name} = \%{$page_name};
: }
------------------------------
Date: 14 Oct 1999 04:41:26 GMT
From: bismuti@cs.fsu.edu (Peter Bismuti)
Subject: Re: using Tie::IxHash with nested hash tables
Message-Id: <7u3mtm$c0h$1@news.fsu.edu>
Peter Bismuti (bismuti@cs.fsu.edu) wrote:
OK, got it working now. I am still worried about name
collisions however. If anyone knows of a better solution,
please let me know. This is what I've got:
tie %form, "Tie::IxHash"; # <=====
my @pages = split(/\&\&/,$input);
foreach $page (@pages){
my @tables = split(/\@\@/,$page);
my ($page_name) = clean(shift(@tables));
tie %{$page_name},"Tie::IxHash"; %{$page_name}= (); # <=====
foreach $table (@tables){
my @fields = split(/\$\$/,$table);
my ($table_name) = clean(shift(@fields));
tie %{$table_name},"Tie::IxHash"; %{$table_name}= (); # <=====
foreach $field (@fields){
my ($field_name,$field_id,$field_type) =
clean(split(/\:\:/,$field));
${$table_name}{$field_name} = # <=====
{id => $field_id,type => $field_type};
}
${$page_name}{$table_name} = \%{$table_name}; # <=====
}
$form{$page_name} = \%{$page_name}; # <=====
: Peter Bismuti (bismuti@cs.fsu.edu) wrote:
:
: Hmm, looks like this works only one level deep, or
: at least I can only get it to work one level deep.
: There could also be a problem with name collisions
: I'd prefer not to have to go to arrays, but maybe there
: is no choice.
:
:
: :
: : FYI, I believe that I have figured it out:
: :
: : tie %form, "Tie::IxHash";
: : foreach $page (@pages){
: : tie %{$page_name},"Tie::IxHash";
: : .
: : .
: :
: : $form{$page_name} = \%{$page_name};
: : }
------------------------------
Date: Thu, 14 Oct 1999 10:06:49 -0400
From: "Dave Kaufman" <david@gigawatt.com>
Subject: Re: using Tie::IxHash with nested hash tables
Message-Id: <2slN3.420$25.24679@nntp1>
Hi Peter,
> ${$table_name}{$field_name} = # <=====
> {id => $field_id,type => $field_type};
of course this will collide if the data has duplicate keys in it
you might try something like:
${$table_name}{$field_name} = !exists ${$table_name}{$field_name} ?
{id => $field_id,type => $field_type} : die "collision - boom!"
i am writing a replacement for Tie::IxHash because of this very problem. I
like nested, ordered hashes, too :-) but als, its not complete...
Peter Bismuti wrote ...
> OK, got it working now. I am still worried about name
> collisions however. If anyone knows of a better solution,
> please let me know. This is what I've got:
>
>
> tie %form, "Tie::IxHash"; # <=====
> my @pages = split(/\&\&/,$input);
> foreach $page (@pages){
> my @tables = split(/\@\@/,$page);
> my ($page_name) = clean(shift(@tables));
> tie %{$page_name},"Tie::IxHash"; %{$page_name}= (); # <=====
> foreach $table (@tables){
> my @fields = split(/\$\$/,$table);
> my ($table_name) = clean(shift(@fields));
> tie %{$table_name},"Tie::IxHash"; %{$table_name}= (); #
<=====
> foreach $field (@fields){
> my ($field_name,$field_id,$field_type) =
> clean(split(/\:\:/,$field));
> ${$table_name}{$field_name} = # <=====
> {id => $field_id,type => $field_type};
> }
> ${$page_name}{$table_name} = \%{$table_name}; # <=====
> }
> $form{$page_name} = \%{$page_name}; # <=====
>
>
>
>
> : Peter Bismuti (bismuti@cs.fsu.edu) wrote:
> :
> : Hmm, looks like this works only one level deep, or
> : at least I can only get it to work one level deep.
> : There could also be a problem with name collisions
> : I'd prefer not to have to go to arrays, but maybe there
> : is no choice.
> :
> :
> : :
> : : FYI, I believe that I have figured it out:
> : :
> : : tie %form, "Tie::IxHash";
> : : foreach $page (@pages){
> : : tie %{$page_name},"Tie::IxHash";
> : : .
> : : .
> : :
> : : $form{$page_name} = \%{$page_name};
> : : }
------------------------------
Date: Wed, 13 Oct 1999 12:20:38 -0500
From: Keith Parkansky <keithp@execpc.com>
Subject: Vegas Info for the Comdex-bound
Message-Id: <3804bcb7$0$79686@news.execpc.com>
Sorry for being slightly off-topic
but if you're planning on going to
Comdex next month check out my site
at
http://www.goingtovegas.com
A bunch of stuff to help you "hit the
ground running" when you get to Vegas.
This site is kind of my hobby, not a
business. I'm not selling anything. I
have a "banner exchange" ad going at the
top but I signed up for it to help promote
the site. It doesn't generate any income.
I'm just a big fan of Vegas and want
others enjoy it as much as I do.
--
Keith Parkansky
keithp@execpc.com
http://www.execpc.com/~keithp
http://www.goingtovegas.com
------------------------------
Date: Wed, 13 Oct 1999 15:02:02 -0400
From: brian@smithrenaud.com (brian d foy)
Subject: Re: Vegas Info for the Comdex-bound
Message-Id: <brian-ya02408000R1310991502020001@news.panix.com>
In article <3804bcb7$0$79686@news.execpc.com>, Keith Parkansky <keithp@execpc.com> posted:
> Sorry for being slightly off-topic
> but if you're planning on going to
> Comdex next month check out my site
> at
> http://www.goingtovegas.com
rumor has it that some schmuck will be giving a Perl tutorial
there, too ;)
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Monger Hats! <URL:http://www.pm.org/clothing.shtml>
------------------------------
Date: Wed, 13 Oct 1999 15:08:28 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Vegas Info for the Comdex-bound
Message-Id: <380502DC.AE64AAF5@mail.cor.epa.gov>
Keith Parkansky wrote:
>
> Sorry for being slightly off-topic
> but if you're planning on going to
> Comdex next month check out my site
> at
> http://www.goingtovegas.com
>
> A bunch of stuff to help you "hit the
> ground running" when you get to Vegas.
And don't forget. Those showgirls are more interested in
guys who can show them some perls than guys who can show
them some pythons.
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Wed, 13 Oct 1999 15:28:27 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: We do complex Perl Programming at very competetive rates
Message-Id: <vy1N3.12929$UG5.772717@typ11.nn.bcandid.com>
In article <7ts54a$de6$1@nnrp1.deja.com>, <harris_m@my-deja.com> wrote:
>Kraigen should get at least $20/hr from this company for doing
>"detailed" non Perl related QA.
Thanks :)
>By the way how does the company display their Perl expertise on Web a
>page? By puting some irrelavent source code for "something" written in
>Perl?
I had in mind putting source code for the dynamic sites they had in
their "portfolio" up on their web site. Or possibly for their own
site.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
Tue Oct 12 1999
28 days until the Internet stock bubble bursts on Monday, 1999-11-08.
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Thu, 14 Oct 1999 13:00:53 -0500
From: Nanda <kilminjaro@hotmail.com>
Subject: What does $| = 1 mean?
Message-Id: <38061A55.703BBA0B@NOSPAMhotmail.com>
Hello Everyone,
I am modifying a perl script written by somebody else. It is written
for HP-UX systems. One of the lines at the top of the script is $| = 1
and the comment after it says 'Turn line blocking off'
I dont know what it means. Can somebody explain it a little bit. What
would happen if this line was removed?
Thanks,
Nanda
------------------------------
Date: Thu, 14 Oct 1999 11:44:34 -0700
From: moseley@best.com (Bill Moseley)
Subject: Re: What does $| = 1 mean?
Message-Id: <MPG.126fc46e341dae9b989805@nntp1.ba.best.com>
Nanda (kilminjaro@hotmail.com) seems to say...
> Hello Everyone,
>
> I am modifying a perl script written by somebody else. It is written
> for HP-UX systems. One of the lines at the top of the script is $| = 1
> and the comment after it says 'Turn line blocking off'
$| is described in perldoc perlvar better than I can describe it.
> I dont know what it means. Can somebody explain it a little bit. What
> would happen if this line was removed?
Probably nothing if that's a CGI script. Seems like $| is over used.
Of course, it's hard to know without seeing the code.
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Thu, 14 Oct 1999 18:55:56 GMT
From: Mike Salter <msalter@bestweb.net>
Subject: Re: What does $| = 1 mean?
Message-Id: <Pine.BSF.4.05.9910141852230.2128-100000@monet.bestweb.net>
On Thu, 14 Oct 1999, Nanda wrote:
N>Date: Thu, 14 Oct 1999 13:00:53 -0500
N>From: Nanda <kilminjaro@hotmail.com>
N>Newsgroups: comp.lang.perl.misc
N>Subject: What does $| = 1 mean?
N>
N>Hello Everyone,
N>
N> I am modifying a perl script written by somebody else. It is written
N>for HP-UX systems. One of the lines at the top of the script is $| = 1
N>and the comment after it says 'Turn line blocking off'
N>
N> I dont know what it means. Can somebody explain it a little bit. What
N>would happen if this line was removed?
"If set to nonzero, forces a flush after every write or print on the
curently selected output channel. Default is 0."
'Perl 5 desktop Reference', O'Reilly & Associates, Inc. *ONLY* $6.95
------------------------------
Date: Thu, 14 Oct 1999 19:00:51 GMT
From: bmccoy@foiservices.com (Brett W. McCoy)
Subject: Re: What does $| = 1 mean?
Message-Id: <slrn80cab3.ng.bmccoy@moebius.foiservices.com>
Also Sprach Nanda <kilminjaro@hotmail.com>:
> I am modifying a perl script written by somebody else. It is written
>for HP-UX systems. One of the lines at the top of the script is $| = 1
>and the comment after it says 'Turn line blocking off'
>
> I dont know what it means. Can somebody explain it a little bit. What
>would happen if this line was removed?
It flushes buffers automatically ($| is also $OUTPUT_AUTOFLUSH if you use
the English versions of the $ global variables). See perldoc perlvar for
more details.
--
Brett W. McCoy bmccoy@foiservices.com
Computer Operations Manager (Alpha Geek) http://www.foiservices.com
FOI Services, Inc./DIOGENES 301-975-0110
---------------------------------------------------------------------------
------------------------------
Date: 14 Oct 1999 14:24:26 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: What does $| = 1 mean?
Message-Id: <xkf3dvd4rnp.fsf@valdemar.col.hp.com>
Nanda <kilminjaro@hotmail.com> writes:
> I am modifying a perl script written by somebody else. It is written
> for HP-UX systems. One of the lines at the top of the script is $| = 1
> and the comment after it says 'Turn line blocking off'
>
> I dont know what it means. Can somebody explain it a little bit. What
> would happen if this line was removed?
The perlvar manpage explains all Perl built-in variables, including
'$|'. If you're man-deprived, you can use 'perldoc perlvar'. OTOH, I'm
a bit concerned that you're modifying a (presumably working) program
without understanding enough of the language to know what that line does.
-=Eric
--
"Cutting the space budget really restores my faith in humanity. It
eliminates dreams, goals, and ideals and lets us get straight to the
business of hate, debauchery, and self-annihilation."
-- Johnny Hart
------------------------------
Date: Fri, 15 Oct 1999 17:40:41 GMT
From: Mat Tillett <u2orange@bigfoot.com>
Subject: What is best..?
Message-Id: <380768BA.487C1C4F@bigfoot.com>
Hi,
I am in thought of writing a cgi script that allow users to multiselect
items from an online database. Now to store their selected choices I
could either write a file out to the server by using their IP number and
storing the data within that file or I could do it as a cookie. What is
best..? Please bear in mind that if I write a file to the server, I
have then got to figure out when they have left the site (abnormaly) how
to check and remove the file immediately.
Any advice is good advice..!
Regards,
Mat
u2orange@bigfoot.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 V9 Issue 1082
**************************************
