[26525] in Perl-Users-Digest
Perl-Users Digest, Issue: 8675 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 16 21:05:22 2005
Date: Wed, 16 Nov 2005 18: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: 8675
Today's topics:
Re: [OT] Google Groups: vote for Default quoting <abigail@abigail.nl>
Re: [OT] Google Groups: vote for Default quoting <matthew.garrish@sympatico.ca>
Re: [OT] Google Groups: vote for Default quoting <flavell@ph.gla.ac.uk>
Re: Grouping like items together <rvtol+news@isolution.nl>
Re: Grouping like items together <dillon@SpamMinuSaccessdenied.darktech.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 16 Nov 2005 23:58:18 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: [OT] Google Groups: vote for Default quoting
Message-Id: <slrndnnhsq.qiv.abigail@alexandra.abigail.nl>
John Bokma (john@castleamber.com) wrote on MMMMCDLX September MCMXCIII in
<URL:news:Xns9710B28583EA0castleamber@130.133.1.4>:
.. Google Groups let you vote for new features. Vote for default quoting:
.. <http://tinyurl.com/aqe6y>
..
.. "Default quoting of previous message in replies"
..
.. one above the last option.
Why would I? I don't use google groups, and I don't read postings made
via google groups.
Google is evil. I'm not going to collect their cookies, let alone
bother to vote.
Abigail
--
# Perl 5.6.0 broke this.
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
------------------------------
Date: Wed, 16 Nov 2005 19:53:55 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: [OT] Google Groups: vote for Default quoting
Message-Id: <zwQef.2008$KP5.277639@news20.bellglobal.com>
"Abigail" <abigail@abigail.nl> wrote in message
news:slrndnnhsq.qiv.abigail@alexandra.abigail.nl...
> John Bokma (john@castleamber.com) wrote on MMMMCDLX September MCMXCIII in
> <URL:news:Xns9710B28583EA0castleamber@130.133.1.4>:
> .. Google Groups let you vote for new features. Vote for default quoting:
> .. <http://tinyurl.com/aqe6y>
> ..
> .. "Default quoting of previous message in replies"
> ..
> .. one above the last option.
>
>
> Why would I? I don't use google groups, and I don't read postings made
> via google groups.
>
> Google is evil. I'm not going to collect their cookies, let alone
> bother to vote.
>
>
Amateur. I toss their cookies! : )
Matt
------------------------------
Date: Thu, 17 Nov 2005 01:21:18 +0000
From: "Alan J. Flavell" <flavell@ph.gla.ac.uk>
Subject: Re: [OT] Google Groups: vote for Default quoting
Message-Id: <Pine.LNX.4.62.0511170107360.21145@ppepc56.ph.gla.ac.uk>
On Wed, 16 Nov 2005, John Bokma wrote:
> Google Groups let you vote for new features. Vote for default quoting:
> <http://tinyurl.com/aqe6y>
>
> "Default quoting of previous message in replies"
Well, I'm sorry, but they've let this go on for too long to be able to
take them seriously. Asking for votes now is just a way of seeking
attention for their services, AFAICS. If they'd learn some basic
netiquette and promote it to their users, then they'd be in a better
position. It doesn't need votes to do that.
But their presentation, even if not overtly, strongly suggests to me
that they want to present the long-standing usenet newsgroups to their
users as if they might be Google's own proprietary discussion forums.
I can't be doing with that, so, with the exception of a few names
filtered specially, I'm filtering them below the visibility horizon of
my news client; therefore I no longer care that most of their users
haven't a clue about Usenet. The day's too short to read every
posting, anyway, so one has to apply *some* kind of selection, and
this happens to be one of mine.
best regards
------------------------------
Date: Thu, 17 Nov 2005 02:34:12 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: Grouping like items together
Message-Id: <dlgqbd.1io.1@news.isolution.nl>
AcCeSsDeNiEd:
> 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?
#!/usr/bin/perl
use strict; use warnings;
{ local ($,,$\) = ("\t", "\n");
for (<>) {
chomp;
/^( # start a capturing group
[[:upper:]] # a Word should start with a capital
[[:lower:][:punct:]]+
# followed by 1 or more specific chars
(?: # start a non-capturing group
\s+ # 1 or more wsp chars
[[:upper:]] # followed by another Word
[[:lower:][:punct:]]+
)* # 0 or more trailing Words
)/x; # end of capturing group
print "[$1]", $_;
}
}
$ names.pl < names.inp
[Mike F.] Mike F. 2332445-withdrawal.pdf
[Mike F.] Mike F. 43565654-letter.pdf
[Mike F.] Mike F. 434324.sign.pdf
[Dawn M. Yang] Dawn M. Yang letter of acceptance.pdf
[Dawn M. Yang] Dawn M. Yang (01).pdf
[Dawn M. Yang] Dawn M. Yang 4355434 SOA.pdf
You can use a hash to convert from name to group, with entries like:
"Mike F." => "Mike_Forster"
"Dawn M. Yang" => "Dawn_Yang"
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Thu, 17 Nov 2005 09:46:49 +0800
From: AcCeSsDeNiEd <dillon@SpamMinuSaccessdenied.darktech.org>
Subject: Re: Grouping like items together
Message-Id: <25onn1p3kb0difni29em4r8nnlkvjpc3cn@4ax.com>
On 16 Nov 2005 14:35:17 GMT, anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote:
>Name lists are available from the US Census Bureau, typical file names
>are dist.all.last, dist.female.first, and dist.male.first.
Thx for the help. But more than half the names are not English.
And the whole filename is in caps.
Sigh...
To e-mail, remove the obvious
------------------------------
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 8675
***************************************
