[8353] in Perl-Users-Digest
Perl-Users Digest, Issue: 1970 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Feb 25 09:13:43 1998
Date: Wed, 25 Feb 98 06:00:57 -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, 25 Feb 1998 Volume: 8 Number: 1970
Today's topics:
CODE: 'Econocodics' for UI using dialog (Lozano Mosterin, Jesus)
Counting number of replaces <schajer@dircon.co.uk>
Re: Counting number of replaces <reiper@rsv.se>
Re: dbm files (Jeffrey R. Drumm)
Help with access , CGI & Java needed T.I.A (pixie)
Re: Help! How can i show image from HTML files that is (Abigail)
How do I create my own perl libraries? <bear@pacificnet.net>
Re: HP-UX compile failure <andrewm@sdl.ug.eds.com>
Re: Multiple Sort on Array of Arrays? (Francois Trousset)
Re: Need news2HTML tool (Abigail)
Re: No. of days?? (Abigail)
Re: No. of days?? <Stephen_Darlington At Earthling Dot Net>
Re: No. of days?? <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: No. of days?? <jhi@alpha.hut.fi>
Re: Pattern Matching for parsing tags (Abigail)
plot report <jahnel@xarch.tu-graz.ac.at>
Re: POD style comments revisited <tchrist@mox.perl.com>
Re: Send email from Perl on NT platform (Neil Briscoe)
Re: The Ineffable Tom C. <darlenem@flash.net>
Re: The Ineffable Tom C. <jim.gillespie@ssmb.com>
Re: The Ineffable Tom C. (Ook!)
Re: Verifying a form field <reiper@rsv.se>
Re: Win95 - Running scripts from browser? <James@jwtech.net>
Re: Year 10000 Compliance <gerh@inet.unisource.nl>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 25 Feb 98 11:55:08 +0100
From: lozano@opalo.etsiig.uniovi.es (Lozano Mosterin, Jesus)
Subject: CODE: 'Econocodics' for UI using dialog
Message-Id: <PmDQmpcqbrVO@opalo.etsiig.uniovi.es>
Here is a pice of code that I will use and want to share with you
for being improved in this field of 'very simple and quick user
interfaces in text mode.' Please, e-mail me and post suggestions.
--
#!/usr/bin/perl
# FREE salvajada de J.Lozano using dialog-0.6z -a piece of stderr sh util
# origin returned val were: 1 on NO or Cancel, -1 on ESC, other otherwise
$base="dialog --backtitle \"t\.0\.1\" --";
($textodef, $altodef, $anchodef,$restodef) = ("",12,60,"");
$|=1;
&dodo ("clear");
$t = "Fundamental data";
$d= "Type in as you like:";
$dat = &dodo ("inputbox \"$d\" 10 50");
print "\r I get this ->$dat \n\a";
sleep 1;
$t="Other data\.\.\.";
$dat = &dodo ("textbox dialog\.pl 30 70");
$t= "This is the end\.\.\.";
$d= "I hope this helps you.\n Improve it, repost, and help me.\n\n Email me at \
lozano\@etsiig.uniovi.es \n\n finger avaible on lozano\@opalo.etsiig.uniovi.es";
$dat = &dodo ("msgbox \"$d\" 20 60");
$t= "last\, but not least\.\.\.";
$d= "\nDid you like it\?";
$dat = &dodo ("yesno \"$d\" 7 40");
if ($dat == -666) { $bla="NOOOP"; }
elsif ($dat == -69) { $bla="FIFTH_ENMENDMENT"; } #Why this don't work?
else { $bla = "YUUUUP"; }
$t= "Don't worry. Who cares much about\?";
$d= "Try another free method from this list";
$a= "ncurses with gnu C";
$b= "Curses-1.0.2 in perl";
$c= "maybe libreadline-*.gz module\?";
$dat = &dodo ("menu \"$d\" 14 55 4 1 \"$a\" 2 \"$b\" 3 \"$c\" ");
$t="-"; #ugh
$d="OK\, you typed $bla. to like/dislike question\n and prefered menu option was $dat \n \
and that's all what I wanted yesterday to know\!\n Plea, send me improvements\n\a Goodbye\!";
$dat = &dodo ("infobox \"$d\" 8 60");
sub dodo() {
my ($comand, $text, $alto, $ancho, $rest) = @_;
my ($res, $result)=0;
if (defined($t)){ $title="title \"$t\" --"; }
if (defined($text)){ $text=$textodef; }
if (defined($alto)){ $alto=$altodef; }
if (defined($ancho)){ $ancho=$anchodef; }
if (defined($rest)){ $rest=$restodef; }
$orden = $base.$title.$comand." ".$text." ".$alto.$ancho.$rest;
open(STDERR, ">/tmp/dialogout") || die "No puedo grabar /tmp/dialogout";
$res = system ($orden);
$res = $res/256; #any question? |-)
close STDERR; #personalized rulez -> infrecuent values
if ( $res == 1){
return -666; # NO or explicit CANCEL
}elsif ($res == -1){
return -69; # ESCape
}else{
open(IN, "/tmp/dialogout") || die "No puedo leer /tmp/dialogout (!)";
$result = <IN>; #chomp() not needed
close IN;
return $result;
}
}
__END__
---
perl -e 'print reverse(split("",":dionarap gnieb no desaelp era uoy fI")),"\n"'
e=44633196506372806702679568930241016072420372740654104856128065320983176095379
n=63928545982336976981162763955517745038001197960559116381014924921278270406501
perl -e 'print pack "B77", #longer key on finger lozano@opalo.etsiig.uniovi.es
"00111001001110000010110100110101001100010011100000110010001100010011000000111"'
------------------------------
Date: Wed, 25 Feb 1998 13:06:52 +0000
From: Alex Schajer <schajer@dircon.co.uk>
Subject: Counting number of replaces
Message-Id: <34F4176C.4EFCBF8A@dircon.co.uk>
Hi,
Is there anyway to count how many time a regexp replace has occurred
$var =~ s/1/2/g ?
Please reply to alex@online.emap.com as well as to the group,
TIA,
Alex Schajer
------------------------------
Date: Wed, 25 Feb 1998 14:32:15 +0100
From: Reine Persson <reiper@rsv.se>
To: Alex Schajer <schajer@dircon.co.uk>
Subject: Re: Counting number of replaces
Message-Id: <Pine.HPP.3.95.980225143048.21332A-100000@u30045.rsv.svskt.se>
On Wed, 25 Feb 1998, Alex Schajer wrote:
> Hi,
>
> Is there anyway to count how many time a regexp replace has occurred
> $var =~ s/1/2/g ?
>
> Please reply to alex@online.emap.com as well as to the group,
>
> TIA,
>
> Alex Schajer
>
>
>
Yes !
$nr=($var =~ s/1/2/g);
//Reine
------------------------------------------------------------
Reine Persson Tel: 08-7648280,08-6944431
RSV Dataservice DS/PX Mobil: 0708-189832
171 94 Solna Email: reiper@rsv.se
------------------------------------------------------------
------------------------------
Date: Wed, 25 Feb 1998 12:46:40 GMT
From: drummj@mail.mmc.org (Jeffrey R. Drumm)
Subject: Re: dbm files
Message-Id: <34f40d38.71065496@news.mmc.org>
On Tue, 24 Feb 1998 19:13:06 -0800, Indu Bingham <indu@healtheon.com> wrote:
>How do I delete a record from the dbm file??
>
>Thanks
If you already know how to add to or access a record in a dbm file, then you
_should_ understand that dbms are effectively treated as hashes. Therefore, you
would use the same method to delete a record from a dbm as you would a hash.
Go ye forth and read the extremely copious and very well-written documentation
that comes with Perl. You don't have to read all of it (although most folks
here would love it if you did); there's a function listed in the perlfunc man
page/html document/pod file that does exactly what you want. You've already
used its name in your question. Its entry even mentions dbm files.
Please do a little homework before posting . . .
--
Jeffrey R. Drumm, Systems Integration Specialist
Maine Medical Center - Medical Information Systems Group
drummj@mail.mmc.org
"Broken? Hell no! Uniquely implemented!" - me
------------------------------
Date: Wed, 25 Feb 1998 13:00:06 GMT
From: steve@pixieefc.demon.co.uk (pixie)
Subject: Help with access , CGI & Java needed T.I.A
Message-Id: <34f7153e.2904094@news.demon.co.uk>
We have setup a unix web server and are trying to implement a client side database query with a return to a java based
web veiwer.
Ie our ultimate aim is to enter a clients details in Ms Acess, upload the .MDB file to the server , let the client qurey
the database via a CGI-script and return the values into a java webpage template.
If ANYBODY could point or show us what can/can't be done it would be Most helpfull.
Thanks
Bruce
------------------------------
Date: 25 Feb 1998 08:10:25 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Help! How can i show image from HTML files that is read in a cgi script ?
Message-Id: <6d0jlh$8g8$2@client3.news.psi.net>
feri (feri@unitel.co.kr) wrote on 1638 September 1993 in
<URL: news:6cun8i$rqj$1@news.att.co.kr>:
++ I have a question in a cgi script..
Then comp.infosystems.www.authoring.cgi for you!
++ I wrote a cgi script like this.
Then comp.infosystems.www.authoring.cgi for you!
++ CGI script reads a plain html file, and then showing that result.
++ But html file includes tags like IMG, BACKGROUND, so called image file tags.
I see that comp.infosystems.www.authoring.html is a group for
you to. Your terminology needs patching.
++ (<img src="hello.gif">) and then browser doesn't show images, just showing
++ empty space . ( no problems in image file path)
Then comp.infosystems.www.browers.your-os is for you!
++ As a result, I wrote another CGI script - image_loader.cgi like this
++ ( <img src="/cgi-bin/image_loader.cgi?img=hello&type=gif"> )
++
++ Is there a method solving this more easily?
How about..... not using a CGI program at all? Go to
comp.infosystems.www.servers.your-os
for a way to deliver files without using CGI!
(Yes, this is possible with the newest servers)
This group is about creating sand paintings. Please don't bring
CGI's. Then tend to mess up the paintings.
Thank you.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F76777$=56;;$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: Wed, 25 Feb 1998 03:14:08 -0800
From: Joey Garcia <bear@pacificnet.net>
Subject: How do I create my own perl libraries?
Message-Id: <34F3FCFF.5E5194AF@pacificnet.net>
Hello, I'm sort of new but I'm getting the hang of everything here
pretty quickly. I've written a few working cgi scripts and I keep
coming up with more. The problem I have is that I use alot of the same
code in each one. I wanted to know if there was a way I can make my own
perl libraries or modules that I can include into the actual perl
execuables. Also, can I run my personal libraries from the same
directory that contain the cgi programs? Thanks for the help.
Joey Bear Garcia
------------------------------
Date: Wed, 25 Feb 1998 12:11:25 +0000
From: Andrew Maguire <andrewm@sdl.ug.eds.com>
Subject: Re: HP-UX compile failure
Message-Id: <34F40A6D.594C@sdl.ug.eds.com>
> I'm trying to build perl 5.004_04 on a HP-UX 10.20 server, using the same
> source as I used to build it on a Linux box and on an AIX server.
>
> Configure worked and didn't show any problems, make depend also worked with no
> errors or problems.
Did you do a make realclean and delete your old config.sh
before running Configure?
If you have access to an HPUX 9.05 machine then I would be
intereseted to hear from you to test out DBM compatibility between
9.05 and 10.2
Andrew
------------------------------
Date: 25 Feb 1998 11:13:23 GMT
From: trs@eerie.fr (Francois Trousset)
Subject: Re: Multiple Sort on Array of Arrays?
Message-Id: <6d0ucj$8es$1@anais.eerie.fr>
In article <4134.1323698977.77890@news.latrobe.edu.au>,
glecjh@luff.latrobe.edu.au (Jason Hellwege) writes:
> I have an array-of-arrays and I want to sort it. In fact, I want to
> perform 3 sorts on the data. My code runs like this:
>
> push (@$list, @fields);
>
> @$sorted = sort by_magic @$list;
>
> sub by_magic {
> $a->[3] cmp $b->[3]
> or
> $a->[1] cmp $b->[1]
> or
> $a->[5] cmp $b->[5]
> }
Hi,
In fact, You did not gave us what is stored in @fields, but
from its name, we can assume that you wanted it to be an element ``array''
with indexes from 0 to 5 as a minimum.
But if it is a 6 element list, you will not get the ``array-of-array''
you are wanted : try a print "@$list\n"; after the push.
As another example, the following code will print : (1 2 3 4 5 6)
and not ( ARRAY(0x...) ARRAY(0x...) ).
Here is the code :
my $l = [];
my @f = qw( 1 2 3 );
my @g = qw( 4 5 6 );
push (@$l , @f);
push (@$l , @g);
print "(@$l)\n";
try push ( @$l , [@f] )
Francois Trousset
------------------------------
Date: 25 Feb 1998 08:18:49 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Need news2HTML tool
Message-Id: <6d0k59$8g8$3@client3.news.psi.net>
Markus Wannemacher (Markus.Wannemacher@FernUni-Hagen.De) wrote on 1639
September 1993 in <URL: news:6d0fqn$8o9$2@dogwood.fernuni-hagen.de>:
++
++ Hi,
++
++ I am loooking for a tool that converts automaticaly an
Perhaps you need to go to news.software.readers.
++ archive of news messages to html files. It should
++ generate a html page with links to all threads,
++ thrads pages with links to all articels in the thread
++ and article pages with links to the thread page, the
++ previous and the next article, ...
Indeed. news.software.readers. Or perhaps
comp.infosystems.www.browsers.misc.
++ In summary: It should be possible to read news
++ with a HTML browser as easy as with a news reader.
Not really. An HTML browser is to display HTML. News is plain
text. Perhaps if you said "WWW browser", you might be right.
++ The reason I do need this is to make an archive of
++ news article available via WWW.
That's already been done. Dejanews, Alta-Vista. Drop them
a note, perhaps they offer a course.
This group is about knitting tea kettles. It's not about HTML.
It's not about newsreaders. It's not about hyperlinks.
It certainly isn't a gimme, gimme, gimme group.
You might want to hire a programmer.
Abigail
--
perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];}
print+Just (), another (), Perl (), Hacker ();'
------------------------------
Date: 25 Feb 1998 08:21:09 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: No. of days??
Message-Id: <6d0k9l$8g8$4@client3.news.psi.net>
S. Sarkar (s027119@income.com.sg) wrote on 1639 September 1993 in
<URL: news:01bd224a$36f51e80$2d1809a8@sarkar.income.com.sg>:
++ I am unable to find a way to calculate the nos. of days from today from any
++ particular day in the past or the future. can any kind soul please help.
++ the input format is yy/dd/mm or dd/mm/yy or mm/dd/yy
Well, that's kind of ambigious, isn't? How long between 10/11/12 and
12/11/10?
++ need this done ASAP.
Hmmm, then Usenet isn't the smartest way.
Did you look at CPAN?
Abigail
--
perl -wle\$_=\<\<EOT\;y/\\n/\ /\;print\; -eJust -eanother -ePerl -eHacker -eEOT
------------------------------
Date: Wed, 25 Feb 1998 10:17:48 -0000
From: "Stephen Darlington" <Stephen_Darlington At Earthling Dot Net>
Subject: Re: No. of days??
Message-Id: <6d0r4d$7fh@romeo.logica.co.uk>
S. Sarkar wrote in message
<01bd224a$36f51e80$2d1809a8@sarkar.income.com.sg>...
>I am unable to find a way to calculate the nos. of days from today from any
>particular day in the past or the future. can any kind soul please help.
>the input format is yy/dd/mm or dd/mm/yy or mm/dd/yy
Try having a look at the 'localtime' and 'timelocal' functions. The former
is a built in, the latter is in Time::Local.
--> Steve
----------------------------------------------------------------------------
Stephen Darlington (public.logica.com/~darlings/)
"I blame sex and paper for most of our problems"
Don't believe a single word I say -- these are my words, not Logica's
----------------------------------------------------------------------------
------------------------------
Date: 25 Feb 1998 12:02:51 +0100
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: No. of days??
Message-Id: <7xk9akgd5w.fsf@beavis.vcpc.univie.ac.at>
Re: No. of days??, S <s027119@income.com.sg> said:
S> I am unable to find a way to calculate the nos. of days
S> from today from any particular day in the past or the
S> future. can any kind soul please help. the input format
S> is yy/dd/mm or dd/mm/yy or mm/dd/yy
use the Date modules (there are modules for everyting in
perl, I'm just waiting for Halting::Problem::Solve to come
out :-)
Date::DateCalc
Date::Manip
hth
tony
------------------------------
Date: 25 Feb 1998 13:28:52 +0200
From: Jarkko Hietaniemi <jhi@alpha.hut.fi>
Subject: Re: No. of days??
Message-Id: <oee90qzhqiz.fsf@alpha.hut.fi>
abigail@fnx.com (Abigail) writes:
>
> S. Sarkar (s027119@income.com.sg) wrote on 1639 September 1993 in
> <URL: news:01bd224a$36f51e80$2d1809a8@sarkar.income.com.sg>:
> ++ I am unable to find a way to calculate the nos. of days from today from any
> ++ particular day in the past or the future. can any kind soul please help.
> ++ the input format is yy/dd/mm or dd/mm/yy or mm/dd/yy
>
> Well, that's kind of ambigious, isn't? How long between 10/11/12 and
> 12/11/10?
01/01/01, in not so distant future. One can try either to parse that
or stop fooling around and start using the ISO format YYYY-MM-DD.
Accepteth no substitutes. That even sorts string-wise correctly.
--
$jhi++; # http://www.iki.fi/~jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
------------------------------
Date: 25 Feb 1998 08:27:55 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Pattern Matching for parsing tags
Message-Id: <6d0kmb$8g8$5@client3.news.psi.net>
Martin Vorlaender (martin@RADIOGAGA.HARZ.DE) wrote on 1639 September 1993
in <URL: news:34f39b79.524144494f47414741@radiogaga.harz.de>:
++ Manhattan5 (mike@vitamins.net) wrote:
++
++ : Any ideas how to parse a specific tag? I know general tags by <[^>]*> but
++ : am having trouble with specific.
This made me really wonder.... What's the difference between a specific
and a general tag? <[^>]*> is a stupid way of parsing for tags - that's
as bad as Netscape pre-2.0.
++ Have a look at the HTML::Parser module in the libwww package for a cleaner
++ way to parse HTML.
HTML::Parser parses better than populair browsers, but it doesn't
fully parse HTML. SGML tools that parse HTML correctly have been
around for more than a decade (indeed, longer than HTML itself).
However, I'm not aware of such a beast in Perl.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F76777$=56;;$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: Wed, 25 Feb 1998 14:10:39 +0100
From: Jahnel Klaus <jahnel@xarch.tu-graz.ac.at>
Subject: plot report
Message-Id: <34F4184F.1BD0A4F@xarch.tu-graz.ac.at>
is it possible or is there a perl modul to make a report for printings
i want to have the name (username) and the numbers of pages which are
printed (not from perl) and the date
either on linux or NT
regards klaus jahnel
------------------------------
Date: 25 Feb 1998 12:10:45 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: POD style comments revisited
Message-Id: <6d11o5$2g7$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, rjk@coos.dartmouth.edu writes:
:Now, replace those #'s with the easier to maintain POD-style comments, and:
:
:~> cat temp2
:$a = (
:=head1
:blah
:=cut
:1);
:~> perl temp2
:syntax error at temp2 line 2, near "="
man perlsyn:
Perl has a mechanism for intermixing documentation with source code.
While it's expecting the beginning of a new statement, if the compiler
encounters a line that begins with an equal sign and a word, like this
Notice the "expecting new statement" part.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
A woman needs a little more weird today than normal. --Andrew Hume
------------------------------
Date: 25 Feb 1998 12:50:29 GMT
From: neilb@zetnet.co.uk (Neil Briscoe)
Subject: Re: Send email from Perl on NT platform
Message-Id: <memo.19980225125029.12159A@skep.compulink.co.uk.cix.co.uk>
In article
<01bd40ff$003bd040$55a0479c@UKMCPHISFW051.ukmcphmfg.zeneca.com>,
david.richards@alderley.zeneca.com (Zeneca) wrote:
> use BLAT
>
> Rick Ryan <rickryan@datrixnet.com> wrote
>
> > Is there a was to send email from a Perl script on the NT platform?
>
>
BLAT!
Ugh!
Ask me for a copy of smtp.zip and I'll send you one. It contains smtp.pl
- a quick hack I put together as I couldn't get Net::SMTP to work under
NT and - a new addition linemail.
Linemail uses the smtp.pl library - and all it does is listen on STDIN for
input, and processes it - hopefully as a mail message. All you need is an
SMTP relay that you're allowed to talk to.
This means that you can run scripts that normally rely on
/usr/lib/sendmail -t virtually unmodified - just change the variable to
run linemail instead.
Regards
Neil
------------------------------
Date: 25 Feb 1998 07:55:52 GMT
From: Jeeves <darlenem@flash.net>
Subject: Re: The Ineffable Tom C.
Message-Id: <6d0iq8$74m$1@excalibur.flash.net>
What kind of thread is this? Good thing Tom has a good sense of humor and can
put up with this sort of rubbish. My thinking is much like his: why can't
people read the goddamned FAQ? It's there for a reason. It's called a FAQ
(Frequently-Asked Questions) for a reason. This NG is swamped with FAQs and CGI
questions. It's not any 'waste of bandwidth' that I'm concerned about
(bandwidth is an often-misused term that has very little to do with USENET
postings), it just grates on lots of nerves to even read the subject lines of
'newbies', who are mostly PoBs anyways. Killfiles can't do everything.
Tom, flame away. I'm delighted every time I read one of your posts in which you
give third-rate PoB software the respect it deserves. You aren't really
flaming, anyways...isn't flaming supposed to be nearly-mindless, degenerate
insults attacking another's character (much like the subject of this post
insinuates)?
Keep this sort of crap out of this newsgroup. If you have an issue with Tom,
take it up with him privately. The rest of us don't care what you think of the
way he does things. Whoever started this thread was about as off-topic as
whatever idiot posted that question about whether his network should use M$
Exchange...
-- Jeeves (darlenem@flash.net)
------------------------------
Date: 25 Feb 1998 11:43:14 +0000
From: James Gillespie <jim.gillespie@ssmb.com>
Subject: Re: The Ineffable Tom C.
Message-Id: <biiafbf3o6l.fsf@ssmb.com>
wrdcom@clara.net (Sean Ahern) writes:
> On Tue, 24 Feb 1998 14:17:44 +0000, Brendan Knox <knoxb@pecc.co.uk>
> wrote:
>
> >Perhaps if they can't take the heat, they too should get out of the
> >kitchen.
>
> Maybe they just believe what they read. ie the first to third
> paragraphs of page xxvii of the book most people recommend them when
> they start to learn perl? Thats 'Learning Perl' 2nd edition...
Hmmm, my copy doesn't have a page xxvii. Page xv has a bit about
usenet groups though. Maybe you meant the bit which says: "Like Perl
itself, comp.lang.perl.misc is meant to be useful, and no question is
too silly to ask(*)."
The asterisk is a typesetting convention meaning, "look at the
bottom of the page for a footnote." In this case, the footnote reads:
"(*) Of course, some questions are too silly to answer, especially
those already answered in the FAQ."
This section also points people with CGI questions to
comp.infosystems.www.authoring.cgi, and the following sections are
"The Perl Homepage" and "Frequently Asked Questions List."
Personally, I suspect that the people who have bought (and read)
the Camel are not those who inundate this group with FAQs.
Jim
--
Jim.Gillespie@ ,'_ If anyone could send a few ounces of
USA.net / -.--. ___ Semtex to a politician, we could get
+44 171 721 2672 _\.x \__`--'_,-' the police back doing something less
/ /\\ \--'_-\\ irritating.
'94 Super III \__/ `---' \__/ -- Hoddy
------------------------------
Date: Wed, 25 Feb 1998 04:24:41 -0800
From: rantNreview@yahoo.com (Ook!)
Subject: Re: The Ineffable Tom C.
Message-Id: <rantNreview-2502980424420001@dialup-b171.europa.com>
In article <34F25D8B.E119C28D@5sigma.com>, joseph@5sigma.com wrote:
>Personally I wish Tom would email the sarcastic one-liners and not
>post them. Not so much because of the noise it directly creates in
>the newsgroup but because every time he does, a flood of imitators
>arises, and then every FAQ posted gets a half dozen "that's an FAQ"
>replies instead of one.
>
>The only reason Tom elicits this response is because people respect
>his opinion and judgment, and that obviously arises from an otherwise
>exemplary history of contribution to the Perl community. So I would
>hope people would accept Tom being Tom, but at least where the
>snappy comebacks are concerned, not imitate him.
>
Good point, Tommy Boy can and does get scraped out by a simple killfile,
but its the imitators that really cheese me. (Or boycotting any ora
product with his name on it, but that's off-topic.)
What I wonder, is if the newsgroup irritates his ilk so damned much, why
do they read it? And if someone is actually a decent Perl programmer , or
even better yet, a good educator worth listening to, how is it that they
have time to post a dozen times a day and park on Efnet #perl 24/7/365?
Given the demand for comptent programmers, well, do the logic puzzle...
--
accounting@agis.net,admin@HARRIS-MARKETING.COM,ap@INREACH.COM,auto2@mci.savetrees.com,bbb@bway.net,bcporter@dtic.mil,postmaster@blighty.com,postmaster@cause.org,wallace@auto3.cybermirror1.com,wallace@ispam.net,wallace@mci.savetrees.com,wallace@temp.cyberpromo.com
------------------------------
Date: Wed, 25 Feb 1998 09:36:22 +0100
From: Reine Persson <reiper@rsv.se>
To: Cactus <cactus@mpinet.net>
Subject: Re: Verifying a form field
Message-Id: <Pine.HPP.3.95.980225093442.12884A-100000@u30045.rsv.svskt.se>
On Tue, 24 Feb 1998, Cactus wrote:
> Hello, I'm writing a Perl script to read in a number from the
> query_string and verifly that it is only a number and no letters or
> neg-nums. Any clues as to how I can verify this?
>
> $order = $ENV{'QUERY_STRING'};
> ($Label,$Amount) = split(/=/,$order);
>
> #if($Amount)is a number!
>
> Thanks in Advance...
>
> Mike
> cactus@mpinet.net
>
>
>
One way:
if ( $Amount =~ /^[0-9]+$/ ) {
print "Just number's in string Amount\n";
}
//Reine
------------------------------------------------------------
Reine Persson Tel: 08-7648280,08-6944431
RSV Dataservice DS/PX Mobil: 0708-189832
171 94 Solna Email: reiper@rsv.se
------------------------------------------------------------
------------------------------
Date: Wed, 25 Feb 1998 17:30:28 +0800
From: "Jamis" <James@jwtech.net>
Subject: Re: Win95 - Running scripts from browser?
Message-Id: <34F3E4B4.75C54E16@jwtech.net>
--------------B217E9C7246DEE5A5BB45B64
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Same problem with me,what type of software can test the [.PL and .Cgi in
windows95 without using
windowsNt ].
Thank!Please reply.
James Wong.
------------------------------------------------------------
Burt Lewis wrote:
> Hi,
>
> I just installed Perl in Windows95 and all is great running from the DOS
> prompt.
>
> Problem is when I try to open a script in my browser, it wants to open it in
> Notepad.
>
> I have the script in the bin directory. Is there something I'm missing or
> need to do to get this to execute via a browser.
>
> Burt
--------------B217E9C7246DEE5A5BB45B64
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<HTML>
<P>Same problem with me,what type of software can test the [.PL and .Cgi
in windows95 without using
<BR>windowsNt ].
<P>Thank!Please reply.
<P>James Wong.
<BR>
<HR ALIGN=LEFT SIZE=1 WIDTH="75%">
<BR>
<P>Burt Lewis wrote:
<BLOCKQUOTE TYPE=CITE>Hi,
<P>I just installed Perl in Windows95 and all is great running from the
DOS
<BR>prompt.
<P>Problem is when I try to open a script in my browser, it wants to open
it in
<BR>Notepad.
<P>I have the script in the bin directory. Is there something I'm missing
or
<BR>need to do to get this to execute via a browser.
<P>Burt</BLOCKQUOTE>
</HTML>
--------------B217E9C7246DEE5A5BB45B64--
------------------------------
Date: Wed, 25 Feb 1998 10:17:05 +0100
From: Ger van Hees <gerh@inet.unisource.nl>
Subject: Re: Year 10000 Compliance
Message-Id: <34F3E191.1AF3@inet.unisource.nl>
x wrote:
>
> On Tue, 24 Feb 1998 16:27:18 GMT, Binyamin_Dissen@theoffice.net
> (Binyamin Dissen) wrote:
>
> >Not a problem. There will be no need for computers come the year 6000, if
> >indeed we must wait that long.
>
> Why? What happens then?
I suppose we use our brains to compute then, which are wireless
connected to a distributed processing unit, consisting of the parts of
the brains of other people that are not used momentarely.
Ger
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.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 1970
**************************************
