[28228] in Perl-Users-Digest
Perl-Users Digest, Issue: 9592 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 11 14:06:13 2006
Date: Fri, 11 Aug 2006 11:05: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 Fri, 11 Aug 2006 Volume: 10 Number: 9592
Today's topics:
Re: Control characters - regex to match/lose these? <justin.0607@purestblue.com>
Re: FAQ 3.14 How can I use X or Tk with Perl? <brian.d.foy@gmail.com>
Re: flock not locking xhoster@gmail.com
format and newline <cmic@caramail.com>
Re: format and newline <spp_icarsNOSPAM@yahoo.fr>
Re: geometry problem <jgibson@mail.arc.nasa.gov>
Re: How to send command line options into test scripts? <simon.chao@fmr.com>
Re: How to send command line options into test scripts? <yusufm@gmail.com>
Re: Is there arithmetic sequence represents? <tzz@lifelogs.com>
Re: Parsing text to array <notvalid@email.com>
Re: perl appserver shootout: jifty maypole catalyst BOP <bik.mido@tiscalinet.it>
Re: Reading integer values from a file <someone@example.com>
Re: Reading integer values from a file usenet@DavidFilmer.com
Re: regex and utf8 characters (german umlauts) <tzz@lifelogs.com>
The assignment of command output to an array hangs. <kaleem177@gmail.com>
Re: The DEBUG constant? <socyl@987jk.com.invalid>
Re: win32::printer and text formatting <rvtol+news@isolution.nl>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 11 Aug 2006 17:09:26 -0000
From: Justin C <justin.0607@purestblue.com>
Subject: Re: Control characters - regex to match/lose these?
Message-Id: <slrnedpedq.4t6.justin.0607@moonlight.purestblue.com>
On 2006-08-10, Ben Morrow <benmorrow@tiscali.co.uk> wrote:
>
> Quoth justin.news@purestblue.com:
>> On 2006-08-09, Ben Morrow <benmorrow@tiscali.co.uk> wrote:
>> >
>> > [re: s/\e (?: [^@A-Z]* [@A-Z] | [=9] )//gx;]
>> >
>> > The (?:) (when corrected) is causing the RE to match 'escape, followed
>> > by (either a multi-char escape sequence or one of the single-char
>> > sequences'. It is necessary as without the grouping the | alternation
>> > would apply to the whole regex, and any '=' would be stripped. Compare
>>
>> Thank you for clearing that up for me, I am now able to read, and
>> understand, that regex. I wasn't aware of the '=' being ignored in a
>> pattern match (though I'd probably escape it in most cases myself
>> anyway).
>
> No, you're misunderstanding still (I can't have been clear...). It's not
> that = is ignored in a regex (it isn't), it's that without the parens
> the pattern will match just '=', without a preceding escape, so all =
> signs will be removed from your input. This (I presume :) ) isn't what
> you want.
Yes, I think I mustn't have been paying attention when I replied (I just
had a two hour afternoon nap (don't ask) so my brain is more alert just
now). The perens are the grouping for the ?:, the pipe gives us an 'or'
so the perens match "a string starting with an @ or any upper case A-Z
any number of times (though not necessarily the same char) but only if
it's followed by exactly one more char from the same class" or "an '=' or
9" and, prior to the perens is the \e, so it's the \e=, \e9 or \e[a
string starting with and @ etc...].
Thank you for your patience.
If I've still not got it, I'm just gonna try it out anyway. I'm sure my
understanding of regexs will improve with time/use/practice.
Justin.
--
Justin C, by the sea.
------------------------------
Date: Fri, 11 Aug 2006 09:56:48 -0500
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: FAQ 3.14 How can I use X or Tk with Perl?
Message-Id: <110820060956488635%brian.d.foy@gmail.com>
In article <070820061238188799%jgibson@mail.arc.nasa.gov>, Jim Gibson
<jgibson@mail.arc.nasa.gov> wrote:
> In article <6t5hq3-i35.ln1@blue.stonehenge.com>, PerlFAQ Server
> <brian@stonehenge.com> wrote:
> > 3.14: How can I use X or Tk with Perl?
> >
> > Tk is a completely Perl-based, object-oriented interface to the Tk
> Wouldn't this be less confusing as:
> "The Perl module Tk.pm is a completely ... "
Yes, I think that would be less confusing. I'll update the answer.
Thanks,
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: 11 Aug 2006 15:47:21 GMT
From: xhoster@gmail.com
Subject: Re: flock not locking
Message-Id: <20060811115707.590$t3@newsreader.com>
Ben Morrow <benmorrow@tiscali.co.uk> wrote:
> Quoth xargle@eh.org:
> > while(1)
> > {
> > print STDOUT getpid() . " requesting LOCK_EX\n";
> > flock LOCKFILE,2 or die "cant flock: $!"; # 2 = LOCK_EX, exclusive
> > lock
>
> Don't *ever* hardcode flock values. Get them from the Fcntl module:
>
> use Fcntl qw/:flock/;
>
> flock LOCKFILE, LOCK_EX;
>
> > print STDOUT getpid() . " has gained LOCK_EX\n";
> > my $client = $socket->accept();
> > print STDOUT getpid() . " accepted connection from " .
> > $client->sockhost . " and will unlock listener\n";
> > flock LOCKFILE,8 or die "cant flock: $!"; # 8 = LOCK_UN, unlock
>
> This may have been one of the rare cases that an explicit LOCK_UN wasn't
> a bug, but as you have to reopen the file to get a new lock anyway
> you're better off closing it to unlock.
I don't agree with you in this specific context. He only needs to open the
file once per process, i.e. once per fork. He can simply lock and unlock
it inside the accept loop (or at least I see no reason he can't do it that
way). There is no need to (re)open the file after every accept, only after
every fork.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 11 Aug 2006 07:37:25 -0700
From: "cmic" <cmic@caramail.com>
Subject: format and newline
Message-Id: <1155307045.411839.138430@m79g2000cwm.googlegroups.com>
Hello.
I have the following snippet :
#!/usr/local/bin/perl
use strict;
use warnings;
my @array=(2, 3, 5, 1, 5);;
my ($a, $b, $c);
format STDOUT =
@>>>>>>>>|@<<<|@<<<<<
$b, $a, $c
.
foreach (@array) {
$a=$_; $b=$a+100;$c=$a*2;
write ;
print "VAlue " . $a . "\n";
}
... which prints :
102|2 |4
VAlue 2
103|3 |6
VAlue 3
but and I want my script to print this instead :
102|2 |4 VAlue 2
103|3 |6 VAlue 3
How to do this ? Or must I use sprintf instead ?
TYA
--
cmic
------------------------------
Date: Fri, 11 Aug 2006 17:00:24 +0200
From: =?ISO-8859-1?Q?S=E9bastien_Cottalorda?= <spp_icarsNOSPAM@yahoo.fr>
Subject: Re: format and newline
Message-Id: <44dc9b89$0$3611$626a54ce@news.free.fr>
cmic a écrit :
> Hello.
> I have the following snippet :
>
> #!/usr/local/bin/perl
> use strict;
> use warnings;
> my @array=(2, 3, 5, 1, 5);;
> my ($a, $b, $c);
> format STDOUT =
> @>>>>>>>>|@<<<|@<<<<<
> $b, $a, $c
> .
> foreach (@array) {
> $a=$_; $b=$a+100;$c=$a*2;
> write ;
> print "VAlue " . $a . "\n";
> }
>
> ... which prints :
> 102|2 |4
> VAlue 2
> 103|3 |6
> VAlue 3
>
> but and I want my script to print this instead :
> 102|2 |4 VAlue 2
> 103|3 |6 VAlue 3
>
> How to do this ? Or must I use sprintf instead ?
> TYA
> --
> cmic
>
Hi,
You can use sprintf on $c value (be careful on the length) or create
another column like this
#!/usr/local/bin/perl
use strict;
use warnings;
my @array=(2, 3, 5, 1, 5);;
my ($a, $b, $c);
format STDOUT =
@>>>>>>>>|@<<<|@<<<<< @<<<<<<<<<
$b, $a, $c, "VAlue $a"
.
foreach (@array) {
$a=$_; $b=$a+100;$c=$a*2;
write ;
}
Hope this helps.
Sebastien
------------------------------
Date: Fri, 11 Aug 2006 09:04:21 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: geometry problem
Message-Id: <110820060904211158%jgibson@mail.arc.nasa.gov>
In article <1155254872.942640.306660@75g2000cwc.googlegroups.com>,
IcyMint <carlston88@gmail.com> wrote:
> Hi, thank you all for your feedbacks. I'm really glad to be pointed to
> all the informations I needed. I think that the Geo::SpaceManager is
> quite good, I'll be using it unless something better comes along.
Since I posted that module to CPAN only last month, you may be the
first user. Let me know if you have any problems with it or can suggest
any improvements.
Thanks.
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: 11 Aug 2006 07:32:09 -0700
From: "it_says_BALLS_on_your forehead" <simon.chao@fmr.com>
Subject: Re: How to send command line options into test scripts?
Message-Id: <1155306729.889553.218640@h48g2000cwc.googlegroups.com>
yusuf wrote:
> Hi,
>
> Does anyone know how to send command line options into test scripts
> from prove?
>
> For instance, I want to call the test file "t" with the options:
>
> --log somefile --output=true
go to CPAN. search for GetOpt::Long:
http://search.cpan.org/~jv/Getopt-Long-2.35/lib/Getopt/Long.pm
This should help you do what you require.
------------------------------
Date: 11 Aug 2006 09:03:41 -0700
From: "yusuf" <yusufm@gmail.com>
Subject: Re: How to send command line options into test scripts?
Message-Id: <1155312221.058961.63610@i42g2000cwa.googlegroups.com>
> go to CPAN. search for GetOpt::Long:
> http://search.cpan.org/~jv/Getopt-Long-2.35/lib/Getopt/Long.pm
>
> This should help you do what you require.
This does not work with Test::Harness. It considers the options that
you pass into the test file as invalid. See my previous posting with
the code.
------------------------------
Date: Fri, 11 Aug 2006 10:48:52 -0400
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: Is there arithmetic sequence represents?
Message-Id: <g693bc3uy3v.fsf@CN1374059D0130.kendall.corp.akamai.com>
On 10 Aug 2006, anno4000@radom.zrz.tu-berlin.de wrote:
> Ted Zlatanov <tzz@lifelogs.com> wrote in comp.lang.perl.misc:
>> my $start = shift @_;
>
> "shift @_" is the same as just "shift", which is much more common in
> this function.
I know this. I prefer to be explicit. I also say "shift @ARGV" in
the main body, so it's clear what I'm shifting.
>> my $increment = shift @_;
>> my $end = shift @_;
>
> If you have many arguments to pass (three is many), most people
> would write that:
>
> my ( $start, $increment, $end) = @_;
Great. My style is to do one per line, so I can comment each one
separately. I am aware of the (very minor) penalty, I think clear
comments are worth the sacrifice.
>> my @ret;
>>
>> while ($start <= $end)
>> {
>> push @ret, $start;
>> $start += $increment;
>> }
>>
>> return @ret;
>> }
>>
>> print "$_\n" foreach matlab_list(2, 2, 12);
>
> There's nothing wrong with your function, but it's awfully roundabout.
> Apart from the argument-passing, you failed to follow Tony Curtis'
> advice (still preserved near the beginning) to use map for list
> generation. Your loop can be replaced with a little arithmetic
> and a map:
>
> sub matlab_list {
> my ( $start, $inc, $end) = @_;
> map $start + $inc*$_, 0 .. ($end - $start)/$inc;
> }
I think my function is more suitable for a beginner example. The
function you show is absolutely terrible for that purpose IMHO. In
terms of efficiency I agree with you, but I wasn't aiming for that.
Perhaps I should have written a disclaimer.
Ted
------------------------------
Date: Fri, 11 Aug 2006 15:59:41 GMT
From: Ala Qumsieh <notvalid@email.com>
Subject: Re: Parsing text to array
Message-Id: <NP1Dg.5844$9T3.1748@newssvr25.news.prodigy.net>
usenet@DavidFilmer.com wrote:
> Philipp wrote:
>>Or should I use split and iterate through
>
>
> That would be the worst approach.
The worst in what sense? And compared to what?
It seems to me to be much easier to comprehend by someone else reading
the code, as compared with Anno's map() solution.
--Ala
------------------------------
Date: 11 Aug 2006 12:13:07 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: perl appserver shootout: jifty maypole catalyst BOP gantry poe? who wins?
Message-Id: <1llod2lktf25ljf19ihdgfin896gramo9i@4ax.com>
On 11 Aug 2006 01:27:33 -0700, "gavino" <bootiack@yahoo.com> wrote:
>Subject: perl appserver shootout: jifty maypole catalyst BOP gantry poe? who wins?
The best. And the winner takes it all. Or not?
How can one compare stuff that is not uniform in purposes and
application. POE, for example is afaict a general purpose event loop
managing tool, and a networking framework. How does it compare with
web development frameworks like the first three?
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: Fri, 11 Aug 2006 10:49:32 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Reading integer values from a file
Message-Id: <0hZCg.1686$Nz6.1100@edtnps82>
praveen.kantharajapura@gmail.com wrote:
>
> I have a text file the format is shown below:
>
> [ snip ]
>
> Now i should read the slack values in to two arrays on the following
> conditions.
>
> @worst_setup=(-134,-150,-170) if it is worst SETUP
>
> @best_setup=(150,200,220) if it is best SETUP
You probably want to use a Hash of Arrays:
$ echo "*** Lib cond : worst *** Ref phase : RISE *** SETUP ***
start point start edge end edge slack
------------- --------- ---------- -------
xi_mb0_dq[20] RISE RISE -134
*** Lib cond : best*** Ref phase : RISE *** SETUP***
start point start edge end edge slack
------------- --------- ---------- -------
xi_mb0_dq[20] RISE RISE 150
*** Lib cond : worst *** Ref phase : RISE *** SETUP ***
start point start edge end edge slack
------------- --------- ---------- -------
xi_mb0_dq[20] RISE RISE -150
*** Lib cond : best*** Ref phase : RISE *** SETUP ***
start point start edge end edge slack
------------- --------- ---------- -------
xi_mb0_dq[20] RISE RISE 200
*** Lib cond : worst *** Ref phase : RISE *** SETUP ***
start point start edge end edge slack
------------- --------- ---------- -------
xi_mb0_dq[20] RISE RISE -170
*** Lib cond : best*** Ref phase : RISE *** SETUP ***
start point start edge end edge slack
------------- --------- ---------- -------
xi_mb0_dq[20] RISE RISE 220
" | perl -ln00e'
/Lib cond : +(\w+).*?(-?\d+)$/s and push @{$hash{$1}}, $2
}{
print "$_: @{$hash{$_}}" for keys %hash
'
worst: -134 -150 -170
best: 150 200 220
John
--
use Perl;
program
fulfillment
------------------------------
Date: 11 Aug 2006 09:53:17 -0700
From: usenet@DavidFilmer.com
Subject: Re: Reading integer values from a file
Message-Id: <1155315196.941397.273350@m79g2000cwm.googlegroups.com>
Michele Dondi wrote:
> On 11 Aug 2006 01:06:27 -0700, usenet@DavidFilmer.com wrote:
> >This question has been multiposted to Perl.Beginners
> >Please ignore and burn this thread.
>
> Oh my! I agree with you on the inconvenience of multiposting, but
> isn't your proposed solution a little bit too drastic?
Multiposting is not inconvenient - it's rude. I don't believe rudeness
should be tolerated in any forum, and I believe any multiposted thread
should be burned (once exposed) because offering assistance only
condones and encourages rudeness. It would have been "drastic" if I
had flamed or encouraged that the OP be killfiled, but I did neither.
> How 'bout a warning to the op, to the effect of *at least* crosspost, if real need
Crossposting is rarely (if ever) "needed" in similar groups (such as
between Perl groups), and doing so is almost always (or always)
considered impolite. It might be appropriate between dissimilar groups
(such as a problem with a networking-related Perl program - maybe
crosspost to a Perl and a networking newsgroup because you're not sure
where the problem lies). But I don't want to encourage or even mention
crossposting to neophytes because they will do it (between Perl
groups), and then the groups will begin to resemble mirrors of each
other.
--
David Filmer (http://DavidFilmer.com)
------------------------------
Date: Fri, 11 Aug 2006 11:12:09 -0400
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: regex and utf8 characters (german umlauts)
Message-Id: <g69y7tvtigm.fsf@CN1374059D0130.kendall.corp.akamai.com>
On 10 Aug 2006, benmorrow@tiscali.co.uk wrote:
> Posting 8bit data on Usenet is not a good idea. There is no way of
> indicating its encoding. In what appears below, I have replaced the
> literal byte "\xc4" with "<c4>", and re-wrapped the result.
>
> Quoth Ted Zlatanov <tzz@lifelogs.com>:
>> On 10 Aug 2006, ext-dirk.heinrichs@nokia.com wrote:
>>
>>> the following little perl snippet
>>>
>>> perl -e '($string = "AAA <c4><c4><c4> BBB CCC DDD") =~
>>> s/(\p{IsUpper}+)/\L\u\1\E/g; print $string . "\n"'
> ^^
> This is a sed-ism. In Perl backreferences (outside of the pattern
> itself) are spelt $1.
>
> Also, I would consider it much clearer to write this as
>
> s/(\p{IsUpper}+)/ucfirst lc $1/ge;
>
>>> gives this result:
>>>
>>> Aaa <c4><c4><c4> Bbb Ccc Ddd
>>>
>>> How do I turn those umlauts into "<c4><e4><e4>" also? I tried adding
>>> "use utf8;", but that didn't help.
>>
>> The utf8 pragma won't make a difference. <e4> is ASCII code 196.
>
> There is No Such Thing as 'ASCII code 196'. ASCII only goes up to 127.
>
> As the post arrived here, the section of code represented above by
> '<c4><c4><c4>' is 3 bytes long. This is not valid UTF8, so if these
> three bytes are actually in your file you have a problem.
The OP had a word made of three A-umlaut characters, to indicate that
the second and third were not lowercased automatically. The ord() of
those is 196, which is 0xC4 in hex. The OP wants the second and third
to become 0xE4 which is a-umlaut. Did I misunderstand something?
Where is it implied that utf8 encoding matters? I really think this
is a locale issue.
Ted
------------------------------
Date: 11 Aug 2006 10:14:47 -0700
From: "kaleem" <kaleem177@gmail.com>
Subject: The assignment of command output to an array hangs.
Message-Id: <1155316487.181613.214230@p79g2000cwp.googlegroups.com>
Hello,
I've got a function in a package which I use to call system commands.
Inside this function
I've got the following code:
@results = `$command`; # $command is the system command to run
My problem is that this function (and the piece of code above) works
fine but it fails for
a particular command. It just hangs. The command which I'm calling is
actually a KornShell
script. I've verified that this script itself does not hang. I tried to
use -d option to debug and I
observed that the script hangs at the line shown above. Strangely, when
I ran the same code
using 'perl -e' it works! What I did was that I assigned the command to
$command and then
just put the same code as shown above. It worked with 'perl -e'.
Please let me know how can I debug this problem further.
Your responses will be greatly appreciated.
Thanks.
Kaleem.
------------------------------
Date: Fri, 11 Aug 2006 14:07:14 +0000 (UTC)
From: kj <socyl@987jk.com.invalid>
Subject: Re: The DEBUG constant?
Message-Id: <ebi2ui$26h$1@reader2.panix.com>
In <4k1hb3Fa7queU1@news.dfncis.de> anno4000@radom.zrz.tu-berlin.de writes:
>Paul Lalli <mritty@gmail.com> wrote in comp.lang.perl.misc:
>> kj wrote:
>> > In perl documentation, I often run into references to a "DEBUG
>> > constant", or some such. E.g., in the documentation for Carp::Assert
>> > one sees code like this:
>> >
>> > assert(EXPR) if DEBUG;
>> >
>> > Is there in fact a special DEBUG constant in Perl, or does code
>> > like the example above simply imply that elsewhere in the current
>> > package one has a line like
>> >
>> > use constant DEBUG => 0;
>> >
>> > ?
>>
>> That is my take on it, yes.
>>
>> > The above definition of DEBUG through the constant pragma is
>> > straighforward enough but, as far as I can tell, it has the major
>> > disadvantage of requiring the editing of the code to toggle its
>> > value (as opposed to being easily settable from the command-line,
>> > or perhaps from a config file), since all too often programmers
>> > like me will forget to re-edit the code to ensure that DEBUG is
>> > false in production code. Is this assessment correct?
>>
>> Yes.
>To the OP: You can add unconditional debugging output to remind yourself
>to switch off debugging, for instance (untested)
> END { warn "Debugging active" if DEBUG }
>There may be a form of assertion that can be used instead of warn().
>Perl will go out of its way to execute an END block, so you'll
>always see the final warning while debugging is on. An uncaught
>exception is the only way to bypass END. There is little danger
>of accidentally releasing software in that state.
>> I tend to use Getopt::Long when I want to enable or disable debug
>> statements....
>>
>> use Getopt::Long;
>> GetOptions('debug' => \my $DEBUG);
>>
>> assert($foo eq $bar) if $DEBUG;
>>
>> __END__
>>
>> And then on the command line...
>>
>> ./assertions.pl --debug
>> or even just
>> ./assertions.pl -d
>One point about the the approach using constants is that a statement
>qualified by "if DEBUG" will not even be compiled when debugging
>is off. Thus code with "DEBUG => 0" will be the same as if no
>assertions were present at all.
This is a generic enough functionality that I wish Perl had a
builtin mechanism for it, e.g. a standard global variable (requiring
no package qualification) that the compiler would understand as an
explicit cue from the programmer to optimize code away. This is
one area in which the conflict between "strict" and unqualified
names becomes annoying...
Maybe one can use the code
{ package DE; use constant BUG => 1 }
assert( tongue_in_cheek() ) if DE::BUG;
...
kj
--
NOTE: In my address everything before the first period is backwards;
and the last period, and everything after it, should be discarded.
------------------------------
Date: Fri, 11 Aug 2006 13:57:07 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: win32::printer and text formatting
Message-Id: <ebi2ct.1b0.1@news.isolution.nl>
Ben Morrow schreef:
> diavolo:
>> I use Win32::printer for my prints. I print just simple text, i.e.
>> $rowHeight = $dc->Write($price, $x, $y);
>> $y += $rowHeight;
>> I'd like to print the currency right formatted:
>> 204,00
>> 12,10
>>
>> I didn't undersand very much the win32::printer manual on CPAN.
diavolo, I guess you mean Win32::Printer. Case matters.
Its manual is indeed not so clear and has large parts that would be
better presented in compact tables.
> You need to use either sprintf or POSIX::localeconv or I18N::Langinfo;
> or possibly there is a CPAN module to make this easier (the POSIX
> locale interface is rather smelly).
That way would fail for a header in a proportional font.
The Write method has a "format" parameter:
($width, $height) = $dc->Write($price, $x, $y, RIGHT);
diavolo, see the documentation about the reference point.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
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 9592
***************************************
