[10015] in Perl-Users-Digest
Perl-Users Digest, Issue: 3608 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 1 16:04:48 1998
Date: Tue, 1 Sep 98 13:00:55 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 1 Sep 1998 Volume: 8 Number: 3608
Today's topics:
Re: Argh! NT Perl <JKRY3025@comenius.ms.mff.cuni.cz>
Re: Currency Formatting in Perl (s//) <J.D.Gilbey@qmw.ac.uk>
Re: Determining strlen <aqumsieh@tigre.matrox.com>
Re: Help on running perl scripts on MS-DOS (Win NT4 act (Bob Trieger)
Re: Help to extract variables (Mark-Jason Dominus)
Re: Help to extract variables <ajohnson@gpu.srv.ualberta.ca>
Instal Perl in Windows NT. <josemiguel.garcia@digital.com>
Mysql / Perl / Apache <adam.m@cadvision.com>
newbie question scott1313@my-dejanews.com
Re: Perl compiler <murrayb@vansel.alcatel.com>
Re: Perl compiler (Nathan V. Patwardhan)
Re: Perl compiler (John Stanley)
Re: Perl Script to Retreve HTML Files from the Internet chad@gurucom.net
Please help XS newbie with object creation <thomas@x-tekcorp.com>
Re: problem - PLEASE HELP <aqumsieh@tigre.matrox.com>
Re: Tom Phoenix: ANSWERS WANTED! <jdporter@min.net>
Re: Tom Phoenix: ANSWERS WANTED! (Nathan V. Patwardhan)
Re: Tom Phoenix: ANSWERS WANTED! (Greg Bacon)
Re: Tom Phoenix: ANSWERS WANTED! <upsetter@ziplink.net>
Re: Tom Phoenix: ANSWERS WANTED! <jdporter@min.net>
Re: Tom Phoenix: ANSWERS WANTED! <eashton@bbnplanet.com>
Trouble compiling Perl5.005_02: malloc.c <sobek@irit.fr>
unshifting in a FILEHANDLE <achoy@us.oracle.com>
Re: unshifting in a FILEHANDLE <jdf@pobox.com>
Re: unshifting in a FILEHANDLE (Matt Knecht)
Re: URGENT: How do I post to a newsgroup from a perl ro (Alastair)
Re: US-NY-LI 516 PERL Programmer/Analyst (Greg Bacon)
Re: Which error return test? <aqumsieh@tigre.matrox.com>
Re: {n} quantifier question rowlands@my-dejanews.com
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 01 Sep 1998 20:34:55 -0700
From: Jan Krynicky <JKRY3025@comenius.ms.mff.cuni.cz>
Subject: Re: Argh! NT Perl
Message-Id: <35ECBCDF.5A34@comenius.ms.mff.cuni.cz>
willhackperl@my-dejanews.com wrote:
>
> In article <35E5C44A.22C5F502@gusun.georgetown.edu>,
> Dave Stephens <stepherd@gusun.georgetown.edu> wrote:
> > For Win32 platforms you must associate the .pl file extension with Perl.exe in
> > the Windows file types menu. ActiveState perl w/ IIS does all this
> > automatically, but then you have to deal with all the things that ActiveState
> > doesn't support.
> >
> > (From windows explorer VIEW-->Options-->File Types). Add new file type,
> actions
> > = open. Define open as the path to Perl.exe
> > with "%1" after it. Example c:\perl\bin\perl.exe "%1".
> >
>
> Be careful about doing this without being aware of the implications,
> especially with IIS. See
>
> http://rootshell.com/archive-j457nxiqi3gq59dv/199807/perliis.txt.html
>
> for details.
>
> Bill
1. This article is dealing only with IIS3.0 and older.
IIS 4.0 tests the presence and permissions for the file before
calling perl.exe (unless instructed otherwise).
So the suggested /file.whatewer%20.pl will not work.
And it has the script map somewhere else.
You have to set the script map through the MMC instead of in registry.
2. The original Dave Stephens's suggestion contained only the mapping
used by explorer or run dialogs. It is ignored by most webservers.
Not sure about others, but MS IIS and Apache are among them.
3. Build 110 is horribly old. UPGRADE if you happen to still have it.
At least to 316. http://www.activestate.com
4. If the mapping looks like this
c:\perl\bin\perl.exe "%s" "%s"
instead of
c:\perl\bin\perl.exe %s %s
(note the quotes!)
even when using IIS3.0, the suggested some.file%20.pl exploit wil not
work.
Perl will try to open file "some.file .pl". And I'm pretty sure it will
not find it.
Compare these two command lines.
c:\> perl some.file .pl
and
c:\> perl "some.file .pl"
do you see the difference?
HTH, Jenda
------------------------------
Date: Tue, 01 Sep 1998 20:26:57 +0100
From: Julian Gilbey <J.D.Gilbey@qmw.ac.uk>
Subject: Re: Currency Formatting in Perl (s//)
Message-Id: <35EC4A81.481CE47A@qmw.ac.uk>
Jeff Davey wrote:
>
> S. Kuip wrote:
> > 1 while $amount =~ s/(.*\d)(\d\d\d)/$1,$2/;
> >
> > 1204846335 => 1,204,846,335
> >
>
> Not quite - this only puts the thousands comma delineator in. Anyone
> else?
Wrong, this works, and it's almost what is recommended in perlfaq5:
sub commify {
local $_ = shift;
1 while s/^(-?\d+)(\d{3})/$1,$2/;
return $_;
}
The while loop runs, putting in commas three digits from the last
comma, until fewer than four digits remain at the start.
Julian
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Julian Gilbey Email: J.D.Gilbey@qmw.ac.uk
Dept of Mathematical Sciences,
Queen Mary & Westfield College,
Mile End Road, London E1 4NS, ENGLAND
------------------------------
Date: 01 Sep 1998 10:09:34 -0400
From: Ala Qumsieh <aqumsieh@tigre.matrox.com>
Subject: Re: Determining strlen
Message-Id: <x3yvhn7hqld.fsf@tigre.matrox.com>
Dave Wreski <dave@nic.com> writes:
>
> > /<A HREF=http:.*>/i
> >
> > But notice that this is a naive approach. Asterisks are greedy
> > matchers by default .. so you might end up matching something like:
> >
> > <A HREF="http://www.bla.com/>Click <bold>here</bold>
>
> Well, that's exactly what's happened, and I can't figure it out.
> Given the following string:
>
> <TD><A> HREF=http://www.mywebsite.com/url/goes/here>http://www.mywebsite.com/url/goes/here</A></TD>
>
> How can I just grab the data between the anchors, and not the actual
> URL itself?
You could use a common trick:
/<([^>]*)>/
This reads:
Match a '<' .. followed by zero or more characters that do not contain
a '>' .. capture these in $1 (due to the brackets) .. followed by a '>'.
Hope this does what you want.
--
Ala Qumsieh | No .. not Just Another
ASIC Design Engineer | Perl Hacker!!!!!
Matrox Graphics Inc. |
Montreal, Quebec | (Not yet!)
------------------------------
Date: Tue, 01 Sep 1998 17:42:09 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: Help on running perl scripts on MS-DOS (Win NT4 actually)
Message-Id: <6shbrt$vs$1@strato.ultra.net>
edew@netcom.com (Eric Dew) wrote:
-> Once more: if I can just get the thing to run, I'll debug it myself and
-> skip your pansy-ass comments. Can I get a straight answer?
*plonk*
Bob Trieger
sowmaster@juicepigs.com
------------------------------
Date: 1 Sep 1998 14:00:01 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Help to extract variables
Message-Id: <6shcn1$7f0$1@monet.op.net>
In article <35EC3E89.6ADA64C2@hal.ddntl.didata.co.za>,
Mark Fergusson <mferg@hal.ddntl.didata.co.za> wrote:
>I'm runing a perl program with a number of arguments. I need to set
>variables based on these arguments. It looks something like this:
>
>program value1=Value1 value2=hello this is a test value3=next test
>value4=Value4
while (@ARGV) {
my $arg = shift;
my ($key, $val) = split(/=/, $arg, 2);
$ARGS{$key} = $val;
}
Then $ARGS{value1} is "Value1", $ARGS{value2} is "hello this is a
test", and so on.
>What I need out of this is:
>$value1="Value1";
You think you do, but the way I showed it is probably better. See
http://www.plover.com/~mjd/perl/varvarname.html
for an anecdote about why it is probably a mistake to do it your way.
>How Can I do this. I've tried using a for loop and split, but I only get
>for example
Hint: You are more likely to get useful answers if you include the
code that you used that is not working for you and you explain what it
did that was different from what you wanted. Please do this in the
future.
------------------------------
Date: Tue, 01 Sep 1998 13:14:05 -0500
From: Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
Subject: Re: Help to extract variables
Message-Id: <35EC396D.7C605F38@gpu.srv.ualberta.ca>
Mark Fergusson wrote:
>
> Hi. Thanks for the input. I tried this. Doesn't seem to work ? Anybody else have a
> suggestion ?
perhaps you would find the the -s switch useful
(see 'perldoc perlrun')
[danger:ajohnson:~]$ cat > pswitch
#!/usr/bin/perl -ws
use strict;
use vars qw/$value_1 $value_2 $value_3/;
#set up defaults:
$value_1||='default_1';
$value_2||='default_2';
$value_3||='default_3';
print "$value_1\n";
print "$value_2\n";
print "$value_3\n";
__END__
^d
[danger:ajohnson:~]$ chmod 755 pswitch
[danger:ajohnson:~]$ pswitch -value_1='foo bar' -value_3=blah
foo bar
default_2
blah
[danger:ajohnson:~]$
hope it helps
regards
andrew
------------------------------
Date: Tue, 01 Sep 1998 16:40:49 +0200
From: Jose Miguel Garcia <josemiguel.garcia@digital.com>
Subject: Instal Perl in Windows NT.
Message-Id: <35EC0770.8287CC33@digital.com>
--------------1E7B7E487E3322EE3F5C71C3
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hi, I have installed Perl 5 in a node of my intranet. It has been
installed in d:\perl. I have created the directory d:\
InetPub\www_val\cgi-bin for keep my Perl programs.d:\InetPub\www_val is
my Web home directory. I have modify the c:\autoexec.bat add it
path=%path%;d:\perl\bin that is where is found Perl.exe. In the
directory \cgi-bin I have a small program called Test.pl. From my
browser I try:
URL: http://fallas.sqo.dec.com/cgi-bin/Test.pl, and in my PC is open a
windows witch said "SAVE AS: file name: Test.exe". I ask myself,
Have I installed correctly Perl ?.
Thanks Miguel (Spain).
--------------1E7B7E487E3322EE3F5C71C3
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<HTML>
Hi, I have installed Perl 5 in a node of my intranet. It has been installed
in <B>d:\perl</B>. I have created the directory <B>d:\ InetPub\www_val\cgi-bin</B>
for keep my Perl programs.<B>d:\InetPub\www_val</B> is my Web home directory.
I have modify the <B>c:\autoexec.bat</B> add it <B>path=%path%;d:\perl\bin</B>
that is where is found Perl.exe. In the directory <B>\cgi-bin</B> I have
a small program called <B>Test.pl</B>. From my browser I try:
<BR><B>URL: <A HREF="http://fallas.sqo.dec.com/cgi-bin/Test.pl">http://fallas.sqo.dec.com/cgi-bin/Test.pl</A>, </B>and in my PC
is open a windows witch said <B>"SAVE AS: file
name: Test.exe". </B>I ask myself, Have I installed correctly Perl
?.
<P>
Thanks Miguel (Spain).
<BR> </HTML>
--------------1E7B7E487E3322EE3F5C71C3--
------------------------------
Date: Tue, 1 Sep 1998 13:03:27 -0600
From: "Adam" <adam.m@cadvision.com>
Subject: Mysql / Perl / Apache
Message-Id: <35ec4420.0@news.cadvision.com>
Hey, this may be considered the wrong n/g but my problem is mostly oriented
around the actual perl code. All what im trying to do is basically access a
MySQL database from a web server using apache, sounds simple... I've written
up the code and it works great at a command prompt, but when i call it from
localhost netscape always reports back 'document contains no data'... The
header's going through, but none of the actual print statements are.
Wierdest thing. It seems specifically right at the 'Select * from whatever'
level of code out of the DBM libraries, thats where it craps out. If i
comment that out, the code prints fine, but obviously i have no proper sql
output.
Any ideas?
BTW, i as of yet dont have mod_perl installed, was up till 4am last nite
trying to get it going, was a bitch of a time, is mod_perl my key to get
this working?
------------------------------
Date: Tue, 01 Sep 1998 19:26:26 GMT
From: scott1313@my-dejanews.com
Subject: newbie question
Message-Id: <6shhp1$5j7$1@nnrp1.dejanews.com>
I apologise in advance if this is a stupid question... Im using a perl script
to send a form to an email address from a webpage, and it worked fine until I
put my mail server on a different machine then my web server. I have the
machines hooked up together with a network, so I thought It would work fine
if I put in my perl script the path to the other machine... but this isn't
working. I'm getting no errors, the mail is just going nowhere. Is it
possible to do this?
Thank you for any advise anyone out there can give me.
Scott
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 01 Sep 1998 10:25:45 -0700
From: Brad Murray <murrayb@vansel.alcatel.com>
Subject: Re: Perl compiler
Message-Id: <uvhn7kana.fsf@vansel.alcatel.com>
awdorrin@mail.delcoelect.com (Albert W. Dorrington) writes:
> Get my point yet?
Your point, though thoroughly presented, attacks a straw man. You are
essentailly defending the idea that compilation==security, which is a
dangerous and erroneous assumption. As has been beaten to death already
in this thread, a permissions approach is superior, which will vary by
OS and software to be protected.
The only decent argument I have seen put forward for compilation is
the encapsulation of the perl in the executable, thus creating a much
more portable entity as a complete perl installation is not required.
This has advantages, although I prefer to distribute Perl as our
clients (in this case usually our field support team) want to see the
source for the tools we ship, and want to extend them, and want to
build more based on them. So the freedom of the information has in
our case worked in our favour. Had we compiled and obscured our code
we would have had to write much more ourselves, and the work would
not be proceeding as smoothly as it does.
Before you decide to obscure your code, carefully consider the advatanges
to the alternative. As Tom C. has pointed out frequently (and I
believe his point has been consistently missed by his detractors and
taken as an ad hominem attack), your code is probably not that interesting,
so obscuring it does more harm than good. If you leave it out, someone
might fix and/or improve it, and that would be a good thing, no? The legal
aspects of the problem are handled by the law, not through obscurity,
and you probably over-estimate the value of your code when assuming that
someone might break the law in order to steal it from you.
--
BMurray "But there is another deep source of conflict built into
SW Analyst the office of the ruler.... It is the conflict between
Alcatel what the public good requires and what the public happens
to want." ---Joseph Tussman
------------------------------
Date: Tue, 01 Sep 1998 18:38:58 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Perl compiler
Message-Id: <6bXG1.56$kE2.363155@news.shore.net>
Albert W. Dorrington (awdorrin@mail.delcoelect.com) wrote:
: I guess that you also probably leave the windows of
: your car rolled down, the doors unlocked, and the keys in
: the ignition.
I move that Godwin's Law be amended to include references to unlocked
(car|barn|house)doors when used in the context of "you asked for it"
and/or the security benefits derived from obscuring readable text by
way of compilation.
--
Nate Patwardhan|root@localhost
"Fortunately, I prefer to believe that we're all really just trapped in a
P.K. Dick book laced with Lovecraft, and this awful Terror Out of Cambridge
shall by the light of day evaporate, leaving nothing but good intentions in
its stead." Tom Christiansen in <6k02ha$hq6$3@csnews.cs.colorado.edu>
------------------------------
Date: 1 Sep 1998 19:31:53 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: Perl compiler
Message-Id: <6shi39$lui$1@news.NERO.NET>
In article <uvhn7kana.fsf@vansel.alcatel.com>,
Brad Murray <murrayb@vansel.alcatel.com> wrote:
>awdorrin@mail.delcoelect.com (Albert W. Dorrington) writes:
>
>> Get my point yet?
>
>Your point, though thoroughly presented, attacks a straw man. You are
>essentailly defending the idea that compilation==security,
No, actually, his point is that there are various levels of security,
and that compilation gives you a certain level of security. While
compilation will not stop someone who is so intent on getting the
information that he will spend the time decompiling the code, it will
stop the casual user who doesn't have the time/ability to decompile.
------------------------------
Date: Tue, 01 Sep 1998 17:53:13 GMT
From: chad@gurucom.net
Subject: Re: Perl Script to Retreve HTML Files from the Internet
Message-Id: <6shca9$uvs$1@nnrp1.dejanews.com>
> I need to write a Perl Script Program that I will execute using Cron to
> download a specific HTML File to a file. I don't want to view the file on
> screen and I don't want to use Lynx or any browser to get the file.
The LWP module will do the trick. It's loads of fun.
get it from CPAN @ http://www.perl.com
-chad
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Tue, 01 Sep 1998 14:27:20 -0500
From: Thomas Rock <thomas@x-tekcorp.com>
Subject: Please help XS newbie with object creation
Message-Id: <35EC4A98.228F@x-tekcorp.com>
Hello,
Could someone please post a snippet of code which shows how to create a
perl object from within an XSUB? I'd like the object to contain
pointer(s) to C arrays.
Thanks,
--
Thomas Rock
X-Tek Corporation
www.x-tekcorp.com
------------------------------
Date: 01 Sep 1998 10:17:38 -0400
From: Ala Qumsieh <aqumsieh@tigre.matrox.com>
Subject: Re: problem - PLEASE HELP
Message-Id: <x3yu32rhq7x.fsf@tigre.matrox.com>
"Enrico Ng" <ng@usa.net> writes:
>
> I use $FORM{'nameofformfield'} to get my form variables
> regular variables work fine
> ie. there is a form field called name
> so i type $FORM{'name'} and I get the value
> but, when I have a variable inside, it does not work.
> $count = "123456"
> ie. $FORM{'$count'}
> it comes up blank
> how can I get it to work?
Single quotes do not interpolate variables .. use $FORM{$count} or
$FORM{"$count"}
--
Ala Qumsieh | No .. not Just Another
ASIC Design Engineer | Perl Hacker!!!!!
Matrox Graphics Inc. |
Montreal, Quebec | (Not yet!)
------------------------------
Date: Mon, 31 Aug 1998 14:34:40 -0400
From: John Porter <jdporter@min.net>
Subject: Re: Tom Phoenix: ANSWERS WANTED!
Message-Id: <35EAECC0.9958C187@min.net>
Jerome O'Neil wrote:
>
> Nathan V. Patwardhan wrote:
>
> > It's just eerie to read multiple
> > postings from you per day which are almost identical.
>
> And every one of them a polite pointer to the answers that
> the person is looking for.
Check again. Tom is (almost) always polite, but his answers
RARELY provide any real insight or direction.
Much as I'd like to take him to task for it, I don't, because
politeness is such a rarity around here.
> Tom P is a legitimate Perl Stud and Good Guy in my book...
> Jerome "Perl Gelding" O'Neil
I'm not sure "gelding" is the word you want.
Perl is powerful, but I'd hate to think it could do that to you.
Maybe "colt" is better. Hope this helps!
--
John Porter
------------------------------
Date: Tue, 01 Sep 1998 18:27:07 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: Tom Phoenix: ANSWERS WANTED!
Message-Id: <%%WG1.53$kE2.361115@news.shore.net>
Andre L. (alecler@cam.org) wrote:
: It is quite unreasonable to demand answers like you do. The man has the
: right to respond in the manner he deems appropriate, and that is all.
I believe that what you are looking for is a means in which to
suppress my right to be critical! It's not an attempt to slam Tom's
efforts but to focus his attention on problem solving and not going
overboard with precanned materials. Hope this helps!
--
Nate Patwardhan|root@localhost
"Fortunately, I prefer to believe that we're all really just trapped in a
P.K. Dick book laced with Lovecraft, and this awful Terror Out of Cambridge
shall by the light of day evaporate, leaving nothing but good intentions in
its stead." Tom Christiansen in <6k02ha$hq6$3@csnews.cs.colorado.edu>
------------------------------
Date: 1 Sep 1998 18:50:03 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: Tom Phoenix: ANSWERS WANTED!
Message-Id: <6shfkr$igr$1@info.uah.edu>
In article <alecler-0109981303140001@dialup-690.hip.cam.org>,
alecler@cam.org (Andre L.) writes:
: It is quite unreasonable to demand answers like you do. The man has the
: right to respond in the manner he deems appropriate, and that is all.
: Besides, he knows what he's doing.
If this is the case, then why doesn't your argument apply to Abigail
or tchrist?
Greg
--
Woody: Hey, Mr. Peterson, Jack Frost nipping at your nose?
Norm: Yep, now let's get Joe Beer nipping at my liver, huh?
------------------------------
Date: Tue, 01 Sep 1998 19:17:13 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: Tom Phoenix: ANSWERS WANTED!
Message-Id: <ZKXG1.58$kE2.378834@news.shore.net>
John Porter <jdporter@min.net> wrote:
: Check again. Tom is (almost) always polite, but his answers
: RARELY provide any real insight or direction.
I beg to differ [all subsequent quotations are from Tom P's posts]:
: I suspect that you want to remove newlines rather than carriage returns.
: Removing newlines is done most often in Perl with chomp. Does that do
: what you need? Hope this helps!
That was the very first post that a Dejanews search turned up under Tom's
name. I'd say it provides both insight (guessing what the person was
trying to do based on her question) and direction (check out the function
"chomp").
How 'bout this one?
: That's valid Perl code, dispite the misleading backslashes. Isn't it
: doing what you want? It should find a string in $daemon beginning with
: '<in', followed by any character but newline, then finishing up with
: 'routed>>', and when it finds that string it should replace it with
: '/usr/sbin/in.routed'. Is that not what you want? Hope this helps!
Here somebody's regex isn't working the way it's "supposed" to. Tom walks
him through the regex and points out exactly what it's doing. Does that
lack "direction"? Even responses like
: The command 'perldoc constant' should inform you. Hope this helps!
or the rare
: FAQ
tell the person where to find the answer to their question, don't they?
I'm not saying this to bust your balls, John, but out of genuine
curiosity. Tom P is one of the (if not *the*) most helpful people on this
newsgroup, yet you find him unhelpful. Tom is the closest thing we have to
the dreaded "free help desk", so what do you find lacking in his approach?
: Much as I'd like to take him to task for it, I don't, because
: politeness is such a rarity around here.
Too true.
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: Mon, 31 Aug 1998 15:37:31 -0400
From: John Porter <jdporter@min.net>
Subject: Re: Tom Phoenix: ANSWERS WANTED!
Message-Id: <35EAFB7B.4291965E@min.net>
Greg Bacon wrote:
>
> In article <alecler-0109981303140001@dialup-690.hip.cam.org>,
> alecler@cam.org (Andre L.) writes:
> : It is quite unreasonable to demand answers like you do. The man has the
> : right to respond in the manner he deems appropriate, and that is all.
> : Besides, he knows what he's doing.
>
> If this is the case, then why doesn't your argument apply to Abigail
> or tchrist?
It does. I'd say about half of tchrist's responses* fall into this
category, and around 90% of "Abigail"'s. But plenty of people have
volunteered to call them out for the tone of their talk, whereas
the only complaint against rootbeer is the vaccuum-like quality of
his "help".
John Porter
*That's not to say half of the *volume* of his responses;
surely 95% of the volume from tchrist is good, meaty, invaluable
stuff.
------------------------------
Date: Tue, 01 Sep 1998 19:49:18 GMT
From: Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
Subject: Re: Tom Phoenix: ANSWERS WANTED!
Message-Id: <35EC4D68.A19984CF@bbnplanet.com>
> > Tom P is a legitimate Perl Stud and Good Guy in my book...
> > Jerome "Perl Gelding" O'Neil
>
> I'm not sure "gelding" is the word you want.
> Perl is powerful, but I'd hate to think it could do that to you.
> Maybe "colt" is better. Hope this helps!
i almost choked on my diet coke reading this one...thanks for the laugh
:)
- the Perl Filly
------------------------------
Date: 01 Sep 1998 19:57:09 +0200
From: Ralph SOBEK <sobek@irit.fr>
Subject: Trouble compiling Perl5.005_02: malloc.c
Message-Id: <ausoib7m2y.fsf@irit.fr>
This concerns the compilation of the new Perl5.005_02 with SUWspro CC
under Solaris 2.5.
Is it normal that Perl malloc returns `pointer to char' rather
than `pointer to void'?
"malloc.c", line 686: identifier redeclared: malloc
current : function(uint) returning pointer to char
previous: function(uint) returning pointer to void : "/usr/include/stdli
b.h", line 86
"malloc.c", line 1179: identifier redeclared: free
current : function(pointer to void) returning int
previous: function(pointer to void) returning void : "/usr/include/stdli
b.h", line 85
"malloc.c", line 1261: identifier redeclared: realloc
current : function(pointer to void, uint) returning pointer to char
previous: function(pointer to void, uint) returning pointer to void : "/
usr/include/stdlib.h", line 87
"malloc.c", line 1450: identifier redeclared: calloc
current : function(uint, uint) returning pointer to char
previous: function(uint, uint) returning pointer to void : "/usr/include
/stdlib.h", line 84
cc: acomp failed for malloc.c
Excuse my ignorance, but the last time I compiled Perl 5, it
was version 002, and I did not run into any such problem.
Please reply by e-mail, if at all possible, and I will
summarize to the net if interest warrants.
--Ralph
--
Dr. Ralph P. Sobek Disclaimer: The above ruminations are my own.
Ralph.Sobek@irit.fr Addresses are ordered by importance.
sobek@irit.fr If all else fails, try:
newsmaster@irit.fr, postmaster@irit.fr sobek@diva.eecs.berkeley.edu
Ph:(+33)[0]561558618 FAX:(+33)[0]561556258 http://www.irit.fr/SSI/~Ralph.Sobek/
===============================================================================
The truth about the Past is really all we have to guide us in the Present
-- Mary Benson (1964)
------------------------------
Date: Tue, 01 Sep 1998 11:31:24 -0700
From: Allen Choy <achoy@us.oracle.com>
Subject: unshifting in a FILEHANDLE
Message-Id: <35EC3D7C.4D5C1F6C@us.oracle.com>
I know you can't unshift() something into a FILEHANDLE, but does anyone
know of
a way to achieve this behavior w/o slurping the FILEHANDLE into an
array?
Thanks,
Allen
------------------------------
Date: 01 Sep 1998 15:01:53 -0400
From: Jonathan Feinberg <jdf@pobox.com>
To: Allen Choy <achoy@us.oracle.com>
Subject: Re: unshifting in a FILEHANDLE
Message-Id: <m3g1ebr71a.fsf@joshua.panix.com>
Allen Choy <achoy@us.oracle.com> writes:
> I know you can't unshift() something into a FILEHANDLE, but does
> anyone know of a way to achieve this behavior w/o slurping the
> FILEHANDLE into an array?
Your question, as stated, doesn't make sense. What are you trying to
do? Is it possible that the following question from perlfaq5 will
help you?
"How can I make a filehandle local to a subroutine? How do I pass
filehandles between subroutines? How do I make an array of
filehandles?"
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Tue, 01 Sep 1998 19:10:11 GMT
From: hex@voicenet.com (Matt Knecht)
Subject: Re: unshifting in a FILEHANDLE
Message-Id: <nEXG1.109$7%3.552333@news2.voicenet.com>
Jonathan Feinberg <jdf@pobox.com> wrote:
>Allen Choy <achoy@us.oracle.com> writes:
>
>> I know you can't unshift() something into a FILEHANDLE, but does
>> anyone know of a way to achieve this behavior w/o slurping the
>> FILEHANDLE into an array?
>
>Your question, as stated, doesn't make sense. What are you trying to
>do? Is it possible that the following question from perlfaq5 will
>help you?
Perhaps he wants something like:
unshift <FILE>, "This is the new first line\n";
In which case its time to read perlfaq5: "How do I change one line
in a file/delete a line in a file/insert a line in the middle of a
file/append to the beginning of a file?"
--
Matt Knecht - <hex@voicenet.com>
------------------------------
Date: 1 Sep 1998 18:08:40 GMT
From: alastair@psoft.co.uk (Alastair)
Subject: Re: URGENT: How do I post to a newsgroup from a perl routine?
Message-Id: <6shd78$np3@handupme.avid.com>
Mick Knutson <NoSpam_mknutson@websolution.com> wrote:
>URGENT: How do I post to a newsgroup from a perl routine?
>
>I would like to get a subroutine that will post a message to a news group
>when called. Is there a subroutine that you can help me with?
Doing a quick check using the CPAN module for 'NNTP' ;
i /NNTP/ gave me ;
Distribution RVA/NNTPClient-0.28.tar.gz
Module LWP::Protocol::nntp (GAAS/libwww-perl-5.36.tar.gz)
Module Mail::Folder::NNTP (KJOHNSON/MailFolder-0.07.tar.gz)
Module NNTP::Server (Contact Author JOEHIL (Joe Hildebrand))
Module Net::NNTP (GBARR/libnet-1.0605.tar.gz)
Module News::NNTPClient (RVA/NNTPClient-0.28.tar.gz)
Module News::NNTPFetchProgress (RVA/NNTPClient-0.28.tar.gz)
Module URI::URL::nntp (GAAS/libwww-perl-5.36.tar.gz)
HTH.
--
Alastair
Avid Effects
alastair@psoft.co.uk
------------------------------
Date: 1 Sep 1998 18:55:05 GMT
From: gbacon@cs.uah.edu (Greg Bacon)
Subject: Re: US-NY-LI 516 PERL Programmer/Analyst
Message-Id: <6shfu9$igr$2@info.uah.edu>
[Posted and mailed]
In the future, please consider advertising job openings at
<URL:http://tpj.com/tpj/jobs>
Greg
--
I considered atheism but there weren't enough holidays.
------------------------------
Date: 01 Sep 1998 10:03:24 -0400
From: Ala Qumsieh <aqumsieh@tigre.matrox.com>
Subject: Re: Which error return test?
Message-Id: <x3yyas4gcb7.fsf@tigre.matrox.com>
First of all, all of these little snippets will print "Hi" and set
$erc to 0 .. unless $erc is true beforehand .. in which case, nothing
happens ... maybe your unless() conditional should be different??
Bill 'Sneex' Jones <sneaker@sneex.fccj.org> writes:
>
> Should
>
> $erc = system("echo Hi") / 256 unless $erc;
>
> be used. Or should
>
> $erc = system("echo Hi") % 256 unless $erc;
This will ALWAYS return 0 since system multiplies the exit status of
its argument multiplied by 256. (n*256) % 256 = 0 ALWAYS.
>
> be used???
>
>
> Hmmm, or maybe
>
> $erc = system("echo Hi") & 256 unless $erc;
>
--
Ala Qumsieh | No .. not Just Another
ASIC Design Engineer | Perl Hacker!!!!!
Matrox Graphics Inc. |
Montreal, Quebec | (Not yet!)
------------------------------
Date: Tue, 01 Sep 1998 17:37:39 GMT
From: rowlands@my-dejanews.com
Subject: Re: {n} quantifier question
Message-Id: <6shbd3$tr9$1@nnrp1.dejanews.com>
In article <x3y3eagak6b.fsf@tigre.matrox.com>,
Ala Qumsieh <aqumsieh@tigre.matrox.com> wrote:
>
> #!/usr/local/bin/perl
>
> if ("ab" =~ /(a*[^b]*b){2}/) { die "YES\n" }
> print "Nope!\n";
> __END__
>
> This prints "Nope!" on my machine! What version of Perl are you using?
> (I doubt if that would make a difference anyway!)
It prints "YES" on my machine - honest! I'm using perl version 5.001,
unofficial patchlevel 1m, Perl for Win32 build 110.
--
Stephen Rowland
Stephen.Rowland@rebus.co.uk
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 V8 Issue 3608
**************************************
