[9341] in Perl-Users-Digest
Perl-Users Digest, Issue: 2936 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 22 16:18:15 1998
Date: Mon, 22 Jun 98 13:00:30 -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 Mon, 22 Jun 1998 Volume: 8 Number: 2936
Today's topics:
Delete <luckys@geocities.com>
Re: Delete (Bob Trieger)
Re: Delete <tchrist@mox.perl.com>
Errormessage ??? <thomas@provideo.dk>
Re: first language (Stuart McDow)
Re: first language (Chris Engebretson)
Re: Flames.... (Brand and Karina Hilton)
Re: Flames.... (Ilya Zakharevich)
Re: Flames.... <tchrist@mox.perl.com>
Re: Flames.... (Ilya Zakharevich)
Re: Flames.... <steph@hotkey.net.au>
Re: Flames.... (I R A Aggie)
Re: Flames.... (Stuart McDow)
Re: Flames.... (John Moreno)
Re: Flames.... (John Moreno)
Re: Flames.... (John Moreno)
Re: Flames.... (Billy Chambless)
Re: hmmm, suggestions? <mike@newfangled.com>
Re: hmmm, suggestions? <tchrist@mox.perl.com>
How do I know the name of the caller subroutine? <sbekman@iil.intel.com>
Re: How do I know the name of the caller subroutine? (Matt Knecht)
Re: How do I know the name of the caller subroutine? <tchrist@mox.perl.com>
HTML form and Perl script send data to another Perl scr (p)
New to perl..stupid questions on arrays and memory <mspring@nortel.com>
pattern and variable question (Sylvain Juneau)
Re: Practical advice on linking in a .a <mark@satch.markl.com>
Re: problems with flock (Brian L. Matthews)
Re: Question about putting a running perl scriptin the <JKRY3025@comenius.ms.mff.cuni.cz>
Re: Sending files via mail in perl <JKRY3025@comenius.ms.mff.cuni.cz>
Re: Sending files via mail in perl <tchrist@mox.perl.com>
Re: Sick things to do in foreach loops (Peter Scott)
Re: Sick things to do in foreach loops dgris@rand.dimensional.com
Re: Sick things to do in foreach loops <tchrist@mox.perl.com>
Re: Storing and passing object references <hck@formalsys.ca>
Re: Storing and passing object references <tchrist@mox.perl.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 22 Jun 1998 15:04:09 -0400
From: Luckys <luckys@geocities.com>
Subject: Delete
Message-Id: <358EAAA9.5275@geocities.com>
I'm having difficulty deleting a key, value pair from an associative
array bound DBM file. I am able to do the following:
$key = 'name';
$value = 'name:\0:street_address:\0:etc';
dbmopen(%index, "index", 0766);
$index{$key} = "$value";
dbmclose(%index);
# Open DBM file and delete key, value pair.
dbmopen(%index, "index", 0766);
delete $ary{$key};
dbmclose(%index);
While this seems to delete access to either the key, value pair; when I
view the DMB files source I am still able to see reminace of the pair.
My question is: Does the delete() function only untie the key, value
pair from the DMB file? If so, how can I completely remove any traces
of the associative array from the DMB file?
------------------------------
Date: Mon, 22 Jun 1998 19:26:44 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: Delete
Message-Id: <6mmb95$stv$1@strato.ultra.net>
[ posted and mailed ]
luckys@geocities.com wrote:
-> I'm having difficulty deleting a key, value pair from an associative
-> array bound DBM file. I am able to do the following:
-> # Open DBM file and delete key, value pair.
-> dbmopen(%index, "index", 0766);
-> delete $ary{$key};
-> dbmclose(%index);
Where did the %ary hash come from?
delete $index{$key};
Bob Trieger
sowmaster@juicepigs.com
" Cost a spammer some cash: Call 1-800-286-0591
and let the jerk that answers know that his
toll free number was sent as spam. "
------------------------------
Date: 22 Jun 1998 19:33:34 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Delete
Message-Id: <6mmbie$lmc$4@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
luckys@geocities.com writes:
:I'm having difficulty deleting a key, value pair from an associative
:array bound DBM file. I am able to do the following:
:
:$key = 'name';
:$value = 'name:\0:street_address:\0:etc';
Why are you putting a '\0' in there? Do you mean "\0"? Did
you know these are different!?
:dbmopen(%index, "index", 0766);
What are you setting the owner-execute bit on a dbm file?
:$index{$key} = "$value";
Why are you quoting the value? Is there something funny
happening here?
:# Open DBM file and delete key, value pair.
:dbmopen(%index, "index", 0766);
Why aren't you checking the return value?
:delete $ary{$key};
:
:dbmclose(%index);
:
:
:While this seems to delete access to either the key, value pair; when I
:view the DMB files source I am still able to see reminace of the pair.
Just because it's on disk doesn't mean it's accessible. Is it?
What happens when you try to access it again? It's probably
just in a deleted block.
--tom
--
Pereant, inquit, qui ante nos nostra dixerunt.
"Confound those who have said our remarks before us."
--Aelius Donatus
------------------------------
Date: Mon, 22 Jun 1998 14:02:07 -0700
From: Thomas Albech <thomas@provideo.dk>
Subject: Errormessage ???
Message-Id: <358EC64F.56A9EDB2@provideo.dk>
This is a multi-part message in MIME format.
--------------6312DE112C3E636811B6042E
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Hi There,
Can anyone help me with this errormessage...
I just bought the Learning Perl from O'Reilly, and typed in the first
bit of code and im really lost with this errormessage...
Can't modify scalar safe chop in scalar assignment at ./Get_Name line 4,
near ");"
Execution of ./Get_Name aborted due to compilation errors.
Here is my code:
#!/usr/freeware/bin/perl
print "What is your name? ";
$myname = <STDIN>;
chomp = ($myname);
print "Hello, $myname!\n";
Thanks,
Thomas
--------------6312DE112C3E636811B6042E
Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Thomas Albech
Content-Disposition: attachment; filename="vcard.vcf"
begin: vcard
fn: Thomas Albech
n: Albech;Thomas
org: Crystal Graphics
adr;dom: Guldborgvej 3;;DK-4990 Sakskxbing;;;;
email;internet: thomas@provideo.dk
tel;work: +54 54 70 71 10
tel;fax: +45 54 70 03 10
x-mozilla-cpt: ;0
x-mozilla-html: FALSE
version: 2.1
end: vcard
--------------6312DE112C3E636811B6042E--
------------------------------
Date: 22 Jun 1998 18:54:16 GMT
From: smcdow@arlut.utexas.edu (Stuart McDow)
Subject: Re: first language
Message-Id: <6mm98o$l6q$1@ns1.arlut.utexas.edu>
linberg@literacy.upenn.edu (Steve Linberg) writes:
>
> Heck, I started with TRS-80 BASIC (listing the "source code" to
> Hamurabi to learn how to sell my wheat. Amazing.)
Hey, me too! When was that? 1976? I think I was a freshman in high
school....
> From there it was straight to 6502 assembler, then C (courtesy of
> K&R, of course) a year or two later.
Hmmm, I found an Z80 assembler for the TRS-80 (had to load it via the
cassette tape interface), so my next language after TRS-80 BASIC
(which was produced by Micro$oft, BTW) was Z80 assembly. Quite fun,
actually. That was probably 1978. Fortran and Pascal followed in quick
succession. Alas, I didn't start learning C until 1982. And double
alas, I didn't start learning perl until 1989 or so. I'll always be a
newbie. <SIGH> :-)
> Perl would have destroyed me for all other languages
Perl has destroyed me for all other languages. I gave up on C and C++
many years ago. Nowadays, the only thing C is good for is for XS
modules. <Insert diety here> save us all from java.
--
Stuart McDow Applied Research Laboratories
smcdow@arlut.utexas.edu The University of Texas at Austin
"Look for beauty in roughness, unpolishedness"
------------------------------
Date: Mon, 22 Jun 1998 19:47:01 GMT
From: engebret@sg1.cr.usgs.gov (Chris Engebretson)
Subject: Re: first language
Message-Id: <EuyxMD.HKy@igsrsparc2.er.usgs.gov>
In article <6mjheb$shg$1@csnews.cs.colorado.edu>,
Tom Christiansen <tchrist@mox.perl.com> writes:
[ snip ]
|> I don't know whether C would have made as much sense without
|> that prior BASIC/Pascal/assembler background. I don't know
|> whether Perl would have made as much sense without the prior
|> C/sh/awk background.
This illustrates one of the problems with the answers that people
inevitably give when posed the tired-but-true "What language
should I learn first?" question. The die-hard Bazzle (for lack
of a better hypothetical language name) fanatics are quick to
leap to their feet and shout "Learn Bazzle! The syntax is
intuitive! The facilities are endless! Fooble rots your brain!
Barble gives you gas! Bazzle is the end-all silver bullet!"
But since these individuals have become so deeply entrenched into
the Bazzle way of doing things, and perhaps since they have been
using Bazzle for so long, they have forgotten the road they took
to get to their current position. Additionally, as you note
above, they also may be in no position to judge how their prior
experiences with other languages (a la Fooble and Barble) have
influenced their current style and methodologies, and as a
result, influenced their outlook on Bazzle. [*]
Typically, the knee-jerk responses that questions such as this
provoke are not based on experiences with one single language,
but instead on a good number of languages in a good number of
distinct environments. The people helpfully providing the
answers may not be consciously aware of it, but the answers
themselves are invariably skewed. In part, this is because the
original question is not very good to begin with.
Essentially, the unqualified question "What's the best language
to start with?" is about as useful as the question "What's the
best color?" There *are* some differences; for example, the
latter is somewhat less likely to ignite a full-scale flame war.
We can turn these into better questions by further qualifying
them with specifics: "What's the best color for camoflauge?" is
a somewhat more useful question. If somebody were to answer
"hot pink," then we could probably safely ridicule the
respondent (unless the desired operation was to ambush a flock
of flamingos, in which case you could argue that the question
should have been qualified even further.)
|> Of course, I have never understood why anyone thinks they need
|> anything but K&R to learn C, either. :-)
K&R2 is certainly an excellent book, and can be considered the de
facto C reference (ISO and ANSI standards notwithstanding.) It
may not be quite enough for the virgin C programmer to get up to
speed, however. Perhaps the most useful way for a new C programmer
to use K&R is to keep it within reach while going over a piece of
well-written, well-documented C code.
Regards,
[*] No offense to the Fooble and Barble devout. :-)
--
Chris Engebretson - Raytheon STX Corporation | Ph#: (605)594-6829
USGS EROS Data Center, Sioux Falls, SD 57198 | Fax: (605)594-6940
http://edcwww.cr.usgs.gov/ mailto:engebret@sg1.cr.usgs.gov
Opinions are not those of Raytheon Systems Company or the USGS.
------------------------------
Date: Mon, 22 Jun 1998 17:58:26 GMT
From: bkhilton@netcom.com (Brand and Karina Hilton)
Subject: Re: Flames....
Message-Id: <bkhiltonEuysLF.A9I@netcom.com>
In article <Pine.GSO.3.96.980621184512.6898D-100000@user2.teleport.com>,
Tom Phoenix <rootbeer@teleport.com> wrote:
>On Sun, 21 Jun 1998, Brand and Karina Hilton wrote:
>
>> Perhaps the mini-FAQ should be posted rather than mailed.
>
>If someone doesn't read what's already being posted, why would additional
>(identical) postings help anyone?
They don't read what's being posted because it's not in response to
their question. Stupid and inconsiderate, but true. I'm assuming
they'll read the responses to their question.
Actually, I've talked myself out of it anyway. The problem Tom C.
brought up was that munged addresses often keep newbies from
getting the mini-FAQ. Posting the mini-FAQ would help alleviate
that particular problem, but at the expense of more noise on the
newsgroup. The presence of the mini-FAQ as a response might cause
some potential responders to pass, but not enough to make up the
difference.
Bad idea. I should've thought it through more before posting.
Brand
------------------------------
Date: 22 Jun 1998 18:12:23 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Flames....
Message-Id: <6mm6q7$rj$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Chip Salzenberg
<chip@mail.atlantic.net>],
who wrote in article <6ml76i$7bh$1@cyprus.atlantic.net>:
> No, that's just plain wrong. Knowing how to search text files on a given
> platform is such a basic skill that anyone who doesn't know how to do it,
> doesn't think they have to know it, yet demands help from volunteers, is
> just not ready (emotionally and socially, or perhaps educationally) for
> the rigors of programming in Perl or any other language.
This is plain wrong. On system with starving help/doc systems this
may be *very* true. On system with *really helping* help/doc systems
there is no need for a *user* to search filesystem (the help/doc
system will include search facilities for its own format), thus the
knowledge of `grep' is useless for a casual Perl programmer.
Ilya
------------------------------
Date: 22 Jun 1998 18:19:30 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Flames....
Message-Id: <6mm77i$guv$2@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, ilya@math.ohio-state.edu (Ilya Zakharevich) writes:
:thus the
:knowledge of `grep' is useless for a casual Perl programmer.
This statement is ludicrous in the extreme. The `programmer' who is so
casual as to be unable to look through a text file is so far down the
food chain that help is useless. The bottom 5% take up 300% of our time.
Enough already. The bottom line is that we're not here to teach people
how to read.
We're not even here for free consulting to people who can't help
themselves. Whatever happened to a *discussion* group, not a gimme group?
In any event, metadiscussion is the group-killer.
--tom
--
If the space is a problem, get a bigger computer. Computers are supposed
to serve man, not vice versa, the experience of the last 40 years
notwithstanding. --Larry Wall in <1995Jul30.033515.25114@netlabs.com>
------------------------------
Date: 22 Jun 1998 18:28:56 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: Flames....
Message-Id: <6mm7p8$354$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Tom Christiansen
<tchrist@mox.perl.com>],
who wrote in article <6mm77i$guv$2@csnews.cs.colorado.edu>:
> In comp.lang.perl.misc, ilya@math.ohio-state.edu (Ilya Zakharevich) writes:
> :thus the
> :knowledge of `grep' is useless for a casual Perl programmer.
>
> This statement is ludicrous in the extreme. The `programmer' who is so
> casual as to be unable to look through a text file is so far down the
> food chain that help is useless. The bottom 5% take up 300% of our time.
> Enough already. The bottom line is that we're not here to teach people
> how to read.
Agreed. But we may provide Perl docs in a usable format. And some of
us do. ;-) If such docs is provided, then your remark is irrelevant.
Ilya
------------------------------
Date: Tue, 23 Jun 1998 04:28:45 +1000
From: Stephan Carydakis <steph@hotkey.net.au>
Subject: Re: Flames....
Message-Id: <358EA25D.4E63@hotkey.net.au>
> Maybe those who respond here 'Use grep, dammit!' will consider that they
> are adding yet another level of jargon to burden those struggling with
> Perl. Imagine if you had never heard of 'grep' (let alone knowing what
> the letters stand for). "Please search the wonderful Perl documentation
> on your system for the text 'xxx'." would be a thoughtful and
> compassionate way of dealing with this problem for the Unix-deprived.
>
> --
> Larry Rosler
> Hewlett-Packard Laboratories
> http://www.hpl.hp.com/personal/Larry_Rosler/
> lr@hpl.hp.com
Here here. What the hell ever happened to COMPASSION. In todays World,
it's seems to be getting as rare as hens eggs.
I am a newbie to Perl and programming in general. I did do a diploma in
programming(COBOL, RPG, JCL),but that was 10 years ago. People like
Larry have shown me some compassion when answering my newbie-trash FAQS.
This has helped me 10 fold compared to the "RTFM" or "RTFFAQ" type
responses that I once recieved, and has showed me the err in my ways.
Now through his compassion, I doubt that I will make too many more
crappy posts that piss some of you off so much. So not only has his
compassion helped me, its helped Larry, and it helps all. No one loses.
In closing I would just like to say that alot can be achieved through a
little compassion and love of your fellow man and it benefits everyone.
But then again, what's compassion got to do with Perl
________________________________________
Stephan Carydakis steph@hotkey.net.au
________________________________________
------------------------------
Date: Mon, 22 Jun 1998 14:47:06 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Flames....
Message-Id: <fl_aggie-2206981447060001@aggie.coaps.fsu.edu>
In article <6mlpfl$bf2$1@rand.dimensional.com>, dgris@rand.dimensional.com
wrote:
+ What is `unrealistic' is the expectation among some that they can
+ enter a professional gathering and expect expert training for free.
Frame this.
James
--
Consulting Minister for Consultants, DNRC
The Bill of Rights is paid in Responsibilities - Jean McGuire
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/CPAN-local/doc/FAQs/cgi/idiots-guide.html>
------------------------------
Date: 22 Jun 1998 18:57:36 GMT
From: smcdow@arlut.utexas.edu (Stuart McDow)
Subject: Re: Flames....
Message-Id: <6mm9f0$m0s$1@ns1.arlut.utexas.edu>
phenix@interpath.com (John Moreno) writes:
>
> New File
> Save File
> Open File
> Search File
Delete File
--
Stuart McDow Applied Research Laboratories
smcdow@arlut.utexas.edu The University of Texas at Austin
"Look for beauty in roughness, unpolishedness"
------------------------------
Date: Mon, 22 Jun 1998 19:06:59 GMT
From: phenix@interpath.com (John Moreno)
Subject: Re: Flames....
Message-Id: <1db142w.125q9iukhttgoN@roxboro0-010.dyn.interpath.net>
Larry Rosler <lr@hpl.hp.com> wrote:
> Chris Nandor <pudge@pobox.com> says...
> > ames0009@tc.umn.edu wrote:
> >
> > # chip@mail.atlantic.net (Chip Salzenberg) wrote:
> > #
> > # >Why should it be too much to expect that a person wanting to learn
> > # >about a *programming*language* know how to grep?!
> > #
> > # That's the whole point. Your talking about people who are trying to
> > # learn what "grep" is -- but you are assuming (as many posters do) that
> > # a novice should already know something before they even ask. Why would
> > # they ask if they knew how to get the answer already?
> >
> > Where does it end? When someone asks how to turn the computer on? Where
> > the Any key is? You have to know how to use a computer before you can
> > program it, period. There are degrees of usage, and degrees of
> > programming, but if you cannot search a text file, at LEAST go to an
> > appropriate place to learn it, which is NOT a programming newsgroup.
>
> The search tool *is* available, even on Windows systems (which is where
> most of the flaming is aimed), but is hard to find. The problems are:
-snip-
If you want to complain about word choice that may or may not be
appropriate (my saying use Find File and click on the leftmost pop-up
while holding down the option key, is both confusing and irrelevant to
most readers), then that's fine. But don't complain about the thrust of
the response (i.e. look for it yourself). So although "grep. man -k.
less. find. whatever." is less than clear, the following paragraph
explained it a little better.
Of course even that could have been worded better for best results, but
then again it (like this whole thread) wasn't in response to somebody
actually asking for help, and even if it was it still has a large nugget
of truth, if you don't know enough about your tools to know what to use
for searching through text files for a keyword or two then you should
learn more about your computer and the tools available instead of how to
program (and if a tool for searching through multiple text files isn't
available, then say so when asking your question).
Here's where this sub-thread branches off:
Tom Christiansen <tchrist@mox.perl.com> wrote:
> gebis@albrecht.ecn.purdue.edu (Michael J Gebis) writes:
> :The faq is big. The docset for perl is big.
>
> grep. man -k. less. find. whatever.
>
> If you haven't figured out how to search for things,
> turn off your computer until you can buy yourself
> a pet trainer.
But Tom snipped and didn't address what I consider a important part of
Gebis's message, namely:
> The faq is big. The docset for perl is big. This is a good thing, but it
> is not without problems. It's hard to find stuff if you lack context.
> Dejanews is worse -- if you don't have some good keywords, you'll end up
> finding 200,000 seemingly random results.
And this brings up a point which needs to be made - if you don't know
enough about what you want to do to figure out a range of keywords or
starting point to find what you are looking for, then you probably don't
need a answer because you don't know enough to have a valid question
(with a obvious exception for people who don't speak english very well).
--
John Moreno
------------------------------
Date: Mon, 22 Jun 1998 19:15:39 GMT
From: phenix@interpath.com (John Moreno)
Subject: Re: Flames....
Message-Id: <1db16dl.1oixie8x21icuN@roxboro0-010.dyn.interpath.net>
Stuart McDow <smcdow@arlut.utexas.edu> wrote:
> phenix@interpath.com (John Moreno) writes:
> >
> > New File
> > Save File
> > Open File
> > Search File
>
> Delete File
No, you can go quite a ways without that one nowdays.
--
John Moreno
------------------------------
Date: Mon, 22 Jun 1998 19:30:01 GMT
From: phenix@interpath.com (John Moreno)
Subject: Re: Flames....
Message-Id: <1db16ix.1entp3glslnejN@roxboro0-010.dyn.interpath.net>
Ilya Zakharevich <ilya@math.ohio-state.edu> wrote:
> <chip@mail.atlantic.net>], who wrote:
> > No, that's just plain wrong. Knowing how to search text files on a given
> > platform is such a basic skill that anyone who doesn't know how to do it,
> > doesn't think they have to know it, yet demands help from volunteers, is
> > just not ready (emotionally and socially, or perhaps educationally) for
> > the rigors of programming in Perl or any other language.
>
> This is plain wrong. On system with starving help/doc systems this
> may be *very* true. On system with *really helping* help/doc systems
> there is no need for a *user* to search filesystem (the help/doc
> system will include search facilities for its own format), thus the
> knowledge of `grep' is useless for a casual Perl programmer.
Knowledge of 'grep' may be useless (I certainly don't have any) but
knowing how to search in one manner or another isn't. And that's the
point being made - the first time I installed MacPerl I couldn't get
Shuck to work correctly for one reason or another, and instead used a
text editor which had excellent searching capabilities (BBEdit Lite).
Now I've got Shuck working and mainly use it.
--
John Moreno
------------------------------
Date: 22 Jun 1998 19:28:49 GMT
From: billy@cast.msstate.edu (Billy Chambless)
Subject: Re: Flames....
Message-Id: <6mmb9h$ctp$1@nntp.msstate.edu>
In article <6mm7p8$354$1@mathserv.mps.ohio-state.edu>, ilya@math.ohio-state.edu (Ilya Zakharevich) writes:
|> Agreed. But we may provide Perl docs in a usable format. And some of
|> us do. ;-) If such docs is provided, then your remark is irrelevant.
Yup.
Me, I like finding the answers to my Perl quesions in a multimegabyte,
hardcopy, random-access/indexed database I got at Waldenbooks.
Works like a charm, even when our decrepit file servers hoses up.
------------------------------
Date: Mon, 22 Jun 1998 14:43:26 -0400
From: "Michael S. Brito, Jr." <mike@newfangled.com>
To: Scratchie <upsetter@ziplink.net>
Subject: Re: hmmm, suggestions?
Message-Id: <358EA5C0.791BB8E5@newfangled.com>
I would tend to agree with everyone else. Get a task that needs to be done and
grab some perl resources to help you slap together some crude code. No one said
it has to be perfect, or even work for that matter, the first time. The way I
wrote my first script (it was kinda like a ListServ) was I went to a whole bunch
of different script archives, grabbed code from differents scripts, meshed it
all together and made it do what I wanted! It worked, what can I say!
Scratchie wrote:
> Lord Byron <lordbyron@rapidnet.net.au> wrote:
> : Hi. I realise this is probably an annoying message, but I'm (trying) to
> : learn Perl, and I was wondering if any of you knew of a good way to
> : accelerate things? Are there any particularly good tutorials or books that
> : would help things out?
>
> The best way to learn perl, from my experience, is to have some boring,
> repetitive, text-based task to accomplish. Nothing inspired me to learn
> perl more than updating my calendar by hand for a couple of weeks.
>
> I like the Llama book, too.
>
> --Art
> --------------------------------------------------------------------------
> National Ska & Reggae Calendar
> http://www.ziplink.net/~upsetter/ska/calendar.html
> --------------------------------------------------------------------------
-----------------------------------------------------------
Michael S. Brito, Jr., Web Developer
Newfangled Graphics Co. Inc.
mike@newfangled.com
#!/bin/perl -sp0777i<X+d*lMLa^*lN%0]dsXx++lMlN/dsM0<j]dsj
$/=unpack('H*',$_);$_=`echo 16dio\U$k"SK$/SM$n\EsN0p[lN*1
lK[d2%Sa2/d0$^Ixp"|dc`;s/\W//g;$_=(#####censored######)
-----------------------------------------------------------
------------------------------
Date: 22 Jun 1998 19:27:39 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: hmmm, suggestions?
Message-Id: <6mmb7b$lmc$2@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
"Michael S. Brito, Jr." <mike@newfangled.com> writes:
:I would tend to agree with everyone else.
What a lucky guy you are!
--tom
--
As Mike O'Dell once said, only half jokingly, "the most brilliant
decision in all of UNIX was the choice of a *single* character for
the newline sequence"...
------------------------------
Date: Mon, 22 Jun 1998 21:48:35 +0300
From: Bekman Stanislav <sbekman@iil.intel.com>
Subject: How do I know the name of the caller subroutine?
Message-Id: <358EA703.1372@iil.intel.com>
Hi,
I have searched the FAQ and dejanews, but still I don't find the way, to
know what was the name of the caller subroutine inside the callee
subroutine.
I know that I can do aaaa(@some_params,'aaaa'), but this is ugly.
There must be a way, since when some error happens perl knows to trace
the whole list of the subroutines as they have been called starting from
the first parent down to the errorneous sub.
So is there are any way to do that? Probably some module I don't know
about...
Thanks a lot!
______________________________________________________________________
Stas Bekman mailto:sbekman@iil.intel.com http://www.eprotect.com/stas
Visit: http://www.eprotect.com/stas/TULARC (Perl,CGI,Linux,Web,Java,PC)
Linux receives a 'Product of the Year Award' for Best Technical Support
http://www.infoworld.com/cgi-bin/displayTC.pl?97poy.supp.htm
------------------------------
Date: Mon, 22 Jun 1998 19:20:12 GMT
From: hex@voicenet.com (Matt Knecht)
Subject: Re: How do I know the name of the caller subroutine?
Message-Id: <M7yj1.11$fn3.155590@news3.voicenet.com>
Bekman Stanislav <sbekman@iil.intel.com> wrote:
>I have searched the FAQ and dejanews, but still I don't find the way, to
>know what was the name of the caller subroutine inside the callee
^^^^^^
perldoc -f caller
--
Matt Knecht - <hex@voicenet.com>
"496620796F752063616E207265616420746869732C20796F7520686176652066
617220746F6F206D7563682074696D65206F6E20796F75722068616E6473210F"
------------------------------
Date: 22 Jun 1998 19:30:49 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: How do I know the name of the caller subroutine?
Message-Id: <6mmbd9$lmc$3@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Bekman Stanislav <sbekman@iil.intel.com> writes:
:I have searched the FAQ and dejanews, but still I don't find the way, to
:know what was the name of the caller subroutine inside the callee
:subroutine.
Funny, this is explained pretty clearly in the standard perlfunc
manpage. How did you miss it?
--tom
--
Though I'll admit readability suffers slightly...
--Larry Wall in <2969@jato.Jpl.Nasa.Gov>
------------------------------
Date: Mon, 22 Jun 1998 18:19:26 GMT
From: xp1r@iname.com (p)
Subject: HTML form and Perl script send data to another Perl script
Message-Id: <358e9f2a.335531@news.danbbs.dk>
Hello people, sorry if this is the wrong group. I am new to Perl.
I have a form, where some information can be entered. I then want to
send that information plus some additional information to another Perl
script. How do I do that?
I want to send using both the POST and GET methods, and I can't use
hidden fields, since that reveals the information, and besides the
information varies over time.
Thanks in advance.
Peter
Remove the 'x' from the email address, if you want to send a non-commercial email.
I read unsolicited commerical email for at least US$75 per email.
------------------------------
Date: 22 Jun 1998 18:02:54 GMT
From: "Milan Spingl" <mspring@nortel.com>
Subject: New to perl..stupid questions on arrays and memory
Message-Id: <01bd9e08$2fe05580$6486bc2f@PBPDB857.ca.nortel.com>
Hi there,
I apologize if these questions are too trivial for this newsgroup but I
don't know where else to turn.
I'm running out of memory while processing arrays of hashes containing data
loaded by ora_fetch() (OraPerl module). The array is defined as 'my @arry;'
in the main function, then passed by reference to the function that fetches
the data from the DB and loads the array. Next that same array i passed by
reference to another function that processes id (some checking and output
to a file).
1) Is there a slick way to ensure there is enough memory to process huge
arrays? The manual suggests using temp files. Does that mean output to the
file as you are fetching data and then read back? This would mean, the data
would have to be parsed again as it is read in, would it not?
2) The book also, suggests using DBM files for hashes. ???? I'm looking
into this. I have no idea what this means (Data Base Management files?).
3) Are there any other good forums/news groups for Perl users?
Thanks for your helpMilan
------------------------------
Date: Mon, 22 Jun 1998 19:56:33 GMT
From: sjuneau@microtec.net (Sylvain Juneau)
Subject: pattern and variable question
Message-Id: <3592b627.289159066@news.cmc.ec.gc.ca>
I need help:
I have a variable called $last_line =
Jun 22 15:50:48: FTP /users/ocean/incoming/ACAQ2B.Jun 22 15:50:48: FTP
/users/ocean/incoming/ACAQ2B.GRB.22155044.info1 to
public:/users/public/oceans/ACAQ2B.GRB...OK
and I would like to test this variable using a matching pattern like
/GRB/
something like this:
if ( $last_line has this pattern /GRB/) {print "SUCCES"}
else{print "FAIL"}
Thank you
Sylvain
e-mail sjuneau@microtec.net
------------------------------
Date: 22 Jun 1998 14:05:12 -0400
From: Mark Lehrer <mark@satch.markl.com>
Subject: Re: Practical advice on linking in a .a
Message-Id: <m34sxd48iv.fsf@satch.markl.com>
btw, my spam-proof email address is mark at lehrer dot nlcomm dot com
Thanks!
Mark
Mark Lehrer <mark@satch.markl.com> writes:
> Hello!
>
> This is my first attempt at linking in some c routines; I read through
> the perlxs page and it makes it look a little _too_ easy.
>
> Is there a howto that can give me some hints? This library uses some
> ugly things like c structures and handles that don't seem to map
> easily to perl structures.
>
> Would it be best to make a wrapper that only used char* and int
> wherever possible?
>
> Thanks!
> Mark
------------------------------
Date: 22 Jun 1998 11:52:45 -0700
From: blm@halcyon.com (Brian L. Matthews)
Subject: Re: problems with flock
Message-Id: <6mm95t$ojb$1@halcyon.com>
In article <Pine.GSO.3.96.980622051627.6310L-100000@user2.teleport.com>,
Tom Phoenix <rootbeer@teleport.com> wrote:
|> "To avoid the possibility of mis-coordination, Perl flushes
|> FILEHANDLE before (un)locking it."
|That feature was added recently, in version 5.004.
Ah, this I didn't know. I guess I've never needed flock until 5.004. :-)
Brian
------------------------------
Date: Mon, 22 Jun 1998 21:15:15 -0700
From: Jan Krynicky <JKRY3025@comenius.ms.mff.cuni.cz>
To: "Peter W.L. Wassenaar" <pnp@worldonline.nl>
Subject: Re: Question about putting a running perl scriptin the foreground under NT
Message-Id: <358F2BD3.38CC@comenius.ms.mff.cuni.cz>
Peter W.L. Wassenaar wrote:
>
> Is there a way to put a running perlscript (requires user interaction) in
> the foreground?
>
> I would like to add `some' perl code to the script, so that my window turns
> into
> the active window.
>
> The problem at this moment is that the perlscript is called
> from a application, which minimizes and `backgrounds' the perlscript.
>
> I'm using the Activeware perl port build 316, running under Windows-NT
> 4.0SP3
use Win32::SetupSup;
# ftp://ftp.roth.net/pub/ntperl/SetupSup/
HTH, Jenda
------------------------------
Date: Mon, 22 Jun 1998 21:28:25 -0700
From: Jan Krynicky <JKRY3025@comenius.ms.mff.cuni.cz>
Subject: Re: Sending files via mail in perl
Message-Id: <358F2EE9.454F@comenius.ms.mff.cuni.cz>
Tom Christiansen wrote:
>
> [courtesy cc of this posting sent to cited author via email]
>
> In comp.lang.perl.misc,
> Stefaan.Eeckels@ecc.lu (Stefaan A Eeckels) writes:
> :I find it easiest to use Net:SMTP to send mail. It has
> :the advantage that it works on MS Windows 1 derived platforms
> :as well as UNIX ones.
>
> What about queueing? What about temporary failures? What
> about MX records?
Shouldn't the server take care of this for me?
> What about secondaries?
> What about 7-to-8
> bit conversions or vice versa?
Yes, if he wants to send a binary file he should encode it
somehow (MIME::Base64 / MIME::QuotedPrint).
> If that seems like a good idea to you, perhaps you should
> just telnet to the SMTP port.
>
> In short, this is *not* a good idea.
>
> --tom
If he tried to contact the remote servers of those users he would run
into problems.
It would be rather slow at times as well. But if you contact the local
SMTP server
running on the same machine or next door you should be OK.
I admit I don't know how is Unix sendmail implemented, but I don't see
any big difference between passing the mail to the mail daemon by
sendmail or by SMTP.
And please do not forget that not everybody uses Unix.
Jenda
BTW: xholf03@vse.cz, you may be interested in Mail::Sender, yet another
socket() based module. Providing easy interface to attaching (binary)
files.
------------------------------
Date: 22 Jun 1998 19:43:26 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Sending files via mail in perl
Message-Id: <6mmc4u$lmc$5@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Jan Krynicky <JKRY3025@comenius.ms.mff.cuni.cz> writes:
:> What about queueing? What about temporary failures? What
:> about MX records?
:
:Shouldn't the server take care of this for me?
That's what sendmail would do for you -- if one were to use it. But if
you get an address joe@blow.com, and then just blindly try to connect
to that host's SMTP port, you're really making a mistake.
--tom
--
"IMHO, CAPS LOCK should be somewhere more
convenient; e.g., in another building." --jgreely
------------------------------
Date: 22 Jun 1998 18:35:32 GMT
From: psf@euclid.jpl.nasa.gov (Peter Scott)
Subject: Re: Sick things to do in foreach loops
Message-Id: <6mm85k$4gd@netline.jpl.nasa.gov>
In article <6mghad$d9r$1@pegasus.csx.cam.ac.uk>, mjtg@cus.cam.ac.uk (M.J.T. Guy) writes:
> Peter Scott <psf@euclid.jpl.nasa.gov> wrote:
> >I had a reason to want to extend the list in a foreach loop, and
> >to my pleasant surprise, I found that I could actually push elements
> >onto the end of the list while in the loop and still have the loop
> >iterate over them. It's not clear to me that this would be implied
> >by the fact that the loop element was an alias for the actual list
> >element. So, for instance:
>
> perldoc perlsyn tells you:
>
> If any part of LIST is an array, foreach will get very
> confused if you add or remove elements within the loop body,
> ^^^
> for example with splice. So don't do that.
Er - WHICH perlsyn? Not the one that came with the Perl 5.004_04
I unpacked:
% egrep -i "add.*remove|confused|LIST.*foreach" perl5.004_04/pod/perlsyn.pod
%
Nor the perlsyn on the web
(http://www.perl.com/CPAN/doc/manual/html/pod/perlsyn.html)
I doublechecked by downloading the latest source from CPAN again,
even though the web page says it still stands at 5.004_04, and the
perlsyn there is identical with the one in my distribution, i.e.,
doesn't contain that statement.
I really, really want to follow the docs - not just to avoid being
flamed, but to get information quicker than asking for it here.
Which docs do I need?
--
This is news. This is your | Peter Scott, NASA/JPL/Caltech
brain on news. Any questions? | (psf@euclid.jpl.nasa.gov)
Disclaimer: These comments are the personal opinions of the author, and
have not been adopted, authorized, ratified, or approved by JPL.
------------------------------
Date: Mon, 22 Jun 1998 18:52:36 GMT
From: dgris@rand.dimensional.com
Subject: Re: Sick things to do in foreach loops
Message-Id: <6mm8ia$bq9$1@rand.dimensional.com>
[posted and mailed to the cited author]
In article <6mm85k$4gd@netline.jpl.nasa.gov>,
Peter Scott <psf@euclid.jpl.nasa.gov> wrote:
>Er - WHICH perlsyn? Not the one that came with the Perl 5.004_04
>I unpacked:
>
The one with perl 5.004_67, of course :-). Ummmm<digs though
his filesystem>.... it will be in 5.004_05 when that comes out,
as well.
Regards,
Daniel
--
Daniel Grisinger dgris@perrin.dimensional.com
"No kings, no presidents, just a rough consensus and
running code."
Dave Clark
------------------------------
Date: 22 Jun 1998 19:26:57 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Sick things to do in foreach loops
Message-Id: <6mmb61$lmc$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
psf@euclid.jpl.nasa.gov (Peter Scott) writes:
:Er - WHICH perlsyn? Not the one that came with the Perl 5.004_04
The one at 5.004_67.
--tom
--
It is Unix. It is possible to overcome any number of these bogus features. --pjw
------------------------------
Date: Mon, 22 Jun 1998 14:55:34 -0300
From: Colin Kilburn <hck@formalsys.ca>
Subject: Re: Storing and passing object references
Message-Id: <358E9A96.83463237@formalsys.ca>
--------------B7474805604F2D35EA3D31E3
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Tom Phoenix wrote:
> On Mon, 22 Jun 1998, Colin Kilburn wrote:
>
> > Why can't I store and pass a reference to an object?
>
> I give up; why can't you? :-)
I seen this coming %-)
Well I have the answer.
I checked the $Yref value in the debugger with
p ref $Yref
zip, nothing.
welllllll, of course it was I over wrote the new object reference
with a little re-initializing thingy. (persistant object). When I move the
storing of the $Yref to be after re-init , it worked, da. I wasn't careful
enough with the non persistant data (references).
# Read the configuration information
while (<INIT>)
{
chomp;
next if (/^\s*(\#.*)?$/o ); # eliminate blank and comment lines
# resolve specific customer information
if ( /\s*([^\s]+)\s*=>\s*(.*)$/o )
{
$self->{$1} = $2;
}
else
{
$Message->mlog(1, 000000,
" possible missed configuration information [ $_ ]" );
}
}
close INIT or $Message->mlog(2, 100001, $initFile );
#--> gotcha ya little !@#$%^&*()
# store $Message ptr for access from other setup modules
$self->{'messagePtr'} = $Message;
Thanks for the help!
C.
>
>
> > Can't call method "mlog" in empty package "Y=HASH(0x23b26c)" at bla bla
>
> Have you seen what perldiag has to say about this message?
>
> > I create an object X from the driver script.
> > $Xref = X::new();
>
> > Object X creates another object just after its package declaration.
> > package X;
> > require Y;
> > $Yref = Y::new();
>
> How do you know that you created an object? Those new() functions may be
> returning something else. Of course, they probably _shouldn't_ return
> something other than an object in most cases. But some constructors may
> return undef to indicate failure. Then it's up to the caller to deal with
> that. Could that be happening to you?
>
> You may wish to step through your program in the debugger, checking the
> values of your variables as you go. Good luck!
>
> --
> Tom Phoenix Perl Training and Hacking Esperanto
> Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
--
=================================================================
= Colin Kilburn - FSI Softwre Developer - hck@formalsys.ca =
= Fredericton NB - phone 506 433 0300 - fax 506 433 0300 =
=================================================================
--------------B7474805604F2D35EA3D31E3
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<HTML>
Tom Phoenix wrote:
<BLOCKQUOTE TYPE=CITE>On Mon, 22 Jun 1998, Colin Kilburn wrote:
<P>> Why can't I store and pass a reference to an object?
<P>I give up; why can't you? :-)</BLOCKQUOTE>
I seen this coming %-)
<P>Well I have the answer.
<BR>I checked the $Yref value in the debugger with
<BR>p ref $Yref
<P>zip, nothing.
<P>welllllll, of course it was I over wrote the new object reference
<BR>with a little re-initializing thingy. (persistant object).
When I move the
<BR>storing of the $Yref to be after re-init , it worked, da.
I wasn't careful
<BR>enough with the non persistant data (references).
<P><TT> # Read the configuration information</TT>
<BR><TT> while (<INIT>)</TT>
<BR><TT> {</TT>
<BR><TT> chomp;</TT>
<BR><TT> next if (/^\s*(\#.*)?$/o );
# eliminate blank and comment lines</TT>
<BR><TT> </TT>
<BR><TT> # resolve specific customer information</TT><TT></TT>
<P><TT> if ( /\s*([^\s]+)\s*=>\s*(.*)$/o
)</TT>
<BR><TT> {</TT>
<BR><TT> $self->{$1}
= $2;</TT>
<BR><TT> }</TT>
<BR><TT> else</TT>
<BR><TT> {</TT>
<BR><TT> $Message->mlog(1,
000000,</TT>
<BR><TT>
" possible missed configuration information [ $_ ]" );</TT>
<BR><TT> }</TT>
<BR><TT> }</TT>
<BR><TT> close INIT or $Message->mlog(2, 100001, $initFile
);</TT><TT></TT>
<P><TT>#--> gotcha ya little !@#$%^&*()</TT>
<BR><TT> # store $Message ptr for access from other setup modules</TT>
<BR><TT> $self->{'messagePtr'} = $Message;</TT><TT></TT>
<P><TT>Thanks for the help!</TT><TT></TT>
<P><TT>C.</TT>
<BR><TT></TT>
<BLOCKQUOTE TYPE=CITE>
<P>> Can't call method "mlog" in empty package "Y=HASH(0x23b26c)" at bla
bla
<P>Have you seen what perldiag has to say about this message?
<P>> I create an object X from the driver script.
<BR>> $Xref = X::new();
<P>> Object X creates another object just after its package declaration.
<BR>> package X;
<BR>> require Y;
<BR>> $Yref = Y::new();
<P>How do you know that you created an object? Those new() functions may
be
<BR>returning something else. Of course, they probably _shouldn't_ return
<BR>something other than an object in most cases. But some constructors
may
<BR>return undef to indicate failure. Then it's up to the caller to deal
with
<BR>that. Could that be happening to you?
<P>You may wish to step through your program in the debugger, checking
the
<BR>values of your variables as you go. Good luck!
<P>--
<BR>Tom Phoenix Perl Training and Hacking
Esperanto
<BR>Randal Schwartz Case: <A HREF="http://www.rahul.net/jeffrey/ovs/">http://www.rahul.net/jeffrey/ovs/</A></BLOCKQUOTE>
<PRE>--
=================================================================
= Colin Kilburn - FSI Softwre Developer - hck@formalsys.ca =
= Fredericton NB - phone 506 433 0300 - fax 506 433 0300 =
=================================================================</PRE>
</HTML>
--------------B7474805604F2D35EA3D31E3--
------------------------------
Date: 22 Jun 1998 18:14:41 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: Storing and passing object references
Message-Id: <6mm6uh$guv$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
Colin Kilburn <hck@formalsys.ca> writes:
:Content-Type: text/plain; charset=us-ascii
:Content-Transfer-Encoding: 7bit
:
:
:
:--------------B7474805604F2D35EA3D31E3
:Content-Type: text/html; charset=us-ascii
:Content-Transfer-Encoding: 7bit
:
:<HTML>
:Tom Phoenix wrote:
:<BLOCKQUOTE TYPE=CITE>On Mon, 22 Jun 1998, Colin Kilburn wrote:
:
:<P>> Why can't I store and pass a reference to an object?
:
:<P>I give up; why can't you? :-)</BLOCKQUOTE>
:I seen this coming %-)
:
:<P>Well I have the answer.
:<BR>I checked the $Yref value in the debugger with
:<BR>p ref $Yref
:
:<P>zip, nothing.
:
:<P>welllllll, of course it was I over wrote the new object reference
:<BR>with a little re-initializing thingy. (persistant object).
:When I move the
:<BR>storing of the $Yref to be after re-init , it worked, da.
:I wasn't careful
:<BR>enough with the non persistant data (references).
Your newsbrowser is broken. Please fix it. We don't need or want
this kind of pseudo-html crud. It's really lame.
--tom
--
"Sometimes the sins of the fathers are visited on the nephews and nieces."
--Larry Wall
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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 V8 Issue 2936
**************************************
