[10065] in Perl-Users-Digest
Perl-Users Digest, Issue: 3658 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 8 09:07:28 1998
Date: Tue, 8 Sep 98 06:00:17 -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 Tue, 8 Sep 1998 Volume: 8 Number: 3658
Today's topics:
[Perl] How to find the Perl FAQ <rootbeer&pfaq*finding*@redcat.com>
Re: Died at line x? <r.goeggel@atos-group.de>
fork problem <dwiesel@my-dejanews.com>
Help with a bug in a soft! <plateforme@wanadoo.fr>
Re: help with regexp <weav@hursley.ibm.com>
Re: localtime and Y2K <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: localtime and Y2K <sneaker@sneex.fccj.org>
Memory Management <jason.holland@dial.pipex.com>
ODBC and win32 PERL <matt.caswell@hughesrae.co.uk>
Re: ODBC and win32 PERL <matt.caswell@hughesrae.co.uk>
Re: ODBC DBD Module <hendrik.woerdehoff@sdm.de>
Re: Perl Programmer Needed (Roberto)
Re: Perl-based INETD Server for NT?? <jimbo@soundimages.co.uk>
Problem: dereferencing references to hashes <jamespo@N0SPAMyahoo.com>
Re: Problem: dereferencing references to hashes (Mark-Jason Dominus)
Re: Problem: dereferencing references to hashes (David A. Black)
Re: reading a file backward <l.brocard@elsevier.nl>
Re: reading a file backward (Malcolm Hoar)
Stripping out 'bad' HTML <jgoldberg@dial_put-a-decimal-here_pipex.com>
the crypt function <pbm@iotp.demon.co.uk>
Re: Tom Phoenix: ANSWERS WANTED! <jimbo@soundimages.co.uk>
Re: Tom Phoenix: ANSWERS WANTED! <jimbo@soundimages.co.uk>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 08 Sep 1998 10:24:01 GMT
From: Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
Subject: [Perl] How to find the Perl FAQ
Message-Id: <pfaqmessage905250241.7942@news.teleport.com>
Archive-name: perl-faq/finding-perl-faq
Posting-Frequency: weekly
Last-modified: 05 Aug 1998
[ That "Last-modified:" date above refers to this document, not to the
Perl FAQ itself! The last major update of the Perl FAQ was in Summer of
1998; of course, ongoing updates are made as needed. ]
For most people, this URL should be all you need in order to find Perl's
Frequently Asked Questions (and answers).
http://cpan.perl.org/doc/FAQs/
Please look over (but never overlook!) the FAQ and related docs before
posting anything to the comp.lang.perl.* family of newsgroups.
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Beginning with Perl version 5.004, the Perl distribution itself includes
the Perl FAQ. If everything is pro-Perl-y installed on your system, the
FAQ will be stored alongside the rest of Perl's documentation, and one
of these commands (or your local equivalents) should let you read the FAQ.
perldoc perlfaq
man perlfaq
If a recent version of Perl is not properly installed on your system,
you should ask your system administrator or local expert to help. If you
find that a recent Perl distribution is lacking the FAQ or other important
documentation, be sure to complain to that distribution's author.
If you have a web connection, the first and foremost source for all things
Perl, including the FAQ, is the Comprehensive Perl Archive Network (CPAN).
CPAN also includes the Perl source code, pre-compiled binaries for many
platforms, and a large collection of freely usable modules, among its
560_986_526 bytes (give or take a little) of super-cool (give or take
a little) Perl resources.
http://cpan.perl.org/
http://www.perl.com/CPAN/
http://cpan.perl.org/doc/FAQs/FAQ/html/perlfaq.html
http://www.perl.com/CPAN/doc/FAQs/FAQ/html/perlfaq.html
You may wish or need to access CPAN via anonymous FTP. (Within CPAN,
you will find the FAQ in the /doc/FAQs/FAQ directory. If none of these
selected FTP sites is especially good for you, a full list of CPAN sites
is in the SITES file within CPAN.)
California ftp://ftp.cdrom.com/pub/perl/CPAN/
Texas ftp://ftp.metronet.com/pub/perl/
South Africa ftp://ftp.is.co.za/programming/perl/CPAN/
Japan ftp://ftp.dti.ad.jp/pub/lang/CPAN/
Australia ftp://cpan.topend.com.au/pub/CPAN/
Netherlands ftp://ftp.cs.ruu.nl/pub/PERL/CPAN/
Switzerland ftp://sunsite.cnlab-switch.ch/mirror/CPAN/
Chile ftp://ftp.ing.puc.cl/pub/unix/perl/CPAN/
If you have no connection to the Internet at all (so sad!) you may wish
to purchase one of the commercial Perl distributions on CD-Rom or other
media. Your local bookstore should be able to help you to find one.
Another possibility is to use one of the FTP-via-email services; for
more information on doing that, send mail to <mail-server@rtfm.mit.edu>
(not to me!) with these lines in the body of the message, flush left:
setdir usenet-by-group/news.announce.newusers
send Anonymous_FTP:_Frequently_Asked_Questions_(FAQ)_List
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
Comments and suggestions on the contents of this document
are always welcome. Please send them to the author at
<pfaq&finding*comments*@redcat.com>. Of course, comments on
the docs and FAQs mentioned here should go to their respective
maintainers.
Have fun with Perl!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 8 Sep 1998 11:39:16 +0200
From: "Ronald Gvggel" <r.goeggel@atos-group.de>
Subject: Re: Died at line x?
Message-Id: <6t2u4j$g5$1@news.pop-stuttgart.de>
Ken Williams schrieb in Nachricht <6t22db$95s@cabernet.niagara.com>...
>
>Is there a switch for perl that tells it not to send this message to
stdout or
>sterr and just die silently?
die is a function with a parameter.
If this parameter ends with \n the line number won't bi visible.
If it doesn't end with \n (ie if you omit it) the line number will be
printed.
example: open(FILE, $file) or die "can't open file $file: $!\n";
HTH
Ronald
------------------------------
Date: Tue, 08 Sep 1998 09:31:49 GMT
From: Daniel <dwiesel@my-dejanews.com>
Subject: fork problem
Message-Id: <35f4f8eb.3700470@nntpserver.swip.net>
I've got a script in perl that forks alot. However my code doesn't
seem to be correct. The output procuces the same text over and over
again and I can't figure out why.
Please have a look at my code and the output it produces
Here is my code:
================
#!/usr/local/bin/perl -w
use strict;
print "Content-Type: text/plain\n\n";
my $number_of_forks = 5;
my $started_forks = 0;
my $waitedpid = 0;
sub REAPER
{
$waitedpid = wait;
$SIG{CHLD} = \&REAPER;
}
$SIG{CHLD} = \&REAPER;
while ($started_forks < $number_of_forks)
{
my $pid = fork;
# Parent
if ($pid) {
print "$$ forked process $pid (started:
$started_forks)\n";
$started_forks ++;
}
else {
# Child
if (defined $pid) {
print "Child stuff by $$\n";
}
# Failure
else {
print "Fork by $$ failed\n";
}
exit 0;
}
}
wait;
print "$$: Terminating\n";
The output when I run it from a browser
=======================================
Child stuff by 7650
Content-Type: text/plain
7649 forked process 7650 (started: 0)
Child stuff by 7651
Content-Type: text/plain
7649 forked process 7650 (started: 0)
7649 forked process 7651 (started: 1)
7649 forked process 7652 (started: 2)
7649 forked process 7653 (started: 3)
7649 forked process 7654 (started: 4)
7649: Terminating
Content-Type: text/plain
7649 forked process 7650 (started: 0)
7649 forked process 7651 (started: 1)
Child stuff by 7652
Content-Type: text/plain
7649 forked process 7650 (started: 0)
7649 forked process 7651 (started: 1)
7649 forked process 7652 (started: 2)
Child stuff by 7653
Content-Type: text/plain
7649 forked process 7650 (started: 0)
7649 forked process 7651 (started: 1)
7649 forked process 7652 (started: 2)
7649 forked process 7653 (started: 3)
Child stuff by 7654
The output that I thaught my code would produce
===============================================
Content-Type: text/plain
7649 forked process 7650 (started: 0)
Child stuff by 7650
7649 forked process 7651 (started: 1)
Child stuff by 7651
7649 forked process 7652 (started: 2)
Child stuff by 7652
7649 forked process 7653 (started: 3)
Child stuff by 7653
7649 forked process 7654 (started: 4)
Child stuff by 7654
7649: Terminating
# Not necessary in this order...
What am I doing wrong? Can someone give me an example of some working
code? I wan't the output to be as I thaught it would.
// Daniel
------------------------------
Date: Tue, 08 Sep 1998 14:24:00 +0200
From: Plate Forme Jeunes Diplomes <plateforme@wanadoo.fr>
Subject: Help with a bug in a soft!
Message-Id: <35F521DF.F218C97A@wanadoo.fr>
Hello,
I write you because I have got a bug in this script. It must extract
data in a file dr129a.htm, after it must put it in a new file. The fisrt
part has a bug, I don't know how can I make the second part.
Thanks for your help,
Fred.
#!/usr/bin/perl
open (FILE,"Dr129a.htm");
while (<FILE>) {
chomp;
$offre=$1 if /\b (Offre\b.*\bX)/;
$date=$1 if /\b (Date\b.*\b98)/;
$Ale=$1 if /\b (Ale\b.*\bTD)/;
$duree=$1 if /\b (Recherche\b.*\bFONT)/;
$descriptif=$1 if /\b (CENTER\b.*\bFONT)/;
$lieu=$1 if /\b (Lieu\b.*\bFONT)/;
$horaires=$1 if /\b (Horaires\b.*\bFONT)/;
}
close (FILE);
print $offre ;
print $date ;
print $Ale ;
print $duree ;
print $descriptif;
print $lieu ;
print $horaires
------------------------------
Date: Tue, 08 Sep 1998 13:21:17 +0100
From: Nick Weavers <weav@hursley.ibm.com>
To: Uri Guttman <uri@sysarch.com>
Subject: Re: help with regexp
Message-Id: <35F5213D.F468661E@hursley.ibm.com>
Uri Guttman wrote:
>
> >>>>> "NW" == Nick Weavers <weav@hursley.ibm.com> writes:
>
> NW> This is a multi-part message in MIME format.
> NW> Content-Type: text/plain; charset=us-ascii
>
> why do you use MIME for plain text? why do you post MIME at all to this
> group? next time just send the plain code, formatted so it can be
> read. the large string in the beginning is not line wrapped either.
I don't do it intentionally. I use Netscape Communicator to read mail and
newsgroups and have attempted to get it to send mail to newsgroups as plain text.
>
> >> I the string snippet:
> >> f of eiar eiar b is function "="(x : std_logic_vector;y : std_logic_vector ) re
>
> are the "" around = real? you don't match them in the regex.
They are real. Are you saying that \S+ won't match them?
>
> >> 00 #!/perl5
>
> you should not use perl5 as the program name. perl4 is dead. there is
> only the one true perl.
Religious extremism.
>
> >> .. ...
> >> 01 ($type,$funcname,$rest) = $file_string =~ /
> >> 02 \b (?# start at a word boundary)
>
> /x comments can be plain # comment text.
> the form you are using is for inline comments without /x
Thankyou for that.
>
> >> 03 (function) (?# followed by the word "function")
>
> this is \1!!! which you don't use so remove the ()
And that was the problem!
>
> hth,
>
> uri
Yes that helped.
Many thanks,
Nick.
------------------------------
Date: 08 Sep 1998 12:05:43 +0200
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: localtime and Y2K
Message-Id: <7x4suirkaw.fsf@vcpc.univie.ac.at>
Re: localtime and Y2K, james
<james_della_porta@ansett.com.au> said:
james> I understand that
james> localtime does not give a proper representation of
james> the year, and that you need to add 1900 to it.
The representation *is* proper, it depends on whether you
interpret it correctly.
The `years' field holds the number of years elapsed since
1900.
james> new to Perl, so don't bite my head off if this is a
james> little obvious. I just want to make sure, as no-one
It's more to do with how you (in the generic sense) as a
programmer utilise the information.
james> Also, are there any other problems associated with
james> Perl and Y2K?
See http://www.perl.com/
and perlfaq4: Does Perl have a year 2000 problem?
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: Tue, 08 Sep 1998 07:19:43 -0400
From: Bill 'Sneex' Jones <sneaker@sneex.fccj.org>
Subject: Re: localtime and Y2K
Message-Id: <35F512CF.3AC3F921@sneex.fccj.org>
james_della_porta@ansett.com.au wrote:
>
> eg. at the year 2001, will the year from
> localtime() return 101, or could it possibly come back with 01?
> Are the standards for Perl set in concrete?
>
>
> James.
A search of DejaNews will give you a long-winded discussion.
Unless the Perl5Porters are hiding stuff, the following code -
my $fourDigits = ((localtime)[5] + 1900);
Should always work...
HTH,
-Sneex- :]
__________________________________________________________________
Bill Jones | FCCJ Webmaster | http://webmaster.fccj.org/Webmaster
__________________________________________________________________
It is common sense to take a method and try it. If it fails,
admit it frankly and try another. But above all, try something.
-- Franklin D. Roosevelt
------------------------------
Date: Sat, 05 Sep 1998 17:18:25 +0000
From: Jason Holland <jason.holland@dial.pipex.com>
Subject: Memory Management
Message-Id: <35F17261.607C8F11@dial.pipex.com>
Hello all,
I wonder if someone could provide a little ramification about PErl's
memory management?
I'm currently developing an application that retrieves data from a web
server for analysis (no I'm not a spammer!), I'm afraid it's more boring
than that!
Obviously because it's not possible to calculate the amount of data to
be retrieved and managed I use a method of getting a bit, examining it
and then dumping it.
However, what I would like to know is what is the best method of purging
a large scalar from memory, so that it is REALLY deleted.
Monitoring my program from the top application, under Linux, my
application's memory usage just seems to keep increasing, even when I
know that data is supposedly being discarded.
I currently do something like this to clear a scalar:
$scalar = undef;
Correct?
I know that Perl manages it's own garbage collection, so will the memory
usage shrink periodicaly, or not?
Thanks!
--
sub jasonHolland {
my %hash = ( website =>
'http://dspace.dial.pipex.com/jason.holland/',
email => 'jason.holland@dial.pipex.com' );
}
------------------------------
Date: Tue, 08 Sep 1998 12:38:41 +0100
From: Matt Caswell <matt.caswell@hughesrae.co.uk>
Subject: ODBC and win32 PERL
Message-Id: <35F51741.315F6EFA@hughesrae.co.uk>
Can anyone tell me how I connect to my database via ODBC in PERL *and*
supply a username and password for that connection. Looking at Odbc.pm
in the perl lib it only seems to take the DSN as an argument in creating
a new ODBC object - where do I specify the username/password???
Any pointers where I might find the answer to this?
Many thanks
Matt
------------------------------
Date: Tue, 08 Sep 1998 12:52:50 +0100
From: Matt Caswell <matt.caswell@hughesrae.co.uk>
Subject: Re: ODBC and win32 PERL
Message-Id: <35F51A92.FAA751B6@hughesrae.co.uk>
Matt Caswell wrote:
> Can anyone tell me how I connect to my database via ODBC in PERL *and*
> supply a username and password for that connection. Looking at Odbc.pm
> in the perl lib it only seems to take the DSN as an argument in creating
> a new ODBC object - where do I specify the username/password???
>
> Any pointers where I might find the answer to this?
>
> Many thanks
>
> Matt
Forget that. I figured it out. If anyone is interested you can supply a DSN
in the following format:
$DSN = "DSN=<your dsn>;UID=<your username>;PWD=<your password>";
Matt
------------------------------
Date: Tue, 08 Sep 1998 11:00:12 +0200
From: Hendrik Woerdehoff <hendrik.woerdehoff@sdm.de>
Subject: Re: ODBC DBD Module
Message-Id: <35F4F21C.66D4@sdm.de>
Paul Mahoney wrote:
> However, when a call fails, I get error messages
> even though I havn't asked for them to be printed.
>
> Eg:
> [OpenLink][ODBC][Informix Server]Error 135515176
> (-1006 (SQL-S1000)(DBD: st_execute/SQLExecute err=-1) at ./ttt.pl line 27.
>
> The error message is correct.
> This is the content of DBI::errstr ... I didn't print it, so who did?
DBI. You didn't tell it NOT to print the error message.
Taken from "perldoc DBI":
"The AutoCommit and PrintError attributes for each connection default to
default to on[...]"
cu
Hendrik
--
Nach Paragraph 28 Abs. 3 des Bundesdatenschutzgesetz widerspreche ich
der Nutzung oder Uebermittlung meiner Daten fuer Zwecke der Werbung
oder der Markt- oder Meinungsforschung.
Pursuant to US Code, Title 47, Chapter 5, Subchapter II, Sec. 227,
any and all unsolicited commercial E-mail sent to this address
is subject to a download and archival fee in the amount of $500
US (per infraction). E-mailing denotes acceptance of these terms.
--
Hendrik W"ordehoff |s |d &|m | software design & management
| | | | GmbH & Co. KG :
woerdehoff@sdm.de | | | | Thomas-Dehler-Str. 27 >B)
Tel/Fax (089) 63812-337/515 81737 M"unchen :
------------------------------
Date: 8 Sep 1998 10:55:40 GMT
From: roberto@toutatis.net (Roberto)
Subject: Re: Perl Programmer Needed
Message-Id: <roberto-ya02408000R0809981256380001@news.euronet.nl>
In article <8c90jvpeig.fsf@gadget.cscaper.com>, Randal Schwartz
<merlyn@stonehenge.com> wrote:
> As I said, it was for Dejanews. I'm tired of having dozens of
> inappropriate job postings here, instead of in the groups they belong.
> I've not seen enough public compaints, so I expect the problem
> is that no-one sees anyone else taken to task for it.
It might also be people apppreciate it. I recall following a long thread
about exactly this topic about a year ago, joined by several frequent
posters. The general opinion ranged between ok, welcomed and *encouraged*,
as long as they were specifically targeted at perl programmers. After all,
this is perl _misc_, and I too think perl job postings are a lot more
appropriate than a lot of other stuff I see here. Allow yourself a break,
Randall. :-)
--
Roberto Bourgonjen,
roberto@toutatis.net
------------------------------
Date: 04 Sep 1998 18:35:59 +0100
From: Jim Brewer <jimbo@soundimages.co.uk>
Subject: Re: Perl-based INETD Server for NT??
Message-Id: <upvdbvkzk.fsf@jimbosntserver.soundimages.co.uk>
scott@softbase.com writes:
>
> George Kuetemeyer (george.kuetemeyer@mail.tju.edu) wrote:
> > I'm looking for a perl-based INETD server for NT
>
> Since you can't fork() on NT, this would be hard to write.
> Perl 5.005's new threading features might be a way to go.
>
> Scott
Yeah, but you could use the Win32::Process module to roughly the same
effect as fork. You could also use the select object to handle the
socket IO and not worry about the need to fork to service client
requests. I did a small http server and ran as many as twenty
simultaneous clients and the select approach worked very well.
--
Jim Brewer
e-mailed courtesy copies are unappreciated, please refrain.
------------------------------
Date: Tue, 08 Sep 1998 12:35:33 +0100
From: James Powell <jamespo@N0SPAMyahoo.com>
Subject: Problem: dereferencing references to hashes
Message-Id: <35F51685.ADFD754A@N0SPAMyahoo.com>
Okay, I have a pointer to a hash fetched from a DBI call
$hshrf = $sth->fetchrow_hashref;
I can access elements if I know their name by
$hshrf->{'crud'}
How can I dereference $hshrf so I can supply it to
keys to find all the keys in the hash?
f. ex. keys($$hshrf) doesn't work
I've had a look in the camel book and can't work it out!
Please email me if poss.
Thanks,
James
--
-------------------------------------------------------
remove N0SPAM from my email address to reply
-------------------------------------------------------
------------------------------
Date: 8 Sep 1998 08:47:10 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Problem: dereferencing references to hashes
Message-Id: <6t390e$8lm$1@monet.op.net>
In article <35F51685.ADFD754A@N0SPAMyahoo.com>,
James Powell <jamespo@N0SPAMyahoo.com> wrote:
>How can I dereference $hshrf so I can supply it to
>keys to find all the keys in the hash?
>f. ex. keys($$hshrf) doesn't work
Of course not. $$hshrf is a scalar.
You can tell it's a scalar because it begins with a $.
use keys %{$hshrf}.
>I've had a look in the camel book and can't work it out!
>Please email me if poss.
See http://www.plover.com/~mjd/perl/FAQs/References.html
------------------------------
Date: Tue, 8 Sep 1998 08:50:31 EDT
From: dblack@saturn.superlink.net (David A. Black)
Subject: Re: Problem: dereferencing references to hashes
Message-Id: <6t396n$ggu$1@earth.superlink.net>
Hello -
James Powell <jamespo@N0SPAMyahoo.com> writes:
>Okay, I have a pointer to a hash fetched from a DBI call
> $hshrf = $sth->fetchrow_hashref;
>I can access elements if I know their name by
>$hshrf->{'crud'}
>How can I dereference $hshrf so I can supply it to
>keys to find all the keys in the hash?
>f. ex. keys($$hshrf) doesn't work
keys takes a hash as its argument.
$hshrf is a reference to a hash; therefore, %{$hshrf} is a hash.
Therefore: keys %{$hshrf}
or: keys %$hshrf ( {} not needed in this simple case)
David Black
dblack@saturn.superlink.net
------------------------------
Date: Tue, 08 Sep 1998 11:29:57 +0100
From: Leon Brocard <l.brocard@elsevier.nl>
Subject: Re: reading a file backward
Message-Id: <35F50725.1999629A@elsevier.nl>
Heya Abigail, you wrote:
> [ tests based on /etc/termcap ]
>
> I'm not impressed by those figures. /etc/termcap is a relative small
> file; too small to make a difference. It does matter if you're reading
> a 150 Mb file.
RH Linux 5.1:
pooh% ls -l /etc/termcap
-rw-r--r-- 1 root root 434898 May 7 16:43 /etc/termcap
pooh% time perl test1 /etc/termcap > /dev/null
0.270u 0.060s 0:00.87
pooh% time perl test2 /etc/termcap > /dev/null
0.440u 0.080s
pooh% time perl -e 'print reverse <>' /etc/termcap > /dev/null
0.190u 0.050s
;-)
Leon, wondering if anyone else names their computers after
Pooh characters...
--
Leon Brocard...............................................Perl Hacker
l.brocard@elsevier.nl...........................http://www.astray.com/
... I came, I saw, I took LOTS of PICTURES!
------------------------------
Date: Tue, 08 Sep 1998 12:00:22 GMT
From: malch@malch.com (Malcolm Hoar)
Subject: Re: reading a file backward
Message-Id: <6t368p$ann$2@nntp1.ba.best.com>
In article <MPG.105e5fc364115c95989837@nntp.hpl.hp.com>, lr@hpl.hp.com (Larry Rosler) wrote:
>> Note also that the I/O system is highly optimized for forward reading.
>> That's why it does look-ahead. If you run backwards in the file, you
>> thrash it -- just like the Vax-killers of old that would murder VM by
>> doing the same thing in memory.
>
>That is a good point, which another correspondent mentioned to me by e-
>mail. But if it's needed to get the job done...
Assuming that portability and performance are key goals (they should
be IMO) the different design approaches really should be benchmarked
on a basket of different operating systems/environments. The results
for any *one* system could be highly skewed by its particular file
system, caching and buffering implementations.
I'd be happy to run some benchmark scripts under FreeBSD and/or NT,
if any of you folks want to mail them to me. There must be enough
folks here to cover most of the major platforms and the consolidated
results might be quite interesting :-)
--
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Malcolm Hoar "The more I practice, the luckier I get". |
| malch@malch.com Gary Player. |
| http://www.malch.com/ Shpx gur PQN. |
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
------------------------------
Date: Mon, 7 Sep 1998 09:48:43 +0100
From: "Jeremy Goldberg" <jgoldberg@dial_put-a-decimal-here_pipex.com>
Subject: Stripping out 'bad' HTML
Message-Id: <6t06kf$q3p$1@plug.news.pipex.net>
Does anyone have a decent algorithm (or a module, hint, hint) to take text
and strip out 'bad' HTML e.g. "3 < 5" (which should be written as "3 <
5") without stripping 'good' HTML e.g. "<b>3 is less than 5</b>"? It would
be good to allow users to put in HTML (in news articles, say, or message
board articles) without letting them wreck their HTML utterly.
Any ideas gratefully appreciated.
- Jeremy (fix the email address to reply)
------------------------------
Date: Tue, 8 Sep 1998 09:44:02 +0100
From: In off the Post <pbm@iotp.demon.co.uk>
Subject: the crypt function
Message-Id: <TJIAdIAS5O91EwGB@iotp.demon.co.uk>
I'm after details of what the crypt function *actually* does so
I can code it in another language.
Cheers,
--
willa
------------------------------
Date: 07 Sep 1998 09:49:07 +0100
From: Jim Brewer <jimbo@soundimages.co.uk>
Subject: Re: Tom Phoenix: ANSWERS WANTED!
Message-Id: <uww7gwbng.fsf@jimbosntserver.soundimages.co.uk>
nvp@shore.net (Nathan V. Patwardhan) writes:
> birgitt@my-dejanews.com wrote:
>
> : I don't complain about polite posters and the arguments brought forward
> : against Tom Phoenix don't hold and can't be proven. Mr. Patwardhan has
> : also not tried to defend his own arguments indicating that this thread
>
> Sorry that you missed the point of my followups but if it's any
> consolation, most people did and the folks who I wanted to understand:
> understood. As always, Hope this helps!
>
Did your post have any point at all. Not really. If it was that bloody
important you would have contacted Tom P. privately to communicate
your 'concerns', 'comments', 'issues'. We missed the point of your
follow-ups because your original post had no point.
--
Jim Brewer
e-mailed courtesy copies are unappreciated, please refrain.
------------------------------
Date: 07 Sep 1998 07:39:35 +0100
From: Jim Brewer <jimbo@soundimages.co.uk>
Subject: Re: Tom Phoenix: ANSWERS WANTED!
Message-Id: <uyarwwhnc.fsf@jimbosntserver.soundimages.co.uk>
nvp@shore.net (Nathan V. Patwardhan) writes:
> Although I appreciate the fact that Tom Phoenix isn't mean to people,
> I'm sad to admit that I've recognized an ironic trend in his postings.
Clearly you don't appreciate much of anything. I admit I'm not at all
sad your so pathetic. Only surprised that anyone could be so public
about it.
> Over the last year I've read a number of postings like "How do I make
> 'Perl redirect'?" and Tom's response: "Sounds like this is something
> related to your browser or server! You'll need to read the docs and
> FAQs and all that good stuff. Hope this helps!"
>
> And there are hundreds of responses like this on clpmisc! This is way
> too much with too little content!
More like way to much content. Why do you even bother to say such
crap? If every post was as thoughtful as yours, even Tom P. would
leave this group. Get a grip on the facts. There are far too many
posts which have been answered time and time again and which exist in
the documentation. Tom is simply pointing that out. Time and time
again. If you have a problem with this, use your KILL file. Or, better
still, YOU answer, to your level of satisfaction, every one of these
posts.
> Tom, not to ruin your enthusiasm, spit, fire, etc., but I'm afraid
> that your approach has become ineffective. What you've ended up doing
> is adding more noise than would be present if you just ignored folks
> who are asking FAQs or web questions which are not specifically
> related to the Perl language. It's just eerie to read multiple
> postings from you per day which are almost identical.
It's even more eerie to read multiple posting of faq's per day. What
is most eerie of all: Listening to some plonker complain about someone
who is never rude, offers good advice to good questions; offers
obvious advice to obvious questions; offers pointers to advice for
stupid questions. Now THAT IS eerie.
--
Jim Brewer
e-mailed courtesy copies are unappreciated, please refrain.
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3658
**************************************
