[25733] in Perl-Users-Digest
Perl-Users Digest, Issue: 7973 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Apr 14 00:05:32 2005
Date: Wed, 13 Apr 2005 21:05:09 -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 Wed, 13 Apr 2005 Volume: 10 Number: 7973
Today's topics:
=?iso-8859-1?B?VEhFIEdSRUFURVNUIE5FV1MgRVZFUiEgsLq3Ll8u RonGrossi_38_2532@yahoo.com
Re: [perl-python] Python documentation moronicities (co <jwkenne@attglobal.net>
Re: can anyone explain the last two lines to me?thanks! biomahui@gmail.com
Re: can anyone explain the last two lines to me?thanks! biomahui@gmail.com
Re: can anyone explain the last two lines to me?thanks! <1usa@llenroc.ude.invalid>
Re: Comparing Regular Expressions <jurgenex@hotmail.com>
Re: Creating o non-existing database <pilsl@goldfisch.at>
Re: Creating o non-existing database <noreply@gunnar.cc>
Re: help understanding ++ <sisyphus1@nomail.afraid.org>
Re: help understanding ++ <not@invalid.invalid>
Re: How to reverse the time localtime/gmtime function's <tadmc@augustmail.com>
Re: How to reverse the time localtime/gmtime function's <tadmc@augustmail.com>
Re: How to reverse the time localtime/gmtime function's <ljames@apollo3.com>
Re: How to reverse the time localtime/gmtime function's axel@white-eagle.invalid.uk
Re: How to reverse the time localtime/gmtime function's <1usa@llenroc.ude.invalid>
Re: how to run perl script from a perl script? <pilsl@goldfisch.at>
Re: how to run perl script from a perl script? <1usa@llenroc.ude.invalid>
Re: how to run perl script from a perl script? <tadmc@augustmail.com>
Re: Is Perl open source? <jfcampbell@aol.com>
Re: Matching mixed up words (Anno Siegel)
Re: suggestion for perlop <tadmc@augustmail.com>
Re: Web Interface and index.pl separated?!? <sbryce@scottbryce.com>
Yet Another Perl Conference, North America, 2005 <glim@mycybernet.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 13 Apr 2005 19:24:37 -0700
From: RonGrossi_38_2532@yahoo.com
Subject: =?iso-8859-1?B?VEhFIEdSRUFURVNUIE5FV1MgRVZFUiEgsLq3Ll8uXy63urBgsLq3Ll8uXy63urBgsLq3Ll8uXy63urBgsLq3Ll8uXy63urBgsLq3Ll8uXy63urBgsLq3Ll8uXy63urBgsLq3Ll8uXy63urBgsLq3Ll8uXy63urBgsLq3Ll8uXy63urBgsLq3Ll8uXy63urBgsLq3Ll8uXy63urBgsLq3Ll8uXy63urBgsLq3Ll8uXy63urBgsLq3Ll8uXy63urBgsLq3Ll8uXy63urBgsLq3Ll8uXy63urBgsLq3Ll8uXy63IChuZXdzZ3JvdXAtcG9zdCAxMzcp?=
Message-Id: <1113445476.949581.42480@z14g2000cwz.googlegroups.com>
The Greatest News Ever!
http://groups-beta.google.com/group/alt.politics/browse_thread/thread/86415=
0e0cba72eb7/3727c3e80f7f061d#3727c3e80f7f061d
=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7=
._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=B7._._.=B7=BA=B0`=
=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=
=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=
=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=
=B0`=B0=BA=B7._._.=B7=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._.=
_=2E=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._=
.=B7=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=
=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=B7._._.=B7=
=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=
=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=B7._._.=B7=BA=B0`=B0=BA=B7._.=
_=2E=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._=
.=B7=BA=B0`=B0=BA=B7._._.=B7=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=
=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=
=B7._._.=B7=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=
=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=B7._.=
_=2E=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._=
.=B7=BA=B0`=B0=BA=B7._._.=B7=BA=B0`=B0=BA=B7._._.=B7
__________________________________________
The reason some people don't know for sure
if they are going to Heaven when they die
is because they just don't know.
The good news is that you can know for
sure that you are going to Heaven which is
described in the Holy Bible as a beautiful
place with no death, sorrow, sickness or
pain.
God tells us in the Holy Bible how simple
it is to be saved so that we can live
forever with Him in Heaven.
"For if you confess with your mouth Jesus
is Lord and believe in your heart that God
raised Him from the dead, you
WILL BE SAVED." (Romans 10:9)
Over 2000 years ago God came from Heaven
to earth in the person of Jesus Christ to
shed His blood and die on a cross to pay
our sin debt in full.
Jesus Christ was born in Israel
supernaturally to a virgin Jewish woman
named Mary and lived a sinless life for
thirty-three years.
At the age of thirty-three Jesus was
scourged and had a crown of thorns pressed
onto His head then Jesus was crucified.
Three days after Jesus died on a cross and
was placed in a grave Jesus rose from the
dead as Jesus said would happen before
Jesus died.
If someone tells you that they are going
to die and in three days come back to life
again and it happens then this person must
be the real deal.
Jesus Christ is the only person that ever
lived a perfect sinless life.
This is why Jesus is able to cover our
sins(misdeeds) with His own blood because
Jesus is sinless.
The Holy Bible says, "In Him(Jesus) we
have redemption through His blood, the
forgiveness of sins..." (Ephesians 1:7)
If you would like God to forgive you of
your past, present and future sins just
ask Jesus Christ to be your Lord and
Saviour.
It doesn't matter how old you are or how
many bad things that you have done in
your life including lying and stealing
all the way up to murder.
Just pray the prayer below with your
mouth and mean it from your heart and
God will hear you and save you.
Dear Jesus Christ, I want to be saved so
that I can have a home in Heaven with You
when I die. I agree with You that I am a
sinner. I believe that You love me and want
to save me. I believe that You bled and
died on the cross to pay the penalty for my
sins and that You rose from the dead.
Please forgive my sins and come into my
heart and be my Lord and Saviour. Thanks
Lord Jesus Christ for forgiving me and
saving me through Your merciful grace.
Amen.
Welcome to the family of God if you just
allowed God to save you. Now you are a real
Christian and you can know for sure that
you will live in Heaven forever when this
life comes to an end.
As a child of God we are to avoid
sin(wrongdoing), but if you do sin the
Holy Bible says, "My dear children, I
write this to you so that you will not sin.
But if anybody does sin, we have one who
speaks to the Father in our defense Jesus
Christ, the Righteous One."
Those of you that have not yet decided to
place your trust in the Lord Jesus Christ
may never get another chance to do so
because you do not know when you will die.
This means that if you die without
trusting in Jesus Christ as your Lord and
Saviour you will be forever separated from
the love of God in a place called Hell.
The Holy Bible descibes Hell as a place of
eternal torment, suffering, pain and agony
for all those who have rejected Jesus Christ.
The good news is that you can avoid Hell by
allowing Jesus Christ to save you today.
Only then will you have true peace in your
life knowing that no matter what happens you
are on your way to Heaven.
Praise the Lord!
Servant of the Lord Jesus Christ
Ronald L. Grossi
*Show this to your family and friends so
they can know that they have a choice
where they will spend eternity. Thanks!
____________________________________________________
Got Questions?
http://www.gotquestions.org/archive.html
Other Languages
http://www.godssimpleplan.org/gsps.html
Free Movie: To Hell and Back
http://www.tbn.org/index.php/8/1.html
Animation
http://www.browser.to/jesus-animation
The Passion Of The Christ
http://www.thepassionofthechrist.com
Beware Of Cults
http://www.carm.org/cults/cultlist.htm
About Hell
http://www.equip.org/free/DH198.htm
Is Jesus God?
http://www.powertochange.com/questions/qna2.html
Free Online Bible
http://www.bibledatabase.net
------------------------------
Date: Wed, 13 Apr 2005 19:28:38 -0400
From: "John W. Kennedy" <jwkenne@attglobal.net>
Subject: Re: [perl-python] Python documentation moronicities (continued)
Message-Id: <IWh7e.5359$EJ6.1679@fe11.lga>
Xah Lee wrote:
> http://python.org/doc/2.4.1/lib/module-re.html
> http://python.org/doc/2.4.1/lib/node114.html
>
> ---------
> QUOTE
> The module defines several functions, constants, and an exception. Some
> of the functions are simplified versions of the full featured methods
> for compiled regular expressions. Most non-trivial applications always
> use the compiled form
> UNQUOTE
>
>
> What does a programer who wants to use regex gets out from this piece
> of motherfucking irrevalent drivel?
Until now, I have regarded you as a mildly amusing moron.
But now I find you're simply illiterate.
Buh-bye.
--
John W. Kennedy
A proud member of the reality-based community.
------------------------------
Date: 13 Apr 2005 17:11:41 -0700
From: biomahui@gmail.com
Subject: Re: can anyone explain the last two lines to me?thanks!
Message-Id: <1113437501.388225.98010@l41g2000cwc.googlegroups.com>
a problem encountered when I created my own email address as follows:
#!/usr/bin/perl
$_='comil.gmaui@mahbio';
1 while s/(.{2})(.{2})?/$_{$2}=$1,$2/e;
print $_ while $_=$_{$_};
If I use $_='biomahui@gmail.com'; the program will never stop.
what's the problem?
------------------------------
Date: 13 Apr 2005 17:14:45 -0700
From: biomahui@gmail.com
Subject: Re: can anyone explain the last two lines to me?thanks!
Message-Id: <1113437685.686265.96980@f14g2000cwb.googlegroups.com>
... is hui. Google doesn't show it for purpose.
------------------------------
Date: Thu, 14 Apr 2005 01:39:33 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: can anyone explain the last two lines to me?thanks!
Message-Id: <Xns9637DC4113448asu1cornelledu@127.0.0.1>
biomahui@gmail.com wrote in news:1113437685.686265.96980
@f14g2000cwb.googlegroups.com:
> ... is hui. Google doesn't show it for purpose.
Huh?
--
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, 13 Apr 2005 23:22:52 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Comparing Regular Expressions
Message-Id: <gRh7e.15004$hB6.3334@trnddc06>
Mark Jason Dominus wrote:
> In article <d30g15$729$1@sun3.bham.ac.uk>,
> Brian McCauley <nobull@mail.com> wrote:
>> My instinct says that will be "hard". Not just "hard" in the common
>> sense, but hard in the CompSci sense of being equivalent to the
>> halting problem (i.e. insoluble in the general case in finite time).
>
> My recollection is that this is not the case. Certainly equivalence
> of recursive languages is undecidable, but regular languages are
> highly restricted special cases.
Except that Perl's REs (as most other REs that are in common use today) are
not"regular" in the Computer Science classification any longer but have been
extended.
jue
------------------------------
Date: Thu, 14 Apr 2005 00:26:14 +0200
From: peter pilsl <pilsl@goldfisch.at>
Subject: Re: Creating o non-existing database
Message-Id: <425d9c89$0$1938$79720d31@newsreader.inode.at>
Nikos wrote:
>
> If the database alrady exists no problem but if it want to be creates at
> the time then the first db gives an error when i run make.pl and i must
> then manually create it through mysql statemets in console.
>
Evidentely this is not a perl-problem. I dont know what it takes on your
sql-server to create a database. With postgreSQL there are mainly two
options:
i) call an extra programm coming with pgSQL
ii) connect to another database and create the needed database. Best the
postgres-system-datebase is used, cause it exists on most installations.
peter
--
http://www.goldfisch.at/know_list
------------------------------
Date: Thu, 14 Apr 2005 00:31:02 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Creating o non-existing database
Message-Id: <3c5ks9F6nmencU1@individual.net>
Nikos wrote:
> What can i do so that Perl create the database nikos_db if it never benn
> created?
You could check how it's done in Webmin.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Thu, 14 Apr 2005 10:48:25 +1000
From: "Sisyphus" <sisyphus1@nomail.afraid.org>
Subject: Re: help understanding ++
Message-Id: <425dbdcf$0$5190$afc38c87@news.optusnet.com.au>
--
To reply by email send to optusnet.com.au instead of nomail.afraid.org
"Hendrik Maryns" <hendrik_maryns@despammed.com> wrote in message
news:1113421806.326627@seven.kulnet.kuleuven.ac.be...
> Hi,
>
> in perlop I read
>
> ----------
> The auto-increment operator has a little extra builtin magic to it. If
> you increment a variable that is numeric, or that has ever been used in
> a numeric context, you get a normal increment. If, however, the variable
> has been used in only string contexts since it was set, and has a value
> that is not the empty string and matches the pattern
> /^[a-zA-Z]*[0-9]*\z/, the increment is done as a string, preserving each
> character within its range, with carry:
>
> print ++($foo = '99'); # prints '100'
> print ++($foo = 'a0'); # prints 'a1'
> print ++($foo = 'Az'); # prints 'Ba'
> print ++($foo = 'zz'); # prints 'aaa'
> -----------
>
Seems to me that's not quite right. The following prints '9', not '8d' as I
would expect:
print ++($foo = '8c');
Using perl 5.8.6 on Win32.
Cheers,
Rob
------------------------------
Date: Thu, 14 Apr 2005 13:57:17 +1000
From: Matthew Braid <not@invalid.invalid>
Subject: Re: help understanding ++
Message-Id: <d3kpmt$1dg$1@bunyip2.cc.uq.edu.au>
Sisyphus wrote:
>>Hi,
>>>
>>> in perlop I read
>>>
>>> ----------
>>> The auto-increment operator has a little extra builtin magic to it. If
>>> you increment a variable that is numeric, or that has ever been used in
>>> a numeric context, you get a normal increment. If, however, the variable
>>> has been used in only string contexts since it was set, and has a value
>>> that is not the empty string and matches the pattern
>>> /^[a-zA-Z]*[0-9]*\z/, the increment is done as a string, preserving each
>>> character within its range, with carry:
>>>
>>> print ++($foo = '99'); # prints '100'
>>> print ++($foo = 'a0'); # prints 'a1'
>>> print ++($foo = 'Az'); # prints 'Ba'
>>> print ++($foo = 'zz'); # prints 'aaa'
>>> -----------
>>>
>
>
> Seems to me that's not quite right. The following prints '9', not '8d' as I
> would expect:
>
> print ++($foo = '8c');
This is where auto-numification gets in the way. The special behaviour
of ++ for letter sequences (eg 'a0'++ = 'a1') applies when perl can't
recognise the input to ++ as a number. In numeric context, perl sees
'8c' as 8, so '8c'++ is 9, not '8d'. Reverse it - 'd8' can't be
recognised as a number, so 'd8'++ is 'd9'. This is also why '99'++ is
100, not '9a' :)
MB
------------------------------
Date: Wed, 13 Apr 2005 18:03:58 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: How to reverse the time localtime/gmtime function's process?
Message-Id: <slrnd5r9au.64g.tadmc@magna.augustmail.com>
L. D. James <ljames@apollo3.com> wrote:
> Hi Gang. I have two times in the format of:
>
> 20050413185947
> 20050413175146
> I would like to subtract the smaller number from the larger number.
> Thanks in advance for any comments on this matter.
Your Question is Asked Frequently.
perldoc -q date
How can I compare two dates and find the difference?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 13 Apr 2005 18:08:09 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: How to reverse the time localtime/gmtime function's process?
Message-Id: <slrnd5r9ip.64g.tadmc@magna.augustmail.com>
A. Sinan Unur <1usa@llenroc.ude.invalid> wrote:
> "L. D. James" <ljames@apollo3.com> wrote in
> news:115qs4562o95ob9@corp.supernews.com:
>> -- L.
>> James
>
> Your signature is not formatted properly.
s/is/is still/;
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 13 Apr 2005 22:02:58 -0400
From: "L. D. James" <ljames@apollo3.com>
Subject: Re: How to reverse the time localtime/gmtime function's process?
Message-Id: <115rjqk3ihrkc05@corp.supernews.com>
"Fabian Pilkowski" <pilkowsk@informatik.uni-marburg.de> wrote in message
news:3c5f3gF6nhmkaU1@individual.net...
>* L. D. James schrieb:
> Have a look at Time::Local. The method timelocal() should be the reverse
> of localtime(), and -- not surprising that -- timegm() is reversing what
> gmtime() does.
>
Thanks, Fabian. Interesting nomenclature for the method. It works
like a charm.
I also appreciate all the other useful comments and contributions. I
had looked at the perldoc -q date, but couldn't fully follow the flow. I'll
revisit it.
-- L. James
--
--------------------------------
L. D. James
ljames@apollo3.com
www.apollo3.com/~ljames
------------------------------
Date: Wed, 13 Apr 2005 22:31:05 -0500
From: axel@white-eagle.invalid.uk
Subject: Re: How to reverse the time localtime/gmtime function's process?
Message-Id: <SeKdnaHitYNkfsDfRVn-gQ@adelphia.com>
A. Sinan Unur <1usa@llenroc.ude.invalid> wrote:
> "L. D. James" <ljames@apollo3.com> wrote in
> Your signature is not formatted properly.
Isn't it? How? It seemed ok to me.
Axel
------------------------------
Date: Thu, 14 Apr 2005 03:55:57 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: How to reverse the time localtime/gmtime function's process?
Message-Id: <Xns9637F360F246asu1cornelledu@127.0.0.1>
axel@white-eagle.invalid.uk wrote in news:SeKdnaHitYNkfsDfRVn-
gQ@adelphia.com:
> A. Sinan Unur <1usa@llenroc.ude.invalid> wrote:
>> "L. D. James" <ljames@apollo3.com> wrote in
>
>> Your signature is not formatted properly.
>
> Isn't it? How? It seemed ok to me.
Well, I was confused by the fact that his (properly formatted) sig block
was automatically removed from my reply and I was left with:
>> -- L.
>> James
I mistook this for an improperly formatted sig block given the two dashes.
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: Thu, 14 Apr 2005 00:25:00 +0200
From: peter pilsl <pilsl@goldfisch.at>
Subject: Re: how to run perl script from a perl script?
Message-Id: <425d9c40$0$1938$79720d31@newsreader.inode.at>
anywherenotes@gmail.com wrote:
> Thank you for both replies. I don't want to put code from b.pl to
> a.pl (not actual names, they do have normal names) because it's likely
> someone would want to run "b.pl" independently of a.pl.
Well. then put b.pl in a module and let b.pl just we a wrapper to this
module and also load the module in a.pl. That would make sense and be
elegant ;)
> I am currently using pipes, as I found that I couldn't use system the
> way I described. Something that I don't know how to do on Windows I
> guess ... or I'll just call it a windows bug :) - it works fine on Unix
> (see below in case you can solve it).
>
> $ cat a.pl
> open LOG, ">>mylog.log" or die "can't open log\n";
> system ("perl b.pl >>mylog.log");
> close LOG;
>
> $ cat b.pl
> print "b.pl";
> $ perl a.pl
> The process cannot access the file because it is being used by another
> process.
> $
>
What you are doing has nothing to do with pipes.
And the error-message is quite clear. I never programm windows, but it
seems that it cant write-open a file for two processes at the same time.
In your case this does not seem to be necessary after all. Close the
handle before calling the other script and then reopen.
Or share the filehandles, which will make things much more complicated ;)
best,
peter
--
http://www.goldfisch.at/know_list
------------------------------
Date: Wed, 13 Apr 2005 22:29:35 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: how to run perl script from a perl script?
Message-Id: <Xns9637BC0B4B9EAasu1cornelledu@127.0.0.1>
anywherenotes@gmail.com wrote in news:1113426518.584156.270090
@l41g2000cwc.googlegroups.com:
> guess ... or I'll just call it a windows bug :)
Fine, if you so wish.
> $ cat a.pl
> open LOG, ">>mylog.log" or die "can't open log\n";
> system ("perl b.pl >>mylog.log");
> close LOG;
Why?
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, 13 Apr 2005 18:19:34 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: how to run perl script from a perl script?
Message-Id: <slrnd5ra86.64g.tadmc@magna.augustmail.com>
anywherenotes@gmail.com <anywherenotes@gmail.com> wrote:
> I have 2 perl scripts, and one of them should execute the other one.
> So lets say script a.pl should execute script b.pl.
>
> The output of the script b.pl should go into a specific file which only
> a.pl knows about.
If only there was a way to capture the output of b.pl into a.pl
so that it could write it to the the correct place...
> So I could do this from a.pl:
> system("perl b.pl >>mylog.log 2>&1");
>
> But is there a better way?
Yes, and the documentation for the function you are using tells about it.
my $b_out = `perl b.pl 2>&1`;
open OUT, '>>mylog.log' or die ...
print OUT $b_out;
close OUT;
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 13 Apr 2005 17:10:53 -0700
From: "John" <jfcampbell@aol.com>
Subject: Re: Is Perl open source?
Message-Id: <1113437453.746577.64970@l41g2000cwc.googlegroups.com>
Xho wrote:
I prefer to wash my hair with shampoo rather than with Perl. It is
not something to be ashamed of.
---
Or you could wash your hair with Prell. (Practical rinsing employs less
lather).
Yeah, yeah, off-topic.
------------------------------
Date: 13 Apr 2005 23:12:18 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Matching mixed up words
Message-Id: <d3k90i$b57$1@mamenchi.zrz.TU-Berlin.DE>
Ilmari Karonen <usenet@vyznev.invalid> wrote in comp.lang.perl.misc:
> Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> kirjoitti 13.04.2005:
> > A. Sinan Unur <1usa@llenroc.ude.invalid> wrote in comp.lang.perl.misc:
> >> DAVISM@ecr6.ohio-state.edu (Michael T. Davis) wrote in
> >> news:d3h7bu$hbt$1@charm.magnus.acs.ohio-state.edu:
> >
> > [how to test for anagrams]
> >
> >> I am sure someone will show a regex solution that I have overlooked.
> >
> > A regex solution seems unlikely. It would require jumping back and
> > forth in a string while keeping track of what was matched where.
> > Regexes aren't very good at that.
>
> Nonetheless, here's a regex solution:
>
> sub anagram_re {
> my $word = shift;
> return "" if $word eq "";
> my (@re, %seen);
> foreach my $i (0 .. length($word)-1) {
> my $temp = $word;
> my $ch = substr($temp, $i, 1, "");
> next if $seen{$ch}++;
> push @re, quotemeta($ch) . anagram_re($temp);
> }
> return @re > 1 ? "(?:".join("|", @re).")" : $re[0];
> }
>
> Give it a word, and it will return a regex to match any anagram of it.
> For example, here's the regex for "food" (sans "?:" modifiers):
>
> (f(o(od|do)|doo)|o(f(od|do)|o(fd|df)|d(fo|of))|d(foo|o(fo|of)))
Nice hack...
> The corresponding regex for "gremlin" is 33218 characters long with
> the "?:" modifiers, or 25978 without them.
...and mostly useless. I like it :)
Anno
------------------------------
Date: Wed, 13 Apr 2005 18:33:42 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: suggestion for perlop
Message-Id: <slrnd5rb2m.64g.tadmc@magna.augustmail.com>
Hendrik Maryns <hendrik_maryns@despammed.com> wrote:
[snip proposed change to docs]
> If this isn't the right place for such a suggestion, please point me to
> a better one.
You should report bugs using the tool for reporting bugs:
perldoc perlbug
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 13 Apr 2005 18:21:40 -0600
From: Scott Bryce <sbryce@scottbryce.com>
Subject: Re: Web Interface and index.pl separated?!?
Message-Id: <as6dnRvF3dEJKsDfRVn-2w@comcast.com>
Nikos wrote:
> My webpage is dynamic, read time and makes mysql database query.
> I use cgi.pm because i dont want to have p[ure html in my page.
????
> But i think it might be better if i create the graphicss with
> dreamweaver.
DreamWeaver creates HTML, not graphics.
> but then would that graph.html work with with indx.pl?
http://cpan.uwinnipeg.ca/htdocs/HTML-Template/HTML/Template.html
------------------------------
Date: Wed, 13 Apr 2005 22:27:54 -0400
From: Gerard Lim <glim@mycybernet.net>
Subject: Yet Another Perl Conference, North America, 2005
Message-Id: <pan.2005.04.14.02.27.52.444024@mycybernet.net>
Yet Another YAPC::NA 2005 Conference Reminder
---------------------------------------------
YAPC::NA 2005 is Yet Another Perl Conference, North America,
this year to be held in downtown Toronto, Ontario, Canada,
Mon - Wed 27 - 29 June 2005.
Important Dates/Deadlines
-------------------------
April 18 -- deadline for paper submissions
May 12 -- last day of guaranteed accommodations
YAPC::NA is a grassroots, all-volunteer conference. The
speaker quality is high, the participants lively, and there
are many extra social activities scheduled. We expect a
bit over 400 people this year, and registration is proceeding
faster this year than in the past.
The registration cost is USD$85. Information on registration:
http://yapc.org/America/register-2005.shtml
http://yapc.org/America/registration-announcement-2005.txt
Direct link to registration:
http://donate.perlfoundation.org/index.pl?node=registrant%20info&conference_id=423
Want to be a speaker? Deadline for proposal submission
is April 18, less than a week from now. Go to:
http://yapc.org/America/cfp-2005.shtml
Need accommodations in Toronto? Go to:
http://yapc.org/America/accommodations-2005.shtml
If you book before May 13 you will be guaranteed a hotel
space. After that getting accommodations will become
progressively more difficult. Prices we have arranged
are in two different price ranges: approximately US$50
for a dorm room, US$72 for a decent hotel room. All
accommodations are very nearby the conference venue.
This message comes from the YAPC::NA 2005 organizers in
Toronto.pm, http://to.pm.org/, on behalf of The Perl
Foundation, http://www.perlfoundation.org/
We look forward to seeing you in Toronto!
If you have any questions please contact na-help@yapc.org
------------------------------
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 7973
***************************************
