[30027] in Perl-Users-Digest
Perl-Users Digest, Issue: 1270 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Feb 11 14:09:45 2008
Date: Mon, 11 Feb 2008 11:09:07 -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 Mon, 11 Feb 2008 Volume: 11 Number: 1270
Today's topics:
=?big5?Q?=BD=D0=B0=DD?= (paperdo)
Re: ???? <jurgenex@hotmail.com>
DBI problems alx__21@hotmail.com
Re: DBI problems <mark.clementsREMOVETHIS@wanadoo.fr>
Re: DBI problems <blaine@worldweb.com>
Re: DBI problems alx__21@hotmail.com
Re: DBI problems alx__21@hotmail.com
Re: different regexp result <stoupa@practisoft.cz>
Re: different regexp result <ben@morrow.me.uk>
Re: different regexp result <uri@stemsystems.com>
Re: Modules, global variables and such <pue@gmx.net>
Re: Modules, global variables and such <pue@gmx.net>
Re: Modules, global variables and such <noreply@gunnar.cc>
Re: Modules, global variables and such <pue@gmx.net>
Re: pop langs website ranking <joost@zeekat.nl>
ppm package issue <adityab2381@gmail.com>
Re: ppm package issue <ben@morrow.me.uk>
Re: Testing on empty variable <bik.mido@tiscalinet.it>
Re: Using END and the die function <bik.mido@tiscalinet.it>
Re: Using END and the die function <usenet05@drabble.me.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 11 Feb 2008 13:28:38 GMT
From: paperdo.bbs@bbs.cs.nthu.edu.tw (paperdo)
Subject: =?big5?Q?=BD=D0=B0=DD?=
Message-Id: <A13R0JC6$perl_misc@bbs.cs.nthu.edu.tw>
»ÝnÀ°¦£½×¤åspss²Îp¤ÀªR¶Ü : 1.±Ôz²Îp 2.TÀË©w 3.ANOVA 4.¬ÛÃö¤ÀªR 5.¦]¯À¤ÀªR
6.³æ¦]¤lÅܲ§¼Æ¤ÀªR
©Î¬O¥´¦r.§@·~.½Ķ.¼g³ø§i.®Õ½Z.
¤ß±o§@·~.¤å¥ó.¤å³¹.¦Ò¨÷.¤å«Å.¥øµe.®ü³ø.
¯d¾Ç.Ū®Ñpµe.±ÀÂ˨ç.¼i¾ú.ªí®æ.±Æª©.
²³ø.²Îp¤ÀªR.¤â¥U.²¦·~±MÃD.³øªí.¶Ç³æ¤Î°ò¥»¸ê®Æ¿é¤J.
¥i¨Ó«HÁpµ¸ : Paperyo@gmail.com
[m
--
[1;30m¦¨¥\´ò¯`..[m [1;5;37m¡¸[m [1;33m¡´[37m ¢d¢f¢c [5m¡¸[m [1;30m¢c¢e¢f¢g¢e¢c [;31m¢b¢b[37m
[1;30m·¬¾ô©]ªy..[m [1;5;37m¡¸[m [30;47m¢g¢e¢f¢g[m ¡³ [31m¢¨¢h¢©[37m [30;47m¢g¢g¢e¢d¢f¢g[m [30;41m¢p[1;31;40m·¬¾ô[;31m¢j[37m
¡¾ ¢x ¢x [30;41m¢p[1;31;40mÅ毸[;31m¢j[37m
[34m¡Ä¡Å¢b¢c¢d¢c¢b¡Å¡Ä[37m ¢¢¢w£|¢w¢r¢w¢r¢£ [1;34m¡Å¢c¢b[m [30;41m¢h¢h[m
[1;34m¹C«È¡G[37m paperdo [m[1;36m¡Ä¡Å¢b¡Å¡Ä[m [1;36m¡Ä¡Å¢b[34m¢d[m ¢w¢w¢w¢w¢£[1;34m¢d¢c[36m¢b¡Å¡Ä[34m ¡Å¢b¢c¢b¡Å[m
[1;36m¬G¶m¡G[37m 220-137-94-21.dynamic.hinet.net [m
[32m¡¸ ²MµØ¸ê¤u - ·¬¾ôÅ毸 ¡¸[37m [33m¨t²Îéw¡B¥i¥Ó½ÐÓ¤HªO[37m telnet://bbs.cs.nthu.edu.tw[m
------------------------------
Date: Mon, 11 Feb 2008 17:09:22 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: ????
Message-Id: <p801r3dab6aiob8rlsj4khcq06tc6e3itf@4ax.com>
paperdo.bbs@bbs.cs.nthu.edu.tw (paperdo) wrote:
>
>???n????????spss???p???R?? : 1.???z???p 2.T???w 3.ANOVA 4.???????R 5.?]?????R
> 6.???]?l?????????R
[...]
What did you say?
jue
------------------------------
Date: Mon, 11 Feb 2008 09:11:41 -0800 (PST)
From: alx__21@hotmail.com
Subject: DBI problems
Message-Id: <10b92fa2-454a-42b7-9c76-330bb43a45f5@s37g2000prg.googlegroups.com>
Hello. Using the following test code:
#!/usr/bin/perl
use DBI;
$db_handle = DBI-
>connect("dbi:mysql:database=mysql;host=x.x.x.x;user=x;password=x")
or die "Couldn't connect to database: $DBI::errstr\n";
//I've edited out some data there obviously
open(FILEHANDLE, ">", "C:\\test.txt") || die('cannot open file: ' .
$!);
$sql = "SELECT * FROM hhdb2.handhelds";
$statement = $db_handle->prepare($sql)
or die "Couldn't prepare query '$sql': $DBI::errstr\n";
$statement->execute()
or die "Couldn't execute query '$sql': $DBI::errstr\n";
while ($row_ref = $statement->fetchrow_hashref())
{
print FILEHANDLE "$row_ref->{id}\n";
}
close(FILEHANDLE);
$db_handle->dis
connect();
... I get the following error:
install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (@INC
contains:
C:/Perl/site/lib C:/Perl/lib .) at (eval 4) line 3.
Perhaps the DBD::mysql perl module hasn't been fully installed,
or perhaps the capitalisation of 'mysql' isn't right.
Available drivers: DBM, ExampleP, File, Gofer, ODBC, Proxy, SQLite,
Sponge.
at Z:\changelist\dbtest2.pl line 5
I'm sure that DBI is installed (ppm says so) and I've read repeatedly
that this should be able to use a mysql database. What has gone
wrong?
I would appreciate any help.
------------------------------
Date: Mon, 11 Feb 2008 17:25:58 +0000
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: DBI problems
Message-Id: <47b08526$0$878$ba4acef3@news.orange.fr>
alx__21@hotmail.com wrote:
> Hello. Using the following test code:
>
> #!/usr/bin/perl
>
> use DBI;
>
> $db_handle = DBI-
>> connect("dbi:mysql:database=mysql;host=x.x.x.x;user=x;password=x")
> or die "Couldn't connect to database: $DBI::errstr\n";
>
> //I've edited out some data there obviously
>
> open(FILEHANDLE, ">", "C:\\test.txt") || die('cannot open file: ' .
> $!);
>
> $sql = "SELECT * FROM hhdb2.handhelds";
> $statement = $db_handle->prepare($sql)
> or die "Couldn't prepare query '$sql': $DBI::errstr\n";
>
> $statement->execute()
> or die "Couldn't execute query '$sql': $DBI::errstr\n";
> while ($row_ref = $statement->fetchrow_hashref())
> {
> print FILEHANDLE "$row_ref->{id}\n";
> }
>
> close(FILEHANDLE);
> $db_handle->dis
> connect();
>
>
> ... I get the following error:
>
> install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (@INC
> contains:
> C:/Perl/site/lib C:/Perl/lib .) at (eval 4) line 3.
> Perhaps the DBD::mysql perl module hasn't been fully installed,
> or perhaps the capitalisation of 'mysql' isn't right.
> Available drivers: DBM, ExampleP, File, Gofer, ODBC, Proxy, SQLite,
> Sponge.
> at Z:\changelist\dbtest2.pl line 5
>
>
> I'm sure that DBI is installed (ppm says so) and I've read repeatedly
> that this should be able to use a mysql database. What has gone
> wrong?
You need to install DBD::mysql. Your paths indicate you're on windows so
I'll assume you're using ActiveState:
ppm install DBD-mysql
Mark
------------------------------
Date: Mon, 11 Feb 2008 09:52:53 -0800 (PST)
From: "blaine@worldweb.com" <blaine@worldweb.com>
Subject: Re: DBI problems
Message-Id: <64195356-d544-479a-8b16-b41bba87bf4e@i72g2000hsd.googlegroups.com>
On Feb 11, 10:25 am, Mark Clements
<mark.clementsREMOVET...@wanadoo.fr> wrote:
> alx_...@hotmail.com wrote:
> > Hello. Using the following test code:
>
> > #!/usr/bin/perl
>
> > use DBI;
>
> > $db_handle = DBI-
> >> connect("dbi:mysql:database=mysql;host=x.x.x.x;user=x;password=x")
> > or die "Couldn't connect to database: $DBI::errstr\n";
>
> > //I've edited out some data there obviously
>
> > open(FILEHANDLE, ">", "C:\\test.txt") || die('cannot open file: ' .
> > $!);
>
> > $sql = "SELECT * FROM hhdb2.handhelds";
> > $statement = $db_handle->prepare($sql)
> > or die "Couldn't prepare query '$sql': $DBI::errstr\n";
>
> > $statement->execute()
> > or die "Couldn't execute query '$sql': $DBI::errstr\n";
> > while ($row_ref = $statement->fetchrow_hashref())
> > {
> > print FILEHANDLE "$row_ref->{id}\n";
> > }
>
> > close(FILEHANDLE);
> > $db_handle->dis
> > connect();
>
> > ... I get the following error:
>
> > install_driver(mysql) failed: Can't locate DBD/mysql.pm in @INC (@INC
> > contains:
> > C:/Perl/site/lib C:/Perl/lib .) at (eval 4) line 3.
> > Perhaps the DBD::mysql perl module hasn't been fully installed,
> > or perhaps the capitalisation of 'mysql' isn't right.
> > Available drivers: DBM, ExampleP, File, Gofer, ODBC, Proxy, SQLite,
> > Sponge.
> > at Z:\changelist\dbtest2.pl line 5
>
> > I'm sure that DBI is installed (ppm says so) and I've read repeatedly
> > that this should be able to use a mysql database. What has gone
> > wrong?
>
> You need to install DBD::mysql. Your paths indicate you're on windows so
> I'll assume you're using ActiveState:
>
> ppm install DBD-mysql
>
> Mark
If the above command does not work then you will need to use an older
PPM repository.
Http://cpan.uwinnipeg.ca/PPMPackages/10xx/package.xml WILL contact the
package your looking for.
------------------------------
Date: Mon, 11 Feb 2008 09:53:22 -0800 (PST)
From: alx__21@hotmail.com
Subject: Re: DBI problems
Message-Id: <443cb292-ad71-4e4f-807b-2f47e5d176a6@v67g2000hse.googlegroups.com>
This does not appear to exist. I can't find it under the ppm either.
What does exist is: dbd-mysql-informationschema, dbd-mysql-
SimpleMySQL, and dbd-mysqlPP. I don't think any of these are what I'm
looking for.
------------------------------
Date: Mon, 11 Feb 2008 10:58:24 -0800 (PST)
From: alx__21@hotmail.com
Subject: Re: DBI problems
Message-Id: <c95487a7-4e74-4684-aa3d-d4419f810ba9@s13g2000prd.googlegroups.com>
Being kinda new to this it took me a while to figure out what to do
with your XML file, but now I've got the repository added to ppm and
the proper file is downloading.
Thanks Blaine.
------------------------------
Date: Mon, 11 Feb 2008 15:38:55 +0100
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: different regexp result
Message-Id: <fopn32$2bb4$1@ns.felk.cvut.cz>
Uri Guttman wrote:
>
> s/(\s+)/length $1 == 1 ? '' : ' '/ge ;
>
> note that it does exactly what you said in english (however poor it
> was, you conveyed the problem clearly). this is a good way to help
> solve many problems. always try to explain it in very simple natural
> language. too often solutions are way too complex because the problem
> was never clearly described.
>
Well, I try to describe problem as I see it. My "formula" is this:
replace all character1 folowed by 1 space folowed by character2 with
character1+character2
In other word: I have 3 units, code1,code2,code3. If code1 is character (I
mean [a-zA-Z0-9]) and code3 is charater too and code2 is single space then
replace these codes with code1+code3. But if code1 is for example - or _ or +
or & ... then DO NOT any replacement.
Maybe my thinking can be described by followed code too:
my $string = 'a b c d e - 123';
foreach my $i(0 .. length($string)-3)
{
my $c1 = substr($string,$i,1);
my $c2 = substr($string,$i+1,1);
my $c3 = substr($string,$i+2,1);
if($c1 =~ m/[a-zA-Z0-9]/ and $c2 eq ' ' and $c3 =~ m/[a-zA-Z0-9]/)
{
substr($string,$i,3)="$c1$c3";
}
}
print $string;
Heh, I found a regexp but I don't know why it is work :-)
my $string = 'a b c d e - 123';
$string=~s/(\w|\b)\s([a-z0-9])/$1$2/ig;
print $string;
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your
mail from another non-spammer site please.)
Please reply to <petr AT practisoft DOT cz>
------------------------------
Date: Mon, 11 Feb 2008 15:35:20 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: different regexp result
Message-Id: <oi6685-7t3.ln1@osiris.mauzo.dyndns.org>
Quoth Uri Guttman <uri@stemsystems.com>:
> >>>>> "PV" == Petr Vileta <stoupa@practisoft.cz> writes:
>
> PV> In original string where no space should be there is 1 space and where
> PV> 1 space should be there are 2 or more spaces.
> PV> What is the right regexp to do it in 1 step?
>
> that is much clearer and it is doable with a regex but not the way you
> are going. the problem is that you want the replacement to be a null
> string (remove it) if there is exactly one space or a single space if
> more than one. so you need a way to control the replacement string and a
> plain s/// isn't enough.
What's wrong with
s/\s(\s?)\s*/$1/g;
?
Ben
------------------------------
Date: Mon, 11 Feb 2008 18:31:39 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: different regexp result
Message-Id: <x7hcgf73at.fsf@mail.sysarch.com>
>>>>> "BM" == Ben Morrow <ben@morrow.me.uk> writes:
BM> Quoth Uri Guttman <uri@stemsystems.com>:
>> >>>>> "PV" == Petr Vileta <stoupa@practisoft.cz> writes:
>>
PV> In original string where no space should be there is 1 space and where
PV> 1 space should be there are 2 or more spaces.
PV> What is the right regexp to do it in 1 step?
>>
>> that is much clearer and it is doable with a regex but not the way you
>> are going. the problem is that you want the replacement to be a null
>> string (remove it) if there is exactly one space or a single space if
>> more than one. so you need a way to control the replacement string and a
>> plain s/// isn't enough.
BM> What's wrong with
BM> s/\s(\s?)\s*/$1/g;
nothing. but his description triggered a simpler regex with the logic in
the replacement. i would need to look at yours for a few more seconds to
parse it out. it is tricky to see 3 different \s in a row and figure it
out quickly. my regex is just (\s+) which anyone will grok immediately.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Architecture, Development, Training, Support, Code Review ------
----------- Search or Offer Perl Jobs ----- http://jobs.perl.org ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Mon, 11 Feb 2008 15:35:01 +0100
From: =?ISO-8859-1?Q?Andreas_P=FCrzer?= <pue@gmx.net>
Subject: Re: Modules, global variables and such
Message-Id: <61b4k2F1tp5q8U1@mid.individual.net>
Tad J McClellan schrieb:
> Andreas Pürzer <pue@gmx.net> wrote:
>
>>I think it
>>should be mentioned that $MyModule::DEBUG needs to be declared via 'our'
>>for this to work, because:
>
>
>
> No it doesn't.
>
> For package variables, strict vars requires EITHER a declaration (if
> you want to use the short version of the name (ie. unqualified))
> OR a fully-qualified name.
>
> Note that your version uses a "lexical variable". My mod uses
> a "package variable".
>
>
>
[snip]
> It would not work if the two packages were in different files,
> because lexical variables can NEVER cross file boundaries.
>
>
>
>>What am I not understanding?
>
>
>
> Most of it seems to the the difference between lexical variables (my)
> and package variables (our or fully-qualified). See
>
> perldoc -q "dynamic and lexical"
>
> and
>
> "Coping with Scoping":
>
> http://perl.plover.com/FAQs/Namespaces.html
>
>
>
I've already read those, but it seems it's time to read them again...
And like Gunnar suggested, I will try to read them much more carefully
this time ;->
Thanks to all who responded,
Andreas Pürzer
--
Have Fun,
and if you can't have fun,
have someone else's fun.
The Beautiful South
------------------------------
Date: Mon, 11 Feb 2008 15:38:02 +0100
From: =?ISO-8859-1?Q?Andreas_P=FCrzer?= <pue@gmx.net>
Subject: Re: Modules, global variables and such
Message-Id: <61b4pjF1ukd5sU1@mid.individual.net>
Gunnar Hjalmarsson schrieb:
> Ben Morrow wrote:
>
>> Quoth Gunnar Hjalmarsson <noreply@gunnar.cc>:
>>
>>> Andreas Pürzer wrote:
>>>
>>>>
>>>> But then I don't even have to use the fully qualified name:
>>>>
>>>
>>> You do have to use the fully qualified name if you call the variable
>>> from somewhere outside the MyModule package.
>>
>>
>> No, not if you use 'our'. An often-overlooked property of 'our' is that
>> it creates a lexical alias to the package variable: in simple terms, you
>> can use that variable unqualified for the rest of the lexical scope,
>> even if you change package.
>
>
> Well, yes, but note that this thread was initially about calling the
> $DEBUG variable from other modules, which typically are both different
> packages and different lexical scopes. So Andreas' statement, that the
> fully qualified name isn't necessary, isn't normally applicable to the
> situation that was initially discussed.
>
Oops, an Usenet-Thread gone sideways with me to blame, sorry about that ;->
SCNR
Thanks to both of you,
Andreas Pürzer
--
Have Fun,
and if you can't have fun,
have someone else's fun.
The Beautiful South
------------------------------
Date: Mon, 11 Feb 2008 16:29:54 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Modules, global variables and such
Message-Id: <61b7voF1u7l64U1@mid.individual.net>
Andreas Pürzer wrote:
> Gunnar Hjalmarsson schrieb:
>> Ben Morrow wrote:
>>> Quoth Gunnar Hjalmarsson <noreply@gunnar.cc>:
>>>> You do have to use the fully qualified name if you call the variable
>>>> from somewhere outside the MyModule package.
>>>
>>> No, not if you use 'our'. An often-overlooked property of 'our' is that
>>> it creates a lexical alias to the package variable: in simple terms, you
>>> can use that variable unqualified for the rest of the lexical scope,
>>> even if you change package.
>>
>> Well, yes, but note that this thread was initially about calling the
>> $DEBUG variable from other modules, which typically are both different
>> packages and different lexical scopes. So Andreas' statement, that the
>> fully qualified name isn't necessary, isn't normally applicable to the
>> situation that was initially discussed.
>
> Oops, an Usenet-Thread gone sideways with me to blame, sorry about that ;->
> SCNR
That's absolutely not a problem; as a matter of fact it happens all the
time, and it makes Usenet discussions more interesting. :)
My point was rather about context. Your code examples were posted in a
context, and you'd better be aware of the context when discussing them.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 11 Feb 2008 17:01:44 +0100
From: =?ISO-8859-1?Q?Andreas_P=FCrzer?= <pue@gmx.net>
Subject: Re: Modules, global variables and such
Message-Id: <61b9mlF1ukmt4U1@mid.individual.net>
Gunnar Hjalmarsson schrieb:
> Andreas Pürzer wrote:
>
>> Oops, an Usenet-Thread gone sideways with me to blame, sorry about
>> that ;->
>> SCNR
>
>
> That's absolutely not a problem; as a matter of fact it happens all the
> time, and it makes Usenet discussions more interesting. :)
>
hence the SCNR, maybe I should have used <irony/> :)
> My point was rather about context. Your code examples were posted in a
> context, and you'd better be aware of the context when discussing them.
>
Point taken. But if I hadn't misinterpreted context, I hadn't learnt
from this discussion. Maybe this is what perldiag calls 'Unbalanced
context'? :)
Thank you,
Andreas Pürzer
--
Have Fun,
and if you can't have fun,
have someone else's fun.
The Beautiful South
------------------------------
Date: Mon, 11 Feb 2008 13:43:38 +0100
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: pop langs website ranking
Message-Id: <871w7jd5ol.fsf@zeekat.nl>
"xahlee@gmail.com" <xahlee@gmail.com> writes:
> Questions:
>
> • paulgraham.com is unusually high. What's up with that?
He writes well. Also, if you look at the ranking, end of januari (Arc's
first release) was the highest ranking in 4 months. I'm surprised it
didn't score higher, actually.
> • python.org at 9k seems also unusally high, compare that perl.org
> with online doc and forum is only 26k. Python.org has mailing list
> archives... maybe blogs too but am not sure it has forums... still the
> gab seems surprising. Even perl is not much talked about these days,
> but i'm guessing its market share is at least still 10 or 100 times of
> python...
Perl has a remarkably fractured web-presence. Have you looked at
perl.org? The *only* thing that's really useful on that domain is
docs.perl.org.
Since python.org apparenly also contains an index to 3rd party
libraries, you may want to compare it to cpan.org (currently at 9,199)
for instance.
--
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/
------------------------------
Date: Mon, 11 Feb 2008 08:11:26 -0800 (PST)
From: adi <adityab2381@gmail.com>
Subject: ppm package issue
Message-Id: <5c94cf86-d50e-4a41-b916-a0c05bf8b8de@s8g2000prg.googlegroups.com>
Hi,
I'm trying to setup perl (I have ActivePerl 5.8.8) so I can install
Bugzilla
3.0.3 on Windows XP Pro, and Email-Send and Email-MIME-Modifier are
the recquired packages.
When I try to install the packages I get this message:
C:\bugzilla>ppm install Email-Send
ppm install failed: no package found
same with Email-MIME
I have already tried the method given in command prompt {ppm repo
up--} but that doesnt work either.Any clues? Also tried to force the
installation----No Go.
I have also set up the http_proxy still no success.
Thanks,
------------------------------
Date: Mon, 11 Feb 2008 16:33:11 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: ppm package issue
Message-Id: <7v9685-gt9.ln1@osiris.mauzo.dyndns.org>
Quoth adi <adityab2381@gmail.com>:
>
> I'm trying to setup perl (I have ActivePerl 5.8.8) so I can install
> Bugzilla
> 3.0.3 on Windows XP Pro, and Email-Send and Email-MIME-Modifier are
> the recquired packages.
>
>
> When I try to install the packages I get this message:
>
>
> C:\bugzilla>ppm install Email-Send
> ppm install failed: no package found
>
> same with Email-MIME
>
> I have already tried the method given in command prompt {ppm repo
> up--} but that doesnt work either.Any clues? Also tried to force the
> installation----No Go.
You can check the build status of AS' ppms at
http://ppm.activestate.com . In this case, the two dists you want have
failed to build: it's not entirely clear to me why. Since both appear to
be pure-Perl modules with pure-Perl dependancies, I would recommend
installing them from CPAN:
cpan -i Email::Send
cpan -i Email::MIME::Modifier
The CPAN client may ask you some questions; the default answers are all
fine.
Ben
------------------------------
Date: Mon, 11 Feb 2008 15:13:46 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Testing on empty variable
Message-Id: <uvl0r39m00ukm4c99f31eeqn5t2i88j521@4ax.com>
On Sat, 09 Feb 2008 20:54:23 +0100, Joost Diepenmaat <joost@zeekat.nl>
wrote:
>Oh, and note that Switch is notorious for causing very unintuitive
>bugs. Personally I wouldn't use it for anything serious and take the
>occasional ugly if .. elsif .. else construct.
Or use 5.10's *real* switch a.k.a. C<given>.
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 11 Feb 2008 15:11:56 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Using END and the die function
Message-Id: <oql0r3pb052agl57bpfgtq6u4qtqlsvkc9@4ax.com>
On Mon, 11 Feb 2008 00:10:06 +0100, Gunnar Hjalmarsson
<noreply@gunnar.cc> wrote:
>> Can warn() ever return false?
>
>Not AFAIK.
>
>> If it did then your code above wouldn't exit.
>
>To be safe, this is a possibility:
>
> mkdir($tgt_dir) or
> do { warn "Mkdir ($tgt_dir) command failed.\n"; exit 42 };
Sometimes, just for consistency, I'd like a low precedence (scalar)
comma. Like, if it were C<then>:
mkdir $tgt_dir or
warn "Mkdir ($tgt_dir) command failed.\n" then
exit 42;
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 11 Feb 2008 17:42:13 GMT
From: Graham Drabble <usenet05@drabble.me.uk>
Subject: Re: Using END and the die function
Message-Id: <Xns9A41B417482C1grahamdrabblelineone@ID-77355.user.dfncis.de>
On 11 Feb 2008 Ben Morrow <ben@morrow.me.uk> wrote in
news:66m485-cr1.ln1@osiris.mauzo.dyndns.org:
>
> Quoth Gunnar Hjalmarsson <noreply@gunnar.cc>:
>> Graham Drabble wrote:
>> > On 08 Feb 2008 Tad J McClellan <tadmc@seesig.invalid> wrote in
>> > news:slrnfqpr0o.96t.tadmc@tadmc30.sbcglobal.net:
>> >>
>> >> mkdir($tgt_dir) or warn "Mkdir ($tgt_dir) command
>> >> failed.\n" and exit 42;
>> >
>> > Can warn() ever return false?
>>
>> Not AFAIK.
>
> Make that 'no' :). The warn op unconditionally returns true.
Good. Can't see any mention of that in the manual though. Any chance of
an addition to the man page?
--
Graham Drabble
http://www.drabble.me.uk/
------------------------------
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 1270
***************************************
