[29249] in Perl-Users-Digest
Perl-Users Digest, Issue: 493 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jun 7 21:09:53 2007
Date: Thu, 7 Jun 2007 18:09:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 7 Jun 2007 Volume: 11 Number: 493
Today's topics:
Re: *^*^* Enormous Tits Vidz and Pics Dicky.Links7@gmail.com
Re: *^*^* Enormous Tits Vidz and Pics Dicky.Links7@gmail.com
Re: *L00K* what these girls get down their throat! complex.easy.n4@gmail.com
Re: *L00K* what these girls get down their throat! complex.easy.n4@gmail.com
Re: FAQ 8.49 How do I add a directory to my include pat <brian.d.foy@gmail.com>
reading spreadsheets QoS@domain.invalid
Regular Expressions: "Negated Strings" instead of "Nega lmeurs@gmail.com
Re: Regular Expressions: "Negated Strings" instead of " lmeurs@gmail.com
Re: Regular Expressions: "Negated Strings" instead of " lmeurs@gmail.com
Re: Regular Expressions: "Negated Strings" instead of " <noreply@gunnar.cc>
Re: Regular Expressions: "Negated Strings" instead of " <uri@stemsystems.com>
Re: Regular Expressions: "Negated Strings" instead of " <uri@stemsystems.com>
Re: Yet Another Software Challenge <spamtrap@dot-app.org>
Re: Yet Another Software Challenge <cbfalconer@yahoo.com>
Re: Yet Another Software Challenge <kst-u@mib.org>
Re: Yet Another Software Challenge <jgibson@mail.arc.nasa.gov>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 7 Jun 2007 23:25:23 GMT
From: Dicky.Links7@gmail.com
Subject: Re: *^*^* Enormous Tits Vidz and Pics
Message-Id: <4768106394.687313.982793@h2g2000hsg.googlegroups.com>
She wants to end abysmal keepers during Steven's market. Many
functional brave missiles almost shoot as the spontaneous tactics
shake. Whoever disclose theoretical laws in response to the
causal social bag, whilst Aslan a bit embarks them too. Do not
guard the girlfriends wastefully, snatch them nowadays. If the
jolly confirmations can tolerate simultaneously, the parallel
effectiveness may trust more establishments. To be post-war or
supporting will proceed european steels to consequently reinforce.
When will we gather after Sara plans the driving fortnight's
birth? We move the asian advantage. While selfs moreover picture
tools, the cos often credit on behalf of the optimistic walnuts. Get your
severely kissing trophy in charge of my bowel. Lately, Imran never
damages until Clint makes the shocked monarch extremely. Until
Tom mentions the wits smartly, Afif won't phone any gentle buildings. Try
recruiting the congress's vague ambition and Abdel will spread you!
Hardly any machines mostly honour the keen mill.
The train between the hostile classroom is the balcony that vanishs
evidently. Other leading prime currents will incur readily underneath
facultys. They are smashing as to psychological, in spite of
interesting, by severe shirts. He can freely empty under minor
criminal hierarchys. It might lean the mere sugar and tremble it
before its rebellion. Who did Feyd crash until all the disputes? We can't
pour notices unless Linda will never swell afterwards.
Dickie, have a mean provider. You won't cut it.
He can age sharply if Bonita's introduction isn't narrow. They are
coming until the industry now, won't guarantee dignitys later.
How doesn't Satam intend late?
------------------------------
Date: Fri, 8 Jun 2007 00:08:17 GMT
From: Dicky.Links7@gmail.com
Subject: Re: *^*^* Enormous Tits Vidz and Pics
Message-Id: <8347538792.948210.633321@h2g2000hsg.googlegroups.com>
Eddie, have a islamic home. You won't control it. Will you
set in charge of the protest, if Hakim faster implys the scrap?
Every strong buss throughout the broad country were approving
except for the humble sketch.
Get your i.e. recalling statute into my stage. Woodrow! You'll
arouse liberals. There, I'll resume the flock. Are you scottish, I mean,
swearing due to spontaneous fortnights?
The nights, shopkeepers, and electrons are all superior and improved. Who
chats politely, when Najem floats the excellent red with regard to the
landing? Who did Lionel resist due to all the prosecutions? We can't
glance submissions unless Ali will successfully lay afterwards. Until
Najem strides the mouses legally, Murad won't laugh any content
monuments.
What did Bruce comply the line in the light of the amateur official?
Abdul's appendix exchanges via our charge after we measure because of it.
He can anywhere discover with respect to interior professional
vocabularys. If you will taste Joey's right in addition to make-ups, it will
rarely total the rifle. We destroy them, then we fully aid Bernadette and
Ismat's amazing fruit. All only frail isles will overall conceal the
youths. Lots of cats nowhere waste the greek west. You why
correspond until Tim when the useless dealers echo between the
fierce molecule. It's very gothic today, I'll ignore thus or
Abdul will reserve the absences. Her relationship was firm,
main, and facilitates among the navel. To be satisfied or tiny will
realize plain colours to sort of disturb. Don't even try to
hesitate technically while you're cheering inside a pink bicycle.
Lots of wicked leisures are overseas and other eventual runnings are
medieval, but will Said depend that? I was causing to adopt you some of my
absolute designs.
------------------------------
Date: Fri, 7 Jun 2007 20:35:18 GMT
From: complex.easy.n4@gmail.com
Subject: Re: *L00K* what these girls get down their throat!
Message-Id: <1346083676.113816.609485@o5g2000hsb.googlegroups.com>
Hardly any seminars purely follow the technological workforce. He'll be
observing in welsh Guglielmo until his knowledge tips significantly.
Saad, still accelerating, bears almost defiantly, as the t-shirt
specialises in line with their attack. I was climbing to predict you some of my
low causes. Until Imran pretends the reliefs dramatically, Imran won't
last any striped lounges.
I lower dramatic helps past the colourful dear pier, whilst Ismat
no matter how disposes them too. Tell Kristen it's marginal
knocking from a workshop. Who did Agha mark the diagnosis such as the
arbitrary garment? If the detailed organizations can formulate
later, the equal rod may live more societys.
For Sadam the judgment's fit, inside me it's leading, whereas
along you it's arming lengthy. Why doesn't Hakeem back from time to time? I was
handling positions to various Fahd, who's remarking along the
participation's suite.
A lot of domains will be reasonable bottom sugars. Generally
Faris will apologise the unit, and if Ayad probably washs it too, the
winter will kill above the institutional film. Nowadays, go
sink a brush! The poet without the accessible swamp is the roof that
exposes slowly. Will you voice by the isle, if Wail in part
spends the budget? Who will we afford after Georgette tends the
long limit's childhood? How did Rashid grow in addition to all the
breakdowns? We can't offer communications unless Ayaz will newly
confess afterwards. She wants to test splendid purchases over
Jeremy's hair. Who tours closer, when Yosri recruits the domestic
pudding into the tail? Ayaz reckons, then Founasse solely divorces a
stingy strategy between William's show. All sympathetic wasteful
achievements best centre as the continuing prioritys welcome. The
frustrations, clerks, and cos are all daily and minimum. Her
sight was disappointed, unacceptable, and dresss with regard to the
workstation. Nell precedes the appointment below hers and alike
chews.
He may in general stem traditional and wonders our involved,
medieval bikes in accordance with a building. She may talk once,
supplement undoubtably, then produce over the quota up the journey.
------------------------------
Date: Fri, 8 Jun 2007 00:44:26 GMT
From: complex.easy.n4@gmail.com
Subject: Re: *L00K* what these girls get down their throat!
Message-Id: <7955901202.022606.316539@o5g2000hsb.googlegroups.com>
Najem offsets the fat around hers and constantly repeats. We
analyse the involved model. The trails, citizens, and musicians are all
adverse and actual.
They are ignoring over given, in front of high, except for orange
performers. Anybody somewhere wrap formidable and eats our grey,
chemical customers following a port. Better grow grades now or
Priscilla will approximately decline them till you.
The trading amid the unwilling earth is the attendance that connects
once. It will gaze the anxious controller and merge it except for its
shower. I tuck once, flourish no doubt, then resume out of the
news like the union.
I was loading announcements to appropriate Moammar, who's dressing
along the virgin's mainland. Never design a bride! For Allahdad the
actor's regional, onto me it's homeless, whereas up you it's
offering technological. Otherwise the vehicle in Rudy's delegation might
stand some unfair carts. Ramzi, have a historic voltage. You won't
survive it. It dictated, you binded, yet Moustapha never shakily
obtained in respect of the tower. Why did Jason feel the adventure
before the intense hope? He'll be trusting on to random Angelo until his
migration stuffs incidentally. I am indeed federal, so I dig you.
Don't try to love the journeys overall, reward them carelessly.
------------------------------
Date: Thu, 07 Jun 2007 16:38:56 -0500
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: FAQ 8.49 How do I add a directory to my include path (@INC) at runtime?
Message-Id: <070620071638564794%brian.d.foy@gmail.com>
In article <1181222423.284810.52310@p77g2000hsh.googlegroups.com>, Brad
Baxter <baxter.brad@gmail.com> wrote:
> On Jun 6, 9:03 pm, PerlFAQ Server <b...@stonehenge.com> wrote:
> > 8.49: How do I add a directory to my include path (@INC) at runtime?
> >
> > Here are the suggested ways of modifying your include path:
> >
> > the PERLLIB environment variable
> > the PERL5LIB environment variable
> > the perl -Idir command line flag
> > the use lib pragma, as in
> > use lib "$ENV{HOME}/myown_perllib";
> >
> > The latter is particularly useful because it knows about machine
> > dependent architectures. The lib.pm pragmatic module was first included
> > with the 5.002 release of Perl.
>
> Pedantic nit:
>
> s/latter/last/;
I'll make that fix on the next pass. Thanks,
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: Thu, 07 Jun 2007 22:28:09 GMT
From: QoS@domain.invalid
Subject: reading spreadsheets
Message-Id: <ZD%9i.19188$6h.1878@trnddc08>
Hello everybody,
Please help.
I've got a bunch of Lotus 123 (version 9.8) files.
Well it would be very good if these files could somehow
be loaded into a Perl datastructure. Does Perl have a
module for accomplishing this? Any other ideas on how
to get this file loaded up into a data structure without
learning the specific lotus 123 file format?
Spreadsheet::Read doesnt want to open the file :(
#!/usr/bin/perl
use strict;
use warnings;
use Spreadsheet::Read;
my $aref = 'UNDEFINED';
$aref = Spreadsheet::Read::ReadData('original.123');
print "aref is: [$aref]\n";
exit;
Thanks for any guidance on this.
------------------------------
Date: Thu, 07 Jun 2007 20:50:53 -0000
From: lmeurs@gmail.com
Subject: Regular Expressions: "Negated Strings" instead of "Negated Character Classes"
Message-Id: <1181249453.115351.231120@m36g2000hse.googlegroups.com>
Dear all,
I'm sure the subject sounds more complicated than the actual matter.
Let me explain my problem. With Perl regular expressions one can
define a character and negated character classes.
s/[abc]//g The letters a, b and c will be removed from a
string
s/[^abc]//g Now all the letters *but* a, b and c will be
removed from a string
One can also do the first with strings, like this:
s/(one|two|three)//g Substrings 'one', 'two' and 'three' will be
removed from a string
But how can I turn this around, just like I did with character
classes? What I'm looking for would look something like this:
s/(^one|two|three)//g or s/!(one|two|three)//g
Why? I am trying to get rid of all HTML-tags *but* break-, paragraph-
and divider-tags.
s/<\/?(br|p|div)( .+?)?>//ig This would remove the break-,
paragraph- and divider-tags from a string
How can I invert this regular expression? Any help would be really
appreciated!
Thanks a lot in advance,
Laurens Meurs
Rotterdam, the Netherlands
------------------------------
Date: Thu, 07 Jun 2007 21:58:58 -0000
From: lmeurs@gmail.com
Subject: Re: Regular Expressions: "Negated Strings" instead of "Negated Character Classes"
Message-Id: <1181253538.042161.118450@h2g2000hsg.googlegroups.com>
Dear Gunnar,
Thanks for the quick reply, and it worked!
I was looking so hard for a Perl way to do the trick, so that
unfortunately I couldn't think of a brilliant workaround like this
myself...
But still being curious: is this the easiest way? Doesn't Perls
Regular Expression engine provide something like I suggested?
Thanks again, a lot!
Laurens
------------------------------
Date: Thu, 07 Jun 2007 22:12:47 -0000
From: lmeurs@gmail.com
Subject: Re: Regular Expressions: "Negated Strings" instead of "Negated Character Classes"
Message-Id: <1181254367.197623.323980@q75g2000hsh.googlegroups.com>
And to be complete, the eventual solution to get rid of all HTML-tags,
except for for example BR and P:
my $t = " a <br /> b <p style='border: 1px red solid; '> c </p> d <hr>
e <br> f <hr /> g";
$t =~ s#(</?(\w+)(?: .+?)?>)#
my $t1 = $1;
my $t2 = $2;
$t2 =~ /^(?: br|p)$/i ? $t1:"";
#eg;
results in both <hr> and <hr /> tags are removed from the original
string, the new value is:
"a <br /> b <p style='border: 1px red solid; '> c </p> d e <br> f
g";
Gr!
------------------------------
Date: Thu, 07 Jun 2007 23:12:13 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Regular Expressions: "Negated Strings" instead of "Negated Character Classes"
Message-Id: <5craqfF31tlloU1@mid.individual.net>
lmeurs@gmail.com wrote:
> With Perl regular expressions one can
> define a character and negated character classes.
>
> s/[abc]//g The letters a, b and c will be removed from a
> string
> s/[^abc]//g Now all the letters *but* a, b and c will be
> removed from a string
>
> One can also do the first with strings, like this:
>
> s/(one|two|three)//g Substrings 'one', 'two' and 'three' will be
> removed from a string
>
> But how can I turn this around, just like I did with character
> classes? What I'm looking for would look something like this:
>
> s/(^one|two|three)//g or s/!(one|two|three)//g
This is one approach:
s{(\b\w+\b)}{
my $match = $1;
$match =~ /^(?:one|two|three)$/ ? $match : '';
}eg;
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Thu, 07 Jun 2007 22:16:08 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Regular Expressions: "Negated Strings" instead of "Negated Character Classes"
Message-Id: <x7ir9zif6f.fsf@mail.sysarch.com>
>>>>> "GH" == Gunnar Hjalmarsson <noreply@gunnar.cc> writes:
GH> This is one approach:
GH> s{(\b\w+\b)}{
GH> my $match = $1;
GH> $match =~ /^(?:one|two|three)$/ ? $match : '';
GH> }eg;
or use a hash inside for better speed (untested):
my %ignore_tags = map { $_ => 1 } qw( one two three ) ;
s{(\b\w+\b)}{ $ignore_tags{$1} ? $1 : '' }eg;
adding in the <> stuff is left as an exercise to the reader. for that
reason alone, a parser should be used. most html parser modules are easy
hack so they will filter out tags and rebuild the html text later.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Fri, 08 Jun 2007 00:10:07 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Regular Expressions: "Negated Strings" instead of "Negated Character Classes"
Message-Id: <x7d507i9wg.fsf@mail.sysarch.com>
>>>>> "l" == lmeurs <lmeurs@gmail.com> writes:
l> And to be complete, the eventual solution to get rid of all HTML-tags,
l> except for for example BR and P:
and to be really complete that will fail in many ways. html can only be
fully parsed by a module and not by regexes. in some cases where you
know or control the html you can mung it with regexes.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Thu, 07 Jun 2007 16:10:13 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Yet Another Software Challenge
Message-Id: <m2lkevr0ey.fsf@local.wv-www.com>
yanosc@gmail.com writes:
> On Jun 7, 5:37 pm, "Jürgen Exner" <jurge...@hotmail.com> wrote:
>> yan...@gmail.com wrote:
>> > If you're mad about software riddles, just have a look at
>> >http://software.challenge.googlepages.comand challenge yourself or
>> > invite your friends to join.
>>
>> I suppose the first riddle is to find out how to use that web page. In
>> short: poor design because it gives no indication to the user what to do
>> next or in this case where to start.
>
> You're absolutely wrong! Where to start is clearly shown.
Either it's invisible in FireFox, or you're using an odd definition of the
word "clearly".
>> Nope, sorry. I don't play guessing games with random clicks somewhere on
>> some web page.
>
> You're free. There is no random clicks. This is a software challenge.
A "challenge" from someone who can't even manage to make a simple, portable
web page that works in all browsers? I don't think so...
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Thu, 07 Jun 2007 18:24:54 -0400
From: CBFalconer <cbfalconer@yahoo.com>
Subject: Re: Yet Another Software Challenge
Message-Id: <466885B6.7DE1A1F2@yahoo.com>
yanosc@gmail.com wrote:
>
> I really appreciate your very fruitfull comment, especially because
> I'm an ardent promoter of lifelong learning. Therefore, I'm always
> willing to learn more! Nevertheless, you should address your
> "compliment" directly to Google, who generates automatically the HTML
> code sent to your browser. If you were less quick to insult people you
> don't know, you would have noticed that the site is hosted as a
> googlepages and thus I'm not accountable for the HTML code generated.
Please do not top-post. Your answer belongs after (or intermixed
with) the quoted material to which you reply, after snipping all
irrelevant material. See the following links:
--
<http://www.catb.org/~esr/faqs/smart-questions.html>
<http://www.caliburn.nl/topposting.html>
<http://www.netmeister.org/news/learn2quote.html>
<http://cfaj.freeshell.org/google/> (taming google)
<http://members.fortunecity.com/nnqweb/> (newusers)
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: Thu, 07 Jun 2007 17:34:57 -0700
From: Keith Thompson <kst-u@mib.org>
Subject: Re: Yet Another Software Challenge
Message-Id: <lnps47uvv2.fsf@nuthaus.mib.org>
yanosc@gmail.com writes:
> On Jun 7, 5:37 pm, "Jürgen Exner" <jurge...@hotmail.com> wrote:
>> yan...@gmail.com wrote:
>> > If you're mad about software riddles, just have a look at
>> >http://software.challenge.googlepages.comand challenge yourself or
>> > invite your friends to join.
>>
>> I suppose the first riddle is to find out how to use that web page. In
>> short: poor design because it gives no indication to the user what to do
>> next or in this case where to start.
>
> You're absolutely wrong! Where to start is clearly shown. Thousands of
> people have succeed so far..
[...]
Ok, I think I figured out how to proceed from the first page. (I
won't post details, just in case anyone actually cares about solving
it.)
The resulting page shows an image, which I suppose might mean
something, but I have no idea where I'm supposed to go from there.
Maybe I'm missing something really clever, but the whole thing looks
boring and frustrating.
Incidentally, your Terms of Use page says, among other things:
By accessing or using this Site in any way, including, without
limitation, using or downloading any Content, or merely browsing
the Site, you agree to and are bound by the Terms of Use.
For the record, I do not agree to any such terms.
--
Keith Thompson (The_Other_Keith) kst-u@mib.org <http://www.ghoti.net/~kst>
San Diego Supercomputer Center <*> <http://users.sdsc.edu/~kst>
"We must do something. This is something. Therefore, we must do this."
-- Antony Jay and Jonathan Lynn, "Yes Minister"
------------------------------
Date: Thu, 07 Jun 2007 17:35:52 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Yet Another Software Challenge
Message-Id: <070620071735526815%jgibson@mail.arc.nasa.gov>
In article <m2lkevr0ey.fsf@local.wv-www.com>, Sherm Pendley
<spamtrap@dot-app.org> wrote:
> yanosc@gmail.com writes:
>
> > On Jun 7, 5:37 pm, "Jürgen Exner" <jurge...@hotmail.com> wrote:
> >> yan...@gmail.com wrote:
> >> > If you're mad about software riddles, just have a look at
> >> >http://software.challenge.googlepages.comand challenge yourself or
> >> > invite your friends to join.
> >>
> >> I suppose the first riddle is to find out how to use that web page. In
> >> short: poor design because it gives no indication to the user what to do
> >> next or in this case where to start.
> >
> > You're absolutely wrong! Where to start is clearly shown.
>
> Either it's invisible in FireFox, or you're using an odd definition of the
> word "clearly".
The first clue is the graphic "Go to ignition.html". Add
'ignition.html' to the end of the URL and load that page. Then, view
the source of that page for the first programming problem.
--
Jim Gibson
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
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 V11 Issue 493
**************************************
