[25177] in Perl-Users-Digest
Perl-Users Digest, Issue: 7426 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Nov 19 11:05:51 2004
Date: Fri, 19 Nov 2004 08:05:07 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 19 Nov 2004 Volume: 10 Number: 7426
Today's topics:
Re: Adding a unique user name in a file (Anno Siegel)
Re: Adding a unique user name in a file <jurgenex@hotmail.com>
Re: Can PERL open a Windows handle? <ThomasKratz@REMOVEwebCAPS.de>
Re: Complex datastructure documentation? <tassilo.von.parseval@rwth-aachen.de>
Re: Complex datastructure documentation? <bernard.el-haginDODGE_THIS@lido-tech.net>
Re: Complex datastructure documentation? <dkoleary@olearycomputers.com>
Re: how to add parameter to HTTP header in Perl?(not fo <gisle@activestate.com>
Re: how to add parameter to HTTP header in Perl?(not fo <end@dream.life>
Re: how to add parameter to HTTP header in Perl?(not fo <gisle@activestate.com>
Re: Really? <richard@zync.co.uk>
Re: Really? (Anno Siegel)
Re: Really? <richard@zync.co.uk>
Re: Really? <meneg@nospm.org>
Re: Really? <lv@aol.com>
Re: script hangs waiting for key stroke (chris)
Re: Search file - Help needed please (Thierry B.)
Sending Outlook Email w/voting buttons through a Perl s <kevin.pease@fmr.com>
Re: Simple (!) HTML/PERL code fpr uploading files throu <schools_ring@yahoo.com>
Re: simple folder search (Michele Dondi)
Re: the antichomp (Anno Siegel)
Re: the antichomp <do-not-use@invalid.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 19 Nov 2004 13:26:59 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Adding a unique user name in a file
Message-Id: <cnksb3$t2i$1@mamenchi.zrz.TU-Berlin.DE>
J黵gen Exner <jurgenex@hotmail.com> wrote in comp.lang.perl.misc:
> sam wrote:
> >>> sam wrote:
> >>>
> >>>> Is there any perl module I can use to read in a list of user names
> >>>> from a file and do a binary search on the list base on the user
> >>>> name, if the user name is not found, add this user name to the
> >>>> file?
> >>
> >> [Just check for the name while reading the file]
> >>
> > Right, this is for small number of users.
> > To deal with large number of users, one would need to load all user
> > records into memory when the system/server start up, and use hash/tree
> > to speed up the search rather than using linear search.
>
> You realize that the second description is a totally different problem then
> the first, do you?
Well, OP didn't specify the number of *which* users is going to be small
or large. If it's a large number of users being *added*, slurping the
existing users into a hash looks reasonable. If it's adding *to* a large
base of existing users, building the hash for each new user would be a
waste of time.
The little remark about loading things into memory "when the system
starts up" seems to suggest running the process as a server. That
would indeed be an entirely different problem and open up a whole
slew of questions. I'm not going there for now.
Anno
------------------------------
Date: Fri, 19 Nov 2004 14:48:29 GMT
From: "J黵gen Exner" <jurgenex@hotmail.com>
Subject: Re: Adding a unique user name in a file
Message-Id: <1Jnnd.9$Nh1.5@trnddc09>
Anno Siegel wrote:
> J黵gen Exner <jurgenex@hotmail.com> wrote in comp.lang.perl.misc:
>> sam wrote:
>>>>> sam wrote:
>>>>>
>>>>>> Is there any perl module I can use to read in a list of user
>>>>>> names from a file and do a binary search on the list base on the
>>>>>> user name, if the user name is not found, add this user name to
>>>>>> the file?
>>>>
>>>> [Just check for the name while reading the file]
>>>>
>>> Right, this is for small number of users.
>>> To deal with large number of users, one would need to load all user
>>> records into memory when the system/server start up, and use
>>> hash/tree to speed up the search rather than using linear search.
>>
>> You realize that the second description is a totally different
>> problem then the first, do you?
>
> Well, OP didn't specify the number of *which* users is going to be
> small or large. If it's a large number of users being *added*,
> slurping the existing users into a hash looks reasonable.
> If it's
> adding *to* a large base of existing users, building the hash for
> each new user would be a waste of time.
True, but I have a gut feeling this is not the culprit
> The little remark about loading things into memory "when the system
> starts up" seems to suggest running the process as a server. That
> would indeed be an entirely different problem and open up a whole
> slew of questions. I'm not going there for now.
That's what I was alluding at.
jue
------------------------------
Date: Fri, 19 Nov 2004 13:04:52 +0100
From: Thomas Kratz <ThomasKratz@REMOVEwebCAPS.de>
Subject: Re: Can PERL open a Windows handle?
Message-Id: <419de165$0$17093$bb690d87@news.main-rheiner.de>
Paul S. wrote:
> Hi,
> Can PERL open a Windows Handle?
> Where would I go to see how to do it?
That depends on what you mean by 'open'. What do you want to do exactly?
Call an Windows API function perhaps? If yes, have a look at Win32::API.
But this is just a guess. There could be a module more specific for your
needs. But you have to tell us ;-)
Thomas
--
$/=$,,$_=<DATA>,s,(.*),$1,see;__END__
s,^(.*\043),,mg,@_=map{[split'']}split;{#>J~.>_an~>>e~......>r~
$_=$_[$%][$"];y,<~>^,-++-,?{$/=--$|?'"':#..u.t.^.o.P.r.>ha~.e..
'%',s,(.),\$$/$1=1,,$;=$_}:/\w/?{y,_, ,,#..>s^~ht<._..._..c....
print}:y,.,,||last,,,,,,$_=$;;eval,redo}#.....>.e.r^.>l^..>k^.-
------------------------------
Date: Fri, 19 Nov 2004 13:05:17 +0100
From: "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de>
Subject: Re: Complex datastructure documentation?
Message-Id: <slrncprobt.171.tassilo.von.parseval@localhost.localdomain>
Also sprach Bernard El-Hagin:
> "Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de> wrote:
>
>> Also sprach Uri Guttman:
>>
>>>>>>>> "JB" == John Bokma <postmaster@castleamber.com> writes:
>>>
>>> JB> Since I have done so, and since I considered my coding more
>>> readable JB> that way (besides the other advantages), I think I
>>> am still right by JB> saying that OO can improve readability,
>>> especially when juggling JB> datastructures.
>>>
>>> this is frustrating as you just don't get that coding is not OO.
>>> what about all the code to IMPLEMENT the methods? hiding it
>>> doesn't make it go away. the OP's poor syntax could be inside a
>>> method and it STILL IS BAD CODE no matter how pretty the OO API?
>>> do you get that? bad code can exist ANYWHERE and OO cannot clean
>>> it up by itself. it has to be written as good code.
>>
>> But once ugly code is locked away in a method, it's no longer my
>> concern. [...]
>
>
> But it remains ugly. That's the point Uri is trying to get across. You
> can hide it away in the implementation, but that is all you're doing it
> - hiding it. You are not making it any less ugly.
The original statement was that OO can make things more readable. And it
certainly can...by the very fact that it hides away ugly things. Sure,
they are stil ugly but they are out of sight. Something that is not
visible cannot spoil readability. Whereas ugly code that shows up in the
scope of my program certainly will.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Fri, 19 Nov 2004 13:45:26 +0100
From: "Bernard El-Hagin" <bernard.el-haginDODGE_THIS@lido-tech.net>
Subject: Re: Complex datastructure documentation?
Message-Id: <Xns95A68BF205ED8elhber1lidotechnet@62.89.127.66>
"Tassilo v. Parseval" <tassilo.von.parseval@rwth-aachen.de> wrote:
> Also sprach Bernard El-Hagin:
[...]
>>> But once ugly code is locked away in a method, it's no longer my
>>> concern. [...]
>>
>>
>> But it remains ugly. That's the point Uri is trying to get
>> across. You can hide it away in the implementation, but that is
>> all you're doing it - hiding it. You are not making it any less
>> ugly.
>
> The original statement was that OO can make things more readable.
> And it certainly can...by the very fact that it hides away ugly
> things. Sure, they are stil ugly but they are out of sight.
> Something that is not visible cannot spoil readability. Whereas
> ugly code that shows up in the scope of my program certainly will.
I can't believe how asinine this thread has become. You know very well
what Uri means by his statements and that he is right.
--
Cheers,
Bernard
------------------------------
Date: Fri, 19 Nov 2004 14:45:00 GMT
From: Doug O'Leary <dkoleary@olearycomputers.com>
Subject: Re: Complex datastructure documentation?
Message-Id: <slrncps1ca.leu.dkoleary@x1-6-00-b0-d0-c1-44-09.comcast.net>
On 2004-11-19, Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
> There's no need to see more of the code than the indescribable (by
> your own admission) data structures it is using. I needs re-writing.
The data structure itself is very solid. See my rather long winded
data description to John Bokma several threads up this chain. My
method of accessing it, according to Uri, is arcane and incorrect.
I've yet to try the method that Uri suggested, but it looks like it'd
be easier.
The script itself is only 434 lines long - 94 of which are comments.
The benefit of a complex data tructure like this is that the data
consistency is built into the structure, not the script. If I had
broken this out into multiple separate hashes, I would have to add
complexity to the script itself to maintain the data consistency.
I am a strong adherent of data normalization through complex data
structures (if appropriate to the script, obviously). It makes scripts
cleaner, shorter, easier to maintain and less error prone. How to
go about documenting the datastructure is the original question.
Uri's comments about the dereferencing is access syntax - not data
structure construction.
Doug
--
--------
Senior UNIX Admin
O'Leary Computer Enterprises
dkoleary@olearycomputers.com (w) 630-904-6098 (c) 630-248-2749
resume: http://home.comcast.net/~dkoleary/resume.html
------------------------------
Date: 19 Nov 2004 13:21:58 +0100
From: Gisle Aas <gisle@activestate.com>
Subject: Re: how to add parameter to HTTP header in Perl?(not fowwlow the ? in url)
Message-Id: <87oehuowpl.fsf@ask.g.aas.no>
John Bokma <postmaster@castleamber.com> writes:
> So:
>
> my $action = POST
>
> 'http://localhost/services/test.asp', [
>
> parameter1 => 'baozhuangxiang',
> ex => 'txt',
> ];
>
> my $ua = LWP::UserAgent->new;
> my $request = $ua->request( $action );
This variable is misnamed as what's returned by $ua->request() is a
'response'.
BTW, you can shorten this to:
my $ua = LWP::UserAgent->new;
my $response = $ua->post('http://localhost/services/test.asp', [
parameter1 => 'baozhuangxiang',
ex => 'txt',
]);
--
Gisle Aas
------------------------------
Date: Fri, 19 Nov 2004 20:47:08 +0800
From: Alont <end@dream.life>
Subject: Re: how to add parameter to HTTP header in Perl?(not fowwlow the ? in url)
Message-Id: <419eeab8.45559781@news.individual.de>
时间:19 Nov 2004 13:21:58 +0100
Gisle Aas <gisle@activestate.com>曾用发言:--
> my $ua = LWP::UserAgent->new;
> my $response = $ua->post('http://localhost/services/test.asp', [
> parameter1 => 'baozhuangxiang',
> ex => 'txt',
> ]);
>
I think My Perl system is not same as yours, the module LWP::UserAgent
haven't the method"post" as you said, error info:
Can't locate object method "post" via package "LWP::UserAgent" at
--
Your fault as a Government is My failure as a Citizen.
------------------------------
Date: 19 Nov 2004 15:29:45 +0100
From: Gisle Aas <gisle@activestate.com>
Subject: Re: how to add parameter to HTTP header in Perl?(not fowwlow the ? in url)
Message-Id: <87k6shq5d2.fsf@ask.g.aas.no>
Alont <end@dream.life> writes:
> 时间:19 Nov 2004 13:21:58 +0100
> Gisle Aas <gisle@activestate.com>曾用发言:--
> > my $ua = LWP::UserAgent->new;
> > my $response = $ua->post('http://localhost/services/test.asp', [
> > parameter1 => 'baozhuangxiang',
> > ex => 'txt',
> > ]);
> >
>
> I think My Perl system is not same as yours, the module LWP::UserAgent
> haven't the method"post" as you said, error info:
>
> Can't locate object method "post" via package "LWP::UserAgent" at
Your version of LWP is very old then. This method was introduced in
libwww-perl-5.60 more than 3 years ago.
------------------------------
Date: Fri, 19 Nov 2004 11:15:35 +0000
From: Richard Gration <richard@zync.co.uk>
Subject: Re: Really?
Message-Id: <pan.2004.11.19.11.15.34.675771@zync.co.uk>
On Fri, 19 Nov 2004 06:22:06 +0100, Tassilo v. Parseval wrote:
<SNIP>
> I don't see any misinformation in the quoted paragraph.
I don't see how it's reasonable to say that Perl *includes* SED,awk and
tr. It doesn't include them, it re-implements some of their functionality.
I also find this fragment amusing:
"Perl is an interpreted language that can optionally be compiled ..."
Interpreted *and* compiled? To say that about anything means they're
approximating at best, and flat wrong at worst. Unless there really exists
a language I haven't heard about for which there is both an interpreter
and a compiler ...
While it's hard to say that the article is wrong, exactly, it could have
been better written.
Rich
------------------------------
Date: 19 Nov 2004 11:33:11 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Really?
Message-Id: <cnklln$jer$2@mamenchi.zrz.TU-Berlin.DE>
Richard Gration <richard@zync.co.uk> wrote in comp.lang.perl.misc:
> On Fri, 19 Nov 2004 06:22:06 +0100, Tassilo v. Parseval wrote:
> <SNIP>
> > I don't see any misinformation in the quoted paragraph.
>
> I don't see how it's reasonable to say that Perl *includes* SED,awk and
> tr. It doesn't include them, it re-implements some of their functionality.
> I also find this fragment amusing:
>
> "Perl is an interpreted language that can optionally be compiled ..."
>
> Interpreted *and* compiled? To say that about anything means they're
> approximating at best, and flat wrong at worst. Unless there really exists
> a language I haven't heard about for which there is both an interpreter
> and a compiler ...
If you count translation into byte code as compilation, it's very
common for interpreters to have both. Perl is rather an exception.
If you only count native machine code as "compiled", there's at least
the Lisp family of interpreters. They usually come with a compiler
(which is typically written in Lisp and compiled by itself).
Anno
------------------------------
Date: Fri, 19 Nov 2004 12:07:47 +0000
From: Richard Gration <richard@zync.co.uk>
Subject: Re: Really?
Message-Id: <pan.2004.11.19.12.07.46.680925@zync.co.uk>
On Fri, 19 Nov 2004 11:33:11 +0000, Anno Siegel wrote:
> Richard Gration <richard@zync.co.uk> wrote in comp.lang.perl.misc:
<SNIP>
>> "Perl is an interpreted language that can optionally be compiled ..."
>>
>> Interpreted *and* compiled? To say that about anything means they're
>> approximating at best, and flat wrong at worst. Unless there really exists
>> a language I haven't heard about for which there is both an interpreter
>> and a compiler ...
>
> If you count translation into byte code as compilation, it's very
> common for interpreters to have both. Perl is rather an exception.
> If you only count native machine code as "compiled", there's at least
> the Lisp family of interpreters. They usually come with a Perl is an
> interpreted language that can optionally be compiled ..."compiler (which
> is typically written in Lisp and compiled by itself).
Fair enough, I didn't say exactly what I wanted to there. I was taught in
CS that an interpreted language is one where the source is translated into
machine executable form line by line at execution time, and each
instruction is executed as soon as it is completely parsed. Conversely, a
program in a compiled language must be completely parsed by the
compiler before it starts executing. In this sense Perl is not an
interpreted language.
However, I understand that when a Perl program is compiled it doesn't end
up in the same form as a compiled C/Fortran/Pascal program, it still needs
a runtime environment, which I suppose could be (is?) called the Perl
interpreter. Is that what you meant when you said that Perl is an
exception?
I still think that to say that "Perl is an interpreted language that can
optionally be compiled ..." is less than helpful and a tech site should
have found a way to say it which avoids the apparent oxymoron.
Rich
------------------------------
Date: Fri, 19 Nov 2004 16:39:36 +0200
From: meneg <meneg@nospm.org>
Subject: Re: Really?
Message-Id: <pan.2004.11.19.14.39.35.409009@nospm.org>
On Fri, 19 Nov 2004 12:07:47 +0000, Richard Gration wrote:
> Fair enough, I didn't say exactly what I wanted to there. I was taught in
> CS that an interpreted language is one where the source is translated into
> machine executable form line by line at execution time, and each
> instruction is executed as soon as it is completely parsed. Conversely, a
> program in a compiled language must be completely parsed by the
> compiler before it starts executing. In this sense Perl is not an
> interpreted language.
I don't know the definition of an interpreted language but the most
amusing part was the exact first sentence that says it is a "script
language". A scripting language I know well it means one that goes line by
line into - usually - shell commands. That is exactly what Perl is NOT.
As about that text saying Perl can be compiled I don't think it went
further that mentioning the perl cc perl-to-c tool.
Which as in 5.8.4 that I have here fails spectacularly to create
compilable c code for gcc in 99.9% of the cases.
-meneg
------------------------------
Date: Fri, 19 Nov 2004 09:47:05 -0600
From: "l v" <lv@aol.com>
Subject: Re: Really?
Message-Id: <419e1316$1_3@127.0.0.1>
"Octo Mancer" <wh@tever.tld> wrote in message
news:pan.2004.11.18.22.14.28.889658@tever.tld...
> "Perl is a script programming language that is similar in syntax to the C
> language and that includes a number of popular Unix facilities such as
> SED, awk, and tr. Perl is an interpreted language that can optionally be
> compiled just before execution into either C code or cross-platform
> bytecode."
>
> It seems that talking bollocks about Perl is not confined to graduate
> students ...
>
>
http://searchenterpriselinux.techtarget.com/sDefinition/0,,sid39_gci214291,0
0.html
Below is a quote from an area where I work:
" PERL is very temperamental with OS and environment changes. "
and I don't listen to anyone that can not correctly spell the language,
management however .... is another story.
Len
----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= East/West-Coast Server Farms - Total Privacy via Encryption =---
------------------------------
Date: 19 Nov 2004 03:33:41 -0800
From: nadsinoz@hotmail.com (chris)
Subject: Re: script hangs waiting for key stroke
Message-Id: <b8996f29.0411190333.716b358@posting.google.com>
> You're doing an awful lot of connecting and disconnecting from your
> database. You should probably open it once at the beginning and close
> it once at the end, for performance if nothing else. But doing this
> shouldn't make it hang. However, if it fails to open for some reason,
> you're looping back and trying exactly the same thing again. If it
> fails to open once, chances are pretty good it will continue to fail to
> open, hence an infinite loop. But that wouldn't "continue" on a key press.
Probably a bit more info is required...
Each loop can take about 4hours to run. Whats more, due to technical
constraints, the ODBC connection may die or the script is aborted by
another load job. Previously, the script was manually restarted, that
is why there is now a redo loop.
> If the prepare fails, it is probably not appropriate to just go and open
> the database over again. I'm hard pressed to imagine how a prepare that
> failed would subsequently succeed on the same database. It would be
> best to invoke RaiseError and let DBI take care of the checks and error
> bombouts.
As above, if the ODBC connection dies, the only way forward is to
re-connect.
> So I have no idea why your program is hanging waiting for a keystroke.
> But I have no problem seeing why it might hang.
>
> Regarding the question about flushing buffers, the only "buffer" you are
> using is for STDOUT, and, I think Perl line-buffers it when it is
> connected to a terminal anyway, at least on most OS's. Looks like
> you're on Windoze; I don't know if it line buffers STDOUT on a cmd
> window or not...yep, it does on XP Home SP2, AS build 810, anyway.
Would it just be safest to remove the print statement? Although, I
would have no idea how far the process has completed except to run a
query on the target database...
>
> One other possibility, I suppose, is whatever the database procedures
> you are invoking (like m_run or m_run_report) might do. Could they ever
> wait for a keystroke?
The procedures (actually Teradata macros) do not wait for keyboard
input. I suppose the hang could be a bug with the ODBC driver?
Thanks for the reply...
------------------------------
Date: 19 Nov 2004 07:52:48 -0800
From: mrjaune@hotmail.com (Thierry B.)
Subject: Re: Search file - Help needed please
Message-Id: <b4e11da7.0411190752.23708eb7@posting.google.com>
Thank you for your help Paul.
I will read the document you suggest and then show what I've done.
"Paul Lalli" <mritty@gmail.com> wrote in message news:<%P5nd.5611$%M4.4069@trndny08>...
> "Thierry B." <mrjaune@hotmail.com> wrote in message
> news:b4e11da7.0411180959.1ef6fbf7@posting.google.com...
> > Hello,
> >
> > I'm a newbie and I want writing a perl script.
> > I explain what I want doing.
> >
> > Here is my file ref.txt:
> >
> > A01 /ref/a01.pdf
> > A02 /ref/a02.pdf
> > A03 /ref/a03.pdf
> > etc..
> >
> > When you enter A01 in the html search page the script open a new
> > windows with the coresponding pdf file (/ref/a01.pdf).
> >
> > Could anyone help me please?
>
> What have you tried so far?
>
> The following documents will be most helpful. If you have not done so
> already, read them. Then make an attempt, show us what you have, and we
> can probably help correct errors.
>
> perldoc CGI
> perldoc -f open
> perldoc -f readline
> perldoc -f substr
> perldoc -f print
>
> Paul Lalli
------------------------------
Date: Fri, 19 Nov 2004 10:31:41 -0500
From: "Kevin B. Pease" <kevin.pease@fmr.com>
Subject: Sending Outlook Email w/voting buttons through a Perl script...
Message-Id: <Cgond.84$Nq3.15@news-srv1.fmr.com>
Hi everyone,
I've done quite a bit of Google searching for this, and haven't yet
managed to stumble upon the solution, but I can't help but think there must
be a way to do this. I know it's possible to use ActiveState's perl distro
to send email via the Outlook OLE interface (requiring perl on Windows), but
what I'm looking to do is a little different...
I have a cgi (written in perl) running on a Solaris 8 system (served up
via Apache), from which I'd like to send email to people at my company, all
of whom use Outlook 2000 (or higher). The script is used for submitting
requests to different support groups, and I've received requests to allow
for the inclusion of "voting buttons" (those little buttons in Outlook you
can add to the message that will allow you to respond with a pre-defined
answer) by management to indicate approval / disapproval of various
requests. Can anybody tell me:
a) Is this possible? I assume it must be, although maybe it's not
easy?
b) Does anyone know of any modules that might allow this already?
c) Does anyone know of any other methods that I might investigate
instead?
I know this isn't a "strictly perl" question, but my existing
infrastructure IS perl, and I'd like to accommodate the request by extending
the current infrastructure rather than rewrite the entire thing to work from
Windows just so I can do this.
Thanks,
Kevin Pease
----------
Kevin B. Pease
at kevin dot pease at fmr dot com
------------------------------
Date: Fri, 19 Nov 2004 16:23:03 +0100
From: "VK" <schools_ring@yahoo.com>
Subject: Re: Simple (!) HTML/PERL code fpr uploading files through web pages entyr field ??
Message-Id: <419e1108$0$148$9b622d9e@news.freenet.de>
Wrong address to ask: try groups comp.lang.perl.* instead (if they are still
alive)
Also may look here:
<http://cgi.resourceindex.com/Programs_and_Scripts/Perl/File_Management/File
_Uploading/>
------------------------------
Date: 19 Nov 2004 03:13:51 -0800
From: bik.mido@gmail.com (Michele Dondi)
Subject: Re: simple folder search
Message-Id: <bdabe82.0411190313.1b7416a3@posting.google.com>
Sherm Pendley <spamtrap@dot-app.org> wrote in message news:<7oGdnfC2lYU49gDcRVn-rw@adelphia.com>...
> Ken Saunders wrote:
>
> > #itc 216
> > #assignment 3
>
> Do your own homework.
Well, he was honest enough to point out it is homework. And he didn't
ask for us to do it for him. He did it, instead, and only asks for
some help, which is legitimate, IMHO.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 19 Nov 2004 13:49:21 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: the antichomp
Message-Id: <cnktl1$nu$1@mamenchi.zrz.TU-Berlin.DE>
Uri Guttman <uri@stemsystems.com> wrote in comp.lang.perl.misc:
> >>>>> "w" == wana <ioneabu@yahoo.com> writes:
>
> w> I would not thought of it myself (the use of map), but now I will.
> w> Thanks :-)
>
> map is easy but for some reason freaks out many perl newbies.
Well, it's "functional programming" which is supposedly hard. Some
languages do make it hard, requiring things like "pure functions"
defined by "lambda expressions" to feed to things like map().
Perl uses coderefs and, more importantly, automatically translates
some blocks and expressions to coderefs, so functional programming
introduces no new syntax. It's a successful case of making easy
things easy.
Anno
------------------------------
Date: 19 Nov 2004 14:55:37 +0100
From: Arndt Jonasson <do-not-use@invalid.net>
Subject: Re: the antichomp
Message-Id: <yzdllcy9c4l.fsf@invalid.net>
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) writes:
> Uri Guttman <uri@stemsystems.com> wrote in comp.lang.perl.misc:
> > >>>>> "w" == wana <ioneabu@yahoo.com> writes:
> >
> > w> I would not thought of it myself (the use of map), but now I will.
> > w> Thanks :-)
> >
> > map is easy but for some reason freaks out many perl newbies.
>
> Well, it's "functional programming" which is supposedly hard. Some
> languages do make it hard, requiring things like "pure functions"
> defined by "lambda expressions" to feed to things like map().
>
> Perl uses coderefs and, more importantly, automatically translates
> some blocks and expressions to coderefs, so functional programming
> introduces no new syntax. It's a successful case of making easy
> things easy.
One might want recursion, but deep recursion does not work well in
perl, not even tail recursion (at least not in 5.005 - I haven't checked
later versions).
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 7426
***************************************
