[26521] in Perl-Users-Digest
Perl-Users Digest, Issue: 8671 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 16 06:05:32 2005
Date: Wed, 16 Nov 2005 03:05:04 -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 Wed, 16 Nov 2005 Volume: 10 Number: 8671
Today's topics:
Re: "Killed" Message On Linux (Running From BASH) <nobody@bigpond.com>
Re: FAQ 4.69 How can I use a reference as a hash key? <sdn.girths00869@zoemail.net>
Re: Grouping like items together <1usa@llenroc.ude.invalid>
Re: Grouping like items together <ekkehard.horner@arcor.de>
Re: Timelocal input, post good Date filters (from - to) robic0
Re: Timelocal input, post good Date filters (from - to) robic0
XQL 'id' function in XML::XQL <1o4ibj70m3vooae@jetable.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 16 Nov 2005 02:09:36 GMT
From: Gregory Toomey <nobody@bigpond.com>
Subject: Re: "Killed" Message On Linux (Running From BASH)
Message-Id: <437a94df@news.comindico.com.au>
Hal Vaughan wrote:
> I've tried Googling this and get a high noise-to-signal ratio.
>
> I'm running Perl scripts on Linux (Debian, Sarge), from the command line
> (in
> bash), and I get a "Killed" message. I can't find enough to verify this
> is
> coming from Perl or bash or where.
Large process running out of virtual memory?
gtoomey
------------------------------
Date: Tue, 15 Nov 2005 20:44:01 -0600
From: "Eric J. Roode" <sdn.girths00869@zoemail.net>
Subject: Re: FAQ 4.69 How can I use a reference as a hash key?
Message-Id: <Xns970FDD4C72EB5sdn.comcast@216.196.97.136>
brian d foy <comdog@panix.com> wrote in news:151120051218371043%
comdog@panix.com:
> In article <Xns970F52F56C3C3sdn.comcast@216.196.97.136>, Eric J. Roode
> <sdn.girths00869@zoemail.net> wrote:
>
>> > 4.69: How can I use a reference as a hash key?
>
>> > Hash keys are strings, so you can't really use a reference as the
>> > key. When you try to do that, perl turns the reference into its
>> > stringified form (for instance, "HASH(0xDEADBEEF)"). From there
>> > you can't get back the reference from the stringified form, at
>> > least without doing some extra work on your own. Also remember
>
>> What is this "extra work"? I have no clue how to get a reference from
>> a stringified version of it
>
> Sure you do! :)
>
> You have to keep a weakened copy of the reference around somewhere
> then look it up by its stringified version.
>
Okay, I can see that. Thanks.
--
Eric
`$=`;$_=\%!;($_)=/(.)/;$==++$|;($.,$/,$,,$\,$",$;,$^,$#,$~,$*,$:,@%)=(
$!=~/(.)(.).(.)(.)(.)(.)..(.)(.)(.)..(.)......(.)/,$"),$=++;$.++;$.++;
$_++;$_++;($_,$\,$,)=($~.$"."$;$/$%[$?]$_$\$,$:$%[$?]",$"&$~,$#,);$,++
;$,++;$^|=$";`$_$\$,$/$:$;$~$*$%[$?]$.$~$*${#}$%[$?]$;$\$"$^$~$*.>&$=`
------------------------------
Date: Wed, 16 Nov 2005 02:29:18 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Grouping like items together
Message-Id: <Xns970FDA985B7DAasu1cornelledu@127.0.0.1>
AcCeSsDeNiEd <dillon@SpamMinuSaccessdenied.darktech.org> wrote in
news:t54ln1lkbs530rt8a6t003ad14ib9qk9sr@4ax.com:
> Well, I've just given up doing this programmatically.
Please quote some context when you reply.
> I've taken a closer look at the naming conventions.
> One method I thought off was to split the name from the numbers.
> But I've come across files that do not have numbers just after the
> client's name. The client name always comes on the left of the
> filename, but the rest of the filename is just too 'gibberish'.
>
> Not gonna happen. At least not until computers are capable of AI.
As a first stab, grouping files on the basis of closeness of their
names maybe reduce the amount of work needed.
See if
http://search.cpan.org/~jgoldberg/Text-LevenshteinXS-0.03/LevenshteinXS.pm
helps. I could see myself using something like this to first
distribute files into sub-directories. Then the manual work of checking
for incorrectly identified files ought to be less.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
------------------------------
Date: Wed, 16 Nov 2005 11:25:48 +0100
From: "ekkehard.horner" <ekkehard.horner@arcor.de>
Subject: Re: Grouping like items together
Message-Id: <437b092e$0$21958$9b4e6d93@newsread2.arcor-online.net>
AcCeSsDeNiEd wrote:
> I have several 10s of thousands files with no directories.
>
> I'm trying to group the 'similar' files together and place them in a directory.
>
> E.g of such files:
>
> Mike F. 2332445-withdrawal.pdf
> Mike F. 43565654-letter.pdf
> Mike F. 434324.sign.pdf
> Dawn M. Yang letter of acceptance.pdf
> Dawn M. Yang (01).pdf
> Dawn M. Yang 4355434 SOA.pdf
>
>
> I'm trying to group these files by their names.
> The names are not in a fixed format. E.g, not all names may have a middle name.
> if these names were in a list, how do I match and group them together? How would I know the group
> name?
-----------
AcCeSsDeNiEd wrote:
> On Tue, 15 Nov 2005 08:48:14 -0600, Tad McClellan <tadmc@augustmail.com> wrote:
>
> Well, I've just given up doing this programmatically.
> I've taken a closer look at the naming conventions.
> One method I thought off was to split the name from the numbers.
> But I've come across files that do not have numbers just after the client's name.
> The client name always comes on the left of the filename, but the rest of the filename
is just too
> 'gibberish'.
>
> Not gonna happen. At least not until computers are capable of AI.
>
> Thx for the help anyways.
>
> My coy will just have to hire temp staff to clean up this mess.
>
> Btw, we have 400k files.
> So good luck on the manual process.
How about starting with a list of Users (storing Name, TragetDir, and
a (growing) list of alias names given as RegExps). First move the 'clear
cases' to the TargetDirs, then view the remaining files to improve the
alias names.
------------------------------
Date: Tue, 15 Nov 2005 22:42:36 -0800
From: robic0
Subject: Re: Timelocal input, post good Date filters (from - to)
Message-Id: <rekln1l8nbgq4g0kdouiidfsf7tg73imnq@4ax.com>
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote in
news:djsvbj$ess$3
@mamenchi.zrz.TU-Berlin.DE:
> <robic0@yahoo.com> wrote in comp.lang.perl.misc:
>
>> About the __DATA__ thing, I thought it was a flag to ignore below as
>> comments, but thats where I put the output. Whats the right way
>> to do it?
>
> Bell's ringing. Off to the docs!
Indeed.
The OP can start by reading the posting guidelines:
Also provide example input data for your program. If you
need to show file input, use the __DATA__ token (perldata.pod)
to provide the file contents inside of your Perl program.
Sinan
--
A. Sinan Unur <1usa@llenroc.ude.invalid>
(reverse each component and remove .invalid for email address)
comp.lang.perl.misc guidelines on the WWW:
http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
On Sun, 13 Nov 2005 08:56:18 -0600, Tad McClellan
<tadmc@augustmail.com> wrote:
>robic0 <> wrote:
>
>> i think i can
>> wiper ur ass in Perl day or nite. Day or nite jackoff.
>> I own u Perl wise. All of u........
>
>
>Why is it that you persist in asking questions of people that
>know less than you do?
>
So the lesson is docs on __DATA__ is more important than you. Too
important to trust your pea brain. I guess you got docs
up your ass. Never did docs before, never will.
But hey, if you have a date filter feel free to join the world dude.
>You can't possibly get an answer that's better than what you already
>know, so what would be the point in asking?
------------------------------
Date: Tue, 15 Nov 2005 22:50:46 -0800
From: robic0
Subject: Re: Timelocal input, post good Date filters (from - to)
Message-Id: <hglln1tegham21462g7auhshedau93rdqs@4ax.com>
On Sun, 13 Nov 2005 15:04:33 GMT, "A. Sinan Unur"
<1usa@llenroc.ude.invalid> wrote:
>Tad McClellan <tadmc@augustmail.com> wrote in
>news:slrndnel0h.squ.tadmc@magna.augustmail.com:
>
>> robic0 <> wrote:
>>
>>i think i can wiper ur ass with Tads nose.....
>...
>
>> Why is it that you persist in asking questions of people that
>> know less than you do?
>
>I am not sure, but I think he is saying he wants to wipe our behinds. I am
>sure Freud would have had something to say about that.
>
Hey go back to India where you got your first American job.
>Sinan
------------------------------
Date: Tue, 15 Nov 2005 20:14:31 -0600
From: Lars Kellogg-Stedman <1o4ibj70m3vooae@jetable.org>
Subject: XQL 'id' function in XML::XQL
Message-Id: <t1132106969.p3351.r1582941482.lars@jetable.org>
After reading through the XQL specs, it is my impression that given the
following input:
<container>
<item id="foo">item 1</item>
<item id="bar">item 2</item>
</container>
The following code should work:
$doc = XML::DOM::Parser->new->parse(...above text...);
$doc->xql("id('foo')");
Whereby "work" I mean it should return a reference to the <item
id="foo"/> node. Instead it always results in 0 matches. I've replaced
it with:
$doc->xql("//item[\@id='foo']");
Which does work, but I'm curious if (a) I've misunderstood the XQL spec,
or (b) if XML::XQL is broken.
Thanks,
-- Lars
--
Lars Kellogg-Stedman <1o4ibj70m3vooae@jetable.org>
This email address will expire on 2005-11-22.
------------------------------
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 8671
***************************************
