[32759] in Perl-Users-Digest
Perl-Users Digest, Issue: 4023 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Aug 31 21:09:41 2013
Date: Sat, 31 Aug 2013 18: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 Sat, 31 Aug 2013 Volume: 11 Number: 4023
Today's topics:
Re: Convert money amount to text string - convert.pl rupali.wadke@gmail.com
Re: Convert money amount to text string - convert.pl <justin.1303@purestblue.com>
Re: Convert money amount to text string - convert.pl <john@castleamber.com>
strange <gravitalsun@hotmail.foo>
Re: strange <news.10.msteinborn@spamgourmet.com>
Re: strange <bjoern@hoehrmann.de>
Re: strange <gravitalsun@hotmail.foo>
Re: strange <gravitalsun@hotmail.foo>
Re: strange <news.10.msteinborn@spamgourmet.com>
Re: strange <news.10.msteinborn@spamgourmet.com>
Re: strange <cwilbur@chromatico.net>
Re: whats the hardest part of making a web app? <nick@maproom.co.uk>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 30 Aug 2013 00:18:16 -0700 (PDT)
From: rupali.wadke@gmail.com
Subject: Re: Convert money amount to text string - convert.pl
Message-Id: <5810c9b6-acea-4b46-bbad-864dad1f1510@googlegroups.com>
On Wednesday, 17 December 1997 13:30:00 UTC+5:30, Keith Willis wrote:
> I recently had a need to convert a money amount to a text string as in:in=
put: 123.45 output: One Hundred And Twenty Three Dollars And Forty Five Cen=
tsI have looked through the CPAN list, and was unable to find anything suit=
able, but someone in comp.databases.sybase emailed me some BASIC code to do=
the job. I hacked it into Perl, and it does work, but since it is always g=
oing to be hacked BASIC in any language, I wondered whether anyone might ha=
ve any suggestions for a different/better/more-perl-like approach.Code atta=
ched - thanks for any constructive criticism.------------------------------=
---------------------------------------- The above message reflects my own =
views, not those of Hewlett Packard. When emailing me, please note that the=
re is no '.junk' in my address.begin 644 convert.pl<encoded_portion_removed=
>end
hi ,=20
Can you please send me the code ?
------------------------------
Date: Fri, 30 Aug 2013 09:29:13 +0100
From: Justin C <justin.1303@purestblue.com>
Subject: Re: Convert money amount to text string - convert.pl
Message-Id: <pn16fa-c07.ln1@zem.masonsmusic.co.uk>
On 2013-08-30, rupali.wadke@gmail.com <rupali.wadke@gmail.com> wrote:
> On Wednesday, 17 December 1997 13:30:00 UTC+5:30, Keith Willis wrote:
>> I recently had a need to convert a money amount to a text string as in:input: 123.45 output: One Hundred And Twenty Three Dollars And Forty Five CentsI have looked through the CPAN list, and was unable to find anything suitable, but someone in comp.databases.sybase emailed me some BASIC code to do the job.
[snip]
> hi ,
> Can you please send me the code ?
You're replying to a message posted in 1997. I've never heard of
Keith Willis so I doubt he's here any longer.
If what you're after doing is as Keith mentions above then have a
look on CPAN for the Lingua modules.
Justin.
--
Justin C, by the sea.
------------------------------
Date: Fri, 30 Aug 2013 12:20:10 -0500
From: John Bokma <john@castleamber.com>
Subject: Re: Convert money amount to text string - convert.pl
Message-Id: <874na72j05.fsf@castleamber.com>
Justin C <justin.1303@purestblue.com> writes:
> On 2013-08-30, rupali.wadke@gmail.com <rupali.wadke@gmail.com> wrote:
>> On Wednesday, 17 December 1997 13:30:00 UTC+5:30, Keith Willis wrote:
>>> I recently had a need to convert a money amount to a text string as in:input: 123.45 output: One Hundred And Twenty Three Dollars And Forty Five CentsI have looked through the CPAN list, and was unable to find anything suitable, but someone in comp.databases.sybase emailed me some BASIC code to do the job.
>
> [snip]
>
>> hi ,
>> Can you please send me the code ?
>
> You're replying to a message posted in 1997. I've never heard of
> Keith Willis so I doubt he's here any longer.
>
> If what you're after doing is as Keith mentions above then have a
> look on CPAN for the Lingua modules.
Indeed, Lingua::EN::Numbers, which I use for my invoices.
--
John Bokma j3b
Blog: http://johnbokma.com/ Perl Consultancy: http://castleamber.com/
Perl for books: http://johnbokma.com/perl/help-in-exchange-for-books.html
------------------------------
Date: Thu, 29 Aug 2013 17:43:34 +0300
From: George Mpouras <gravitalsun@hotmail.foo>
Subject: strange
Message-Id: <kvnmml$2ntg$1@news.ntua.gr>
use strict;
use warnings;
use feature 'say';
say "this is ok ". 1 . 5 . 9;
say "this is weird ". 1.5.9;
------------------------------
Date: Thu, 29 Aug 2013 17:12:15 +0200
From: Markus Steinborn <news.10.msteinborn@spamgourmet.com>
Subject: Re: strange
Message-Id: <kvnocf$bno$1@dont-email.me>
George Mpouras schrieb:
> use strict;
> use warnings;
> use feature 'say';
>
> say "this is ok ". 1 . 5 . 9;
> say "this is weird ". 1.5.9;
man perldata, search for "Version strings".
Greetings from Germany
Markus Steinborn
------------------------------
Date: Thu, 29 Aug 2013 17:14:35 +0200
From: Bjoern Hoehrmann <bjoern@hoehrmann.de>
Subject: Re: strange
Message-Id: <49pu1993ggdj02sr8affhijocpobna9nf0@hive.bjoern.hoehrmann.de>
* George Mpouras wrote in comp.lang.perl.misc:
>use strict;
>use warnings;
>use feature 'say';
>
>say "this is ok ". 1 . 5 . 9;
>say "this is weird ". 1.5.9;
Consider `print join '.' => unpack 'C4', 127.0.0.1` prints `127.0.0.1`.
--
Bjrn Hhrmann mailto:bjoern@hoehrmann.de http://bjoern.hoehrmann.de
Am Badedeich 7 Telefon: +49(0)160/4415681 http://www.bjoernsworld.de
25899 Dagebll PGP Pub. KeyID: 0xA4357E78 http://www.websitedev.de/
------------------------------
Date: Thu, 29 Aug 2013 18:53:37 +0300
From: George Mpouras <gravitalsun@hotmail.foo>
Subject: Re: strange
Message-Id: <kvnqq0$18e$1@news.ntua.gr>
Στις 29/8/2013 18:14, ο/η Bjoern Hoehrmann έγραψε:
> * George Mpouras wrote in comp.lang.perl.misc:
>> use strict;
>> use warnings;
>> use feature 'say';
>>
>> say "this is ok ". 1 . 5 . 9;
>> say "this is weird ". 1.5.9;
>
> Consider `print join '.' => unpack 'C4', 127.0.0.1` prints `127.0.0.1`.
>
ok but is this explain anything ;
------------------------------
Date: Thu, 29 Aug 2013 18:54:08 +0300
From: George Mpouras <gravitalsun@hotmail.foo>
Subject: Re: strange
Message-Id: <kvnqqv$18e$2@news.ntua.gr>
Στις 29/8/2013 18:12, ο/η Markus Steinborn έγραψε:
> George Mpouras schrieb:
>> use strict;
>> use warnings;
>> use feature 'say';
>>
>> say "this is ok ". 1 . 5 . 9;
>> say "this is weird ". 1.5.9;
>
> man perldata, search for "Version strings".
>
>
> Greetings from Germany
>
> Markus Steinborn
>
ok then, this does not look like a version : )
say "this is ok ". 1 . 5 . 9 . 1 . 2 . 3;
say "this is weird ". 1.5.9.1.2.3;
------------------------------
Date: Thu, 29 Aug 2013 18:00:19 +0200
From: Markus Steinborn <news.10.msteinborn@spamgourmet.com>
Subject: Re: strange
Message-Id: <kvnr6m$s54$1@dont-email.me>
George Mpouras schrieb:
> Στις 29/8/2013 18:12, ο/η Markus Steinborn έγραψε:
>> George Mpouras schrieb:
>>> say "this is ok ". 1 . 5 . 9;
>>> say "this is weird ". 1.5.9;
>> man perldata, search for "Version strings".
>>
>>
>> Greetings from Germany
>>
>> Markus Steinborn
>>
>
> ok then, this does not look like a version : )
> say "this is ok ". 1 . 5 . 9 . 1 . 2 . 3;
> say "this is weird ". 1.5.9.1.2.3;
For perl it does :-)
Any literal that is made of numbers together with 2 or more dot is a
version string.
Greetings
Markus
------------------------------
Date: Thu, 29 Aug 2013 18:03:07 +0200
From: Markus Steinborn <news.10.msteinborn@spamgourmet.com>
Subject: Re: strange
Message-Id: <kvnrbr$s54$2@dont-email.me>
Markus Steinborn schrieb:
> Any literal that is made of numbers together with 2 or more dot is a
> version string.
Well, not strictly, as 1..2 is not a version string, but I think you got
the point. There must be numbers between the points, and te points must
not be at the beginning or the end.
------------------------------
Date: Thu, 29 Aug 2013 11:37:59 -0400
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: strange
Message-Id: <87r4dca4o8.fsf@chromatico.net>
>>>>> "GM" == George Mpouras <gravitalsun@hotmail.foo> writes:
GM> say "this is ok ". 1 . 5 . 9;
GM> say "this is weird ". 1.5.9;
say "do you also expect " . 3 . 2 * 5 . 7;
say "to equal " . 3.2 * 5.7;
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: Sat, 31 Aug 2013 09:25:48 +0100
From: Nick Wedd <nick@maproom.co.uk>
Subject: Re: whats the hardest part of making a web app?
Message-Id: <2vudnQWPI7vpNbzPnZ2dnUVZ8l2dnZ2d@bt.com>
On 16/08/2013 04:42, johannes falcone wrote:
> wondering?
It depends what you want your web app to do.
Nick
------------------------------
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:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#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 4023
***************************************
