[23217] in Perl-Users-Digest
Perl-Users Digest, Issue: 5438 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Sep 4 09:10:39 2003
Date: Thu, 4 Sep 2003 06:10:14 -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 Thu, 4 Sep 2003 Volume: 10 Number: 5438
Today's topics:
Rounding up anything past the decimal point sprintf <Blnukem@hotmail.com>
Re: Rounding up anything past the decimal point sprint <noreply@gunnar.cc>
Re: Rounding up anything past the decimal point sprint (Anno Siegel)
Re: Rounding up anything past the decimal point sprint <minceme@start.no>
Re: Rounding up anything past the decimal point sprint <kuujinbo@hotmail.com>
Re: Rounding up anything past the decimal point sprint <noreply@gunnar.cc>
Re: Rounding up anything past the decimal point sprint <kuujinbo@hotmail.com>
Re: Rounding up anything past the decimal point sprint <noreply@gunnar.cc>
Re: Silly push tricks <tassilo.parseval@rwth-aachen.de>
Re: Silly push tricks <abigail@abigail.nl>
Re: Silly push tricks (Anno Siegel)
Re: Silly push tricks <tassilo.parseval@rwth-aachen.de>
Re: Silly push tricks (Anno Siegel)
Re: Silly push tricks <abigail@abigail.nl>
Telnet proxy <shuttermutt@nospam.com>
Re: Testing whether a subroutine exists (symbolic ref) (Anno Siegel)
Re: Text File Processing (Anno Siegel)
Re: View NG with Net::NNTP (Tom)
Re: What ever happened to comp.lang.perl ? (Anno Siegel)
Re: What ever happened to comp.lang.perl ? (Helgi Briem)
Re: What ever happened to comp.lang.perl ? <nobull@mail.com>
Re: Why qr// needs /o modifier, or bug in a documentati (Sam Holden)
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 04 Sep 2003 10:10:11 GMT
From: "Blnukem" <Blnukem@hotmail.com>
Subject: Rounding up anything past the decimal point sprintf
Message-Id: <7cE5b.12146$Ay2.1116680@news4.srv.hcvlny.cv.net>
Hi all
How can I round a number up if there is any value other than 00 after the
decimal point here is what I have:
my $count = "5";
my $item = "11";
my $result = ($item / $count);
my $answer = sprintf ('%.2f', $result);
print $answer;
This returns a value of 2.20 I would like it to return a value of 3.00
Thanx in advance
Blnukem
------------------------------
Date: Thu, 04 Sep 2003 12:41:17 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Rounding up anything past the decimal point sprintf
Message-Id: <bj74t1$g5bf5$1@ID-184292.news.uni-berlin.de>
Blnukem wrote:
> How can I round a number up if there is any value other than 00
> after the decimal point here is what I have:
>
> my $count = "5";
> my $item = "11";
> my $result = ($item / $count);
> my $answer = sprintf ('%.2f', $result);
>
> This returns a value of 2.20 I would like it to return a value of
> 3.00
my $answer = $result - int $result ? int $result + 1 : $result;
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 4 Sep 2003 10:53:06 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Rounding up anything past the decimal point sprintf
Message-Id: <bj75ii$gqb$2@mamenchi.zrz.TU-Berlin.DE>
Gunnar Hjalmarsson <noreply@gunnar.cc> wrote in comp.lang.perl.misc:
> Blnukem wrote:
> > How can I round a number up if there is any value other than 00
> > after the decimal point here is what I have:
> >
> > my $count = "5";
> > my $item = "11";
> > my $result = ($item / $count);
> > my $answer = sprintf ('%.2f', $result);
> >
> > This returns a value of 2.20 I would like it to return a value of
> > 3.00
>
> my $answer = $result - int $result ? int $result + 1 : $result;
use POSIX;
my $answer = ceil( $result);
Anno
------------------------------
Date: Thu, 4 Sep 2003 11:01:04 +0000 (UTC)
From: Vlad Tepes <minceme@start.no>
Subject: Re: Rounding up anything past the decimal point sprintf
Message-Id: <bj761g$hnl$1@troll.powertech.no>
Blnukem <Blnukem@hotmail.com> wrote:
> How can I round a number up if there is any value other than 00 after the
> decimal point here is what I have:
>
> my $count = "5";
> my $item = "11";
Don't quote numbers.
> my $result = ($item / $count);
if ( $item % $count ) { $result = 1 + int $result; }
> my $answer = sprintf ('%.2f', $result);
> print $answer;
>
> This returns a value of 2.20 I would like it to return a value of 3.00
>
Hope this helps,
--
Vlad
------------------------------
Date: Thu, 04 Sep 2003 20:05:40 +0900
From: ko <kuujinbo@hotmail.com>
Subject: Re: Rounding up anything past the decimal point sprintf
Message-Id: <bj76ho$jkm$1@pin3.tky.plala.or.jp>
Blnukem wrote:
> Hi all
>
> How can I round a number up if there is any value other than 00 after the
> decimal point here is what I have:
>
> my $count = "5";
> my $item = "11";
>
> my $result = ($item / $count);
>
> my $answer = sprintf ('%.2f', $result);
>
> print $answer;
>
>
>
> This returns a value of 2.20 I would like it to return a value of 3.00
>
> Thanx in advance
> Blnukem
>
>
perldoc -f int
int EXPR
int
Returns the integer portion of EXPR. If EXPR is omitted, uses "$_". You
should not use this function for rounding: one because it truncates
towards "0", and two because machine representations of floating point
numbers can sometimes produce counterintuitive results. For example,
"int(-6.725/0.025)" produces -268 rather than the correct -269; that's
because it's really more like -268.99999999999994315658 instead.
Usually, the "sprintf", "printf", or the "POSIX::floor" and
"POSIX::ceil" functions will serve you better than will int().
And the POSIX docs state that ceil() returns: "the smallest integer
value greater than or equal to the given numerical argument."
====CODE
#!/usr/bin/perl -w
use strict;
use POSIX qw(ceil);
my $a = 1.234;
$a = sprintf("%.2f", ceil($a) );
print '$a', " => $a\n";
====RESULTS
$a => 2.00
HTH - keith
------------------------------
Date: Thu, 04 Sep 2003 13:34:19 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Rounding up anything past the decimal point sprintf
Message-Id: <bj780l$fsb3k$1@ID-184292.news.uni-berlin.de>
ko wrote:
>
> int EXPR
> int
>
> Returns the integer portion of EXPR. If EXPR is omitted, uses "$_".
> You should not use this function for rounding: one because it
> truncates towards "0", and two because machine representations of
> floating point numbers can sometimes produce counterintuitive
> results. For example, "int(-6.725/0.025)" produces -268 rather than
> the correct -269; that's because it's really more like
> -268.99999999999994315658 instead.
But none of those reasons for not using the int() function is
applicable to this case, right?
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Thu, 04 Sep 2003 21:45:29 +0900
From: ko <kuujinbo@hotmail.com>
Subject: Re: Rounding up anything past the decimal point sprintf
Message-Id: <bj7c3r$q1h$1@pin3.tky.plala.or.jp>
Gunnar Hjalmarsson wrote:
> But none of those reasons for not using the int() function is
> applicable to this case, right?
>
I don't remember anywhere in my post where I said that it is wrong to
use int()...do you see something I cannot see? Besides, *everyone* knows
that 'There's More Than One Way To Do It' :)
The quote was merely for the OP's benefit. That's why the reply
referenced the *first* post, not either of the follow-ups that used
examples of int(). Strictly looking at the original snip of code (and
without trying to speak for the OP), it stands to reason that the OP may
not have been sure/aware of how to use int() or POSIX. The quote is a
good example of when to use each of the functions, and the POSIX module
may come in handy in the OP's future.
------------------------------
Date: Thu, 04 Sep 2003 15:03:59 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Rounding up anything past the decimal point sprintf
Message-Id: <bj7d92$ga108$1@ID-184292.news.uni-berlin.de>
ko wrote:
> Gunnar Hjalmarsson wrote:
>> But none of those reasons for not using the int() function is
>> applicable to this case, right?
>
> I don't remember anywhere in my post where I said that it is wrong
> to use int()...do you see something I cannot see?
Well, let's say that the context in which you posted the quote left
some room for misunderstandings... I'm glad we are agreed. :)
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 4 Sep 2003 07:07:26 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: Silly push tricks
Message-Id: <bj6obe$81h$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Abigail:
> Bill Smith (wksmith@optonline.net) wrote on MMMDCLIV September MCMXCIII
> in <URL:news:eH25b.118653$yg.34091232@news4.srv.hcvlny.cv.net>:
>:}
>:} "Shawn Corey" <shawn@magma.ca> wrote in message
>:} news:3l6dnaqT0_d6OsmiU-KYvg@magma.ca...
>:} --snip--
>:} > map{&test($_)?push@sheep,$_:push@goats,$_}@bleats;
>:} >
>:} I think that it is poor style to use 'map' when the return value is not
>:} used.
>
> Poor style? Why? Return values of print and assignment are usually not
> used either, but noone considers that poor style.
>
> The fact that map builds and discards a list when it's used in void
> context is a bug in *perl*. It's not poor style of the Perl programmer;
> the fault lies with the perl programmers.
>
> But noone has found it seriously enough to provide a patch. For years,
> a whole chorus on people in this newsgroup chant "poor style" whenever
> someone uses map in void context. But none of those sheep has ever
> bothered sending a patch to p5p.
You are right, especially when considering that this change to the core
should be trivial. And so I just modified pp_ctl.c:pp_mapwhile()
accordingly to see what happens. All tests pass but I yet have to test
whether there's really no return-list built (testing whether something
is returned in void context is tricky;-).
And then I need to do some timing comparisons. If the results are
satisfying, you'll see the patch on the porters-list soon.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: 04 Sep 2003 08:05:06 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Silly push tricks
Message-Id: <slrnbldshi.631.abigail@alexandra.abigail.nl>
Tassilo v. Parseval (tassilo.parseval@rwth-aachen.de) wrote on MMMDCLVI
September MCMXCIII in <URL:news:bj6obe$81h$1@nets3.rz.RWTH-Aachen.DE>:
??
?? You are right, especially when considering that this change to the core
?? should be trivial. And so I just modified pp_ctl.c:pp_mapwhile()
?? accordingly to see what happens. All tests pass but I yet have to test
?? whether there's really no return-list built (testing whether something
?? is returned in void context is tricky;-).
??
?? And then I need to do some timing comparisons. If the results are
?? satisfying, you'll see the patch on the porters-list soon.
That would be great!
Abigail
--
# Count the number of lines; code doesn't match \w. Linux specific.
()=<>;$!=$=;($:,$,,$;,$")=$!=~/.(.)..(.)(.)..(.)/;
$;++;$*++;$;++;$*++;$;++;`$:$,$;$" $. >&$*`;
------------------------------
Date: 4 Sep 2003 09:18:57 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Silly push tricks
Message-Id: <bj7021$bm3$3@mamenchi.zrz.TU-Berlin.DE>
Sam Holden <sholden@cs.usyd.edu.au> wrote in comp.lang.perl.misc:
> On Wed, 03 Sep 2003 21:15:04 GMT,
> Charlton Wilbur <cwilbur@mithril.chromatico.net> wrote:
> >>>>>> "A" == Abigail <abigail@abigail.nl> writes:
> >
> > [using map in void context]
> >
> > A> Poor style? Why?
> >
> > Because
> >
> > map { fn($_) } @list;
> >
> > and
> > fn ($_) foreach @list;
> >
> > (where fn is a function with side-effects) do the same thing, but the
> > latter is better style.
>
> Well, they aren't exactly same. The first calls fn() in a list context,
> while the second calls it in a scalar context...
For sensible fn() this won't matter, since the return value is discarded.
It is of course possible for a function to have different side effects
depending on context, but, well...
To my mind, the main difference between map in void context and foreach
is that map is slightly more flexible because it takes an expression
or a block. With foreach, you need an expression, so you need "do {}"
to accommodate a block.
Anno
------------------------------
Date: 4 Sep 2003 09:19:23 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: Silly push tricks
Message-Id: <bj702r$fi0$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Abigail:
> Tassilo v. Parseval (tassilo.parseval@rwth-aachen.de) wrote on MMMDCLVI
> September MCMXCIII in <URL:news:bj6obe$81h$1@nets3.rz.RWTH-Aachen.DE>:
> ??
> ?? You are right, especially when considering that this change to the core
> ?? should be trivial. And so I just modified pp_ctl.c:pp_mapwhile()
> ?? accordingly to see what happens. All tests pass but I yet have to test
> ?? whether there's really no return-list built (testing whether something
> ?? is returned in void context is tricky;-).
> ??
> ?? And then I need to do some timing comparisons. If the results are
> ?? satisfying, you'll see the patch on the porters-list soon.
>
>
> That would be great!
Done. Now it's up to the porters to either find holes in the patch
(uggh) or apply it (:-).
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: 4 Sep 2003 09:26:04 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Silly push tricks
Message-Id: <bj70fc$bm3$4@mamenchi.zrz.TU-Berlin.DE>
Tassilo v. Parseval <tassilo.parseval@post.rwth-aachen.de> wrote in comp.lang.perl.misc:
> Also sprach Abigail:
>
> > Tassilo v. Parseval (tassilo.parseval@rwth-aachen.de) wrote on MMMDCLVI
> > September MCMXCIII in <URL:news:bj6obe$81h$1@nets3.rz.RWTH-Aachen.DE>:
> > ??
> > ?? You are right, especially when considering that this change to the core
> > ?? should be trivial. And so I just modified pp_ctl.c:pp_mapwhile()
> > ?? accordingly to see what happens. All tests pass but I yet have to test
> > ?? whether there's really no return-list built (testing whether something
> > ?? is returned in void context is tricky;-).
> > ??
> > ?? And then I need to do some timing comparisons. If the results are
> > ?? satisfying, you'll see the patch on the porters-list soon.
> >
> >
> > That would be great!
>
> Done. Now it's up to the porters to either find holes in the patch
> (uggh) or apply it (:-).
APPLAUSE
Anno
------------------------------
Date: 04 Sep 2003 09:46:00 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Silly push tricks
Message-Id: <slrnble2en.631.abigail@alexandra.abigail.nl>
Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMMDCLVI
September MCMXCIII in <URL:news:bj7021$bm3$3@mamenchi.zrz.TU-Berlin.DE>:
-- Sam Holden <sholden@cs.usyd.edu.au> wrote in comp.lang.perl.misc:
-- > On Wed, 03 Sep 2003 21:15:04 GMT,
-- > Charlton Wilbur <cwilbur@mithril.chromatico.net> wrote:
-- > >>>>>> "A" == Abigail <abigail@abigail.nl> writes:
-- > >
-- > > [using map in void context]
-- > >
-- > > A> Poor style? Why?
-- > >
-- > > Because
-- > >
-- > > map { fn($_) } @list;
-- > >
-- > > and
-- > > fn ($_) foreach @list;
-- > >
-- > > (where fn is a function with side-effects) do the same thing, but the
-- > > latter is better style.
-- >
-- > Well, they aren't exactly same. The first calls fn() in a list context,
-- > while the second calls it in a scalar context...
--
-- For sensible fn() this won't matter, since the return value is discarded.
-- It is of course possible for a function to have different side effects
-- depending on context, but, well...
Well, if fn() doesn't have side-effects, there's no point in calling
fn ($_) foreach @list;
And in the case of
map { fn($_) } @list;
fn() cannot determine it's return value is discarded.
Having said that, I cannot remember the last time I saw a user defined
function without side-effects that checked to see if it was called in
void context, in order to not return something.
-- To my mind, the main difference between map in void context and foreach
-- is that map is slightly more flexible because it takes an expression
-- or a block. With foreach, you need an expression, so you need "do {}"
-- to accommodate a block.
Or write it as:
foreach (@list) {fn ($_)}
Abigail
--
$_ = "\x3C\x3C\x45\x4F\x54";
print if s/<<EOT/<<EOT/e;
Just another Perl Hacker
EOT
------------------------------
Date: Thu, 04 Sep 2003 12:03:58 GMT
From: "Shuttermutt" <shuttermutt@nospam.com>
Subject: Telnet proxy
Message-Id: <OSF5b.1198$3t2.360@twister.nyroc.rr.com>
Good day all! I'm looking to write a prog that sits in between a
telnet client and server. In other words, the telnet client of the
user's choice would connect to my prog which would, in turn, connect
to the telnet server. My prog would move data back and forth between
the client and the server without manipulating it.
I've started playing with Net::Telnet and IO::Socket, but before I go
too far, I'd like to know if anyone's run across this and/or if
somebody might have suggestions as to how I might proceed.
'Mutt
------------------------------
Date: 4 Sep 2003 12:25:11 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Testing whether a subroutine exists (symbolic ref)
Message-Id: <bj7av7$kha$2@mamenchi.zrz.TU-Berlin.DE>
Tina Mueller <usenet@expires082003.tinita.de> wrote in comp.lang.perl.misc:
> Eric J. Roode <REMOVEsdnCAPS@comcast.net> wrote:
> > Tina Mueller <usenet@expires082003.tinita.de> wrote in news:bhqlv6$25j9g$1
> > @ID-24002.news.uni-berlin.de:
> > > print "$sub exists" if main->can( $sub );
>
> > Oh, that is *bizarre*!
>
> additionally, it should be main::->can( $sub ).
> it generates a warning otherwise, i wonder why
> i didn't see this. oh, wait, 5.6.1 generates a
> warning, 5.8.0 does not. oh well =)
Also, it answers a slightly different question. If inheritance comes into
play, can() may return true even if main::sub isn't defined.
Anno
------------------------------
Date: 4 Sep 2003 08:46:22 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Text File Processing
Message-Id: <bj6u4u$bm3$2@mamenchi.zrz.TU-Berlin.DE>
Greg Carlill <gregcarlill@energex.com.au> wrote in comp.lang.perl.misc:
> Hi All,
>
> I have a text file that contains column data like:
>
> 730 B13
> 730 B33
> 730 B53
> 730 B73
> 800 B10-1
> 800 B30-1
> 800 B50-1
> 800 B70-1
>
> and want to get a output text file like this.
>
> 730 B13, B33, B53, B73
> 800 B10-1, B30-1, B50-1, B70-1
>
> Perl 5.005_02 on NT is all I have to do this. What is the best way to
> attack this. I have almost no knowledge of Perl but am willing to
> learn what I need.
Assuming DATA is a read filehandle to your data:
my %table;
push( @{ $table{ $_->[ 0]}}, $_->[ 1]) for map [ split], <DATA>;
To see the result:
print "$_ @{ $table{ $_}}\n" for keys %table;
Anno
------------------------------
Date: 4 Sep 2003 03:50:01 -0700
From: tom@ztml.com (Tom)
Subject: Re: View NG with Net::NNTP
Message-Id: <59b4279a.0309040250.75d7aafa@posting.google.com>
James Willmore <jwillmore@cyberia.com> wrote in message news:<20030904000048.5f4ee84e.jwillmore@cyberia.com>...
>
> I'm at a loss. I tested against leafnode as the NNTP server and it
> worked. According to the documentation, using the 'last' method sets
> the marker to the last message.
>
Perhaps you might have misinterpreted the documentation. The LAST
method does not set the marker to the last message; rather it moves
the pointer to the PREVIOUS entry.
Tom
ztml.com
------------------------------
Date: 4 Sep 2003 07:45:47 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: What ever happened to comp.lang.perl ?
Message-Id: <bj6qjb$984$2@mamenchi.zrz.TU-Berlin.DE>
Trent Curry <tcurrey@no.no.no.i.said.no> wrote in comp.lang.perl.misc:
> "Tad McClellan" <tadmc@augustmail.com> wrote in message
[...]
> > The secondary indication was your proclivity for transposing
> > letters and other signs of carelessness in composition.
> >
> > Those 2 heuristics where enough for me, even without the jsut.
>
> Rubbish. Complete rubbish. You are try again to miss label me with non
^^^^^
Again, right? Oh boy, this is hard to pull off, isn't it?
Anno
------------------------------
Date: Thu, 04 Sep 2003 09:56:43 GMT
From: f_baggins80@hotmail.com (Helgi Briem)
Subject: Re: What ever happened to comp.lang.perl ?
Message-Id: <3f570c23.251167860@News.CIS.DFN.DE>
On 4 Sep 2003 07:45:47 GMT, anno4000@lublin.zrz.tu-berlin.de (Anno
Siegel) wrote:
>> Rubbish. Complete rubbish. You are try again to miss label me with non
> ^^^^^
>
>Again, right? Oh boy, this is hard to pull off, isn't it?
Ha ha ha ha.
A known felon convicts himself under interrogation.
------------------------------
Date: 04 Sep 2003 12:33:13 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: What ever happened to comp.lang.perl ?
Message-Id: <u9oey0aiva.fsf@wcl-l.bham.ac.uk>
tadmc@augustmail.com (Tad McClellan) writes:
> Trent Curry <tcurrey@no.no.no.i.said.no> wrote:
> >
> > So let me get this stright, you are assosiating me with another person or
> ^^^^^^^ ^
> > persons becuase of a typographical error?
> ^^
>
> Yes I am, but it was only a tertiary indication.
>
> I was reasonably sure it was you before I inserted the typo in my post.
If Tad were to conclude that all persons who make these typographical
errors were one and the same then he would conclude that I was Trent.
I'm glad to say I'm not.
------------------------------
Date: 4 Sep 2003 09:56:30 GMT
From: sholden@flexal.cs.usyd.edu.au (Sam Holden)
Subject: Re: Why qr// needs /o modifier, or bug in a documentation.
Message-Id: <slrnble32e.2mc.sholden@flexal.cs.usyd.edu.au>
On Wed, 3 Sep 2003 22:22:47 -0400, Jeff 'japhy' Pinyan <pinyaj@rpi.edu> wrote:
> [posted & mailed]
>
> On 3 Sep 2003, Sam Holden wrote:
>
>> $needle = 'foo';
>> $re = qr/$needle/;
>> $reo = qr/$needle/o;
>
> This is a bad example. These lines are only RUN once.
I thought the post I was replying to was refering to that case...
Of course, I'm often wrong.
--
Sam Holden
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
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.
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 5438
***************************************
