[12504] in Perl-Users-Digest
Perl-Users Digest, Issue: 6104 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 23 04:07:35 1999
Date: Wed, 23 Jun 99 01:00:26 -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 Wed, 23 Jun 1999 Volume: 8 Number: 6104
Today's topics:
60 milioni in 14 settimane <accoto@abramo.it>
Re: [q] Timing of a simple looping cycle PERL vs C (Mark-Jason Dominus)
Re: [q] Timing of a simple looping cycle PERL vs C (Ilya Zakharevich)
Re: A buggy intersection-method (Bart Lateur)
About perl books (Filip M. Gieszczykiewicz)
Re: Can I do this? Conditional Operator construct.... (Abigail)
Re: can you split a word into letters? (Michael Stillwell)
Re: can you split a word into letters? (Bart Lateur)
Re: can you split a word into letters? (Abigail)
Re: can you split a word into letters? (Abigail)
CGI Error ? <mark.stellaard@knoware.nl>
Re: Displaying Adds (Abigail)
find(\&wanted, '/whatever') question... (Mitch)
Help! Perl script needed to remove the first line of a moon@zeus.atu.com.au
Re: How to find and delete or replace a section in a li (Abigail)
Re: Interpreting MS-ASCII - anyone have a filter? (Philip 'Yes, that's my address' Newton)
Re: Interpreting MS-ASCII - anyone have a filter? (Philip 'Yes, that's my address' Newton)
Re: Is it better perl than awk ? (Philip 'Yes, that's my address' Newton)
Re: Language choice for high-volume Oracle CGI interfac (Bart Lateur)
Logs descriptor and reporting tools <glchy@cc21.com.sg>
Re: newbie PWS idiocy part 2 <rhrh@hotmail.com>
Re: Newbie PWS problems help! <rhrh@hotmail.com>
Re: NON-BACK Help needed (Abigail)
Re: Perl and Personal Web Server (Win98) <rhrh@hotmail.com>
Re: Perl tutorial (Filip M. Gieszczykiewicz)
Re: Perl tutorial <uri@sysarch.com>
Re: Statistics for comp.lang.perl.misc (Bart Lateur)
Re: Strip off file name by s/\\(.*)$// does not work (Abigail)
Re: Sub Routines Question, Parameters (Abigail)
Re: Summing an array (Abigail)
Re: Summing an array (Abigail)
Re: unable to create or rename files in subdirectories (Abigail)
Re: Using MD5 hash in a regex (Abigail)
Re: What is First line in Perl5 in Sun Micro... <dave@dave.org.uk>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 22 Jun 1999 20:41:51 +0200
From: "Renato Accoto" <accoto@abramo.it>
Subject: 60 milioni in 14 settimane
Message-Id: <7kpsp8$5le$8@waltz.mi.linux.it>
Se hai la mente aperta ed elastica ed hai fiuto sugli affari. Allora h il
momento di metterli a frutto grazie ad un programma multilivello basato su
Internet. Basta un trascurabile investimento iniziale (appena # 32.000) e
potrai raggiungere risultati economici ragguardevoli.
QUESTO E' UN MODO LEGALE PER FARE SOLDI.
Leggi questo messaggio, e leggilo di nuovo !!!
Ti stai per avventurare nel programma piy redditizio che hai mai visto.
E' stata dimostrata la sua capacita' di generare grosse somme di denaro.
Questo programma ti mostrer`' l'enorme quantit` di gente interessata ad
avere redditi aggiuntivi!
E' una legittima, LEGALE occasione di fare soldi.
Non richiede di contattare altra gente, o lavoro duro e pesante, e non devi
uscire di casa, se non per andare alla posta, prendere i soldi e
depositarli!
Questa e' veramente l'occasione fortunata che stavi aspettando!
Segui solo le istruzioni che ti invierr (se me le richiederai) e i tuoi
sogni
diventeranno realt`' !
Quando e' fatto correttamente, questo programma di marketing elettronico
funziona perfettamente.. 100% SEMPRE !!"
Migliaia di persone hanno usato questo programma per accrescere il loro
capitale e iniziare nuove attivit`', pagare debiti, comprare casa, auto
ecc., anche smettere di lavorare !!
"Questa e' la tua occasione, non la sprecare !"
______________________________________________________________________
Malvas ha scritto nel messaggio <7iut7t$4a5$1@news.flashnet.it>...
>
>
>
>
>Tempo fa ho ricevuto una e-mail dal soggetto inverosimile, 36000 $ in 14
>settimane, per pura curiosit` ho voluto leggerla; parlava di un programma
>per la distribuzione di prodotti basato su Internet.
>
>Sinceramente devo dire che ho deciso di accantonare il tutto.
>
>Un particolare perr mi aveva colpito, il livello estremamente basso
>dell'investimento richiesto, per questo motivo ho continuato a pensarci per
>vari giorni.
>
>Per farla breve ho voluto provare, piy per un senso di scommessa che per
>convinzione, ho pensato che in fondo sarei stato solo l'ennesimo pollo
>caduto nella rete ed al massimo avrei perso qualche lira ed un po' di
tempo!
>
>Ora sono qui a raccontarla!
>
>Non posso certo dire di aver ottenuto risultati mirabolanti, perr sin ora
>il mio tempo h stato ben ripagato.
>
>Gli sforzi sono stati tanti, molte ore sulla rete, molte iniziative
>pubblicitarie, molto passaparola.
>
>Perr quando l'attivit` h stata ben impostata ho incominciato ad avere delle
>soddisfazioni ed a diminuire gli sforzi.
>
>Per questo motivo voglio offrire ad altre persone la mia stessa
>opportunit`!!
>
______________________________________________________________________
ALLORA NON ESITARE SCRIVIMI E TI INVIERO' LE ISTRUZIONI.
accoto@abramo.it
------------------------------
Date: Wed, 23 Jun 1999 06:19:59 GMT
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: [q] Timing of a simple looping cycle PERL vs C
Message-Id: <7kpu98$nqg$1@monet.op.net>
In article <7kor9i$gg9@cypress.nwnet.net>, Dean Hudson <deanh@nwnet.net> wrote:
>In article <376fea66@cs.colorado.edu>,
>For those interested also see "Timing Trials, or, the Trials of Timing:
>Experiments with Scripting and User-Interface Languages" by Kernighan
>and Van Wyk for more detailed and task specific benchmarks of various
>languages.
The Perl parts of that paper have some very big problems. Neither of
the authors knows Perl, so they wrote their programs in awk and used
a2p to translate them. They should have known better than to do that
and is discreditable that they tried such an absurd strategy. If
someone was benchmarking C and did not know C and timed the output of
awk2c, they would deserve all the ridicule that they got.
Here's an example of the depth of the authors' ignorance: In the
original version of the paper (since corrected) they presented a Perl
program ``to copy input to output, uninterpreted and unexamined, like
the Unix cat command.'' Here is the program they timed:
while (<>) {
chop;
print $_;
}
The correct, chopless version ran about 25% faster.
When a blunder like this is in the paper, you have to worry a lot
about the other programs, and since the source code does *not* appear
in the paper there is no telling what is going on there.
------------------------------
Date: 23 Jun 1999 06:20:09 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: [q] Timing of a simple looping cycle PERL vs C
Message-Id: <7kpuap$hrb$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Tom Christiansen
<tchrist@mox.perl.com>],
> You have to measure real programs. You have never
> done that. Stop spreading FUD.
Stop spreading lies.
Generally, you perform much better when discussing topics within your
grip. Why won't you restrict yourself to these domains?
Ilya
------------------------------
Date: Wed, 23 Jun 1999 07:33:15 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: A buggy intersection-method
Message-Id: <377484da.2480742@news.skynet.be>
Russ Allbery wrote:
>Yes, but this clobbers your ARGV file handle if something else is doing
>something with it. I think that's what Bart was trying to avoid.
Yup. Plus saving $ARGV (the current filename) at the same time. But, it
doesn't work.
Bart.
------------------------------
Date: 23 Jun 1999 06:53:42 GMT
From: fmgst+@pitt.edu (Filip M. Gieszczykiewicz)
Subject: About perl books
Message-Id: <7kq09m$7tc$1@usenet01.srv.cis.pitt.edu>
Does purchase of the O'Reilly series of books on perl (ie. camel books)
help in the development of perl? I run into people who want to know this
in an almost "religious" way... or they won't buy them. I sort of know
how they feel since I buy retail RedHat releases because I don't have
time/skill to actully help better the OS which I depend on so much...
[sigh, so I'm weird]. What's the answer? Is there a relationship between
sales and development/improvement?
I really find the O'Reilly series useful. I'm not rich but sacrafice
to buy the ones I need. I liked the vi one... handy. And you wouldn't
believe how many of my friends in geology/GIS own their own copies of
the unix in a nutshell books... at least 3 dozen :) (saves me on
answering stupid questions, actually, so I have a reason for
recommending them so highly... no returns thus far :-)
Cheers.
--
Filip "I'll buy a vowel" Gieszczykiewicz | http://www.repairfaq.org/
Always and everything for the better!
Now exploring whatever, life, and the meaning of it all... and 'not' :-)
------------------------------
Date: 23 Jun 1999 01:02:37 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Can I do this? Conditional Operator construct....
Message-Id: <slrn7n0u3l.k1b.abigail@alexandra.delanet.com>
Larry Rosler (lr@hpl.hp.com) wrote on MMCXXII September MCMXCIII in
<URL:news:MPG.11d9e9fde673a0a7989c2a@nntp.hpl.hp.com>:
** [Posted and a courtesy copy sent.]
**
** In article <376fca89.345284973@24.0.3.71> on Wed, 23 Jun 1999 01:40:18
** GMT, Mitch <portboy@home.com> says...
** > I'm trying to use the format for "Conditional Operator" of TEST_EXPR ?
** > IF_TRUE_EXPR : IF_FALSE_EXPR
** >
** > This works fine, but my question is...Can I do this?
** >
** > TEST_EXPR ? $some_value = 1; $other_value =0 : IF_FALSE_EXPR
** > ^
** > I don't seem to be able to do this...Is there a way of accomplishing
** > this in this type of format?
**
** Take your pick.
**
** TEST_EXPR ? $some_value = 1, $other_value = 0 : IF_FALSE_EXPR
**
** TEST_EXPR ? do { $some_value = 1; $other_value = 0 } : IF_FALSE_EXPR
**
** TEST_EXPR ? ($some_value, $other_value) = (1, 0) : IF_FALSE_EXPR
TEST_EXPR && (($some_value, $other_value) = (1, 0)) || IF_FALSE_EXPR;
do {if (TEST_EXPR) {($some_value, $other_value) = (1, 0)}
else {IF_FALSE_EXPR}};
TEST_EXPR ? $some_value = ($other_value = 0) + 1 : IF_FALSE_EXPR;
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
-----------== 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: 23 Jun 1999 06:38:58 GMT
From: mist@yoyo.cc.monash.edu.au (Michael Stillwell)
Subject: Re: can you split a word into letters?
Message-Id: <slrn7n1081.2a1.mist@fangorn.cs.monash.edu.au>
In article <slrn7n0qmb.k1b.abigail@alexandra.delanet.com>, Abigail wrote:
: The above benchmark is fine if you want to benchmark "how to find the
: first character of a string". It's bloody pointless in benchmarking
: "the equivalent of chop() that removes from the beginning of the string".
In a similar vein, is the following a bullet-proof equivalent of chomp
that returns the chomp'ed value?
sub champ {
my @a = @_;
chomp @a;
return @a;
}
I want this because I prefer to do
my $hostname = champ(`hostname`);
instead of
my $hostname;
chomp($hostname = `hostname`);
Michael
--
.. ABSOLUT .SIG. ..
.. Michael Stillwell ..
.. mist@yoyo.cc.monash.edu.au ..
.. http://yoyo.cc.monash.edu.au/~mist/ ..
------------------------------
Date: Wed, 23 Jun 1999 07:33:17 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: can you split a word into letters?
Message-Id: <37758600.2774481@news.skynet.be>
Abigail wrote:
>No, he didn't. It no longer does what it is supposed to do. I wrote
>pohc for that other thread, that wanted the equivalent of chop(), but
>then removing the first letter. That is, pohc modifies its argument(s),
>falling back to $_ if no argument is given. Neither the regex, nor the
>the splits or substr modify the argument. Nor do they work on lists. Or
>deal with no arguments at all. There's a reason why pohc is written as
>it's written.
Use the 4 argument substr.
Simple solution (no lists):
$chopped = substr($var,0,1,"")
Who needs lists anyway? :-)
Bart.
------------------------------
Date: 23 Jun 1999 02:20:23 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: can you split a word into letters?
Message-Id: <slrn7n12lc.k1b.abigail@alexandra.delanet.com>
Michael Stillwell (mist@yoyo.cc.monash.edu.au) wrote on MMCXXII September
MCMXCIII in <URL:news:slrn7n1081.2a1.mist@fangorn.cs.monash.edu.au>:
"" In article <slrn7n0qmb.k1b.abigail@alexandra.delanet.com>, Abigail wrote:
""
"" : The above benchmark is fine if you want to benchmark "how to find the
"" : first character of a string". It's bloody pointless in benchmarking
"" : "the equivalent of chop() that removes from the beginning of the string".
""
"" In a similar vein, is the following a bullet-proof equivalent of chomp
"" that returns the chomp'ed value?
""
"" sub champ {
""
"" my @a = @_;
""
"" chomp @a;
"" return @a;
""
"" }
No, as C<champ> doesn't do the equivalent of C<chomp>.
(That is, operate on $_.)
Abigail
--
perl -MNet::Dict -we '(Net::Dict -> new (server => "dict.org")
-> define ("foldoc", "perl")) [0] -> print'
-----------== 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: 23 Jun 1999 02:27:23 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: can you split a word into letters?
Message-Id: <slrn7n132j.k1b.abigail@alexandra.delanet.com>
Abigail (abigail@delanet.com) wrote on MMCXXII September MCMXCIII in
<URL:news:slrn7n12lc.k1b.abigail@alexandra.delanet.com>:
() Michael Stillwell (mist@yoyo.cc.monash.edu.au) wrote on MMCXXII September
() MCMXCIII in <URL:news:slrn7n1081.2a1.mist@fangorn.cs.monash.edu.au>:
() "" In article <slrn7n0qmb.k1b.abigail@alexandra.delanet.com>, Abigail wrote:
() ""
() "" : The above benchmark is fine if you want to benchmark "how to find the
() "" : first character of a string". It's bloody pointless in benchmarking
() "" : "the equivalent of chop() that removes from the beginning of the string".
() ""
() "" In a similar vein, is the following a bullet-proof equivalent of chomp
() "" that returns the chomp'ed value?
() ""
() "" sub champ {
() ""
() "" my @a = @_;
() ""
() "" chomp @a;
() "" return @a;
() ""
() "" }
()
() No, as C<champ> doesn't do the equivalent of C<chomp>.
() (That is, operate on $_.)
And far worse, champ doesn't *modify* its arguments, like chomp does. Duh!
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
-----------== 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: Wed, 23 Jun 1999 09:21:21 +0200
From: "Mark Stellaard" <mark.stellaard@knoware.nl>
Subject: CGI Error ?
Message-Id: <7kq1r1$qp5$1@tasmania.dev.ict.nl>
Hello,
Currently I'am using a CGI script for uploading file's to the server tru a
HTTP Browser.
But every time I'am getting the following error:
Premature end of script headers: /home/vdo/cgi-vdo/file-upload.cgi
Can anybody tell me what's wrong?
If I try another uploading CGI script I get the same error, so it's unlikely
to be a error in the script itself, but maybe some error from Apache 1.3.6?
I'am using CGI module 2.53
Does anybody know's thanx !
Greetz, Mark
------------------------------
Date: 23 Jun 1999 01:04:41 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Displaying Adds
Message-Id: <slrn7n0u7h.k1b.abigail@alexandra.delanet.com>
j_a_p@my-deja.com (j_a_p@my-deja.com) wrote on MMCXXI September MCMXCIII
in <URL:news:7kov8d$kn1$1@nnrp1.deja.com>:
"" I want to write a simple function that displays adds and changes the
"" picture every so often. I know this can be done using JavaScript, but
"" it has been so long since I have used this language I don't know where
"" to get started. Could someone help or suggest a site that could answer
"" my question. The type of thing I am talking about is like what apears
"" at the top of the deja page. An add apears and after a while an knew
"" add appears.
Looks like the webmaster of deja could answer your question.
Of course, we all know that ads on webpages are more evil than M$.
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: Wed, 23 Jun 1999 06:28:37 GMT
From: portboy@home.com (Mitch)
Subject: find(\&wanted, '/whatever') question...
Message-Id: <37707d7d.3166995@24.0.3.71>
Okay currently in order to printout all file in the "/whatever"
directory I'm doing something like this:
sub list
{
find(\&wanted, '/whatever');
}
sub wanted {
my $tmp;
my $tmp2;
print "==$File::Find::name\n" if ! -d;
$tmp2 = "$File::Find::name";
openit($tmp2) if ! -d;
}
sub openit {
my $temp = shift;
open(TEMP, "$temp") or die "Can't open $temp: $!";
print while (<TEMP>);
close(TEMP);
}
And the output is something like this:
==/whatever/foo/bar
a bunch of text
==/whatever/foo2/hehe
ads
dfasd
dsf
...
Anyway, this works great. however, I would like to be able to write
this stuff to a file. So, in the body of a while(<FILE>) print this
stuff out to FILE (an open file descriptor for writing). How can I
modify what I've already go to do this, or do I need to revamp what
I've currently got?
Thanks, mitch
------------------------------
Date: Wed, 23 Jun 1999 06:25:06 GMT
From: moon@zeus.atu.com.au
Subject: Help! Perl script needed to remove the first line of a file
Message-Id: <7kpujr$ug8$1@nnrp1.deja.com>
Lets say we have a $file ..
i want it to run the first line of the file, or extract the first line,
when thats been done i want it to remove that line.
An addition to this would be to insert a line (or more) to the end of
the file.
soo..
all in all, a script that will get line1 from $file, remove it .. while
another perl script is inserting a LINE at the end of the $file.
Help on this would be muchly appreciated.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 23 Jun 1999 01:10:43 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: How to find and delete or replace a section in a line
Message-Id: <slrn7n0uis.k1b.abigail@alexandra.delanet.com>
Vox (v0xman@yahoo.com) wrote on MMCXXI September MCMXCIII in
<URL:news:rWOb3.160419$r_1.34643763@newscontent-02.sprint.ca>:
~~ If I have a string such as:
~~
~~ "ineedhelpinfindinganddeletingasectioninastring"
~~
~~ and the section of this line above that I want to delete or replace is
~~ 'findinganddeleting'
~~ Does anyone have any suggestions?
Hire a programmer.
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(
HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (
LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET",
"http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content))
=~ /(.*\))[-\s]+Addition/s) [0]'
-----------== 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: Wed, 23 Jun 1999 07:39:48 GMT
From: nospam.newton@gmx.net (Philip 'Yes, that's my address' Newton)
Subject: Re: Interpreting MS-ASCII - anyone have a filter?
Message-Id: <37708ab4.52935632@news.nikoma.de>
On Tue, 22 Jun 1999 18:59:57 +0200, "Alan J. Flavell"
<flavell@mail.cern.ch> wrote:
>On Tue, 22 Jun 1999, Philip 'Yes, that's my address' Newton wrote:
>
>(NB ISO-Latin-1 == ISO-8859-1)
>
>NB, pedantically, ISO-Latin-1 is a repertoire of characters, without
>reference to their coding. The ISO-specified character coding for the
>Latin-1 repertoire is indeed ISO-8895-1, but the same repertoire of
>characters is also included in CP850 and in one of the EBCDIC code pages
>(it was called CECP1047 when I was involved in that stuff), as well as
>in Windows-1252.
Ah. I thought the two were equivalent (and seem to remember seeing
ISO-8859-9 being called "Latin alphabet no. 1").
I used to think Latin-n == ISO-8859-n for all n, but saw a listing
which shows this breaks down because of Cyrillic, Greek, Arabic, and
Hebrew in the middle; Latin-5 == ISO-8859-9 IIRC.
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.net>
------------------------------
Date: Wed, 23 Jun 1999 07:39:49 GMT
From: nospam.newton@gmx.net (Philip 'Yes, that's my address' Newton)
Subject: Re: Interpreting MS-ASCII - anyone have a filter?
Message-Id: <37708b3f.53075197@news.nikoma.de>
On Tue, 22 Jun 1999 14:15:14 -0700, lr@hpl.hp.com (Larry Rosler)
wrote:
>I just rechecked the appearance of ´ using Netscape Navigator 4
>and M$IE 5, and they look symmetric with the backtick, i.e., just fine.
Font?
(i.e. "I'm sure there are fonts where the two characters look
symmetric, and others where they look awful".)
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.net>
------------------------------
Date: Wed, 23 Jun 1999 07:39:48 GMT
From: nospam.newton@gmx.net (Philip 'Yes, that's my address' Newton)
Subject: Re: Is it better perl than awk ?
Message-Id: <37708a3d.52817332@news.nikoma.de>
>In Article <7JA-eLymw-B@khms.westfalen.de>, through puissant locution,
>kaih=7JA-eLymw-B@khms.westfalen.de (Kai Henningsen) soliloquized:
>[snip]
>>As for database access, I seem to recall hearing about an SQL engine
>>written in awk+sh. Yes, I do think that's pretty perverted.
I heard of a database (not sure whether SQL or not) implemented with
Unix shell tools cut, paste, grep (and possibly a couple of others).
Must have been very strange indeed. (Possibly apocryphal, though.)
Cheers,
Philip
--
Philip Newton <nospam.newton@gmx.net>
------------------------------
Date: Wed, 23 Jun 1999 07:51:13 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Language choice for high-volume Oracle CGI interface?
Message-Id: <37788f20.5110826@news.skynet.be>
Lee Fesperman wrote:
>> $fdat{my_form_name}
>>
>> No explicit lookup. Those seem like perfect matches to me.
>
> That's exactly what I meant -- those are explicit lookups. Similiar to a
> C function call
>-- cgiLookup("my_form_name").
You haven't got a clue how it's implemented, do you? It uses an
extremely efficient mechanism (hashes), which makes it virtually
instantanious. Tests have shown that hash (string indexed) access is
only about 30% slower than the plain (numerically indexed) array access.
>Also, the dollar sign and braces notation is hardly
>intuitive to experienced developers from other languages.
For a VERY SHORT while. Say, two days at most. But not full-time.
>>>If you are recommending that Perl CGI is a good choice for an
>>>experienced developer in Perl, I wholeheartedly agree with you.
>>
>> s/ in Perl//;
>
>Another notation that is rare in other languages.
Their loss.
>> My experience with languages limited to one problem domain is that they
>> are just that: Limited.
>As if Perl was more than a scripting language!
Troll. You obviously hardly have a clue what you're talking about.
There is NOTHING you'd ever want do in CGI, that Perl doesn't support.
> If you want general purpose, try Java (On topic !?!), C, Assembly.
If you don't mind writing absolutely everything from scratch, or using
somebody else's (buggy?) libraries.
Bart.
------------------------------
Date: Tue, 22 Jun 1999 22:55:40 -0800
From: glchy <glchy@cc21.com.sg>
Subject: Logs descriptor and reporting tools
Message-Id: <930120942.19489@www.remarq.com>
Hi,
im looking for some (preferably free downloads!) of tools
which can analyse Apache log files and give meaningful
reports about web traffic.
Any suggestions/URLS?
Cheers.
glchy.
**** Posted from RemarQ - http://www.remarq.com - Discussions Start Here (tm) ****
------------------------------
Date: Wed, 23 Jun 1999 08:22:54 +0100
From: Richard H <rhrh@hotmail.com>
Subject: Re: newbie PWS idiocy part 2
Message-Id: <37708B4E.B726548B@hotmail.com>
Have a look at:
http://www.rhclc.freeserve.co.uk/demo/pws.html
which basically says reinstall PWS if you cant be bothered to go there!
and tells you the registry entry.
Richard H
------------------------------
Date: Wed, 23 Jun 1999 08:17:42 +0100
From: Richard H <rhrh@hotmail.com>
Subject: Re: Newbie PWS problems help!
Message-Id: <37708A16.D754D670@hotmail.com>
see response to your first post
------------------------------
Date: 23 Jun 1999 01:35:00 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: NON-BACK Help needed
Message-Id: <slrn7n100c.k1b.abigail@alexandra.delanet.com>
Tim (bie@connect.ab.ca) wrote on MMCXX September MCMXCIII in
<URL:news:376E8877.2EAD@connect.ab.ca>:
^^ Hello,
^^
^^ I am making a game & I want to be able to stop the user from simply
^^ pushing back on their
^^ browser and trying again. How can I do this?
1) This has nothing to do with Perl.
2) You cannot disable the back function of a browser. Period.
For the very same reason I cannot change your front door into
a one way door.
Abigail
--
perl -wleprint -eqq-@{[ -eqw+ -eJust -eanother -ePerl -eHacker -e+]}-
-----------== 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: Wed, 23 Jun 1999 08:24:58 +0100
From: Richard H <rhrh@hotmail.com>
Subject: Re: Perl and Personal Web Server (Win98)
Message-Id: <37708BCA.D3688395@hotmail.com>
seems to be PWS day today :-)
ive a page http://www.rhclc.freeserve.co.uk/demos/pws.html
with some instructions and a copied script which <could> do it for you.
usual disclaimers for distributing somebody elses code!!
Richard H
------------------------------
Date: 23 Jun 1999 07:03:16 GMT
From: fmgst+@pitt.edu (Filip M. Gieszczykiewicz)
Subject: Re: Perl tutorial
Message-Id: <7kq0rk$80e$1@usenet01.srv.cis.pitt.edu>
In Article <376E8295.52CFD687@technologist.com>, through puissant locution, JDDemme <jddemme@technologist.com> soliloquized:
>I'm too cheap to buy a perl book, so does anybody know of a really good
>perl tutorial. More than just CGI and files. more that what
>www.cgi-101.com has.
Look in discount book stores... I've found "Teach yourself Perl in 21 days"
with CD-ROM for $6.99.... etc. So far no O'Reilly books as such but I'm
keeping my fingers crossed :-)
--
Filip "I'll buy a vowel" Gieszczykiewicz | http://www.repairfaq.org/
Always and everything for the better!
Now exploring whatever, life, and the meaning of it all... and 'not' :-)
------------------------------
Date: 23 Jun 1999 03:15:05 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Perl tutorial
Message-Id: <x7g13j75hi.fsf@home.sysarch.com>
>>>>> "FMG" == Filip M Gieszczykiewicz <fmgst> writes:
FMG> Look in discount book stores... I've found "Teach yourself Perl
FMG> in 21 days" with CD-ROM for $6.99.... etc. So far no O'Reilly
FMG> books as such but I'm keeping my fingers crossed :-) -- Filip
and you overpaid.
i doubt anyone will massively discount o'reilly books for a while. if
they are in print, they can sell them without dumping them. i have see a
maximum discount of about %40 on o'reilly books (usually the best is
bookpool.com but not for every book).
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Wed, 23 Jun 1999 07:33:13 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <377383f4.2250661@news.skynet.be>
Abigail wrote:
>I don't think FAQs are
>original content, but Gregs little program thinks they are. Why doesn't
>anyone get upset about that,
I mentioned that. I called it "posts like TomC's, with lots of extracts
from, for example, PERLFUNC".
> yet they waste long threads about quoting prefixes?
Because that is fun?
Bart.
------------------------------
Date: 23 Jun 1999 01:39:37 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Strip off file name by s/\\(.*)$// does not work
Message-Id: <slrn7n1091.k1b.abigail@alexandra.delanet.com>
Franz GEIGER (f.geiger@vol.at) wrote on MMCXXI September MCMXCIII in
<URL:news:7ko61l$lvr$1@pollux.ip-plus.net>:
%% I wanted to strip off the file name from a fully qualified file name which
%% should result in the directory name.
%%
%% I thought "s/\\(.*)$//" would do it. I read this as "find a backslash
%% followed by zero or more characters, but begin searching from the end of the
%% string".
Where in the documentation did you find it would start looking from the
end of the string? Perhaps you want to use a combination of rindex and substr.
%% What I want to do could be achieved by split() or by basename(), but I
%% really wonder how to do it with RegExp as I really want to master it.
It's easy. You want to do something starting from the last \. That's the
first (and only) \ not followed by one. So:
s/\\(?![^\\]*\\).*//;
You might want to look up how regular expression work again, and pay extra
attention to (?! )
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
-----------== 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: 23 Jun 1999 01:18:57 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Sub Routines Question, Parameters
Message-Id: <slrn7n0v29.k1b.abigail@alexandra.delanet.com>
Franklin Edward Sadler (gte482i@prism.gatech.edu) wrote on MMCXXI
September MCMXCIII in <URL:news:7ko4fm$1m9@catapult.gatech.edu>:
|| Alright, another quick question. How do you pass variables into sub
|| routines? Im under the impression you do it when you call it,
|| for ex. getArray($a,$b);
|| If this is they way do u have to do anything in the sub routine to take in
|| these variables? Any help would be appreciated.
Nope. Sadly enough, you can pass as many variables into subs as you
want, but that's just to show off. There's no way to get to them anymore.
Yes, I know the documentation claims you can, but take an example from
smart Franklin Edward. He knows you shouldn't read the documentation!
That's all garbage!
Abigail
--
perl -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
print chr 0x$& and q
qq}*excess********}'
-----------== 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: 23 Jun 1999 01:21:56 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Summing an array
Message-Id: <slrn7n0v7s.k1b.abigail@alexandra.delanet.com>
James Stewart (james@britlinks.co.uk) wrote on MMCXXI September MCMXCIII
in <URL:news:ant2219160e6Lh==@ch0128.charis.co.uk>:
'' Just wondering how to find the sum of all the elements of an array. A
'' look through the FAQs doesn't yield an answer. I guess I could do it with
'' a loop, but I'm guessing there's a more elegant solution.
$sum = do {local $" = "+"; eval "@array"}; # Do you see a loop here?
Abigail
--
perl -MNet::Dict -we '(Net::Dict -> new (server => "dict.org")
-> define ("foldoc", "perl")) [0] -> print'
-----------== 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: 23 Jun 1999 01:22:22 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Summing an array
Message-Id: <slrn7n0v8n.k1b.abigail@alexandra.delanet.com>
Tom Christiansen (tchrist@mox.perl.com) wrote on MMCXXI September
MCMXCIII in <URL:news:376feb19@cs.colorado.edu>:
__ [courtesy cc of this posting mailed to cited author]
__
__ In comp.lang.perl.misc,
__ James Stewart <james@britlinks.co.uk> writes:
__ :Just wondering how to find the sum of all the elements of an array. A
__ :look through the FAQs doesn't yield an answer. I guess I could do it with
__ :a loop, but I'm guessing there's a more elegant solution.
__
__ A loop is inelegant?
Yeah, it makes me dizzy.
Abigail
--
perl -wle '$, = " "; print grep {(1 x $_) !~ /^(11+)\1+$/} 2 .. shift'
-----------== 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: 23 Jun 1999 01:24:59 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: unable to create or rename files in subdirectories
Message-Id: <slrn7n0vdk.k1b.abigail@alexandra.delanet.com>
JQ (pigs_can_fly@mindless.com) wrote on MMCXXI September MCMXCIII in
<URL:news:3772d2c9.41303568@news.cyberway.com.sg>:
~~
~~ Can someone point me in the right direction?
Perl can. But if you tell Perl to shut up, it will keep quiet.
Study pervar.
(I said STUDY! Not glance!)
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
-----------== 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: 23 Jun 1999 01:28:09 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Using MD5 hash in a regex
Message-Id: <slrn7n0vjh.k1b.abigail@alexandra.delanet.com>
kev (kevin.porter@fast.no) wrote on MMCXXI September MCMXCIII in
<URL:news:376FFA48.2216E21@fast.no>:
[]
[]
[] I am trying to compare the new MD5 hash with the previous MD5 hash, ie:
[]
[] if ( $lastchksum !~ /$newchksum/ ) { $changed = 1; }
Why? Why not compare the checksums?
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
-----------== 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: Wed, 23 Jun 1999 09:00:09 +0100
From: Dave Cross <dave@dave.org.uk>
To: Shane Fisher <fishers@lister.acm.wwu.edu>
Subject: Re: What is First line in Perl5 in Sun Micro...
Message-Id: <37709409.F9EE3F38@dave.org.uk>
Shane Fisher wrote:
>
> On Mon, 21 Jun 1999, Dave Cross wrote:
>
> > On 21 Jun 1999 18:05:59 GMT, saic@shirdi.corp.sun.com (Sai Chimakurty)
> > wrote:
> >
> > > I have a Perl5 script. I have in the first line
> > > #!/usr/dist/exe/perl5 -w. But it doesn't seem to work. Can any
> > > one help me in telling me the right path of putting in the
> > > first line for perl5 program.
> >
> > It really depends where Perl has been installed on your system. It's
> > impossible for anyone here to know. Best you ask your system
> > administrator.
> >
>
> Try typing "which perl5" or "which perl"
>
> I apologize if this has already been answered.
As others in this thread have pointed out - this only works if Perl has
been installed on your path.
Dave...
------------------------------
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 6104
**************************************
