[12386] in Perl-Users-Digest
Perl-Users Digest, Issue: 5986 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 14 11:07:23 1999
Date: Mon, 14 Jun 99 08:00:19 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 14 Jun 1999 Volume: 8 Number: 5986
Today's topics:
Re: Afraid to ask about Y2K! <droby@copyright.com>
Box Plots using Perl & GD? <s_shah@ix.netcom.com>
Re: Checking URL's for 404 Errors in Perl CGI (Abigail)
Re: Dynamic Regular Expression (Marcel Grunauer)
Re: Fix this uglyness (Abigail)
Help with UDP in Win32 <MurphKE1@aplmsg.jhuapl.edu>
Re: How to write search engine like Yahoo?? <smiles@wfubmc.edu>
Re: How to write search engine like Yahoo?? (Kvan)
Re: macperl - directory names with embedded spaces (J. Moreno)
Re: Match pattern - urgent <gellyfish@gellyfish.com>
Re: Match pattern - urgent (Larry Rosler)
Re: Match pattern - urgent michc@my-deja.com
Re: Match pattern - urgent <anzej@skavt.net>
Re: MIcrosofts Attack on Perl <gbartels@xli.com>
Re: overwrite "print" ? <tchrist@mox.perl.com>
Parellel operation sherifhanna@my-deja.com
Re: Perl "constructors" <jdporter@min.net>
Re: PERL tutorial <perlguy@technologist.com>
Practical Extraction and Report Language <fruffet@kaptech.com>
Re: Practical Extraction and Report Language <gellyfish@gellyfish.com>
Re: simple math question! Why doesn't the * multiply t <pavel@asei.cz>
Re: Sort log (Twarren10)
Re: Sort log (Twarren10)
Re: trouble with this script , plz take a look <gellyfish@gellyfish.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 14 Jun 1999 13:24:19 GMT
From: Don Roby <droby@copyright.com>
Subject: Re: Afraid to ask about Y2K!
Message-Id: <7k2vpq$ol3$1@nnrp1.deja.com>
In article <7jspcn$2c4$1@nnrp1.deja.com>,
finsol@ts.co.nz wrote:
> Some of these Perl coders have a lot to learn -
> perhaps the hard way. Most of them only know one computer language and
> only one computing environment - and they think they know it all!
>
An interesting claim. Have you scientific survey data to back this up?
--
Don Roby
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 14 Jun 1999 09:14:52 -0500
From: "Snehanshu Shah" <s_shah@ix.netcom.com>
Subject: Box Plots using Perl & GD?
Message-Id: <7k330v$iop@sjx-ixn9.ix.netcom.com>
Does anyone have a package that can generate Box Plots
using Perl and GD?
Thanks,
Shah
--
-----------------------------------------
Snehanshu Shah
HiveTech, Inc.
ph. (512) 791 4372
fax. (630) 839-7513
shah@hivetech.com
www.hivetech.com
------------------------------------------
------------------------------
Date: 13 Jun 1999 22:04:44 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Checking URL's for 404 Errors in Perl CGI
Message-Id: <slrn7m8sqp.bmf.abigail@alexandra.delanet.com>
Mug-O-Milk (webmaster@*nospam*mugomilk.freeserve.co.uk) wrote on MMXCI
September MCMXCIII in <URL:news:7i9ks9$92l$1@news4.svr.pol.co.uk>:
<>
<> What would the code I would need to scan the database for the URL's, and
<> visit each one in turn to check that the URL is valid - (i.e. not returning
<> a Error 404, File Not Found) and, subsequently remove the line from the
<> database and append it to a "kick list" file which would store all the lines
<> that have invalid / broken URL's?
use LWP::UserAgent;
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 14 Jun 1999 14:02:48 GMT
From: marcel.grunauer@lovely.net (Marcel Grunauer)
Subject: Re: Dynamic Regular Expression
Message-Id: <37650b1e.3044567@enews.newsguy.com>
On Sun, 13 Jun 1999 22:45:31 -0400, "Pamela Goldfarb"
<pamelag@interlog.com> wrote:
>A user will supply a search criteria:
>
>word1 word2 - match if both word1 and word2 present
>word1 and word2 - same
>word1 or word2 - match if either present
>
>I want to create a perl script that can parse the input string and then
>search a file based on the search
>criteria.
Have a look at the modules Text::Query::Simple and
Text::Query::Advanced, available on well-stocked CPAN sites. They
provide you pretty much with what you want to do. That wheel has been
invented already.
HTH
Marcel
------------------------------
Date: 13 Jun 1999 22:06:39 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Fix this uglyness
Message-Id: <slrn7m8sud.bmf.abigail@alexandra.delanet.com>
Alan (alanp@unixpower.org) wrote on MMCXII September MCMXCIII in
<URL:news:slrn7m8gc5.vno.alanp@osiris.unixpower.org>:
^^ I haven't the time to do it myself, so could someone please fix the systeming
^^ I used when I got tired:
How much are you willing to pay?
Abigail
--
perl -wlpe '}$_=$.;{' file # Count the number of lines.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Mon, 14 Jun 1999 10:03:35 -0400
From: "Kevin Murphy" <MurphKE1@aplmsg.jhuapl.edu>
Subject: Help with UDP in Win32
Message-Id: <7k3235$phi$1@houston.jhuapl.edu>
I am attempting to write a Perl script to read UDP datagrams
being broadcast from a GPS receiver. Unfortunately, I have been
unable to make the simplest of test scripts using UDP function -
using ActiveState 5.17 and WindowsNT. I can make test scenarios
with TCP sockets work just fine, but I'm stuck with UDP and WindowsNT
for the end product. The UDP samples in the PerlIPC documentation
don't seem to work properly for me (assuming I'm using them correctly).
Any suggestions?? Can anybody provide a sample UDP client that
works in WinNT??
Thank you..
--
"I know nothing, and that which I believe is mostly
wrong and subject to continual revision"
Kevin Murphy
------------------------------
Date: Mon, 14 Jun 1999 10:09:20 -0400
From: Steve Miles <smiles@wfubmc.edu>
Subject: Re: How to write search engine like Yahoo??
Message-Id: <37650D10.361189FF@wfubmc.edu>
--------------23307ABE2A370C1A684CF32D
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Try http://www.gossamer-threads.com/scripts/links/index.htm
wilson wrote:
>
> Hi, I want to write a chinese search engine likeyahoo.
> Is Perl as a first choice? Has any web site to teach people how to
> write a search engine? Thank you for helping.
--
=============================================
Steve Miles (smiles@wfubmc.edu)
----> http://www.groundbreak.com <----
Wake Forest University School of Medicine
5019 Hanes, Medical Center Blvd.
Winston-Salem, NC 27157
Phone: 336.716.0454 FAX: 336.716.7200
=============================================
--------------23307ABE2A370C1A684CF32D
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Try <A HREF="http://www.gossamer-threads.com/scripts/links/index.htm">http://www.gossamer-threads.com/scripts/links/index.htm</A>
<p>wilson wrote:
<blockquote TYPE=CITE>
<br><font size=+1>Hi, I want to write a chinese search engine likeyahoo.</font>
<br><font size=+1>Is Perl as a first choice? Has any web site to teach
people how to</font>
<br><font size=+1>write a search engine? Thank you for helping.</font></blockquote>
<p>--
<br>=============================================
<br>Steve Miles (smiles@wfubmc.edu)
<br>----> <A HREF="http://www.groundbreak.com">http://www.groundbreak.com</A> <----
<br>Wake Forest University School of Medicine
<br>5019 Hanes, Medical Center Blvd.
<br>Winston-Salem, NC 27157
<br>Phone: 336.716.0454 FAX: 336.716.7200
<br>=============================================
<br> </html>
--------------23307ABE2A370C1A684CF32D--
------------------------------
Date: Mon, 14 Jun 1999 14:06:37 GMT
From: kvan@dis.dk (Kvan)
Subject: Re: How to write search engine like Yahoo??
Message-Id: <37650b9a.342481572@news.newsguy.com>
On Mon, 14 Jun 1999 19:28:02 +0800, wilson <ywkwong9@netvigator.com>
wrote:
>Hi, I want to write a chinese search engine likeyahoo.
>Is Perl as a first choice? Has any web site to teach people how to
>write a search engine? Thank you for helping.
Your first choice is a general programming resource, like a class or
some sort of self study, in order to learn about algorithms for
searching and what not. Then you need to learn CGI, and only then
should you worry about what language to write actual code in. This
should be whatever language you feel more comfortable in.
HTH,
Kvan.
-------Casper Kvan Clausen------ | 'A *person* is smart. People are
---------<kvan@dis.dk>---------- | dumb, panicky, dangerous animals
| and you know it.'
| - "K" in Men in Black.
------------------------------
Date: Mon, 14 Jun 1999 10:40:29 -0400
From: planb@newsreaders.com (J. Moreno)
Subject: Re: macperl - directory names with embedded spaces
Message-Id: <1dtd7nc.18oqdoi1wrs18wN@roxboro0-0020.dyn.interpath.net>
Chris Nandor <pudge@pobox.com> wrote:
> In article <376084ae.2050185@news.skynet.be>, bart.lateur@skynet.be (Bart
> Lateur) wrote:
>
> # Tom Phoenix wrote:
> #
> # >> How do I specify the path to a file where the some of the folder
> # >> (directory) names have embedded spaces?
> # >
> # >The same way as with any other file name. :-)
> # >
> # > my $file_name = "I've got spaces";
> # > open FILE, $file_name
> # > or die "Can't open '$file_name': $!";
> # >
> # >Well, I know that was the file name which had spaces in it, but it's the
> # >same principle. Have fun with Perl!
> #
> # Problems will occur if your filename begin or end with spaces. That IS
> # legal on a Mac, and open() will strip them. Blimey. You then need to use
> # the more complex 3-parameter sysopen().
>
> Same thing with Unix, and all other platforms that allow a filename to
> begin or end with spaces.
>
> # But, actually, I don't think it's the spaces causing you trouble. I've
> # noticed that open() will NOT WORK if the filename or the folder path
> # contains a null byte. That too IS LEGAL on a Mac.
>
> It is? Hrm. I thought nulls in filenames were illegal. Do you have any
> docs on this?
--
John Moreno
------------------------------
Date: 14 Jun 1999 15:05:24 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Match pattern - urgent
Message-Id: <37650c24@newsread3.dircon.co.uk>
Anzej Becan <anzej@skavt.net> wrote:
> Hi!
>
> Sorry for blackmailing post, it's realy urgent.
>
> I should decode datas from fixed width record:
>
> PEAR 14.220 14.400 14.317 20.898
> APRICOT 33.320 34.190 33.863 5.853
> SUNFLOWER SEED 2.104 2.105 2.104 135
>
You probably want to use 'unpack':
#!/usr/local/bin/perl -w
use strict;
while(<DATA>)
{
chomp;
my @field = unpack "A23A10A10A10A10",$_;
print join '|',@field;
}
__END__
PEAR 14.220 14.400 14.317 20.898
APRICOT 33.320 34.190 33.863 5.853
SUNFLOWER SEED 2.104 2.105 2.104 135
Check out the perlfunc entry for unpack (and pack) for more on this.
/J\
--
"Teletext - the information super B-road" - Exclusive, Channel 5
------------------------------
Date: Mon, 14 Jun 1999 06:51:10 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Match pattern - urgent
Message-Id: <MPG.11cea89a3b979cc4989bdd@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <7k2tqd$pi3$1@planja.arnes.si> on Mon, 14 Jun 1999 14:48:46
+0200, Anzej Becan <anzej@skavt.net> says...
...
> I should decode datas from fixed width record:
>
> PEAR 14.220 14.400 14.317 20.898
> APRICOT 33.320 34.190 33.863 5.853
> SUNFLOWER SEED 2.104 2.105 2.104 135
perldoc -f unpack
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 14 Jun 1999 13:47:18 GMT
From: michc@my-deja.com
Subject: Re: Match pattern - urgent
Message-Id: <7k3153$p43$1@nnrp1.deja.com>
In article <7k2tqd$pi3$1@planja.arnes.si>,
"Anzej Becan" <anzej@skavt.net> wrote:
> Hi!
>
> Sorry for blackmailing post, it's realy urgent.
>
> I should decode datas from fixed width record:
>
> PEAR 14.220 14.400 14.317 20.898
> APRICOT 33.320 34.190 33.863 5.853
> SUNFLOWER SEED 2.104 2.105 2.104 135
>
split is not the appropriate function for fixed width. Try substr or unpack
instead.
Michelle
> I tried with split, but I don't find the right match pattern:
> foreach $data(@data)
> {
> @field = split (/*****/, $data);
> table_row_print;
> }
>
> Then I should handle results in print them in table. This part I know well
> :-))
>
> Thanks for any suggestions!
>
> Anzej Becan
>
> - - - - - - - - - - - - - - - - - - - - - - -
> Ob Radoljni 58
> 2344 Lovrenc na Pohorju
> SLOVENIA
> ++ 386 62 675082
> - - - - - - - - - - - - - - - - - - - - - - -
> anzej@skavt.net - http://www.skavt.net/~anzej
>
>
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 14 Jun 1999 16:52:37 +0200
From: "Anzej Becan" <anzej@skavt.net>
Subject: Re: Match pattern - urgent
Message-Id: <7k354l$t5l$1@planja.arnes.si>
> > I tried with split, but I don't find the right match pattern:
> i would use substr().
Thanks, I tried with substr() and results are exactly the same as I want.
Now I have another question :-)
Can I include in my script external file somewhere from web. I tried with:
$ext_file="http://www.somewhere.com/doc/file.dat";
but I got error message.
A also read some perl books but I nowhere find this answer.
Thanks again!
Anzej
------------------------------
Date: Mon, 14 Jun 1999 09:13:53 -0400
From: Greg Bartels <gbartels@xli.com>
Subject: Re: MIcrosofts Attack on Perl
Message-Id: <37650011.82830687@xli.com>
jgrain wrote:
>
> > "What is the current strategy of those at the very top"
>
> If you replied to this post do you know the answer? - I hesitatingly point
> that a limited number of the many respondants who spent their valuable time
> first reading and then responding to this post did not reply to this
> question, maybe it was because I missed out the ? after the question, for
> people who English is not a first language, this may be challenging I
> guess...........
"Open Sources" exactly answers that question,
and does so much more thoroughly than could be discussed here.
it also gives you a pretty good list of who is "at the very top"
in the open source community.
> > An answer to this post would be very much appreciated as I am one of the
> > "few" who would actively participate in "movements" to counteract the
> > negative force of "inforced capatilism".
> >
>
> Did anyone have a comment about this section, if memory and history serves
> me correctly, then again there was little response to this comment.....
There is no grenade to throw yourself on, even if you wanted,
Its up to the authors of perl to implement whatever copyright license
they wish. if the license allows their work to be used by
a commercial company without the source code modifications
being returned to open-source, then that is the choice of the
authors.
As I said, there are 3 focus points:
the authors, and how they license their open-source code.
the companies, and how they use or abuse the openly licensed code
the consumers, and whether they will boycott commercial products
that abuse openly licensed code.
> A wise man once said there are three types of people
> Those who did not know it happened
> Those who heard about it
> Those who anticipated it happening
>
> A question you should take very seriously, with thought, not emotion, is in
> which category do you fit?
if you anticipate it happening, convince the authors to strengthen
the license, before it becomes a problem.
if you heard about it as its happening, then you
could convince the company to rethink their approach, in spite
of a weak license, to honor it as an open source license.
if you didnt know it happened until its already done, then
you're left with the option of boycotting the company,
waging a mudslinging campaign, etc.
> > Awaiting a reply from the high command!
>
> The last one was answered...... :-)
>
------------------------------
Date: 14 Jun 1999 08:46:48 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: overwrite "print" ?
Message-Id: <376515d8@cs.colorado.edu>
[courtesy cc of this posting mailed to cited author]
In comp.lang.perl.misc, info@java.seite.net writes:
:Is "print" something special and if so is there another way
:to overwrite it?
In English, we generally use the term "override", not "overwrite". Have
you been reading the German translation of the Camel? The translators
chose |berschrieben not |bergehen, which while understandable, leads to
phrasing such as yours.
Anyway, the answer is that yes, print() is special and may not be
overridden. Here are the keywords that are not overridable:
__DATA__ defined foreach m printf return
__END__ END grep my package s
AUTOLOAD else goto map prototype scalar
BEGIN eval glob next q shift
chop each INIT no qr sort
chomp elsif if pop qq split
DESTROY exists keys pos qw splice
do for last push qx study
delete format local print redo sub
Note the presence of "print" in the preceding table.
And here are those keywords that *are* able to be overridden--at least
in theory. In practice, some of these make no sense, like the named
boolean operators, CORE, and a few others. The three double-underscore
tokens are certainly odd to contemplate.
CORE ge lt setservent
__FILE__ getc mkdir setsockopt
__LINE__ getgrent msgctl shmctl
__PACKAGE__ getgrgid msgget shmget
abs getgrnam msgrcv shmread
accept gethostbyaddr msgsnd shmwrite
alarm gethostbyname ne shutdown
and gethostent not sin
atan2 getlogin oct sleep
bind getnetbyaddr open socket
binmode getnetbyname opendir socketpair
bless getnetent or sprintf
caller getpeername ord sqrt
chdir getpgrp pack srand
chmod getppid pipe stat
chown getpriority quotemeta substr
chr getprotobyname rand symlink
chroot getprotobynumber read syscall
close getprotoent readdir sysopen
closedir getpwent readline sysread
cmp getpwnam readlink sysseek
connect getpwuid readpipe system
continue getservbyname recv syswrite
cos getservbyport ref tell
crypt getservent rename telldir
dbmclose getsockname require time
dbmopen getsockopt reset times
die gmtime reverse truncate
dump gt rewinddir uc
endgrent hex rindex ucfirst
endhostent index rmdir umask
endnetent int seek unlink
endprotoent ioctl seekdir unpack
endpwent join select utime
endservent kill semctl values
eof lc semget vec
eq lcfirst semop wait
exec le send waitpid
exit length setgrent wantarray
exp link sethostent warn
fcntl listen setnetent write
fileno localtime setpgrp x
flock lock setpriority xor
fork log setprotoent
formline lstat setpwent
The metric I use here is the one in /usr/src/perl/toke.c.
Those functions that may be overridden are:
% perl -nle 'print $1 if /return\s+KEY_(\w+)/' toke.c
Those functions that may not be overridden are:
% perl -nle 'print $1 if /return\s*-KEY_(\w+)/' toke.c
^
This means that you ^
cannot override the ^
keyword in question --> ^
--tom
--
In the long run, every program becomes rococo, and then rubble.
-- Alan Perlis
------------------------------
Date: Mon, 14 Jun 1999 13:58:08 GMT
From: sherifhanna@my-deja.com
Subject: Parellel operation
Message-Id: <7k31pa$pb5$1@nnrp1.deja.com>
I'm trying to write a Perl script where I want to spawn several
processes, and have them run in parallel.
That is, I do not want Perl to stop at the point of execution, finish
the subroutine, then continue. I want to run the subroutine while still
executing the calling subroutine.
So if I am in process 1, and I spawn process 2 from process 1 at x
seconds after execution, I want process 1 and process 2 to run in
parallel.
How can I do that in Perl?
Perl 5 on RedHat.
Thanks,
Sherif
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 14 Jun 1999 13:40:43 GMT
From: John Porter <jdporter@min.net>
Subject: Re: Perl "constructors"
Message-Id: <7k30op$p12$1@nnrp1.deja.com>
In article <7k2ae3$hsj$1@nnrp1.deja.com>,
armchair@my-deja.com wrote:
> my only concern is that
> you do not consider Perl just a programming language.
That is clearly not your only concern, and it's one which I have
labored to dispel. Perl is little more than a programming language,
although it is a great one.
> per John Porter, C++ is just object oriented portable assembler.
You are attributing to C++ things I said about C.
> to you power comes in the form of a lack of compile time error
> checking.
Perl does not lack compile-time error checking.
All syntax errors, for example, are checked at compile time.
One of the many things that makes Perl powerful is its run-time
error checking, of a sort that would be impossible (or prohibitively
expensive) in static languages like C and C++.
> I will be happy to summarize what you said, and feel free to point out
> where you discuss Perl features:
These following quotes and pseudo-quotes come nowhere near summarizing
what I and others have said about Perl in this thread.
> "C is merely portable assembler".
> "C/C++ are low-level and Perl is high-level. In what way is it higher
> level? Why just read the manual and seek enlightenment".
For the record, that is not a quote.
And you conveniently omitted other things I did say besides RTFM.
> "Anything in C++ that is not in Perl is just a result of the fact that
> C++ is object oriented extentions to a low-level language".
For the record, that is not a quote, and is not even an accurate
summary of my attitude toward C++.
Anything in C++ that is not in Perl is not necessary in a
high-level language. There's a quote for you.
> Since I have repeatedly given you a chance to demonstrated the
assembler
> source code equivalent to a nested for loop in C, and you have been
> unable to do so, I will have to assume that you realize what you are
> doing, and what it is.
Not unable, only unwilling, in full recognition of the fact that
you know as well as I do what the equivalent assembly code would
look like, and that merely printing it on the page would have no
effect on your inability to comprehend its equivalence to the C
code.
> > I'm not "downgrading" anything. There's nothing despicable
> > about being a low-level language. All these things have there
> > strengths and their purposes.
>
> Sure you are downgrading it. You are equating C and assembler.
I disagree with you that this is "downgrading".
All these things have their strengths and their purposes, and I
do not view assembler as inferior. "Low-level" does not mean
"low-quality" or "undesirable". There's a time and a place for
all these languages.
> > Object allocation and disposition is still a concern in
> > C++. This is one of the reasons so many C++ programmers are
> > switching to Java.
>
> Object allocation and disposition are not still a concern if you are
> using the STL and commercial or homegrown object libraries.
That's just plain false, and the fact that you assert it means
either you don't know what you are talking about, or you assume
I don't know enough C++ to know that you're lying.
The truth is, object allocation and disposition are still a
significant concern for C++ programmers, and inattention to
to it still leads to major bugs, no matter what libraries
may be in use.
--
John Porter
Put it on a plate, son. You'll enjoy it more.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 14 Jun 1999 09:53:04 -0500
From: Brent Michalski <perlguy@technologist.com>
Subject: Re: PERL tutorial
Message-Id: <37651750.56733296@technologist.com>
webreview.com has some articles.
Perlsonally ;-), I like to start at http://www.perl.com
It is the best starting point for all things Perl....
Brent
Georgy Mateev wrote:
>
> Where can i find good tutorial for PERL?
>
> Georgy Mateev
> mateev@geocities.com
------------------------------
Date: Mon, 14 Jun 1999 15:11:45 +0200
From: "Fred Ruffet" <fruffet@kaptech.com>
Subject: Practical Extraction and Report Language
Message-Id: <7k2v2v$ici$1@gatekeeper.ornano.kapt.com>
Hi, everybody
I need to write a small paper ON (not in) perl. I've searched for many
information, but all I obtained was the (a) meaning of "perl" which his the
subject of this message. I would like to ask a question :
When is perl born ? a year would be enough, but if anybody knows of a
precise hour when the light came on Larry Wall... :-)
I would appreciate any more information about perl creation and things like
that (Not a lot of things, I don't want all of your time).
Thanks for any answer,
--
Fridiric Ruffet - fruffet@kaptech.com
"Rest is silence" - W. Shakespeare
------------------------------
Date: 14 Jun 1999 15:17:08 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Practical Extraction and Report Language
Message-Id: <37650ee4@newsread3.dircon.co.uk>
Fred Ruffet <fruffet@kaptech.com> wrote:
> Hi, everybody
>
> I need to write a small paper ON (not in) perl. I've searched for many
> information, but all I obtained was the (a) meaning of "perl" which his the
> subject of this message. I would like to ask a question :
> When is perl born ? a year would be enough, but if anybody knows of a
> precise hour when the light came on Larry Wall... :-)
>
see the perlhist manpage or
<http://www.perl.com/CPAN/doc/manual/html/pod/perlhist.html>
if you dont have access the to perl documentation locally.
/J\
--
"I thought homogenous culture was a kind of yogurt used to alleviate
thrush" - Ben Elton
------------------------------
Date: Mon, 14 Jun 1999 16:00:39 +0200
From: Pavel Hlavnicka <pavel@asei.cz>
Subject: Re: simple math question! Why doesn't the * multiply two numbers?
Message-Id: <37650B07.614545B4@asei.cz>
Yes,
as many other said, problem is in *, which is replaced with all files in
directory by the shell.
I've another notice. You can use this scripts as cmd line calculator.
The simplest one (as far as i know):
print eval shift; #wonderful, isn't it?
it requires only one argument (no spaces or quoting)
More "robust" one:
print eval join "", @ARGV;
supports more than one argument (allow spaces)
Problem with * remains (it's shell's responsibility)
--
Pavel Hlavnicka
A.S.E.I. Ltd; Prague
tel.: +420 2 24106102
e-mail: pavel@asei.cz
------------------------------
Date: 14 Jun 1999 14:50:44 GMT
From: twarren10@aol.com (Twarren10)
Subject: Re: Sort log
Message-Id: <19990614105044.22860.00001505@ng-fu1.aol.com>
>
>Try out my first suggestion - believe me that is what you want to do.
>
hi again,
I did try it, and I just tried it again. I get the same results. The date comes
up ok this way, but then the sort doesn't work and they're no longer in
descending order. I've replaced one problem with another. I'm trying to figure
out why, but as yet have not traced the problem. Any suggestions?
------------------------------
Date: 14 Jun 1999 14:53:43 GMT
From: twarren10@aol.com (Twarren10)
Subject: Re: Sort log
Message-Id: <19990614105343.22860.00001506@ng-fu1.aol.com>
>I think what Jonathon wrote actually answered your question, did you try
>the code he gave you?
Yes, but it doesn't sort when I do that. I just tried it again with the same
results, The dates are in alright, but now the sorting is not working
correctly.
------------------------------
Date: 14 Jun 1999 14:54:09 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: trouble with this script , plz take a look
Message-Id: <37650981@newsread3.dircon.co.uk>
Bastiaan S van den Berg <office@asc.nl> wrote:
> some way or the other , this is unable to run ..
>
IN what way is it unable to run ? This is not a very useful
diagnostic.
> i can't get the errors by redirecting STDERR to STDOUT
> i can't get the logs , cause my isp won't let me
>
Have you read what it says in perlfaq9 about this :
How can I get better error messages from a CGI program?
> i've tried locating it in the faqs but haven't found it..
>
have you looked in the CGI FAQ ?
<http://www.webthing.com/tutorials/cgifaq.html>
Or the idiots guid to solving CGI problems:
<http:/www.perl.com//CPAN/doc/FAQs/cgi/idiots-guide.html>
> =[code]=
>
> %invoer=&cgiparse();
>
> $uit="uittest.txt";
>
> open (UIT, ">>$uit") || die "Aaaaaaaaaaargh!!! : $!";
> print UIT 'Time is now : ',scalar(localtime),"\n";
> print UIT 'email : ',$invoer{mail},"\n";
> close UIT;
>
> =[end]=
>
The code is fine as far as it goes - except I cant see where the subroutine
cgiparse is define and you havent got a shebang line and if this is
supposed to be working in a CGI environment then it omits sending any
headers - I would also recommend that you use CGI.pm. Also you might
benefit from looking at <http://hoohoo.ncsa.uiuc.edu/cgi/>.
/J\
--
"As usual I'm the price you have to pay for the funny bits" - Denis Norden
------------------------------
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 5986
**************************************
