[12976] in Perl-Users-Digest
Perl-Users Digest, Issue: 386 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Aug 5 16:17:37 1999
Date: Thu, 5 Aug 1999 13:05:13 -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 Thu, 5 Aug 1999 Volume: 9 Number: 386
Today's topics:
Re: *Yet another* Net::FTP question (I R A Darth Aggie)
?? How do I find a memory leak ?? <joe.monenschein@wcom.com>
Re: [offtopic]RE:Quot St and the Jeop Gm neko_ga_iru@my-deja.com
arrays in perl <pwhst+@pitt.edu>
Re: arrays in perl <rootbeer@redcat.com>
Re: arrays in perl <pwhst+@pitt.edu>
Fwd: Re: My Last Words on =- vs comma <perlking@hotmail.com>
Help - Matching a variable in RegEx. <zigouras@mail.med.upenn.edu>
Re: Help - Matching a variable in RegEx. kirk@kaybee.org
Help with a more elegant solution to common problem (Bill Moseley)
Re: Help with a more elegant solution to common problem (Larry Rosler)
Help with color fader <bie@connect.ab.ca>
Re: How do I replace a "space" character? <makarand_kulkarni@my-deja.com>
Re: How do I replace a "space" character? <biju.abraham@ebay.sun.com>
Re: How do I replace a "space" character? <sariq@texas.net>
Re: How do I replace a "space" character? <tchrist@mox.perl.com>
Re: How do I replace a "space" character? perdrix@my-deja.com
how to call local file from cgi.pm script? froggie13@my-deja.com
Re: how to call local file from cgi.pm script? <rootbeer@redcat.com>
Re: How to uninstall Perl on Unix ? <rootbeer@redcat.com>
Re: IMPORTANT: "19$year" (Greg Bacon)
Re: mod_perl question sbeam@beeline.net
Re: My Last Words on => vs comma, a postscript <perlking@hotmail.com>
Re: My Last Words on => vs comma, a postscript <tchrist@mox.perl.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 5 Aug 1999 19:12:22 GMT
From: fl_aggie@thepentagon.com (I R A Darth Aggie)
Subject: Re: *Yet another* Net::FTP question
Message-Id: <slrn7qjokq.68q.fl_aggie@thepentagon.com>
On 5 Aug 1999 16:56:23 GMT, I R A Darth Aggie <fl_aggie@thepentagon.com>, in
<slrn7qjglq.5n6.fl_aggie@thepentagon.com> wrote:
+ On Thu, 5 Aug 1999 14:15:51 GMT, John Borwick <John.Borwick@sas.com>, in
+ <37ab9c65.266856689@newshost.unx.sas.com> wrote:
+ + Maybe this worked because there was no defined port key, so it ignored
+ + 23 => Port and used the default port of 23?
Exactly.
+ Ok, that makes sense. In which case, why did 'Port'=>23 _not_ work?
+ That's what bothers me. What did I fsck up?
Well, in a flash of the blindingly obvious [I was trolling thru my log
files for rejected telnet connections when it became obvious]:
telnet == 23
ftp == 21
D0H! So...
use strict;
use Net::FTP;
my %options;
%options=qw(Debug 10 Port 21); # 21 is ftp
my $ftp = Net::FTP->new('coaps.fsu.edu', %options);
$ftp->login('anonymous','user@nowhere.none');
$ftp->cwd('/pub');
$ftp->quit;
Well, lo and behold, no timeout and we get all the expected feedback
from the Debugging...
James - gosh, imagine that...
------------------------------
Date: Thu, 05 Aug 1999 19:51:28 GMT
From: Joe Monenschein <joe.monenschein@wcom.com>
Subject: ?? How do I find a memory leak ??
Message-Id: <37A9EB73.14F57E6A@wcom.com>
Does anyone have a suggestion for finding why the size of a perl process
is growing to huge proportions. It's a large, multi-module script that
I inherited and am now responsible for. In a test environment it never
gets bigger than 2.4mg, but in a live environment it's getting up to
150mg and greater. I've already tried -w and have gotten rid of most of
the warnings. I don't know if the debugger would be a productive use of
time since I can't seem to reproduce the problem on the development
machine. Any memory management tools for perl out there?
Thanks,
Joe Monenschein
Denver, CO
------------------------------
Date: Thu, 05 Aug 1999 19:48:29 GMT
From: neko_ga_iru@my-deja.com
Subject: Re: [offtopic]RE:Quot St and the Jeop Gm
Message-Id: <7ocpq7$qvn$1@nnrp1.deja.com>
In article <37a8d5ce@cs.colorado.edu>,
tchrist@mox.perl.com (Tom Christiansen) wrote:
> Ah, back to cultural relativism I see. Lovely. Wouldn't it be nice
if
> it were true?
This is question-begging.
> Sorry, this is a technical forum.
Then ignore off-topic threads.
> Cultural relativism
> fails before quantitative analysis.
How so? This is a brash statement, without backup. Two added to two
gives us four. That is about as close to irrefutably quantifiable truth
as you will get and there are even culturally relativistic problems with
the concepts of 'two', 'four', 'equals', 'addition', the fact that this
concept was presented in English. You could deconstruct it *ad
absurdum*.
I would hesitate to toss out the last 70 years of the philosopy of
science with the bathwater by making such a statement. For example, Paul
Feyerabend, a philosopher of science and physicist, wrote that despite
the obvious practical advantages that quantifiable knowledge such as
science has given us, there is no single quantifiable thread that ties
science together[1]. Science cannot explain the fact that it's own quest
is an unending endeavor without any rules or clear foundations that
aren't cultural contrivances, much like the rest of human endeavors.
What connects Bohr with Galileo?. That the only precept that holds is
that anything goes[2]. This question (and many others) has no
quantifiable answer that cannot be pulled apart at the seems under
modern criticism[3].
Take Wittgenstein, he tried to pull together the whole of philosophy
under the spell of one book, "Tractatus Logico-Philosophicus" and left
the reader stunned with his mystical admission in the last aphorism of
the book that 'Whereof we we cannot speak, thereof we must be silent.'
This admission came from a thinker who single-handedly put Bertrand
Russell into the dustbin with his very scientific and technical
destruction of the 'Principia Mathematica.'[4]
The point here is you are waging a war you cannot win by definition,
because cultural relativism and science are one and the same. Those who
are the best at science are the ones who seem to accept that science has
no more real credence than literature or sport or religion. Those who
swim against the stream are either reinforcing this trend or flopping
dead on the shore.
Let me say it for you *PLONK*.
Neko_ga_iru
[1]Feyerabend, Against method :outline of an anarchistic theory of
knowledge, Verso, 1975.
[2]Ibid.
[3]Rodolphe Gasché,The tain of the mirror:Derrida and the philosophy of
reflection, Harvard University Press, 1986
[4]Ray Monk, Ludwig Wittgenstein :the duty of genius, Free Press, 1990.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Thu, 5 Aug 1999 14:15:58 -0400
From: "Paul W. Hanbury, Jr." <pwhst+@pitt.edu>
Subject: arrays in perl
Message-Id: <Pine.GSO.3.96L.990805141435.18382A-100000@unixs-eval.cis.pitt.edu>
Does anybody know how arrays are implemented in perl?
Are they like C++ vectors or are they more complex
than that.
Thanks,
Paul W. Hanbury, Jr.
------------------------------
Date: Thu, 5 Aug 1999 11:51:51 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: arrays in perl
Message-Id: <Pine.GSO.4.10.9908051147320.9452-100000@user2.teleport.com>
On Thu, 5 Aug 1999, Paul W. Hanbury, Jr. wrote:
> Does anybody know how arrays are implemented in perl?
Yes. :-)
> Are they like C++ vectors or are they more complex than that.
I'd have to say that they're more complex than that, at least for some
values of 'complex'.
But what, exactly, is your question? And do the manpages (especially
perlguts and friends) give you the answers you need?
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 5 Aug 1999 15:19:37 -0400
From: "Paul W. Hanbury, Jr." <pwhst+@pitt.edu>
To: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: arrays in perl
Message-Id: <Pine.GSO.3.96L.990805150144.21794A-100000@unixs-eval.cis.pitt.edu>
In terms of runtime speed, I was wondering how arrays were
implemented.
For example, if I said
$#my_array = 20_000;
should I worry about adding more elements than 20,000.
Is new memory allocated to hold both the first 20,000
elements plus extra space, all of the old values copied
into the newly allocated space and the old array freed?
Or do the existing 20,000 elements remain untouched and
new elements allocated in a quickly accessable memory
location?
On Thu, 5 Aug 1999, Tom Phoenix wrote:
*On Thu, 5 Aug 1999, Paul W. Hanbury, Jr. wrote:
*
*> Does anybody know how arrays are implemented in perl?
*
*Yes. :-)
*
*> Are they like C++ vectors or are they more complex than that.
*
*I'd have to say that they're more complex than that, at least for some
*values of 'complex'.
*
*But what, exactly, is your question? And do the manpages (especially
*perlguts and friends) give you the answers you need?
*
*--
*Tom Phoenix Perl Training and Hacking Esperanto
*Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
*
------------------------------
Date: Thu, 05 Aug 1999 15:44:34 EDT
From: "Perl King" <perlking@hotmail.com>
Subject: Fwd: Re: My Last Words on =- vs comma
Message-Id: <19990805194435.83398.qmail@hotmail.com>
>In comp.lang.perl.misc,
> "Perl King" <perlking@hotmail.com> writes:
>
>So, Larry, since when have you taken to slumming at snotmail?
We seized the throne in Larry's absence ...
>:The point of my last post was to show that you can NOT use the
>:corresponds-to operator everywhere you use the comma operator.
>
>So what?
So now you must remember new rules about when and where you can
use the => operator or risk being bitten. It seems simpler to us
to use the comma operator exclusively (except in hash
initialization).
>:I have not see [sic] it used anywhere in Perl books or standard code
>:except for hash initialization.
>
>Have you read the manpage for the constant.pm pragma lately?
>It hazs things like this:
>
> use constant PI => 3.14159265358979;
>
>There's no hash there, of course. Neither is there in the Perl
>Cookbook's use of the comma-arrow for named parameter passing
>in @_:
[more good stuff which I deleted]
Well if it's good enough for TomC then it's good enough for
the Perl King.
Hear Ye Hear Ye!
We the Perl King hereby approve of the occasional use of =>
(outside of hash initialization).
Please do not abuse this privilege.
Thanks for your kind response TomC. You may try to snatch a
pebble out of my hand now.
Perl King
_______________________________________________________________
Get Free Email and Do More On The Web. Visit http://www.msn.com
------------------------------
Date: Thu, 5 Aug 1999 15:19:44 -0400
From: Nico Zigouras <zigouras@mail.med.upenn.edu>
Subject: Help - Matching a variable in RegEx.
Message-Id: <Pine.OSF.4.05.9908051517160.7039-100000@mail.med.upenn.edu>
Hi:
I am interested in matching a variable in my RegEx like.
$var = "hello";
if ( $question_variable =~ /$var/ ) {
print"$question_variable has the string \"hello\" in it.";
}
I checked the FAQ and they suggested escaping it with a \Q which didn't
seem to work. If someone could help me out or point me to the correct FAQ
I would appreciate it.
------------------------------
Date: 5 Aug 1999 19:29:02 GMT
From: kirk@kaybee.org
Subject: Re: Help - Matching a variable in RegEx.
Message-Id: <7ocolu$r0p$1@news-int.gatech.edu>
Nico Zigouras <zigouras@mail.med.upenn.edu> wrote:
: $var = "hello";
: if ( $question_variable =~ /$var/ ) {
: print"$question_variable has the string \"hello\" in it.";
: }
This should work fine.
: I checked the FAQ and they suggested escaping it with a \Q which didn't
: seem to work. If someone could help me out or point me to the correct FAQ
: I would appreciate it.
They are saying that you should do this:
if ( $question_variable =~ /\Q$var\E/ ) {
because $var might have metacharacters in it (like + or * or other
stuff), it's best to enclose any scalars that are part of a regex with
\Q \E. In other words, lets say you had this:
$var = "he+ll*o";
if ( $question_variable =~ /$var/ ) {
The regular expression becomes:
if ( $question_variable =~ /he+ll*o/ ) {
which is *not* what you want, however with this:
$var = "he+ll*o";
if ( $question_variable =~ /\Q$var\E/ ) {
The regular expression becomes:
if ( $question_variable =~ /he\+ll\*o/ ) {
with the metacharacters escaped out, which is probably what you do want.
--
Kirk Bauer -- CmpE, Georgia Tech -- kirk@kaybee.org -- Avid Linux User
GT Sport Parachuting Club! http://cyberbuzz.gatech.edu/skydive
Opinions expressed are my own, but they should be everybody's.
------------------------------
Date: Thu, 5 Aug 1999 11:34:37 -0700
From: moseley@best.com (Bill Moseley)
Subject: Help with a more elegant solution to common problem
Message-Id: <MPG.1213791a3004c3fa989688@nntp1.ba.best.com>
Hello,
I've been doing other things than programming Perl lately and I'm feeling
really clunky in my programming. I'm asking for help with making the
code (below) more elegant. It works now, but I'd really appreciate any
pointers or improvements you could offer, even just on style.
I'm sure this is a commonly written program, so I'm curious about
solutions other people have come up with.
I have a directory with about 6000 files. Each file is a single
'record' that contains named parameters. I commonly have to convert
this type of input into a comma or tab separated text file.
For example, input files:
file 'one.z':
FOOD=cheese
TASTE=mild
COLOR=yellow
file 'two.z':
FOOD=cheese
TASTE=strong
COLOR=blue
COLOR=white
output file:
FOOD,TASTE,COLOR,SOURCE FILE
cheese,mild,yellow,one
cheese,strong,blue:white,two
In my specific case, my named parameters are extracted
out of HTML tags that look like:
<META NAME="DC.subject" CONTENT="subject one">
where the field name is "DC.subject", and the value is "subject one".
In my case, the <META> tags are one per line, and my program
expects it this way. But I guess it would be smart to write the
program to allow <META> tags to span lines.
#! /usr/local/bin/perl5.005 -w
use strict;
# define fields to extract from input files
# and the order they will be in output file
my @fields = qw/
UCB.rank
DC.identifier
DC.subject
DC.title
/;
## Open output file and current directory
## glob() won't work with large number of files in one dir.
open( OUTFILE, '>extract.out' ) or die "Could not open output file: $!\n";
print OUTFILE join("\t", @fields, 'Source File'), "\n" or die "Failed to write to outfile: $!\n";
opendir( DIR, '.' ) or die "Failed to open current directory for reading: $!\n";
print 'Starting at ',scalar localtime(),"\n";
## Read each file in current directory and process
## About 6000 files in all so use while loop to save memory
my $file_count;
while ( $_ = readdir( DIR ) ) {
next unless m[\.z$] && -T; # only keep these
if ( open( FH, $_ ) ) {
$file_count++;
# pass file name and array of input lines
scan_lines( $_, [<FH>] );
} else {
print "Failed to open '$_' for reading: $!\n";
}
}
closedir(DIR);
close(OUTFILE);
print 'Done at ',scalar localtime(),"\n";
print "Processed $file_count files\n";
#-------------------------------------------------
# This converts named parameters to Tab Separated Values table
sub scan_lines {
# output buffer
my %content;
my ($cur_file, $lines_ref) = @_;
$content{$_} = [] foreach @fields; # place holders
foreach ( @$lines_ref ) {
foreach my $fld ( @fields ) {
if ( /<META NAME="$fld" CONTENT="(.+)">/i ) {
my $content = $1; # can't modify $1
$content =~ s[\\"]["]g; # un-escape these
$content =~ s[\\<][<]g;
$content =~ s[\\>][>]g;
push( @{$content{$fld}}, $content );
last; # skip looking for other fields on this line
}
}
}
# convert the references to an array to ':' joined scalars
map { $content{$_} = join( ':', @{$content{$_}} ) } @fields;
print OUTFILE join( "\t", @content{@fields}, $cur_file ), "\n" or die "Failed to print to output file: $!";
}
--
Bill Moseley mailto:moseley@best.com
pls note the one line sig, not counting this one.
------------------------------
Date: Thu, 5 Aug 1999 12:18:18 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Help with a more elegant solution to common problem
Message-Id: <MPG.1213835429ecb3fa989de2@nntp.hpl.hp.com>
[Posted and a courtesy copy mailed.]
In article <MPG.1213791a3004c3fa989688@nntp1.ba.best.com> on Thu, 5 Aug
1999 11:34:37 -0700, Bill Moseley <moseley@best.com> says...
> I've been doing other things than programming Perl lately and I'm feeling
> really clunky in my programming. I'm asking for help with making the
> code (below) more elegant. It works now, but I'd really appreciate any
> pointers or improvements you could offer, even just on style.
The only serious problem I see in this code is here:
> sub scan_lines {
...
> foreach ( @$lines_ref ) {
>
> foreach my $fld ( @fields ) {
>
> if ( /<META NAME="$fld" CONTENT="(.+)">/i ) {
It strongly resembles the situation described in perlfaq6:
How do I efficiently match many regular expressions at once?
The following is extremely inefficient:
# slow but obvious way
@popstates = qw(CO ON MI WI MN);
while (defined($line = <>)) {
for $state (@popstates) {
if ($line =~ /\b$state\b/i) {
print $line;
last;
}
}
}
...
You might want to look at the remaining paragraphs in that FAQ for what
to do about it.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 04 Aug 1999 23:31:39 -0600
From: Tim <bie@connect.ab.ca>
Subject: Help with color fader
Message-Id: <37A921BB.B91@connect.ab.ca>
Hello,
I need help with a color fader. I want to add the option to my chat
doors. Can anyone help me do this? I'm not sure how to do it.
-An example of a color fader here:
http://www.bbackdoors.com/backdoors/colorfader.html
-My chat doors are here:
http://www.connect.ab.ca/~mundy/
His is in javascript, I want to do it in cgi/perl along with my doors
I'm going to be away for a week as well, so can you please email your
replies to me. that way I won't miss them after you've spent your time
to help me. Thank you very much
Tim
--
-------------------------------------------------------
| TBE: http://tbe.virtualave.net |
| * 3:2 Ratio + 100 Free credits! * |
| Tim's Chat Doors: http://www.connect.ab.ca/~mundy/ |
-------------------------------------------------------
------------------------------
Date: Thu, 05 Aug 1999 17:59:06 GMT
From: Makarand Kulkarni <makarand_kulkarni@my-deja.com>
Subject: Re: How do I replace a "space" character?
Message-Id: <7ocjd2$ln3$1@nnrp1.deja.com>
[In article <7ocgit$j9t$1@nnrp1.deja.com>,
partridge@surnameweb.org wrote:
> I need to replace all " " characters with "" in a variable
> called $CRITERIA. effectively I need to rid the variable of any spaces
$CRITERIA =~s/\s//g ;
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Thu, 05 Aug 1999 11:06:19 -0700
From: Biju Abraham <biju.abraham@ebay.sun.com>
Subject: Re: How do I replace a "space" character?
Message-Id: <37A9D29B.599AA5D7@ebay.sun.com>
Try
$ch = "try this word";
$ch =~ s/\s*//g;
Biju
perdrix@my-deja.com wrote:
>
> Hi,
>
> I'm a newbie to Perl programming, so excuse me if this is a simplistic
> question. I need to replace all " " characters with "" in a variable
> called $CRITERIA. effectively I need to rid the variable of any spaces
> that might be present. Any assistance with this problem would be
> appreciated.
>
> Best Wishes,
>
> Dennis
>
> --
> The SurnameWeb
> http://www.surnameweb.org/
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
------------------------------
Date: Thu, 05 Aug 1999 13:29:27 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: How do I replace a "space" character?
Message-Id: <37A9D807.44E903AA@texas.net>
Makarand Kulkarni wrote:
>
> [In article <7ocgit$j9t$1@nnrp1.deja.com>,
> partridge@surnameweb.org wrote:
> > I need to replace all " " characters with "" in a variable
> > called $CRITERIA. effectively I need to rid the variable of any spaces
>
> $CRITERIA =~s/\s//g ;
You have an unusual definition of 'spaces'.
And tr is *much* quicker.
- Tom
------------------------------
Date: 5 Aug 1999 12:44:18 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: How do I replace a "space" character?
Message-Id: <37a9db82@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc,
Tom Briles <sariq@texas.net> writes:
:And tr is *much* quicker.
Actually, I find that y is twice as fast as tr... to type. :-)
--tom
--
*bp++ = i; /* now go back to screaming loop */
--Larry Wall, from perl/sv.c in the v5.0 perl distribution
------------------------------
Date: Thu, 05 Aug 1999 19:38:45 GMT
From: perdrix@my-deja.com
Subject: Re: How do I replace a "space" character?
Message-Id: <7ocp83$qg0$1@nnrp1.deja.com>
In article <MPG.12136e2931ba430b989de0@nntp.hpl.hp.com>,
lr@hpl.hp.com (Larry Rosler) wrote:
> It is simplistic, but that doesn't prevent it from being asked every
few
> days. What do people have against space characters anyway?
>
> Someone is sure to tell you this:
>
> $CRITERIA =~ s/ //g;
>
> (by the way, all upper-case letters implies a constant, not a
variable,
> by convention).
>
> But the Right (i.e. fastest) way to do it is this:
>
> $CRITERIA =~ tr/ //d;
>
> Look in perlop for the 'translate' operator. It has lots of goodies
for
> dealing with single characters out of context.
>
Thanks Larry,
Worked like a charm. As for space characters, they look lousy in url's.
I'm going to look at the context of the translate operator though,
because I'm confused as to what we did. Reg. expressions do it every
time...
Dennis
Dennis
--
The SurnameWeb
http://www.surnameweb.org/
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Thu, 05 Aug 1999 19:08:40 GMT
From: froggie13@my-deja.com
Subject: how to call local file from cgi.pm script?
Message-Id: <7ocnfe$p1s$1@nnrp1.deja.com>
I have a form on the web, written in cgi.pm, and I want to take the
user's responses and use them as arguments to a program that I have on
my server. I can't figure out how to do this in the cgi file. Any help
would be greatly apprectiated.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Thu, 5 Aug 1999 13:04:20 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: how to call local file from cgi.pm script?
Message-Id: <Pine.GSO.4.10.9908051302060.9452-100000@user2.teleport.com>
On Thu, 5 Aug 1999 froggie13@my-deja.com wrote:
> I have a form on the web, written in cgi.pm, and I want to take the
> user's responses and use them as arguments to a program that I have on
> my server. I can't figure out how to do this in the cgi file.
You do it in the same way as you would if the program weren't running over
the web, in general. If you can't do it from the command line, though, you
probably won't be able to get it working over the web. See the entry for
system() in the perlfunc manpage. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 5 Aug 1999 11:46:02 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: How to uninstall Perl on Unix ?
Message-Id: <Pine.GSO.4.10.9908051144160.9452-100000@user2.teleport.com>
On Thu, 5 Aug 1999, mizote wrote:
> I just want to completely uninstall Perl on HP-UX10.20 before
> reinstalling it with different options.
You don't need to do that; it's not from Microsoft!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 5 Aug 1999 18:22:20 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: IMPORTANT: "19$year"
Message-Id: <7ockos$9ha$2@info2.uah.edu>
In article <Pine.GSO.4.10.9908042129110.27740-100000@crusoe.crusoe.net>,
Jeff Pinyan <jeffp@crusoe.net> writes:
: If you don't fix this, you will look rather foolish when January 1, 2000
: -- or should I say, 19101 -- comes around.
Fix your adder. :-)
: japhy's little hole in the (fire) wall: http://www.pobox.com/~japhy
[13:15] ettsn% telnet www.pobox.com 80
Trying 208.210.125.1...
Connected to pobox.com.
Escape character is '^]'.
HEAD /~japhy HTTP/1.0
HTTP/1.1 302 Moved Temporarily
Date: Thu, 05 Aug 1999 18:16:15 GMT
Server: Apache/1.3.1 (Unix)
Location: http://www.crusoe.net/~jeffp
Connection: close
Content-Type: text/html
Connection closed by foreign host.
[13:16] ettsn% telnet www.crusoe.net 80
Trying 206.136.64.11...
Connected to friday.crusoe.net.
Escape character is '^]'.
HEAD /~jeffp HTTP/1.0
HTTP/1.1 301 Moved Permanently
Date: Thu, 05 Aug 1999 18:16:38 GMT
Server: Stronghold/2.3 Apache/1.2.6 C2NetUS/2010
Location: http://www.crusoe.net/~jeffp/
Connection: close
Content-Type: text/html
Connection closed by foreign host.
Be nice to the Internet. Advertise correct URLs.
Greg
--
Cop: McManus told us another story altogether.
Fenster: Is that the one about the hooker with dysentery?
------------------------------
Date: Thu, 05 Aug 1999 18:08:06 GMT
From: sbeam@beeline.net
Subject: Re: mod_perl question
Message-Id: <7ocjts$m61$1@nnrp1.deja.com>
Kirk
Guess what, I have the answer to your problem!
Just Kidding, I wish I did. All I can say is I'm having the exact same
difficulty. Any calls to 'new CGI' cause a httpd child to die with a
segfault. According to all the docs this shouldn't happen.
I'm using
mod_perl 1.19
Apache 1.3.6
CGI.pm 2.46
on RH 6.0. Please let me know if you have any luck Kirk.
-Sam Beam
In article <7ml352$lt2$1@news-int.gatech.edu>,
kirk@kaybee.org wrote:
> I don't know if this is the right newsgroup... but here goes.
>
> I have tried running this perl script through Apache's mod_perl
> on both Red Hat 5.2 and 6.0 (with all updates applied).
>
> However, all I ever get is an empty page in my web browser and
> an error in the error log:
>
> [notice] child pid 2765 exit signal Segmentation fault (11)
>
> Here is the script, what am I doing wrong?
>
> #!/usr/bin/perl -w
> use strict;
> use CGI;
>
> my $cgi = new CGI;
>
> print $cgi->header;
> print $cgi->start_html("Test Page");
> print "<H1> Test Page </H1>\n";
>
> --
> Kirk Bauer -- Georgia Tech -- kirk@kaybee.org <== Finger for PGP
> http://www.kaybee.org/~kirk ResNet RTA Computer Engineering
> GT Sport Parachuting Club! http://cyberbuzz.gatech.edu/skydive
>
>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Thu, 05 Aug 1999 15:32:12 EDT
From: "Perl King" <perlking@hotmail.com>
Subject: Re: My Last Words on => vs comma, a postscript
Message-Id: <19990805193213.36262.qmail@hotmail.com>
Here are more examples of other unexpected results from using
"=>" instead of "," (courtesy of Bart Lateur and Tye McQueen)
print map chr, 65..67;
print map chr => 65..67;
sub match { /hi/ }
my @list = qw(this is list of things to find hits in);
my @good = grep match, @list; # @good = qw(this things hits)
my @bad = grep match => @list; # @bad = @list
Such behavior is reason enough to avoid the corresponds-to operator.
Here is what the Camel has to say:
- the corresponds-to operator is first mentioned in "Hashes":
"It is often more readable to use the => between key-value pairs"
Why? Because you don't have to quote your hash keys.
- the only other reference is in "Comma Operators": "It is useful
for documenting arguments that come in pairs" (i.e. key-value pairs)
* * *
One last note. This forum is intended for discussion of the
Perl language. If you cannot refrain from personal insults,
then save bandwidth, and just email them to me directly.
Perl King
_______________________________________________________________
Get Free Email and Do More On The Web. Visit http://www.msn.com
------------------------------
Date: 5 Aug 1999 13:40:32 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: My Last Words on => vs comma, a postscript
Message-Id: <37a9e8b0@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, "Perl King" <perlking@hotmail.com> writes
more drivel in an illegal message bereft of proper headers.
Give us your real and full name, your employment position, and your Perl
experience, you whingeing poser, and stop hiding under that pretentious
and unmerited mail address.
May your name be written in water.
--tom
--
"Though a program be but three lines long,
someday it will have to be maintained."
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 386
*************************************
