[29171] in Perl-Users-Digest
Perl-Users Digest, Issue: 415 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue May 8 03:09:56 2007
Date: Tue, 8 May 2007 00:09:06 -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 Tue, 8 May 2007 Volume: 11 Number: 415
Today's topics:
6apart ~el8 j4mm1x@yahoo.com
Comparing objects for equality (Jens Thoms Toerring)
Re: Custom Software Development <tadmc@augustmail.com>
How to change the comparsion criteria of diff? <Michael.Yxf@gmail.com>
Re: How to change the comparsion criteria of diff? <Michael.Yxf@gmail.com>
Re: Link Matching <tadmc@augustmail.com>
Re: Link Matching <xicheng@gmail.com>
Re: Link Matching <tadmc@augustmail.com>
Re: Link Matching <thepoet_nospam@arcor.de>
Re: Multiple copy and paste thing in Perl <gmarkowsky@gmail.com>
Re: need a quick script <stoupa@practisoft.cz>
new CPAN modules on Tue May 8 2007 (Randal Schwartz)
Re: Select from drop down menu multipel times in the sa <tadmc@augustmail.com>
Using Expect.pm <Slain.k@gmail.com>
Re: Website programming (search + statistics) usenet@DavidFilmer.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 7 May 2007 22:25:25 -0700
From: j4mm1x@yahoo.com
Subject: 6apart ~el8
Message-Id: <1178601925.005036.29690@l77g2000hsb.googlegroups.com>
################################################
## 0fPHIc1@L ~El8 rUI|\|@t1o|\| p0r+phoLi0 ##
################################################
##::::::::::::::::::::::::::::::::::::::::::::##
##:'####::::::'########:'##::::::::'#######:::##
##'## ##:'##: ##.....:: ##:::::::'##.... ##::##
##..::. ####:: ##::::::: ##::::::: ##:::: ##::##
##:::::....::: ######::: ##:::::::: #######:::##
##:::::::::::: ##...:::: ##:::::::'##.... ##::##
##:::::::::::: ##::::::: ##::::::: ##:::: ##::##
##::~el8[666]: ########: ########:. #######:::##
##::::::::::::........::........:::.......::::##
################################################
## the definitive src for the SFBay H/P Scene ##
################################################
.----------------------------------------------------------------.
; T4bLe opH |-|oLY w4R3Z 4|\|D bEY0n|) ; ;
`--------------------------------------' ;
; *00* ~e~ intr0duktion ;
; *01* ~e~ 6AP@4t RUyn ;
' *02* ~e~ b00K 0F Od1n, G4Wd 0F lUlZ ;
`----------------------------------------------------------------'
.----------------------------------------------------------------.
; t4ble of ~el8 m3mbrZ ; ;
`----------------------' ;
; SiLLY G00S3 -> THe HiGH PReeZT ;
; FuNNY BuNNY -> a BLiP oN YOuR GaYDaR ;
; ODaY MaZTeR -> GeTZ aLL THe HoEZ and CoDEz ;
; ENRiCO -> INSaNe IN ThE MeMBRAiN ;
; ReDPUBeZ -> AkA KARRoT_BoTToM ;
; CaWCaW -> EYe'LL TEaR YoUR EyEZ OuT ;
; KRaD -> sO FReSH & sO CLEaN ;
; PoOtIeTaNG -> CRaZY CooL FRe$h ;
; UNCLe MaViS -> HaS YOu IN A HEaDLoK ;
; TcJ -> ThE CRiMiNaL JESuS ;
; CLiFF SToLE -> CLiFF SToLE YOUR CoDEz ;
; JaMeS BRoWN PaNTZ -> STAiNeD UNDeRWaREZ ;
; JoHNY SiX ToEZ -> MuTaTED MiKE ;
; DiNOSaUR MaN -> THe OLD SCHooL ;
; MiKE TySoN -> THe DaHMeR oF BoXiNG ;
; BaLLSaCK -> Mr HuGE NuTZ ;
; ARaB BiLL -> MeKKa DoN WoN ;
; KaRELeSS KaRL -> EyE DoNT WiPE LoGZ ;
; OSaMA BiN LaDEN -> GeORgE BuSH ;
; ThE UNiX TeRRoRiZt -> RM'z YoUR BoX WiTHOuT ReMORsE ;
; PuSSy FaCEd KiLLa -> GHoST FaCE KiLLaZ HoMEsLiCE ;
; CHiNeeZ TiMMy -> CReAM oF SuM YuN GaI ;
; SeXPaTRiOT -> THe PoRNo HaCKeR ;
; T z D -> TEaM ZeRODaY ;
; J4mm1x -> My pan15 DO nOT UP 4nD i h4V3 ;
; pro8L3m Wi+H My P3NNy b4lLS ;
`----------------------------------------------------------------'
.~v~----------------------------------------------------------~v~.
; *00* intr0duktion -- ~el8 TEaM ;
`----------------------------------------------------------------'
8OyCOtT h0r5e5 f0r tehy are th3 enemy
we r h4rdkore h4krz who clean your toilets, the h4rdkore
k0derz
who forcefully w1pe y0ur wind0wz @ st0pl1ghtz and
intersekti0nz,
the h4rdk0re phre4krZ who mow your l4wn, the h4rdk0re cr4krz
who ste4l cl0thez from the salvati0n army, we take yor orderz
at burger k1ng, we steal yor hubk4pz, we even put k4meraz in
port `o pottiez. *_DO_* *_NOT_* *_FUCK_* *_WITH_* *_US_*.
-- ~el8 team
.~v~----------------------------------------------------------~v~.
; *01* 6AP@4t RUyn -- ~el8 TEaM ;
`----------------------------------------------------------------'
,_______________________________________________,
| BARAK BERKIOWITZ |
| 210 TENNYSON AVE |
| PALO ALTO CA, 94301 |
| (650) 322-8031 |
| SSN: 118-46-3088 |
|_______________________________________________|
^ ^
,_______________________________________________,
| Mena Trott |
| 4338 26TH ST |
| SAN FRANCISCO, CA 94131-1810 |
| (415) 821-2073 |
|_______________________________________________|
^ ^
,_______________________________________________,
| DAVID F MARQUARDT |
| 2480 SAND HILL RD APT 101 |
| MENLO PARK, CA 94025-6940 |
| (650) 233-3333 |
| (650) 692-2883 |
| SSN: 086-44-2677 |
|_______________________________________________|
^ ^
,_______________________________________________,
| DAVID MARTIN HORNIK |
| 137 PARK AVE #419 |
| PALO ALTO, CA 94306-1108 |
| (650) 327-8757 |
| (650) 328-1380 |
| SSN: 014-48-8392 |
|_______________________________________________|
^ ^
,_______________________________________________,
| Jun Makihara |
| 1601 RISING GLEN RD |
| LOS ANGELES, CA 90069-1227 |
| SSN: 579-86-3910 |
|_______________________________________________|
^ ^
,_______________________________________________,
| REID HOFFMAN |
| 2042 LEAVENWORTH ST |
| SAN FRANCISCO, CA 94133-2518 |
| SSN: 516-84-6565 |
|_______________________________________________|
^ ^
,_______________________________________________,
| BENJAMIN J TROTT |
| 4338 26TH ST |
| SAN FRANCISCO, CA 94131-1810 |
| (415) 821-2073 |
| SSN: 567-49-0571 |
|_______________________________________________|
^ ^
aNd FiNallY
,_______________________________________________,
| BRAD FITZPATRICK |
| 529 28TH ST |
| SAN FRANCISCO, CA 94131-2219 |
| SSN: 459-49-4136 |
|_______________________________________________|
^ ^
.~v~----------------------------------------------------------~v~.
; *02* b00K 0F Od1n, G4Wd 0F lUlZ -- ~el8 TEaM ;
`----------------------------------------------------------------'
<Odin> NIGGER NALA NIGGER NALA
<Odin> D"
<Odin> I DONT HAVE N E
<Odin> LIKE WHOA
<Odin> Naked?
<Odin> HISSS
<Odin> A BACKBONES
<Odin> Shutup u tlak dumb
<Odin> N e captain morgan n e mixing the light and the dark and
getting the rum flaps barf on ur hiss
<Odin> Tree dicks
<Odin> ANALA
<Odin> Wanna see TERDS
<Odin> <MASTER><
<Odin> YEAH
<Odin> I dunno
<Odin> JIZZ
<Odin> WELL IM LISTENING TO GAY MUSIC
<Odin> 8[
<Odin> WHAT
<Odin> I DUNNO
<Odin> AND IT WOULDNT IT WAS SO HUGE LOL
<Odin> 9]]
<Odin> Did u fuckers know that
<Odin> LOL
<Odin> DOING THE FLAP LA D:
<Odin> ET TU BRUTE?
<Odin> N E POOPY WET
<Odin> Ssssssssss
<Odin> Hissssssss
<Odin> I, 2 high 2 type legit
<Odin> I NEED TO STEAL 10 LCDS
<Odin> OMG
<Odin> Jizz flaps
<Odin> SSSSSSSSSSSSSSSSSSSSSSs
<Odin> D:
<Odin> SNIFF IT OK HJUNNY
<Odin> THEN I RAPE THEM
<Odin> I have done 12 poopers
<Odin> Shutup nigger
<Odin> A new breed of the awful flaps
+++++++++++++++++++++++++++++++++++++++++++
| Closing Words by |
| j4mm1x |
+++++++++++++++++++++++++++++++++++++++++++
I did it for the lulz.
lllllll 888888888
l:::::l 88:::::::::88
l:::::l 88:::::::::::::88
l:::::l 8::::::88888::::::8
eeeeeeeeeeee l::::l 8:::::8 8:::::8
ee::::::::::::ee l::::l 8:::::8 8:::::8
_________ _____ e::::::eeeee:::::ee l::::l 8:::::88888:::::8
/ \ / |e::::::e e:::::el::::l 8:::::::::::::8
/ ~el8 \/ /e:::::::eeeee::::::el::::l 8:::::88888:::::8
/ _ / e:::::::::::::::::e l::::l 8:::::8 8:::::8
/ / \ / e::::::eeeeeeeeeee l::::l 8:::::8 8:::::8
\_____/ \________/ e:::::::e l::::l 8:::::8 8:::::8
e::::::::e l::::::l8::::::88888::::::8
e::::::::eeeeeeee l::::::l 88:::::::::::::88
ee:::::::::::::e l::::::l 88:::::::::88
eeeeeeeeeeeeee llllllll 888888888
.j4mm1x.
------------------------------
Date: 7 May 2007 23:25:13 GMT
From: jt@toerring.de (Jens Thoms Toerring)
Subject: Comparing objects for equality
Message-Id: <5a9qqpF2o0up3U1@mid.uni-berlin.de>
Hi,
I have often to compare objects for equality that are created
for an entry in a database, where equality means that the objects
refer to the same entry in the database. The normal '==' operator
of course only tells me if the objects are identical in the sense
that their addresses are the same, so it won't work for objects
created for the same database entry. But this is nearly never what
I'm really interested in so I usually overload the '==' (and '!=')
operator to do something like
use overload '==' => sub { die 'Invalid comparison'
unless $_[ 0 ]->isa( __PACKAGE__ ) and
$_[ 1 ]->isa( __PACKAGE__ );
$_[ 0 ]->id == $_[ 1 ]->id },
'!=' => sub { die 'Invalid comparison'
unless $_[ 0 ]->isa( __PACKAGE__ ) and
$_[ 1 ]->isa( __PACKAGE__ );
$_[ 0 ]->id != $_[ 1 ]->id },
fallback => 1;
with '$object->id' being the method to determine the primary key
of the entry in the database for '$object' (it gets more inter-
esting if there isn't a simple primary key). While this works
quite fine so far I am wondering if there is some better, more
elegant (and maybe even faster;-) method to do such a comparison
for (in-) equality
Regards, Jens
--
\ Jens Thoms Toerring ___ jt@toerring.de
\__________________________ http://toerring.de
------------------------------
Date: Mon, 7 May 2007 19:36:01 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Custom Software Development
Message-Id: <slrnf3vhfh.oh3.tadmc@tadmc30.august.net>
VB <vb@nowhere.com.invalid> wrote:
> Web site and
> Content Management Solutions development, CMS consulting: Ektron,
> Drupal and DotNetNuke
Errr, is there any Perl in those?
How much does the job pay?
> provides high quality custom software development
Of course you do.
> On December 2006,
> became an authorized Microsoft Certified Partner.
Stand back so you don't get crushed by the rush of customers!
> This means
> that our company has been recognized by Microsoft for our vast
> expertise
You must be so proud.
> and authorized to custom software development;
Errr, I don't think you need Microsoft's permission to write
software. Surprise! Boy, they sure snookered you, eh?
> Custom Software Development and Offshore outsourcing Company iTechArt
> has worked together since 2003
... but are too careless to pay a college English student $8/hour
to gramm edit their advertising copy...
> We are agile oriented development partner
It sounds soooo good when you talk to me like that!
> to consistently deliver solid results.
Uh, no thanks, I don't swing that way.
> software development team assemblies specialists in the
Where is that darn Grammatical Editor?!
> Working concepts of our company are based on proven approaches and
spamming.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 7 May 2007 20:18:46 -0700
From: Michael <Michael.Yxf@gmail.com>
Subject: How to change the comparsion criteria of diff?
Message-Id: <1178594326.741836.192020@q75g2000hsh.googlegroups.com>
Hi all:
I'm meeting the problem with diff methods in Perl.
I am comparing two files, one containing regular-expression string
texts, and the other doesn't. what I need to do is to find the
difference between EXCEPT FOR when regular expression matches with the
other's corresponding text, which is shown as below,
For example:
A.txt: Hello every one! I like .* languages very much!
B.txt: Hello every one! I like Perl Languages very much!
The regexp ".*" in A.txt is used to match any string in B.txt as the
normal regular expression does. Here A.txt and B.txt are considered
equal. But the general diff method would consider them as difference
with line-by-line text comparison. And if there are different, I want
the output with same behavior as in the UNIX.
I searched into the modules of Perl, like Text::Diff, Algorithm::Diff,
but didn't get any idea of it. I saw that one comparison method can be
passed into Algorithm::Diff as the new comparison criteria in the doc
online, but failed after trying. Could any one give a simple example
showing this feature?
my (@seq1, @seq2) = (<FH1>, <FH2>);
diff(\@seq1, \@seq2, $comparison_function);
I don't know what is the rules of designing this $comparison_function?
If there is some other way to do this, please kindly tell me, thanks
very much!
------------------------------
Date: 7 May 2007 23:47:20 -0700
From: Michael Yang <Michael.Yxf@gmail.com>
Subject: Re: How to change the comparsion criteria of diff?
Message-Id: <1178606840.168881.168940@e65g2000hsc.googlegroups.com>
On May 8, 11:18 am, Michael <Michael....@gmail.com> wrote:
> Hi all:
> I'm meeting the problem with diff methods in Perl.
> I am comparing two files, one containing regular-expression string
> texts, and the other doesn't. what I need to do is to find the
> difference between EXCEPT FOR when regular expression matches with the
> other's corresponding text, which is shown as below,
> For example:
> A.txt: Hello every one! I like .* languages very much!
> B.txt: Hello every one! I like Perl Languages very much!
> The regexp ".*" in A.txt is used to match any string in B.txt as the
> normal regular expression does. Here A.txt and B.txt are considered
> equal. But the general diff method would consider them as difference
> with line-by-line text comparison. And if there are different, I want
> the output with same behavior as in the UNIX.
>
> I searched into the modules of Perl, like Text::Diff, Algorithm::Diff,
> but didn't get any idea of it. I saw that one comparison method can be
> passed into Algorithm::Diff as the new comparison criteria in the doc
> online, but failed after trying. Could any one give a simple example
> showing this feature?
> my (@seq1, @seq2) = (<FH1>, <FH2>);
> diff(\@seq1, \@seq2, $comparison_function);
> I don't know what is the rules of designing this $comparison_function?
>
> If there is some other way to do this, please kindly tell me, thanks
> very much!
To be more clearly on this question:
I need the script to ignore the text differences when the regex in one
file matches the corresponding part in the other. Thus I need to ask
the diff utility to compare two files with the new rules of regex as
shown above, which could be defined in a comparison function by user
self.
------------------------------
Date: Mon, 7 May 2007 19:10:10 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Link Matching
Message-Id: <slrnf3vfv2.oh3.tadmc@tadmc30.august.net>
Xicheng Jia <xicheng@gmail.com> wrote:
> On May 4, 11:08 pm, Taras_96 <taras...@gmail.com> wrote:
>> I need to write a regex that parses some HTML text
> Here is one regex way:
So let's rephrase that in more honest terms.
Here is a way that appears to work often, but will sometimes match
things that it shouldn't match, and at other times will not match
things that it should have matched.
(If you want one way that always gets it right, then you need
a Real Parser.
)
> sub findlinks
> {
> my ($html, $ptn) = @_;
> while($html =~ m{( <a (?=[^<>]*href) (.*?) </a> )}gsix) {
> my $ret = $1;
> (my $content = $2) =~ s/<.*?>//g; #remove embedded tags
> print $ret if $content =~ /\Q$ptn/;
> # if $ptn is plain text, switch to index()
> # print $ret if index($content, $ptn) > 0;
> }
> }
Try it with this data:
$html = <<END_HTML;
<p>
If b<a then href="bbb"
</p> Don't report me!
<a href="ttoo">two
</a>
<a href="homer>Report me. I am a link!</a
>
END_HTML
-
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 7 May 2007 17:53:37 -0700
From: Xicheng Jia <xicheng@gmail.com>
Subject: Re: Link Matching
Message-Id: <1178585617.915142.268210@n59g2000hsh.googlegroups.com>
On May 7, 8:10 pm, Tad McClellan <t...@augustmail.com> wrote:
> Xicheng Jia <xich...@gmail.com> wrote:
> > On May 4, 11:08 pm, Taras_96 <taras...@gmail.com> wrote:
> >> I need to write a regex that parses some HTML text
> > Here is one regex way:
>
> So let's rephrase that in more honest terms.
>
> Here is a way that appears to work often, but will sometimes match
> things that it shouldn't match, and at other times will not match
> things that it should have matched.
>
> (If you want one way that always gets it right, then you need
> a Real Parser.
> )
>
> > sub findlinks
> > {
> > my ($html, $ptn) = @_;
> > while($html =~ m{( <a (?=[^<>]*href) (.*?) </a> )}gsix) {
> > my $ret = $1;
> > (my $content = $2) =~ s/<.*?>//g; #remove embedded tags
> > print $ret if $content =~ /\Q$ptn/;
> > # if $ptn is plain text, switch to index()
> > # print $ret if index($content, $ptn) > 0;
> > }
> > }
>
> Try it with this data:
>
> $html = <<END_HTML;
> <p>
> If b<a then href="bbb"
That is ill-formated html and won't pass the W3C XHTML validator, I've
mentioned in my previous post and I never said the code can do all
things. But in case one knows (what|how) the text presents, CPAN
modules are not the only tools that can solve the problem.
BTW. you could actually come up with some better samples to invalidate
my code, like:
<a onmouseover="window.location.href = whatever" .....> ...... </a>
but that's easy to be fixed..
Regards,
Xicheng
------------------------------
Date: Mon, 7 May 2007 20:21:17 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Link Matching
Message-Id: <slrnf3vk4d.oqj.tadmc@tadmc30.august.net>
Xicheng Jia <xicheng@gmail.com> wrote:
> On May 7, 8:10 pm, Tad McClellan <t...@augustmail.com> wrote:
>> Xicheng Jia <xich...@gmail.com> wrote:
>> > On May 4, 11:08 pm, Taras_96 <taras...@gmail.com> wrote:
>> >> I need to write a regex that parses some HTML text
^^^^^^^^^
^^^^^^^^^
>> Here is a way that appears to work often, but will sometimes match
>> things that it shouldn't match, and at other times will not match
>> things that it should have matched.
>> $html = <<END_HTML;
>> <p>
>> If b<a then href="bbb"
>
> That is ill-formated html
It is perfectly valid HTML.
> and won't pass the W3C XHTML validator,
That's because XHTML is not the same language as HTML.
The OP was not asking about that language, he was asking about HTML.
> I've
> mentioned in my previous post
I had not seen it yet, and the disclaimers should be in the
same post where the disclaimed code is.
Otherwise people might take the code seriously.
> BTW. you could actually come up with some better samples to invalidate
> my code,
Yes I could.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 08 May 2007 07:33:19 +0200
From: Christian Winter <thepoet_nospam@arcor.de>
Subject: Re: Link Matching
Message-Id: <46400b90$0$10197$9b4e6d93@newsspool4.arcor-online.net>
Xicheng Jia schrieb:
> On May 7, 8:10 pm, Tad McClellan <t...@augustmail.com> wrote:
>> Xicheng Jia <xich...@gmail.com> wrote:
>>> On May 4, 11:08 pm, Taras_96 <taras...@gmail.com> wrote:
>>>> I need to write a regex that parses some HTML text
>>> Here is one regex way:
>> So let's rephrase that in more honest terms.
>>
>> Here is a way that appears to work often, but will sometimes match
>> things that it shouldn't match, and at other times will not match
>> things that it should have matched.
>>
>> (If you want one way that always gets it right, then you need
>> a Real Parser.
>> )
>>
>>> sub findlinks
>>> {
>>> my ($html, $ptn) = @_;
>>> while($html =~ m{( <a (?=[^<>]*href) (.*?) </a> )}gsix) {
>>> my $ret = $1;
>>> (my $content = $2) =~ s/<.*?>//g; #remove embedded tags
>>> print $ret if $content =~ /\Q$ptn/;
>>> # if $ptn is plain text, switch to index()
>>> # print $ret if index($content, $ptn) > 0;
>>> }
>>> }
>> Try it with this data:
>>
>> $html = <<END_HTML;
>> <p>
>> If b<a then href="bbb"
>
> That is ill-formated html and won't pass the W3C XHTML validator, I've
> mentioned in my previous post and I never said the code can do all
> things. But in case one knows (what|how) the text presents, CPAN
> modules are not the only tools that can solve the problem.
>
> BTW. you could actually come up with some better samples to invalidate
> my code, like:
>
> <a onmouseover="window.location.href = whatever" .....> ...... </a>
>
> but that's easy to be fixed..
I just imagined the whole discussion happening in alt.cars:
------------------------------------------------------------------------
OriginalPoster: Hi there, I want to use a building crane to aid me in
changing my car tyres. How can I do that?
PosterA (ignored): You really shouldn't do that, it's very likely that
it lands on top of your head while doing this kind
of thing. Use a car-jack instead, or if you're
going to do it often, maybe think about a hoist.
PosterB: Just hook four chains to the crane's tool hook and
attach two of them to the sides of the front bumber
and two of them to the fixation hooks on the loading
area.
PosterC: How do you know the car has a loading area? Don't you
think it will be likely that the front bumper comes
off? What if the OP has a cheap imported car with a
plastic bumper? If you don't want any accidents to
happen, car-jacks or hoists are the most reliable
tools to lift cars for tyre changing.
PosterB: Cheap imported cars aren't pickups and can't have
hooks on the loading area, so your example sucks, and
by the way, I never really said a crane could lift
everything. But if you know where to attach hooks,
car-jacks or hoists aren't the only tools to lift a
car.
PosterA: ??? *scratcheshishead*
------------------------------------------------------------------------
SCNR
-Chris
P.S.: Nothing against cheap imported cars here, I'm driving one
myself, and there's nothing I could complain about.
------------------------------
Date: 7 May 2007 21:38:11 -0700
From: TefJlives <gmarkowsky@gmail.com>
Subject: Re: Multiple copy and paste thing in Perl
Message-Id: <1178599091.166125.199730@y5g2000hsa.googlegroups.com>
Thanks for your reply. Actually, I should have said strings rather
than commands. It's in windows, too, I should have mentioned. I don't
know how to do any of the things you mentioned in windows. Is Perl the
right language, or should I use something else like C?
Greg
On May 7, 12:09 pm, "J=FCrgen Exner" <jurge...@hotmail.com> wrote:
> TefJlives wrote:
> > For my job, I often have a group of about 10 commands that I need to
> > type very often.
>
> Now, are you talking about 10 commands that you type in a command shell or
> 10 commands of a programming language the you type in an editor?
>
> In the first case you could simply create an alias (if supported by your
> command shell) or write a tiny (shell) script or whatever that executes
> those commands.
>
> In the later case any decend text editor has macro capabilities. Just cre=
ate
> a simple text macros, that inserts that piece of program code.
> However, if you typing the same lines of code over and over again, then
> maybe it would be better to create a subroutine for this part.
>
> jue
------------------------------
Date: Tue, 8 May 2007 02:43:13 +0200
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: need a quick script
Message-Id: <f1ohor$u70$1@ns.felk.cvut.cz>
"Jürgen Exner" <jurgenex@hotmail.com> píše v diskusním příspěvku
news:%fI%h.5252$83.4778@trndny08...
> Petr Vileta wrote:
>> Hmm Gunnar, this is not programmer problem but national alphabet
>> problem. Many nations have 'Ch' as simple character. For example
>> Czech alphabet is A
> [...]
>> C
> [...]
>> H
>> CH
>> As I know the similar problem is in Spanish and some other languages.
>> The Spanish first name Chita sound as english wroted Khyta, then miss
>> Chita Castro must be transformed to ChCastro, not to CCastro.
>
> This alphabet has single 'C' and 'H' as individual characters, too. How do
> you -as a human(!)- know, if the first is supposed to be 'C' or 'Ch'?
>
In the Czech language it is very simple. If I found 'C' followed by 'H' or
'h' then this MUST be 'CH' (or 'Ch'). In other language I don't know.
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
Date: Tue, 8 May 2007 04:42:10 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Tue May 8 2007
Message-Id: <JHpH2A.1u03@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Acme-MorningMusume-0.10
http://search.cpan.org/~kentaro/Acme-MorningMusume-0.10/
All about Japanese pop star "Morning Musume"
----
App-Addex-AddressBook-Apple-0.003
http://search.cpan.org/~rjbs/App-Addex-AddressBook-Apple-0.003/
use Apple Address Book as the addex source
----
CGI-Session-Driver-pure_sql-0.61
http://search.cpan.org/~markstos/CGI-Session-Driver-pure_sql-0.61/
Pure SQL driver with no embedded Perl stored in the database
----
CPAN-WWW-Testers-0.33
http://search.cpan.org/~lbrocard/CPAN-WWW-Testers-0.33/
Present CPAN Testers data
----
CRUST-0.2
http://search.cpan.org/~heschong/CRUST-0.2/
A lightweight Client for making REST calls
----
Catalyst-Model-DBI-0.17
http://search.cpan.org/~alexp/Catalyst-Model-DBI-0.17/
DBI Model Class
----
Catalyst-Model-DBI-0.18
http://search.cpan.org/~alexp/Catalyst-Model-DBI-0.18/
DBI Model Class
----
Catalyst-Plugin-CRUD-0.17
http://search.cpan.org/~bayside/Catalyst-Plugin-CRUD-0.17/
CRUD (create/read/update/delete) Plugin for Catalyst
----
Catalyst-View-TT-Filters-LazyLoader-0.05
http://search.cpan.org/~tomyhero/Catalyst-View-TT-Filters-LazyLoader-0.05/
TT View Class with Template::Filters::LazyLoader support.
----
Data-RefQueue-0.3
http://search.cpan.org/~asksh/Data-RefQueue-0.3/
Queue system based on references and scalars.
----
Data-Visitor-Encode-0.08
http://search.cpan.org/~dmaki/Data-Visitor-Encode-0.08/
Encode/Decode Values In A Structure
----
DateTime-TimeZone-0.66
http://search.cpan.org/~drolsky/DateTime-TimeZone-0.66/
Time zone object base class and factory
----
Devel-PiMPx-0.8.0
http://search.cpan.org/~asksh/Devel-PiMPx-0.8.0/
The Perl-inclusive Macro Processor
----
Egg-Model-DBIC-2.00
http://search.cpan.org/~lushe/Egg-Model-DBIC-2.00/
DBIx::Class for Egg Model.
----
Egg-Plugin-Cache-2.00
http://search.cpan.org/~lushe/Egg-Plugin-Cache-2.00/
cache for Egg plugin.
----
Egg-Release-2.00
http://search.cpan.org/~lushe/Egg-Release-2.00/
Version of Egg WEB Application Framework.
----
Egg-Release-2.01
http://search.cpan.org/~lushe/Egg-Release-2.01/
Version of Egg WEB Application Framework.
----
Egg-View-TT-2.00
http://search.cpan.org/~lushe/Egg-View-TT-2.00/
Template ToolKit for Egg View.
----
Gearman-1.07
http://search.cpan.org/~bradfitz/Gearman-1.07/
----
Gungho-0.06
http://search.cpan.org/~dmaki/Gungho-0.06/
Yet Another High Performance Web Crawler Framework
----
HTML-WebDAO-0.76
http://search.cpan.org/~zag/HTML-WebDAO-0.76/
Perl extension for create complex web application
----
IMDB-Film-0.28
http://search.cpan.org/~stepanov/IMDB-Film-0.28/
OO Perl interface to the movies database IMDB.
----
IO-Async-0.06
http://search.cpan.org/~pevans/IO-Async-0.06/
a collection of modules that implement asynchronous filehandle IO
----
JSON-Any-1.05
http://search.cpan.org/~cthom/JSON-Any-1.05/
Wrapper Class for the various JSON classes.
----
Mac-Apps-Seasonality-LoadICAOHistory-v0.0.5
http://search.cpan.org/~elliotjs/Mac-Apps-Seasonality-LoadICAOHistory-v0.0.5/
Load data into an SQLite2 database with the Seasonality weather.db schema.
----
Math-BigInt-1.86
http://search.cpan.org/~tels/Math-BigInt-1.86/
Arbitrary size integer/float math package
----
Module-LocalBuild-1.001
http://search.cpan.org/~wsnyder/Module-LocalBuild-1.001/
Support routines for setting up perltools area
----
Net-Backpack-1.12
http://search.cpan.org/~davecross/Net-Backpack-1.12/
Perl extension for interfacing with Backpack
----
Net-CascadeCopy-v0.0.3
http://search.cpan.org/~vvu/Net-CascadeCopy-v0.0.3/
efficiently replicate files across many servers
----
Net-CascadeCopy-v0.0.4
http://search.cpan.org/~vvu/Net-CascadeCopy-v0.0.4/
efficiently replicate files across many servers
----
Net-CascadeCopy-v0.0.7
http://search.cpan.org/~vvu/Net-CascadeCopy-v0.0.7/
efficiently copy files to many servers in multiple locations
----
Net-CascadeCopy-v0.0.8
http://search.cpan.org/~vvu/Net-CascadeCopy-v0.0.8/
efficiently copy files to many servers in multiple locations
----
Net-CascadeCopy-v0.0.9
http://search.cpan.org/~vvu/Net-CascadeCopy-v0.0.9/
efficiently copy files to many servers in multiple locations
----
Net-YASA-0.02
http://search.cpan.org/~clsung/Net-YASA-0.02/
Interface to YASA (Yet Another Suffix Array)
----
PAR-Packer-0.975
http://search.cpan.org/~smueller/PAR-Packer-0.975/
PAR Packager
----
PDF-API2-0.61
http://search.cpan.org/~areibens/PDF-API2-0.61/
A Perl Module Chain to faciliate the Creation and Modification of High-Quality "Portable Document Format (aka. PDF)" Files.
----
Parse-Snort-0.01
http://search.cpan.org/~rharman/Parse-Snort-0.01/
Parse and create Snort rules
----
Perl-Critic-Swift-v1.0.0
http://search.cpan.org/~elliotjs/Perl-Critic-Swift-v1.0.0/
A set of additional policies for Perl::Critic.
----
Perl-Critic-Swift-v1.0.1
http://search.cpan.org/~elliotjs/Perl-Critic-Swift-v1.0.1/
A set of additional policies for Perl::Critic.
----
ProgressMonitor-0.08
http://search.cpan.org/~knth/ProgressMonitor-0.08/
a flexible and configurable framework for providing feedback on how a long-running task is proceeding.
----
ShipIt-0.50
http://search.cpan.org/~bradfitz/ShipIt-0.50/
software release tool
----
Snowball-Norwegian-1.1
http://search.cpan.org/~asksh/Snowball-Norwegian-1.1/
----
Snowball-Swedish-1.1
http://search.cpan.org/~asksh/Snowball-Swedish-1.1/
----
Text-CSV_XS-0.25
http://search.cpan.org/~hmbrand/Text-CSV_XS-0.25/
comma-separated values manipulation routines
----
Text-Restructured-0.003030
http://search.cpan.org/~nodine/Text-Restructured-0.003030/
Perl implementation of reStructuredText parser
----
Tie-RefHash-1.36
http://search.cpan.org/~nuffin/Tie-RefHash-1.36/
use references as hash keys
----
Tie-RefHash-1.37
http://search.cpan.org/~nuffin/Tie-RefHash-1.37/
use references as hash keys
----
WWW-LiveDepartureBoards-0.02
http://search.cpan.org/~gmccar/WWW-LiveDepartureBoards-0.02/
----
WWW-LiveDepartureBoards-0.03
http://search.cpan.org/~gmccar/WWW-LiveDepartureBoards-0.03/
----
WWW-Mechanize-Plugin-Display-1.00
http://search.cpan.org/~markstos/WWW-Mechanize-Plugin-Display-1.00/
Display WWW::Mechanize results in a local web browser.
----
WWW-Wow-RealmStatus-0.4
http://search.cpan.org/~sock/WWW-Wow-RealmStatus-0.4/
The great new WWW::Wow::RealmStatus!
----
Weather-Underground-StationHistory-v1.0.4
http://search.cpan.org/~elliotjs/Weather-Underground-StationHistory-v1.0.4/
Utility functions for dealing with weather station historical data from <http://wunderground.com>.
----
WebService-CRUST-0.2
http://search.cpan.org/~heschong/WebService-CRUST-0.2/
A lightweight Client for making REST calls
----
XML-RSS-LibXML-0.30
http://search.cpan.org/~dmaki/XML-RSS-LibXML-0.30/
XML::RSS with XML::LibXML
----
XML-RSS-Liberal-0.03
http://search.cpan.org/~dmaki/XML-RSS-Liberal-0.03/
XML::RSS With A Liberal Parser
----
a2pdf-1.13
http://search.cpan.org/~jonallen/a2pdf-1.13/
converts ASCII text to PDF format, with optional line/page numbering and Perl syntax highlighting
----
mogilefs-server-2.15
http://search.cpan.org/~bradfitz/mogilefs-server-2.15/
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Mon, 7 May 2007 19:13:31 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Select from drop down menu multipel times in the same form
Message-Id: <slrnf3vg5b.oh3.tadmc@tadmc30.august.net>
Jürgen Exner <jurgenex@hotmail.com> wrote:
> Michele Dondi wrote:
>>> ps2. Asked in PM as well but didnt got an answer.
>>
>> WELL DONE! (Finally!)
>>
>> Since nobody here is guaranteed to know what "PM" is,
>
> It's _P_ersonal _M_ail instead of Usenet posting, what else.
I thought the OP meant that he had asked the question later than noon.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 7 May 2007 16:41:04 -0700
From: Slain <Slain.k@gmail.com>
Subject: Using Expect.pm
Message-Id: <1178581264.815099.225080@y80g2000hsf.googlegroups.com>
I am trying to use Expect and installed it.But for some reason, it
does not kick off the other perl script I am trying to with this
script. Neither does it complain, of not finding the file.
use Expect;
my $command=Expect->spawn("./install.pl")
or die "Couldn't Start Program: $!\n";
Thanks
------------------------------
Date: 7 May 2007 21:37:53 -0700
From: usenet@DavidFilmer.com
Subject: Re: Website programming (search + statistics)
Message-Id: <1178599073.259074.199300@y5g2000hsa.googlegroups.com>
On May 7, 11:04 am, Xicheng Jia <xich...@gmail.com> wrote:
> CGI is kind of old tech in the current web development. embedding your
> Perl code directly into the HTML might make your life much easier.
I prefer to SEPARATE the code and presentation layers, rather than
merging them:
http://search.cpan.org/~samtregar/HTML-Template-2.9/Template.pm
--
David Filmer (http://DavidFilmer.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 415
**************************************
