[11216] in Perl-Users-Digest
Perl-Users Digest, Issue: 4816 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Feb 3 16:07:15 1999
Date: Wed, 3 Feb 99 13:00:19 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 3 Feb 1999 Volume: 8 Number: 4816
Today's topics:
Re: alternative perl NG for newbies? (Abigail)
Re: alternative perl NG for newbies? <bmb@ginger.libs.uga.edu>
Re: are regular expression rationaly designed ? (Ilya Zakharevich)
Array of Dates Prior to Today johnsteele@my-dejanews.com
Re: awk in perl <uri@ibnets.com>
Re: Can't find any reference to... (Greg Ward)
Re: converting %20 to spaces, etc rupert@no.spam.leeds.ac.uk
Re: DBI droby@copyright.com
Re: Help - Complex Sort and Error Control/Reporting. <jdf@pobox.com>
Re: Help - Complex Sort and Error Control/Reporting. <ludlow@us.ibm.com>
Re: Help - Complex Sort and Error Control/Reporting. <jdf@pobox.com>
How to activate perl? <rkloots@csf.nl>
HTML::Parser::parse_html <bageshpu@pa.dec.com>
Is matching a range of ASCII characters possible? <mikesk@vipcourier.com>
Re: Is matching a range of ASCII characters possible? <jhi@alpha.hut.fi>
Need REGEX (Mike Reilley)
Network Messaging prabhashshrestha@my-dejanews.com
Re: newbie having trouble with concatination (M.J.T. Guy)
Re: Numeric Value <aqumsieh@matrox.com>
Re: Numeric Value <ludlow@us.ibm.com>
Re: Numeric Value (Greg Ward)
Re: Perl Criticism [summary] <revjack@radix.net>
Re: Perl Criticism [summary] (Craig Berry)
Re; SSI Problem <znelson@imaginative.net>
Re: regex lib or Perl linked in? (Greg Ward)
Re: tie, hash problem (M.J.T. Guy)
Unlink Symlink <r2-d2@REMOVEbigfoot.com>
Re: Unlink Symlink (Greg Ward)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 3 Feb 1999 19:16:50 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: alternative perl NG for newbies?
Message-Id: <79a7b2$7gg$1@client2.news.psi.net>
Andrew Fry (andrewf@beausys.demon.co.uk) wrote on MCMLXXXII September
MCMXCIII in <URL:news:Tn9L8HAw$Bu2EwhF@beausys.demon.co.uk>:
!! In article <798js5$6b$1@client2.news.psi.net>, Abigail <abigail@fnx.com>
!! writes
!! >Andrew Fry (andrewf@beausys.demon.co.uk) wrote on MCMLXXXI September
!! >MCMXCIII in <URL:news:OxisJAACj3t2EwbQ@beausys.demon.co.uk>:
!! >$$
!! >$$ As I have already said, take this to its logical conclusion and
!! >$$ one could, with some justification, answer 'RTFM' to 99.9% of all
!! >$$ questions.
!! >
!! >That certainly isn't true. (See your point c).
!!
!! Yes it is ... to a point. I guess that the answer to the majority of
!! questions/queries lies in a document/FAQ/book/website somewhere ...
!! where do you draw the line ?
When it's very obvious where the answer is. A question that's a FAQ
shouldn't be asked here. That's in perlfaq. A question "what does function
foo" do shouldn't be asked here. "perldoc -f foo" will tell you.
!! >$$ (b) newbies have all the time in the world to read documentation
!! >
!! >Oh. Right. They are execused from reading the documentation, cause their
!! >time is so valueble. Wasting time of hundreds or thousands of people
!! >reading their question doesn't matter?
!!
!! 1. I was not suggesting that newbies should be excused reading
!! documentation, nor that their time is so valuable as to be so
!! excused. These are absurd suggestions, and it is wrong of you
!! to read these interpretations into what I said.
So, then what did you mean with your remark?
!! 2. "Wasting time of hundreds/thousands of people reading their
!! question".
!! Oh no ... here comes the hyperbole! How long does it take to read
!! one question and decide that it is to trivial to respond to, for
!! goodness sake ? (Probably a small fraction of the time you spend
!! on-line, I guess).
Multiply that time with every FAQ being asked, and multiply that with
all the people wasting time reading the question. That's a lot of time.
!! >$$ (c) the documentation will tell them precisely what they need to know
!! >$$ (Come know ... anyone who knows technical documentation knows that
!! >$$ that often isnt the case!)
!! >
!! >Then they should ask a questions to clearify the documentation. Like,
!! >"the documentation says "Foo bar", but what does that mean?".
!!
!! If I have a problem in a piece of code that I need to fix
!! quickly, then I am not going to start asking questions about
!! a particular document. But I take your point...
If you need a fix quickly, then 1) you usually don't ask a FAQ, but a
more specific question, 2) you better don't turn to usenet, as that
isn't particular fast. Certainly not compared to looking in the manual.
!! >$$ (d) reading the numerous Perl books isnt enough
!! >
!! >Then they should ask questions to clearify the books.
!!
!! The suggestion is that all newbies should...
!! a) be aware of, and read thoroughly, all on-line documentation
Yes, I think they should. There's a reason many people spend lots of
time writing those documentation.
!! b) be aware of, and read a number of recommended books
I don't asume they did. I don't expect them. But when they read the
books, and they don't understand them, they should ask questions to
clearify what the book said. Asking a FAQ or something else that's
in the documentation isn't such a question.
!! c) be aware of, and read, the code inside Perl modules
!! ... before even daring to post a question on this newsgroup.
!! I dont know about other people, but, while I realize the importance of
!! reading documentation, I dont always have time to do all this.
Here we go again. Your time is more important than the time of everyone
else reading this group? I don't think so.
!! >$$ It may irritate (some of) the experts who use this NG when newbies
!! >$$ post question which are so trivial and obvious and "uninteresting"
!! >$$ (...to quote one of the many condescending replies to myself a while
!! >$$ back) ... but I have to say that I am EQUALLY irritated by a response
!! >$$ which says nothing more that 'RTFM' (...especially when accompanied
!! >$$ by a hint of sarcasm).
!! >$$ I say: if you dont have anything more useful to say than this, then
!! >$$ DONT BOTHER SAYING ANYTHING!
!! >
!! >That doesn't help, does it? RTFM points someone to the manual, saying
!! >"what you ask is in the manual". Being silent doesn't help the person
!! >asking the question.
!!
!! No ... nor does RTFM in my opinion. Well, it may help those who are so
!! dumb that they dont realize that documentation exists or that the
!! documentation may provide an answer to their problem ... but I suspect
!! that most newbies arent so dumb.
If people know there is documentation, and people know their question
is answered in the documentation, and still go to this group and ask a
question that has been asked a billion times already, they ought to be
flamed, their keyboards should be taken away and they should be forced
to eat broccoli for the rest of their lives.
Abigail
--
perl -wle '(1 x $_) !~ /^(11+)\1+$/ && print while ++ $_'
------------------------------
Date: Wed, 3 Feb 1999 15:10:20 -0500
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: alternative perl NG for newbies?
Message-Id: <Pine.A41.4.02.9902031448340.56322-100000@ginger.libs.uga.edu>
On 3 Feb 1999, Abigail wrote:
> Andrew Fry (andrewf@beausys.demon.co.uk) wrote on MCMLXXXII September
> MCMXCIII in <URL:news:Tn9L8HAw$Bu2EwhF@beausys.demon.co.uk>:
> !! In article <798js5$6b$1@client2.news.psi.net>, Abigail <abigail@fnx.com>
> !! writes
> !! >Andrew Fry (andrewf@beausys.demon.co.uk) wrote on MCMLXXXI September
> !! >MCMXCIII in <URL:news:OxisJAACj3t2EwbQ@beausys.demon.co.uk>:
> !! >$$ I say: if you dont have anything more useful to say than this, then
> !! >$$ DONT BOTHER SAYING ANYTHING!
> !! >
> !! >That doesn't help, does it? RTFM points someone to the manual, saying
> !! >"what you ask is in the manual". Being silent doesn't help the person
> !! >asking the question.
> !!
> !! No ... nor does RTFM in my opinion. Well, it may help those who are so
> !! dumb that they dont realize that documentation exists or that the
> !! documentation may provide an answer to their problem ... but I suspect
> !! that most newbies arent so dumb.
>
> If people know there is documentation, and people know their question
> is answered in the documentation, and still go to this group and ask a
> question that has been asked a billion times already, they ought to be
> flamed, their keyboards should be taken away and they should be forced
> to eat broccoli for the rest of their lives.
Broccoli? Now that's going just a little too far. Personally, I think
that since the list isn't filtered and summarized, if Abigail is happy
answering RTFM, etc., it serves to make the lazier new users either 1) go
back and read stuff or 2) leave. The first helps them and the second
helps everybody else (if those users are not willing to go back and read).
I'm amazed that she keeps it up. I come into the list intermittently and
then just give up because of the sheer volume.
I guess I'm a wimp,
-Brad
------------------------------
Date: 3 Feb 1999 18:37:18 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: are regular expression rationaly designed ?
Message-Id: <79a50u$mv$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to
<droby@copyright.com>],
who wrote in article <799lqj$d5i$1@nnrp1.dejanews.com>:
> > > Yes, the theory of finite automata.
> >
> > Which has practically nothing to do with *Perl* regular expressions.
> >
>
> Perhaps we should call them something else? It would be nice if "regular
> expression" could continue to mean what it means.
Perhaps we should rename "expression" as well, so that it means "the
way your face looks up in a particular moment", as it should.
Ilya
------------------------------
Date: Wed, 03 Feb 1999 20:15:19 GMT
From: johnsteele@my-dejanews.com
Subject: Array of Dates Prior to Today
Message-Id: <79aaom$u41$1@nnrp1.dejanews.com>
Can anyone suggest a reasonably fast way to generate a list of N dates prior
to today? I'm using Date::Manip for some date handling and the author has on
his TODO list a "recurrence" function that looks like it would do this, but
it isn't implemented in the most recent (5.33) release on CPAN.
I need to generate a list of today and say the prior 30 days to be used for a
payment posting routine and I haven't come up with a fast way to do so as yet.
Using one of the Date:Manip routines in some sort of for-next loop might work,
but it would probably be like molassas.
John Steele
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 03 Feb 1999 14:58:41 -0500
From: Uri Guttman <uri@ibnets.com>
Subject: Re: awk in perl
Message-Id: <39vhhjdzta.fsf@ibnets.com>
>>>>> "JF" == Jonathan Feinberg <jdf@pobox.com> writes:
JF> Richard_G_Hall@yahoo.com (Richard G. Hall) writes:
>> grep ^INTERNAL_HOST_NO ${INFILE} | awk '{print $2}'
why waste a process with grep when awk can filter on lines too?
JF> #!/usr/bin/perl -wn
JF> /^INTERNAL_HOST_NO\s*=\s*(\d+)/ && push @hosts, $1;
JF> END { print map "$_\n", @hosts }
come on jonathan, you can do better than that. :-)
perl -ne 'print "$1\n" if /^INTERNAL_HOST_NO\s*=\s*(\d+)/'
or in a script use the global modifier:
@host_nums = $file_text =~ /^INTERNAL_HOST_NO\s*=\s*(\d+)/mg ;
uri
--
Uri Guttman Hacking Perl for Ironbridge Networks
uri@sysarch.com uri@ironbridgenetworks.com
------------------------------
Date: 3 Feb 1999 20:11:02 GMT
From: gward@cnri.reston.va.us (Greg Ward)
Subject: Re: Can't find any reference to...
Message-Id: <79aagm$6tl$4@news0-alterdial.uu.net>
Martien Verbruggen <mgjv@comdyn.com.au> wrote:
> In article <36B7B418.51B3655@inetarena.com>,
> "mwebster@inetarena.com" <mwebster@inetarena.com> writes:
>
> > I have the following challenge: copy the files from one directory on one
> > system to a network drive, checking modification dates and only copying
> > files which have been changed.
>
> For unix systems, that is called rdist. I am sure there's stuff
> available for other platforms, but if you insist on reinventing the
> wheel:
rdist has the sole advantage that it's widely available across Unices.
A much nicer solution is rsync, which
* is entirely command-line driven (no more mysterious .dist files)
* transfers diffs rather than whole files
* can compress
* can use alternate transport to rsh (eg. ssh for security)
* it's actively maintained and open source
See http://samba.anu.edu.au/rsync/ for more info.
ObPerl: to the original poster: I hope you're using File::Copy to copy
files rather than doing it yourself! Also, Martien is right to point
out File::Find, and righter still to point out rdist. I just prefer
rsync -- that wheel has already been invented and reinvented, and rsync
is a helluva nice wheel. Give it a spin.
Greg
--
Greg Ward - software developer gward@cnri.reston.va.us
Corporation for National Research Initiatives
1895 Preston White Drive voice: +1-703-620-8990 x287
Reston, Virginia, USA 20191-5434 fax: +1-703-620-0913
------------------------------
Date: Wed, 3 Feb 1999 18:43:19 +0000 (GMT)
From: rupert@no.spam.leeds.ac.uk
Subject: Re: converting %20 to spaces, etc
Message-Id: <36B909A0.105F@no.spam>
Larry Rosler wrote:
>
> [Posted and a courtesy copy mailed.]
>
> In article <78tmls$koe$1@nnrp1.dejanews.com> on Sat, 30 Jan 1999
> 01:19:00 GMT, cliffl@andrew.cmu.edu <cliffl@andrew.cmu.edu> says...
> > What I want to do is take something like:
> >
> > //friedrice/mp3/(Chopin) Nocturne in E Flat - Opus 9 No. 2.mp3
> >
> > And convert it to a HREF ...
> >
O.K. You want to take a string and escape as for a URI. This
pointer to CPAN may help.
<http://theory.uwinnipeg.ca/cgi-bin/AT-CPANsearch.cgi?search=uri_escape>
Ben.
------------------------------
Date: Wed, 03 Feb 1999 17:50:13 GMT
From: droby@copyright.com
Subject: Re: DBI
Message-Id: <79a28i$o0f$1@nnrp1.dejanews.com>
In article <FJpPGCASZut2EwJ7@beausys.demon.co.uk>,
Andrew Fry <andrewf@beausys.demon.co.uk> wrote:
> I can (and do) use Perl under UnixWare 7.0.1, UnixWare 2.1.3 and Win95
> (ActiveState ActivePerl), and I am trying to get to grips with DBI...
> but it appears that none of these Perl packages has the DBI module(s).
> Is it possible to obtain the DBI module(s) from somewhere and then just
> incorporate them into these Perl packages (by some means) ?
>
% perldoc -q module
=head1 Found in /usr/lib/perl5/5.00502/pod/perlfaq2.pod
=head2 What modules and extensions are available for Perl? What is CPAN?
What does CPAN/src/... mean?
> Any (helpful) comments appreciated.
>
By your definition of helpful? Why did I bother?
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 03 Feb 1999 18:33:22 +0100
From: Jonathan Feinberg <jdf@pobox.com>
To: Colin Cyr <ccyr@sycore.ml.org>
Subject: Re: Help - Complex Sort and Error Control/Reporting.
Message-Id: <m37ltzxuhp.fsf@joshua.panix.com>
Colin Cyr <ccyr@sycore.ml.org> writes:
> I have a dataset similar to:
> 6
> 6.3.2.2
> 6.3
[snip]
> I need this to be sorted to:
> 6
> 6.1
> 6.1.1
[snip]
I refer you to
ftp://ftp.ou.edu/mirrors/CPAN/doc/FMTEYEWTK/sort.html
for many details on sorting.
However, I don't see why you're going through so many contortions when
a simple alphabetic sort will work fine on the data at hand.
my @unsorted = qw(6 6.3.2.2 6.3 6.1.1 6.2 6.3.2.1 6.4
6.3.2 6.3.1 6.1);
print join("\n", sort @unsorted), "\n";
> Currently upon error I have the methods etc., just return undef. This
> works well to a point. Problem is there is no way for the calling
> program to know what the error is.
Therefore you maintain either a package global that is set to some
meaningful string or integer when there's an error, or you maintain a
private data structure (declared with my()) and a functional interface
to it. See DBI for an example of this approach.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Wed, 03 Feb 1999 11:55:11 -0600
From: James Ludlow <ludlow@us.ibm.com>
Subject: Re: Help - Complex Sort and Error Control/Reporting.
Message-Id: <36B88D7F.7A24D68D@us.ibm.com>
Jonathan Feinberg wrote:
> However, I don't see why you're going through so many contortions when
> a simple alphabetic sort will work fine on the data at hand.
>
> my @unsorted = qw(6 6.3.2.2 6.3 6.1.1 6.2 6.3.2.1 6.4
> 6.3.2 6.3.1 6.1);
> print join("\n", sort @unsorted), "\n";
I know you said "the data on hand," but I'm sure you also know that this
breaks as soon as any number goes to two digits. 10 comes before 6
using your code.
--
James Ludlow (ludlow@us.ibm.com)
(Any opinions expressed are my own, not necessarily those of IBM)
------------------------------
Date: 03 Feb 1999 19:35:53 +0100
From: Jonathan Feinberg <jdf@pobox.com>
To: James Ludlow <ludlow@us.ibm.com>
Subject: Re: Help - Complex Sort and Error Control/Reporting.
Message-Id: <m34sp3gws6.fsf@joshua.panix.com>
James Ludlow <ludlow@us.ibm.com> writes:
> Jonathan Feinberg wrote:
> > my @unsorted = qw(6 6.3.2.2 6.3 6.1.1 6.2 6.3.2.1 6.4
> > 6.3.2 6.3.1 6.1);
> > print join("\n", sort @unsorted), "\n";
> I know you said "the data on hand," but I'm sure you also know that this
> breaks as soon as any number goes to two digits. 10 comes before 6
> using your code.
<sheepish>
oops
</sheepish>
See Sean McAfee's post, and the sort FAQ I mentioned...
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Wed, 03 Feb 1999 21:36:19 +0100
From: Rob Kloots <rkloots@csf.nl>
Subject: How to activate perl?
Message-Id: <36B8B343.A6F49BE5@csf.nl>
Here's the situation:
The environment is Solaris 2.6 Sparc, KDE, ksh.
Perl can't be found when trying to invoke in browser.
Perl executes from terminal, but only when full path is given.
Netscape's internal cgi/perl does work.
Where do I look, in what order?
Thanks,
Rob Kloots, rkloots@csf.nl
------------------------------
Date: Wed, 03 Feb 1999 11:16:47 -0800
From: Asha Bageshpura <bageshpu@pa.dec.com>
Subject: HTML::Parser::parse_html
Message-Id: <36B8A09F.AB48FCDC@pa.dec.com>
I an trying to use the HTML::Parser::parse_html method and when I
compile I get
'Undefined subroutine &HTML::Parser::parse_html called'. In the new
version should I use
a different method.
Thanks
------------------------------
Date: Wed, 3 Feb 1999 12:11:15 -0800
From: "Mike Skovgaard" <mikesk@vipcourier.com>
Subject: Is matching a range of ASCII characters possible?
Message-Id: <918072675.866485@neptune.uniserve.ca>
I am trying to match a set of ASCII characters from 128 -> 255.
The following match operator does not seem to work:
/\[128-255]/
neither does:
/[\128-\255]/
same story with:
/[\128-255]/
Does anyone have any better ideas than manually typing each number in the
range?
------------------------------
Date: 03 Feb 1999 22:12:54 +0200
From: Jarkko Hietaniemi <jhi@alpha.hut.fi>
Subject: Re: Is matching a range of ASCII characters possible?
Message-Id: <oeeg18nnt4p.fsf@alpha.hut.fi>
"Mike Skovgaard" <mikesk@vipcourier.com> writes:
> I am trying to match a set of ASCII characters from 128 -> 255.
> The following match operator does not seem to work:
>
> /\[128-255]/
>
> neither does:
>
> /[\128-\255]/
There ain't \decimal notation. Use octal or hexadecimal.
> same story with:
>
> /[\128-255]/
>
> Does anyone have any better ideas than manually typing each number in the
> range?
>
>
--
$jhi++; # http://www.iki.fi/jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
------------------------------
Date: Wed, 03 Feb 1999 19:24:20 GMT
From: mreilley@clc.cc.il.us (Mike Reilley)
Subject: Need REGEX
Message-Id: <36b8a182.28785628@piglet.cc.uic.edu>
Hi,
I have a variable of unknown length say $nline
I need to test the first 4 characters of $nline to see if they are
NUMERIC only [0-9]
any help would be greatly appreciated.
TIA
Mike Reilley
mreilley@clc.cc.il.us
------------------------------
Date: Wed, 03 Feb 1999 20:28:49 GMT
From: prabhashshrestha@my-dejanews.com
Subject: Network Messaging
Message-Id: <79abht$unv$1@nnrp1.dejanews.com>
I would like to create a script that will pop up a dialog box with error
message in different clients under same NT 4.0 network. Is Win32::MsgBox
combined with some other commands able to do this or is there another NET
MESSAGE command availble in perl?
I have an error log that is populated everytime there is an error. The purpose
of my script is to inform other users about the error. Thanks for help in
advance.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 3 Feb 1999 19:21:25 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: newbie having trouble with concatination
Message-Id: <79a7jl$qmc$1@pegasus.csx.cam.ac.uk>
Steve Linberg <slinberg@crocker.com> wrote:
>In article <3r6897.ij6.ln@magna.metronet.com>, tadmc@metronet.com (Tad
>McClellan) wrote:
>> : Your .* matches everything to the end of the string.
>>
>> No, it doesn't match the newline at the end of the string,
>> which, I believe, was the whole point :-)
>
>It doesn't?
>
>> perl
>my $line = "\tstring with a newline at the end\n";
>print "before regex:\n\n($line)\n\n";
>$line =~ s/\s*(.*?)\s*$/$1/;
>print "after regex:\n\n($line)\n\n";
>__END__
>
>before regex:
>
>( string with a newline at the end
>)
>
>after regex:
>
>(string with a newline at the end)
>
>--
>
>Looks like it matched the newline to me. "." matches everything, right?
Nope. "." only matches newlines with the /s modifier.
In your example, the \s* is matching the newline, not the (.*?).
Mike Guy
------------------------------
Date: Wed, 3 Feb 1999 09:24:38 -0500
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Numeric Value
Message-Id: <x3yhft3muop.fsf@tigre.matrox.com>
Frank de Bot <debot@xs4all.nl> writes:
> Does anybody knows a way to check if a string is numeric or not?
print "Is numeric.\n" if $string =~ /^[-+\d.]+$/;
Ala
------------------------------
Date: Wed, 03 Feb 1999 12:05:54 -0600
From: James Ludlow <ludlow@us.ibm.com>
Subject: Re: Numeric Value
Message-Id: <36B89002.6C43D6EB@us.ibm.com>
Ala Qumsieh wrote:
>
> Frank de Bot <debot@xs4all.nl> writes:
>
> > Does anybody knows a way to check if a string is numeric or not?
>
> print "Is numeric.\n" if $string =~ /^[-+\d.]+$/;
So, is this numeric?
$string = "+++++++-------373738282...2.32.2.3.2.---+++++2";
While not technically wrong, your answer is a bit misleading. The faq
gives a more complete picture:
http://www.perl.com/CPAN-local/doc/FAQs/FAQ/PerlFAQ.html#How_do_I_determine_whether_a_sca
$ perldoc perlfaq4
--
James Ludlow (ludlow@us.ibm.com)
(Any opinions expressed are my own, not necessarily those of IBM)
------------------------------
Date: 3 Feb 1999 20:06:11 GMT
From: gward@cnri.reston.va.us (Greg Ward)
Subject: Re: Numeric Value
Message-Id: <79aa7j$6tl$3@news0-alterdial.uu.net>
Frank de Bot <debot@xs4all.nl> wrote:
> Does anybody knows a way to check if a string is numeric or not?
That's a FAQ -- "perldoc perlfaq4", and search for "How do I determine".
Greg
--
Greg Ward - software developer gward@cnri.reston.va.us
Corporation for National Research Initiatives
1895 Preston White Drive voice: +1-703-620-8990 x287
Reston, Virginia, USA 20191-5434 fax: +1-703-620-0913
------------------------------
Date: 3 Feb 1999 18:33:45 GMT
From: Ed Hitler <revjack@radix.net>
Subject: Re: Perl Criticism [summary]
Message-Id: <79a4q9$rf7$2@news1.Radix.Net>
Keywords: Hexapodia as the key insight
Tad McClellan explains it all:
:birgitt@my-dejanews.com wrote:
:: Please, can you tell me what a thread ends with ?
: It is _supposed_ to end whenever 'Hitler' is mentioned.
: It isn't working properly here...
Maybe I can help.
--
/~\ implore oaken serf vixen changeover skeet rectify sis schizophr
C oo tribe decrease bub binaural pansy midspan climate aggregate cho
_( ^) 1 , 0 0 0 , 0 0 0 m o n k e y s c a n ' t b e w r o n g
/___~\ http://3509641275/~revjack 02/03/99 13:32:29 revjack@radix.net
------------------------------
Date: Wed, 03 Feb 1999 19:54:11 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Perl Criticism [summary]
Message-Id: <DP1u2.1336$Si.14495@newsfeed.slurp.net>
Tad McClellan (tadmc@metronet.com) wrote:
: birgitt@my-dejanews.com wrote:
: : Please, can you tell me what a thread ends with ?
:
: It is _supposed_ to end whenever 'Hitler' is mentioned.
Wow, that would seriously limit thread length over on alt.history.what-if.
--
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| "The hills were burning, and the wind was raging; and the
clock struck midnight in the Garden of Allah."
------------------------------
Date: Wed, 03 Feb 1999 14:48:04 -0500
From: Zach Nelson <znelson@imaginative.net>
Subject: Re; SSI Problem
Message-Id: <36B8A7F4.5079DEFD@imaginative.net>
On Mon, 31 Aug 1998 11:40:57 -0400, DesQuite wrote :
>I insert this code into my test.shtml file
><!--#exec cgi="/cgi-bin/filename.cgi"-->
>
>and then receive this error when I open the file in my browser
>HTTP/1.1 200 OK Date: Mon, 31 Aug 1998 15:25:13 GMT Server:
>Microsoft-IIS/4.0 Content-type: text/html 'D:\***\***\***\test.shtml
script
>produced no output
>
>Yes, it's a stupid NT sever, but I don't have any control over that.
Am I
>just making a stupid mistake or is there something I can try to run
this
>script? The script will run fine when it's run by itself in the
browser.
>Thanks.
Anyone have a solution for this?
I am running into the same exact error. I gave full permissions to the
web service, etc. The script runs fine by itself but not in a SSI. Other
SSI commands such as Include File work but not the CGI calls.
Thanks,
Zach Nelson
WLGC
------------------------------
Date: 3 Feb 1999 19:51:41 GMT
From: gward@cnri.reston.va.us (Greg Ward)
Subject: Re: regex lib or Perl linked in?
Message-Id: <79a9cd$6tl$2@news0-alterdial.uu.net>
jimmy <jimmy@globalSpam.org> wrote:
> I guess I had a difficulty recognizing this very clear and highly
> descriptive name--'pcre' as "Regular Expressions of Perl 5.004" <g>.
> Silly me. How could one get lost in Unixish abbreviations! Well, now I
> know, and so I'm off to get it. Thanks again.
Actually, "PCRE" stands for "Perl-Compatible Regular Expressions".
Neither completely obvious nor completely obscure, *but* explicitly
stated in my original post.
The obscurity is which version to download and why. When given a choice
between 1.0.x and 2.0.x, I usually grab the later one and see if the
included README sheds any light. You may operate differently, of
course.
Greg
--
Greg Ward - software developer gward@cnri.reston.va.us
Corporation for National Research Initiatives
1895 Preston White Drive voice: +1-703-620-8990 x287
Reston, Virginia, USA 20191-5434 fax: +1-703-620-0913
------------------------------
Date: 3 Feb 1999 19:28:29 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: tie, hash problem
Message-Id: <79a80t$r69$1@pegasus.csx.cam.ac.uk>
Andrew Fry <andrewf@beausys.demon.co.uk> wrote:
>In article <m3pv7sxbfg.fsf@joshua.panix.com>, Jonathan Feinberg
><jdf@pobox.com> writes
>>Andrew Fry <andrewf@beausys.demon.co.uk> writes:
>>
>>> tie(%DBHASH,$i,$dbname,$flags,0666)
>>> where $i = SDBM_Type or DB_Type or NDBM_Type
>
>Sorry ... for *_Type, read *_File.
>(It was late when I posted my message!).
>
>But the problem still applies.
The subroutine Whatever::TIEHASH will only be defined if you have done
a "use Whatever" or some equivalent to define it. tie() itself doesn't
load any code.
Mike Guy
------------------------------
Date: Wed, 3 Feb 1999 18:38:22 -0000
From: "Artoo" <r2-d2@REMOVEbigfoot.com>
Subject: Unlink Symlink
Message-Id: <79a57i$649$1@plug.news.pipex.net>
Hi All
How can you delete (unlink) a symlink?
I've tryied using unlink ($symlink_path) and it does nothing, what function
to I need to use?
Thanks
Artoo
------------------------------
Date: 3 Feb 1999 20:13:40 GMT
From: gward@cnri.reston.va.us (Greg Ward)
Subject: Re: Unlink Symlink
Message-Id: <79aalk$6tl$5@news0-alterdial.uu.net>
Artoo <r2-d2@REMOVEbigfoot.com> wrote:
> How can you delete (unlink) a symlink?
> I've tryied using unlink ($symlink_path) and it does nothing, what function
> to I need to use?
unlink() is correct. Define "does nothing". Did you check that
unlink() succeeds? If it fails, do you "die" and put $! in the error
message?
Greg
--
Greg Ward - software developer gward@cnri.reston.va.us
Corporation for National Research Initiatives
1895 Preston White Drive voice: +1-703-620-8990 x287
Reston, Virginia, USA 20191-5434 fax: +1-703-620-0913
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 4816
**************************************
