[29125] in Perl-Users-Digest
Perl-Users Digest, Issue: 369 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Apr 21 11:10:01 2007
Date: Sat, 21 Apr 2007 08: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, 21 Apr 2007 Volume: 11 Number: 369
Today's topics:
[ANNOUNCE] Emacs modules for Perl programming (Jari Aalto+mail.perl)
Re: Booleans in Perl <hjp-usenet2@hjp.at>
Re: Booleans in Perl <cwilbur@chromatico.net>
Re: Booleans in Perl <mark.clementsREMOVETHIS@wanadoo.fr>
help in development <darioses@gmail.com>
new CPAN modules on Sat Apr 21 2007 (Randal Schwartz)
Re: Newbie queston on Perl and lex. <bik.mido@tiscalinet.it>
Re: Printing the next line of text of the file <bik.mido@tiscalinet.it>
Re: Server For Rent? Where? <nikos1337@gmail.com>
Re: Server For Rent? Where? <spamtrap@dot-app.org>
Re: Server For Rent? Where? <bik.mido@tiscalinet.it>
Re: Server For Rent? Where? <bik.mido@tiscalinet.it>
Re: Server For Rent? Where? <bik.mido@tiscalinet.it>
use POSIX qw(ceil floor) <john.swilting@wanadoo.fr>
Re: use POSIX qw(ceil floor) <mark.clementsREMOVETHIS@wanadoo.fr>
Re: use POSIX qw(ceil floor) <bik.mido@tiscalinet.it>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 21 Apr 2007 04:26:43 GMT
From: <jari.aalto@poboxes.com> (Jari Aalto+mail.perl)
Subject: [ANNOUNCE] Emacs modules for Perl programming
Message-Id: <perl-faq/emacs-lisp-modules_1177129566@rtfm.mit.edu>
Archive-name: perl-faq/emacs-lisp-modules
Posting-Frequency: 2 times a month
Maintainer: Jari Aalto A T cante net
Announcement: "What Emacs lisp modules can help with programming Perl"
Preface
Emacs is your friend if you have to do anything comcerning software
development: It offers plug-in modules, written in Emacs lisp
(elisp) language, that makes all your programmings wishes come
true. Please introduce yourself to Emacs and your programming era
will get a new light.
Where to find Emacs/XEmacs
o Unix:
http://www.gnu.org/software/emacs/emacs.html
http://www.xemacs.org/
o Unix Windows port (for Unix die-hards):
install http://www.cygwin.com/ which includes native Emacs 21.x.
and XEmacs port
o Pure Native Windows port
http://www.gnu.org/software/emacs/windows/ntemacs.html
ftp://ftp.xemacs.org/pub/xemacs/windows/setup.exe
o More Emacs resources at
http://tiny-tools.sourceforge.net/ => Emacs resource page
Emacs Perl Modules
Cperl -- Perl programming mode
http://math.berkeley.edu/~ilya/software/emacs/
by Ilya Zakharevich
CPerl is major mode for editing perl files. Also included in
latest Emacs, but newest version is at Ilya's site. Note that
the directrory at CPAN is out of date:
http://www.cpan.org/modules/by-authors/id/ILYAZ/cperl-mode/
Compared to default `perl-mode' that comes with Emacs, this
one has more features.
TinyPerl -- Perl related utilities
http://tiny-tools.sourceforge.net/
If you ever wonder how to deal with Perl POD pages or how to find
documentation from all perl manpages, this package is for you.
Couple of keystrokes and all the documentaion is in your hands.
o Instant function help: See documentation of `shift', `pop'...
o Show Perl manual pages in *pod* buffer
o Grep through all Perl manpages (.pod)
o Follow POD references e.g. [perlre] to next pod with RETURN
o Coloured pod pages with `font-lock'
o Separate `tiperl-pod-view-mode' for jumping topics and pages
forward and backward in *pod* buffer.
o Update `$VERSION' variable with YYYY.MMDD on save.
o Load source code into Emacs, like Devel::DProf.pm
o Prepare script (version numbering) and Upload it to PAUSE
o Generate autoload STUBS (Devel::SelfStubber) for you
Perl Module (.pm)
TinyIgrep -- Perl Code browsing and easy grepping
[TinyIgrep is included in Tiny Tools Kit]
To grep from all installed Perl modules, define database to
TinyIgrep. There is example file emacs-rc-tinyigrep.el that shows
how to set up dattabases for Perl5, Perl4 whatever you have
installed
TinyIgrep calls Igrep.el to to do the search, You can adjust
recursive grep options, set search case sensitivity, add user grep
options etc.
You can find latest `igrep.el' module at
<http://groups.google.com/groups?group=gnu.emacs.sources> The
maintainer is Jefin Rodgers <kevinr@ihs.com>.
TinyCompile -- To Browse grep results in Emacs *compile* buffer
TinyCompile is a minor mode for *compile* buffer from where
you can collapse unwanted lines or shorten file URLs:
/asd/asd/asd/asd/ads/as/da/sd/as/as/asd/file1:NNN: MATCHED TEXT
/asd/asd/asd/asd/ads/as/da/sd/as/as/asd/file2:NNN: MATCHED TEXT
-->
cd /asd/asd/asd/asd/ads/as/da/sd/as/as/asd/
file1:NNN: MATCHED TEXT
file1:NNN: MATCHED TEXT
End
------------------------------
Date: Sat, 21 Apr 2007 12:15:19 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Booleans in Perl
Message-Id: <slrnf2jp1n.gme.hjp-usenet2@zeno.hjp.at>
On 2007-04-20 21:00, David Williams <dw149@acmex.gatech.edu> wrote:
> I use php a lot and wrote echo instead of print.
> I actually used print in my program.
>
> So, what I get is that Perl does not really understand FALSE.
Perl understands 'FALSE' as a string like every other string. It is not
a predefined constant.
Write
use strict;
use warnings;
at the start of all of your scripts to catch common errors.
> I guess my workaround is to use the eq operand.
That's a bad idea. Use one of the values which are false, like 0, '', or
undef.
hp
--
_ | Peter J. Holzer | I know I'd be respectful of a pirate
|_|_) | Sysadmin WSR | with an emu on his shoulder.
| | | hjp@hjp.at |
__/ | http://www.hjp.at/ | -- Sam in "Freefall"
------------------------------
Date: 21 Apr 2007 08:21:13 -0400
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: Booleans in Perl
Message-Id: <87irbpapfq.fsf@mithril.chromatico.net>
>>>>> "DW" == David Williams <dw149@acmex.gatech.edu> writes:
DW> So, what I get is that Perl does not really understand FALSE.
DW> I guess my workaround is to use the eq operand.
Um, no. Perl understands false just fine; it's just a special
property of evaluating values in a Boolean way rather than a separate
type.
There are multiple false values. "" is false, as is 0. So if $foo is
"" and $bar is 0, if ($foo eq $bar) will be false. This is why your
workaround doesn't work in the general case.
It gets worse if you talk about truth, because everything that is not
false is true. "foo" is a true value, as is 1, as is "0 but true."
Your "workaround" is to understand how Boolean values work in Perl,
and to use them correctly. Perl is not PHP; if you want PHP, you know
where to find it.
Charlton
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: Sat, 21 Apr 2007 15:58:02 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: Booleans in Perl
Message-Id: <462a1868$0$25917$ba4acef3@news.orange.fr>
David Formosa (aka ? the Platypus) wrote:
> On Fri, 20 Apr 2007 21:00:49 +0000 (UTC), David Williams
> <dw149@acmex.gatech.edu> wrote:
>
> [...]
>
>> So, what I get is that Perl does not really understand FALSE.
>
> Perl has a very simple model of the booleans, false is 0,'0' and '',
> everything else is true.
>
undef (among others) is false as well :)
F:\Documents and Settings\Mark3>perl -le "print ((undef)?'true':'false')"
false
------------------------------
Date: 21 Apr 2007 01:00:27 -0700
From: dario <darioses@gmail.com>
Subject: help in development
Message-Id: <1177142427.659535.116300@b58g2000hsg.googlegroups.com>
Hello,
I'm looking for help in developing a Web site in Perl, HTML and
Javascript.
If anyone is interested in earning money by working on these
technologies from home a few hours a week please contact me soon
------------------------------
Date: Sat, 21 Apr 2007 04:42:10 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sat Apr 21 2007
Message-Id: <JGtzqA.qL2@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.
Clone-0.23
http://search.cpan.org/~rdf/Clone-0.23/
recursively copy Perl datatypes
----
DBIx-Class-StorageReadOnly-0.02
http://search.cpan.org/~nekokak/DBIx-Class-StorageReadOnly-0.02/
Can't insert and update and delete for DBIC
----
Email-MIME-XPath-0.001
http://search.cpan.org/~hdp/Email-MIME-XPath-0.001/
access MIME documents via XPath queries
----
Email-MIME-XPath-0.002
http://search.cpan.org/~hdp/Email-MIME-XPath-0.002/
access MIME documents via XPath queries
----
Exception-0.01
http://search.cpan.org/~dexter/Exception-0.01/
Lightweight exceptions
----
HTTP-Response-Encoding-0.04
http://search.cpan.org/~dankogai/HTTP-Response-Encoding-0.04/
Adds encoding() to HTTP::Response
----
Lemonldap-NG-Portal-0.73
http://search.cpan.org/~guimard/Lemonldap-NG-Portal-0.73/
The authentication portal part of Lemonldap::NG Web-SSO system.
----
Linux-Taskstats-Read-3.04
http://search.cpan.org/~scottw/Linux-Taskstats-Read-3.04/
Read Linux taskstats structures
----
Log-Handler-0.13
http://search.cpan.org/~bloonix/Log-Handler-0.13/
A simple handler to log messages to log files.
----
Math-0.534
http://search.cpan.org/~hooo/Math-0.534/
constants and functions
----
Math-0.536
http://search.cpan.org/~hooo/Math-0.536/
constants and functions
----
Math-0.538
http://search.cpan.org/~hooo/Math-0.538/
constants and functions
----
MogileFS-Client-1.06
http://search.cpan.org/~bradfitz/MogileFS-Client-1.06/
Client library for the MogileFS distributed file system.
----
MogileFS-Plugin-FilePaths-0.01
http://search.cpan.org/~hachi/MogileFS-Plugin-FilePaths-0.01/
----
MogileFS-Plugin-MetaData-0.01
http://search.cpan.org/~hachi/MogileFS-Plugin-MetaData-0.01/
----
MogileFS-Utils-2.08
http://search.cpan.org/~bradfitz/MogileFS-Utils-2.08/
----
Net-OmaDrm-0.10
http://search.cpan.org/~mobileart/Net-OmaDrm-0.10/
Format the content-type with OMA DRM content-type
----
ProgressMonitor-0.07
http://search.cpan.org/~knth/ProgressMonitor-0.07/
a flexible and configurable framework for providing feedback on how a long-running task is proceeding.
----
Set-ConsistentHash-0.90
http://search.cpan.org/~bradfitz/Set-ConsistentHash-0.90/
library for doing consistent hashing
----
Set-Groups-0.4
http://search.cpan.org/~jacquelin/Set-Groups-0.4/
A set of groups.
----
ShipIt-0.47
http://search.cpan.org/~bradfitz/ShipIt-0.47/
software release tool
----
Slay-Makefile-0.01
http://search.cpan.org/~nodine/Slay-Makefile-0.01/
Wrapper to Slay::Maker that reads the rules from a file
----
Text-Microformat-0.01
http://search.cpan.org/~kgrennan/Text-Microformat-0.01/
A Microformat parser
----
Text-Patch-1.4
http://search.cpan.org/~cade/Text-Patch-1.4/
Patches text with given patch
----
Text-Sprintf-Named-0.02
http://search.cpan.org/~shlomif/Text-Sprintf-Named-0.02/
sprintf-like function with named conversions
----
Tk-EntryCheck-0.04
http://search.cpan.org/~strat/Tk-EntryCheck-0.04/
Interface to Tk::Entry for controlling its maximum length and content in an easy way.
----
Weed-0.0003
http://search.cpan.org/~hooo/Weed-0.0003/
ist ein englisches Wort f?r Unkraut
----
YAML-Syck-0.85
http://search.cpan.org/~audreyt/YAML-Syck-0.85/
Fast, lightweight YAML loader and dumper
----
Yahoo-Marketing-1.01
http://search.cpan.org/~jlavallee/Yahoo-Marketing-1.01/
an interface for Yahoo! Search Marketing's Web Services.
----
interface-0.03
http://search.cpan.org/~swalters/interface-0.03/
simple compile time interface checking for OO Perl
----
mogilefs-server-2.09
http://search.cpan.org/~bradfitz/mogilefs-server-2.09/
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: Sat, 21 Apr 2007 15:18:54 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Newbie queston on Perl and lex.
Message-Id: <gd3k231qlihb705979hjnjnatvg9pev3s2@4ax.com>
On 20 Apr 2007 18:57:02 -0700, somedeveloper@gmail.com wrote:
>PS: Ran your signature program... it's cool! Hopefully, I'll be able
>to decode it in near future... when I'm more comfortable with the
>language.
Don't forget that JAPHs are nothing but a game. Recently the man who
invented them claimed them to have turned into his worst enemy! :-)
However this particular one is "decoded" at
http://perlmonks.org/?node_id=410408
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: Sat, 21 Apr 2007 12:03:31 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Printing the next line of text of the file
Message-Id: <39oj23td77nh7flpp7rm2ckstjdr8dtk3l@4ax.com>
On 20 Apr 2007 14:30:48 GMT, Abigail <abigail@abigail.be> wrote:
>You don't need to wait till Perl6 to have 'rules'.
>
>Perl5.10 regular expressions allow you to parse any CFG, without having
>to result to (?{ }) or (??{ }).
Yeah, I saw your impressive email address parsing example and I also
"advertised" it somewhere else. Eager to see the thing. Hardly hope to
ever master it.
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: 21 Apr 2007 02:07:48 -0700
From: skieros <nikos1337@gmail.com>
Subject: Re: Server For Rent? Where?
Message-Id: <1177146468.637105.301620@d57g2000hsg.googlegroups.com>
On Apr 21, 3:47 am, Tad McClellan <t...@augustmail.com> wrote:
> skieros <nikos1...@gmail.com> wrote:
> > Not all of the people here are anti-social dorks like you are.
>
> The people here like to discuss Perl.
>
> You are the one starting a thread completely devoid of any
> connection with Perl.
>
> Who is the anti-social one again?
>
> --
> Tad McClellan SGML consulting
> t...@augustmail.com Perl programming
> Fort Worth, Texas
You, and not make too much of a deal that i just asked a question that
i though you peple might now, and some of you did.
3 days now we are taking thsi thread to infinite ust because i asked
about web hosting, how many days we are gonna contnue talking about
it?
This is the last response you gonna have from me in this thread.
------------------------------
Date: Sat, 21 Apr 2007 05:08:35 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Server For Rent? Where?
Message-Id: <m2slaunlgs.fsf@local.wv-www.com>
skieros <nikos1337@gmail.com> writes:
> This is the last response you gonna have from me in this thread.
Promises, promises...
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Sat, 21 Apr 2007 11:47:08 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Server For Rent? Where?
Message-Id: <n6nj23lgl38m2tib9mb8roo4mv3nsl44g1@4ax.com>
On 20 Apr 2007 10:26:37 -0400, Charlton Wilbur
<cwilbur@chromatico.net> wrote:
> MD> Nope, I rate higher amongst the top turds for 2007. I'm the
> MD> rudest Italian ever, says the troll.
>
>Do you have a website somewhere where you're collecting all these awards?
Nope, but it's the first one I've been awarded. A local copy of the
post suffices to preserve hi^Whe^Wits immortal prose for the centuries
to come, as far as I'm concerned. Oh, and I wrote about that in my
use.perl journal.
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: Sat, 21 Apr 2007 11:53:03 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Server For Rent? Where?
Message-Id: <ldnj23d53s7u9gfkkhka6i6fpb2s1rtl5c@4ax.com>
On 20 Apr 2007 07:58:07 -0700, skieros <nikos1337@gmail.com> wrote:
>> Nope, I rate higher amongst the top turds for 2007. I'm the rudest
>> Italian ever, says the troll.
>>
>> 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,
HAHA!
>i guess you are then, sorry for saying you werent one.
Not at all: it's not always easy to recognize abjection at a glance.
Now you're more skilled in this sense. You'll get better and better.
Now, isn't this fantastic?
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: Sat, 21 Apr 2007 15:11:42 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Server For Rent? Where?
Message-Id: <i53k239p5efnt31nc00606ukbb9s7m1it1@4ax.com>
On 21 Apr 2007 02:07:48 -0700, skieros <nikos1337@gmail.com> wrote:
>> Who is the anti-social one again?
>>
>> --
>> Tad McClellan SGML consulting
>> t...@augustmail.com Perl programming
>> Fort Worth, Texas
^^^^^^^^^^^^^^^^^^^^^^^^^
^^^^^^^^^^^^^^^^^^^^^^^^^
>You, and not make too much of a deal that i just asked a question that
>i though you peple might now, and some of you did.
HAHA!
>3 days now we are taking thsi thread to infinite ust because i asked
>about web hosting, how many days we are gonna contnue talking about
>it?
>
>This is the last response you gonna have from me in this thread.
Well said. Let's switch to a completely different subject matter
altogether. Can any of you guys suggest me a good escort service? I
know this is not exactly on topic. But I'm asking here because I
thought some of you may know.
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: Sat, 21 Apr 2007 13:19:25 +0200
From: "john.swilting" <john.swilting@wanadoo.fr>
Subject: use POSIX qw(ceil floor)
Message-Id: <4629f335$0$27397$ba4acef3@news.orange.fr>
what that wants to say
use POSIX qw(ceil floor);
------------------------------
Date: Sat, 21 Apr 2007 14:05:00 +0200
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: use POSIX qw(ceil floor)
Message-Id: <4629fdec$0$25932$ba4acef3@news.orange.fr>
john.swilting wrote:
> what that wants to say
> use POSIX qw(ceil floor);
You're still using automatic translation software: it isn't helping you.
Qu'est que ça veut dire = "what does that/this mean?" (or near enough)
You need to read the docs.
perldoc POSIX
ceil This is identical to the C function "ceil()", returning the
smallest integer value greater than or equal to the given numerical
argument.
floor This is identical to the C function "floor()", returning the
largest integer value less than or equal to the numerical
argument.
in French:
http://perl.enstimac.fr/DocFr/perlfaq4.html#perl%20atil%20une%20fonction%20round()%20et%20ceil()%20(majoration)%20et%20floor()%20(minoration)%20et%20des%20fonctions%20trigonom%E9triques
Mark
------------------------------
Date: Sat, 21 Apr 2007 15:24:03 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: use POSIX qw(ceil floor)
Message-Id: <gs3k23lui9g1vfcpm74acb1aogchvm7a76@4ax.com>
On Sat, 21 Apr 2007 13:19:25 +0200, "john.swilting"
<john.swilting@wanadoo.fr> wrote:
>what that wants to say
>use POSIX qw(ceil floor);
use (perldoc -f use) the POSIX (perldoc POSIX) module and import the
ceil() and floor() functions, so that you can use them in your code.
leia:~ [15:24:17]$ perl -MPOSIX=floor,ceil -le 'print for map {$_,
floor($_), ceil($_)} 1.5, 1.999, 2.001'
1.5
1
2
1.999
1
2
2.001
2
3
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: 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 369
**************************************
