[16872] in Perl-Users-Digest
Perl-Users Digest, Issue: 4284 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 11 11:05:33 2000
Date: Mon, 11 Sep 2000 08:05:12 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <968684712-v9-i4284@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 11 Sep 2000 Volume: 9 Number: 4284
Today's topics:
[CGI.pm] : Problems with multiple in scrolling list and <c.combet@ibcp.fr>
Compression Assistance <skpurcell@hotmail.com>
Re: Compression Assistance (Gwyn Judd)
debugger oddity (Michael P. Soulier)
Re: debugger oddity (Tom Christiansen)
Re: Getting started w/ Perl <randy_734@my-deja.com>
JavaProgrammer need help for Perl regular expression ranskaboss@my-deja.com
LDAP web searches (peter furmonavicius)
Re: LittleProblem (Kai Diefenbach)
Re: LittleProblem <graham.wood@iona.com>
Re: LittleProblem huw_watkins@my-deja.com
Re: LittleProblem <mcnultya@nortelnetworks.com>
Re: LittleProblem <Peter.Dintelmann@dresdner-bank.com>
Re: LittleProblem <mcnultya@nortelnetworks.com>
Re: LittleProblem <Peter.Dintelmann@dresdner-bank.com>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Not matching regex strings <nomail@hursley.ibm.com>
Re: Not matching regex strings (Mark-Jason Dominus)
Out of memory <vilts@tv1.ee>
Processing all files in a directory <haf@autra.noXX>
Re: Processing all files in a directory (Mike Stok)
Re: Processing all files in a directory <Peter.Dintelmann@dresdner-bank.com>
Re: Processing all files in a directory (Kai Diefenbach)
Re: Processing all files in a directory (Tom Christiansen)
Re: Qualifications for new Perl programmer????? (Gwyn Judd)
Re: regular expression syntax (Gwyn Judd)
s/// mystery: regexp challenge <ruedas@geophysik.uni-frankfurt.de>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: use strict: why? (Helgi Briem)
Re: why on earth can't locate <rt106745@uk.sun.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 11 Sep 2000 16:00:02 +0200
From: Christophe COMBET <c.combet@ibcp.fr>
Subject: [CGI.pm] : Problems with multiple in scrolling list and group of checkboxes
Message-Id: <39BCE562.360FBAA1@ibcp.fr>
Hi,
I'm using CGI.pm 2.70 and perl5 (5.0 patchlevel 5 subversion 3), Netscape 4.7 and OS is SGI IRIX
6.5.6m.
I built a form with a scrolling list. The -multiple=>'true' argument is set.
print $html->scrolling_list(-name=>'foo', -values=>\@values, -size=>3, -multiple=>'true');
After the form has been processed, I write foo values to a file to store them.
To edit the data, I read them from the file and fill a CGI object ($html).
$html->param(-name=>'foo', -values=>\@read_values);
Then $html is given to the PrintForm subroutine.
In this subroutine, I check that the filling of foo param is good :
@cur_val=$html->param('foo');
print @cur_val;
The good values are printed.
When the form is printed the values are not selected. Why ?
I've got the same problem with a group of related checkboxes
print $html->checkbox_group(-name=>'foo2', -values=>\@values2, -linebreak=>'true');
Thanks for help.
--
Christophe COMBET
http://pbil.ibcp.fr/~combet mailto:c.combet@ibcp.fr
PBIL - Pole Bio-Informatique Lyonnais Tel: (+33) (0)4 72 72 26 46
IBCP (CNRS-UPR 412), Lyon, France Fax: (+33) (0)4 72 76 90 50
------------------------------
Date: Mon, 11 Sep 2000 08:12:29 -0500
From: "spurcell" <skpurcell@hotmail.com>
Subject: Compression Assistance
Message-Id: <39bcdb17$0$24056@wodc7nh0.news.uu.net>
Hello,
I am doing CGI work with Perl, on a IIS server running NT4.0. The program is
an Asset Management System that allows the end-users to download
hi-resolution TIFF files. The end-users for the most part are on
Macintosh-based systems. I have been given a spec, to somehow have the files
compressed in a way that Stuffit Deluxe will open. (EG. a .sea files would
be the best. That would be a self-extracting archive.). So my thoughts are
when someone requests a file, I would go locate the hi-res on the server,
then compress it, and show them a link to download the file.
So my questions is, does anyone know if there is a module for creating a
.sea files that would be compliant on the Mac, or if anyone has any
suggestions that may work for this situation.
Thanks
Scott
------------------------------
Date: Mon, 11 Sep 2000 13:53:48 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Compression Assistance
Message-Id: <slrn8rpp67.383.tjla@thislove.dyndns.org>
I was shocked! How could spurcell <skpurcell@hotmail.com>
say such a terrible thing:
>Hello,
>I am doing CGI work with Perl, on a IIS server running NT4.0. The program is
>an Asset Management System that allows the end-users to download
>hi-resolution TIFF files. The end-users for the most part are on
>Macintosh-based systems. I have been given a spec, to somehow have the files
>compressed in a way that Stuffit Deluxe will open. (EG. a .sea files would
>be the best. That would be a self-extracting archive.). So my thoughts are
>when someone requests a file, I would go locate the hi-res on the server,
>then compress it, and show them a link to download the file.
>
>So my questions is, does anyone know if there is a module for creating a
>.sea files that would be compliant on the Mac, or if anyone has any
>suggestions that may work for this situation.
It's been a while but I think stuffit can handle .gz's quite nicely so
why not gzip the file before sending it...actually if their webbrowsers
are set up right it will decompress it automatically...this question is
of course completely off-topic for this newsgroup, the question is the
same whatever language you ask it in ;)
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
Never trust anyone who says money is no object.
------------------------------
Date: 11 Sep 2000 13:43:24 GMT
From: msoulier@nortelnetworks.com (Michael P. Soulier)
Subject: debugger oddity
Message-Id: <8pinhs$k69$1@bmerhc5e.ca.nortel.com>
Ok, maybe there's a good reason for this, but I don't see it.
[wmerh0sw-msoulier-msoulier]$ perl -de 0
Loading DB routines from perl5db.pl version 1.0401
Emacs support available.
Enter h or `h h' for help.
main::(-e:1): 0
DB<1> use FileHandle
DB<2> my $privateHandle = new FileHandle
DB<3> x $privateHandle
0 undef
DB<4> $globalHandle = new FileHandle
DB<5> x $globalHandle
0 FileHandle=GLOB(0x4003d4f8)
-> *Symbol::GEN1
As you can see, while in the debugger, the lexical instance of FileHandle
is undefined. And yet, if I do this outside of the debugger...
[wmerh0sw-msoulier-test]$ cat try
#!/bnr/projects/pegasus/perl5 -w
use FileHandle;
use Data::Dumper;
my $privateHandle = new FileHandle;
$globalHandle = new FileHandle;
print Dumper $privateHandle;
print Dumper $globalHandle;
[wmerh0sw-msoulier-test]$ ./try
$VAR1 = bless( \*Symbol::GEN0, 'FileHandle' );
$VAR1 = bless( \*Symbol::GEN1, 'FileHandle' );
Seems to work fine outside of the debugger.
Any explanation for this behaviour in the debugger?
Thanks,
Mike
--
Michael P. Soulier, 1Z22, SKY Tel: 613-765-4699 (ESN: 39-54699)
Optical Networks, Nortel Networks, SDE Pegasus
"...the word HACK is used as a verb to indicate a massive amount
of nerd-like effort." -Harley Hahn, A Student's Guide to UNIX
Nortel Linux User's Group Ottawa: (internal) http://nlug.ca.nortel.com:8080
------------------------------
Date: 11 Sep 2000 08:26:44 -0700
From: tchrist@perl.com (Tom Christiansen)
Subject: Re: debugger oddity
Message-Id: <39bceba4$1@cs.colorado.edu>
In article <8pinhs$k69$1@bmerhc5e.ca.nortel.com>,
Michael P. Soulier <msoulier@nortelnetworks.com> wrote:
> DB<2> my $privateHandle = new FileHandle
> DB<3> x $privateHandle
>0 undef
What is the scope that owns that lexical? It's the eval STRING
which each command executes under, of course. So why are you my()ing
it? In this scenario, you're saying "make sure this goes away after
this statement". If you are trying to set the variable in the
currently executing scope, even if that's a lexical, you'd better
now do that.
--tom
------------------------------
Date: Mon, 11 Sep 2000 14:13:30 GMT
From: Randy <randy_734@my-deja.com>
Subject: Re: Getting started w/ Perl
Message-Id: <39bce6c3.2061765@207.126.101.100>
Phil, if you need to set up Unix, it is quite simple to set up a
multi-boot system, with Linux on a separate small partition. That
makes a good learning environment, as well as a great place for
testing your Perl work. Also, someone suggested learning some general
programming in another language first. I would strongly agree. Perl
is an extremely powerful and adaptable language, but its free form,
unstructured nature probably makes it the absolute worst language to
begin learning programming.
my \$\.02
Randy Harris
Phil <gphil111@my-deja.com> wrote:
>Id really like to get into learning perl (specifically for cgi
>purposes).
>
>I dont have any programming knowledge, or knowledge of Unix. Just
>another MS Win guy here (although I'd definately consider myself
>advanced, as far as computer knowledge)
>
>So, where to get started?
>
>Since Perl is mainly for Unix environments, should I start with
>learning a Unix OS first?
>
>Or should I jump right into a Perl book? Already considering the many
>recomendations that have been posted...
>
>Im really serious about learning this. I absorb general computing info
>rather quickly, so just how long (approx), spending several hours a
>day, should getting it down take.... from now to pumping out working
>cgi scripts for my sites?
>
>Thanks much
>Phil
>
>
>
>Sent via Deja.com http://www.deja.com/
>Before you buy.
------------------------------
Date: Mon, 11 Sep 2000 13:27:18 GMT
From: ranskaboss@my-deja.com
Subject: JavaProgrammer need help for Perl regular expression
Message-Id: <8pimj1$8l8$1@nnrp1.deja.com>
Hello,
I'm a java programmer, and I need some help. But why I am Here, ehhehe
simply because I use
a librairie for Java which use Perl regular expression (Jakarta-oro).
In their example, there is a regular expresion wich must recognize any
sentence wich contain "C++".
(\\w[^\\.?!]*C\\+\\+|C\\+\\+)[^\\.?!]*[\\.?!]
But, even with my perl book and the rest of my remember, I don't
really see how work this expression. Is there somebody wich can explain
to me this little stuff (the (), the double \\...) ?
And I need an advice from Perlprogrammer :)
I have a file wich contain data like that:
$Line [1] Toto ! TotoKill $Cref aTotoKill( "10.10.10.20:7202",
"NOTEPAD.EXE",,,,EVERYTHING POSSIBLe,,,, , 10000 )
$Line [2] Toto ? TotoKillCnf $Cref aTotoKillCnf(?) $VerdictId
(OK)
$Line [3] Bob ! BobKill $Cref aBobKill( xxxxxxxxxxx )
It is possible with the Perl regular expression to catch all the
interesting stuff I need, for exemple the number of the line,the
String Toto and Bob,the ? or the !,the parameter ... even if between
the parenthesis after aTotoKill, we can have everything (that can maybe
corrupt the scanner if there is some ambigus string that the expression
can take) ? Because I'm affraid that maybe I will have to use some YACC
for Java and grammar file, but I will really prefer to do it with this
Perl librairie...
Any suggestion ?
Thank you for your help!
Greg
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 11 Sep 00 10:30:26 EDT
From: PETER@YaleVM.YCC.Yale.edu (peter furmonavicius)
Subject: LDAP web searches
Message-Id: <FF93C2S86.PETER@YaleVM.YCC.Yale.edu>
Hello. I was wondering if someone might be able to point me to some code
that could be used as a web interface to an LDAP directory for the
purposes of doing searches. I would like to set up a web page that
would be used to search our LDAP directory. Thanks.
- peter
------------------------------
Date: Mon, 11 Sep 2000 13:44:20 GMT
From: k.diefenbach@tpp24.net (Kai Diefenbach)
Subject: Re: LittleProblem
Message-Id: <39bce16f.31231859@news.talknet.de>
Hi nezarite,
nezarite wrote:
>Hey there,
>
>I'm trying to do an algorithm to cycle through all possible combinations of
>a number of letters in a string.
>
>I'm not very good at making myself clear, but this should help:
>
>I want to print the following:
>
>aaaa
>aaab
>aaac
>...
>...
>zzzz
>
#!perl -w
use strict;
print "$_\n" for ('aaaa'..'zzzz');
best regards
Kai
__
come to the team
kai.diefenbach@tsg-handball.de
http://www.tsg-handball.de
------------------------------
Date: Mon, 11 Sep 2000 14:49:33 +0100
From: "Graham Wood" <graham.wood@iona.com>
Subject: Re: LittleProblem
Message-Id: <8piob7$d5r$1@bvweb.iona.com>
foreach(aaaa .. zzzz){
print "$_\n";
}
Graham Wood
nezarite <mcnultya@nortelnetworks.com> wrote in message
news:8pijjj$l2g$1@qnsgh006.europe.nortel.com...
> Hey there,
>
> I'm trying to do an algorithm to cycle through all possible combinations
of
> a number of letters in a string.
>
> I'm not very good at making myself clear, but this should help:
>
> I want to print the following:
>
> aaaa
> aaab
> aaac
> ...
> ...
> zzzz
>
> Can anyone suggest an idea ?
> The closest I have got is :
>
> my $string = "aaaa";
> my $length = length($string);
>
> my @alphabet = (a..z);
>
> for $len (1..$length) {
> for $let (@alphabet) {
> substr($string,$length-$len,1) = $let;
> print $string;
> print "\n";
> }
> }
>
> But that doesn't really do what i want...
>
> Cheers,
>
> Nez.
>
>
------------------------------
Date: Mon, 11 Sep 2000 13:45:37 GMT
From: huw_watkins@my-deja.com
Subject: Re: LittleProblem
Message-Id: <8pinlq$a2u$1@nnrp1.deja.com>
Hi,
Is this what you are after?
foreach $let ('aaa'..'zzz') {
print "$let\n";
}
Regards,
Huw Watkins
huw@sharpsoftware.co.uk
--
Learning Perl? http://perltutor.com
In article <8pijjj$l2g$1@qnsgh006.europe.nortel.com>,
"nezarite" <mcnultya@nortelnetworks.com> wrote:
> Hey there,
>
> I'm trying to do an algorithm to cycle through all possible
combinations of
> a number of letters in a string.
>
> I'm not very good at making myself clear, but this should help:
>
> I want to print the following:
>
> aaaa
> aaab
> aaac
> ...
> ...
> zzzz
>
> Can anyone suggest an idea ?
> The closest I have got is :
>
> my $string = "aaaa";
> my $length = length($string);
>
> my @alphabet = (a..z);
>
> for $len (1..$length) {
> for $let (@alphabet) {
> substr($string,$length-$len,1) = $let;
> print $string;
> print "\n";
> }
> }
>
> But that doesn't really do what i want...
>
> Cheers,
>
> Nez.
>
>
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 11 Sep 2000 15:02:22 +0100
From: "nezarite" <mcnultya@nortelnetworks.com>
Subject: Re: LittleProblem
Message-Id: <8piojg$nhf$1@qnsgh006.europe.nortel.com>
Kai Diefenbach <k.diefenbach@tpp24.net> wrote in message
news:39bce16f.31231859@news.talknet.de...
> #!perl -w
> use strict;
> print "$_\n" for ('aaaa'..'zzzz');
>
> best regards
> Kai
Cheers Kai !
Doesn't suprise me that it's that easy.
This is one of the reasons I love working with Perl !!
Nez.
------------------------------
Date: Mon, 11 Sep 2000 16:09:39 +0200
From: "Dr. Peter Dintelmann" <Peter.Dintelmann@dresdner-bank.com>
Subject: Re: LittleProblem
Message-Id: <8pip2b$slb2@intranews.bank.dresdner.net>
Kai Diefenbach schrieb in Nachricht
<39bce16f.31231859@news.talknet.de>...
>#!perl -w
>use strict;
>print "$_\n" for ('aaaa'..'zzzz');
which can even be shortend to
print "$_\n" for 'aaaa'..'zzzz';
Cool... ;-)
Peter
------------------------------
Date: Mon, 11 Sep 2000 15:26:23 +0100
From: "nezarite" <mcnultya@nortelnetworks.com>
Subject: Re: LittleProblem
Message-Id: <8piq0j$o65$1@qnsgh006.europe.nortel.com>
Dr. Peter Dintelmann <Peter.Dintelmann@dresdner-bank.com> wrote in message
news:8pip2b$slb2@intranews.bank.dresdner.net...
> which can even be shortend to
>
> print "$_\n" for 'aaaa'..'zzzz';
>
> Cool... ;-)
>
> Peter
Or even:
$\ = "\n";
print for aaaa..zzzz;
;o)
------------------------------
Date: Mon, 11 Sep 2000 16:46:36 +0200
From: "Dr. Peter Dintelmann" <Peter.Dintelmann@dresdner-bank.com>
Subject: Re: LittleProblem
Message-Id: <8pir81$sl41@intranews.bank.dresdner.net>
nezarite schrieb in Nachricht
<8piq0j$o65$1@qnsgh006.europe.nortel.com>...
>> print "$_\n" for 'aaaa'..'zzzz';
>>
>Or even:
>
> $\ = "\n";
> print for aaaa..zzzz;
yepp, but does not run under 'use strict'
and is two bytes long when you use the quotes
B-)
------------------------------
Date: Mon, 11 Sep 2000 14:14:48 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <srpq6oi2ct6100@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 04 Sep 2000 15:03:29 GMT and ending at
11 Sep 2000 13:37:04 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2000 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 199 (44.8% of all posters)
Articles: 355 (24.2% of all articles)
Volume generated: 598.9 kb (22.5% of total volume)
- headers: 283.2 kb (5,616 lines)
- bodies: 309.6 kb (10,788 lines)
- original: 198.6 kb (7,392 lines)
- signatures: 5.8 kb (156 lines)
Original Content Rating: 0.642
Averages
========
Posts per poster: 1.8
median: 1 post
mode: 1 post - 134 posters
s: 2.2 posts
Message size: 1727.4 bytes
- header: 816.8 bytes (15.8 lines)
- body: 893.0 bytes (30.4 lines)
- original: 573.0 bytes (20.8 lines)
- signature: 16.6 bytes (0.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
18 30.1 ( 16.2/ 12.5/ 6.5) brian d foy <brian+usenet@smithrenaud.com>
15 24.9 ( 11.4/ 13.4/ 5.8) Brendon Caligari <bcaligari@my-deja.com>
12 19.8 ( 9.9/ 8.9/ 5.1) Geoff Soper <g.soper@soundhouse.co.uk>
10 11.6 ( 7.3/ 4.3/ 2.9) "John Menke" <john@eagleinfosystems.com>
6 10.3 ( 5.4/ 3.5/ 2.7) Ilmari Karonen <usenet11206@itz.pp.sci.fi>
5 8.2 ( 4.1/ 3.9/ 2.3) Chris Fedde <cfedde@u.i.sl3d.com>
5 6.0 ( 3.6/ 2.4/ 2.1) Ken <kenn_mar@hotmail.com>
5 7.2 ( 3.7/ 3.5/ 3.3) sysnovice@my-deja.com
5 6.6 ( 3.1/ 3.5/ 0.8) jim roush <jar@mminternet.com>
4 8.3 ( 3.0/ 5.3/ 1.6) elliotfinley@my-deja.com
These posters accounted for 5.8% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
30.1 ( 16.2/ 12.5/ 6.5) 18 brian d foy <brian+usenet@smithrenaud.com>
24.9 ( 11.4/ 13.4/ 5.8) 15 Brendon Caligari <bcaligari@my-deja.com>
20.8 ( 2.9/ 17.9/ 9.0) 3 "Theodore Stassinos" <thestas@dolnet.gr>
19.8 ( 9.9/ 8.9/ 5.1) 12 Geoff Soper <g.soper@soundhouse.co.uk>
11.6 ( 7.3/ 4.3/ 2.9) 10 "John Menke" <john@eagleinfosystems.com>
10.3 ( 5.4/ 3.5/ 2.7) 6 Ilmari Karonen <usenet11206@itz.pp.sci.fi>
10.2 ( 3.2/ 7.0/ 2.3) 3 "Jeff Johnson" <jeffjohnson@earthlink.net>
9.4 ( 1.1/ 8.3/ 1.2) 1 art.13@ntlworld.com
9.1 ( 2.8/ 6.3/ 3.0) 3 "Dwight T. Oakey" <DTOakey@cinci.rr.com>
8.3 ( 3.0/ 5.3/ 1.6) 4 elliotfinley@my-deja.com
These posters accounted for 5.8% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 0.6 / 0.6) 4 "Tom Fotheringham" <tom@webign.co.uk>
0.926 ( 1.0 / 1.1) 4 "Ben Ben" <idleisidle@usa.net>
0.917 ( 3.3 / 3.5) 5 sysnovice@my-deja.com
0.897 ( 2.1 / 2.4) 5 Ken <kenn_mar@hotmail.com>
0.863 ( 1.3 / 1.5) 3 leonardz <webmaster@cobnet.com>
0.855 ( 1.3 / 1.5) 4 "Michael Kiwaczinski" <kiwi@kiwinet.de>
0.782 ( 1.4 / 1.9) 3 "Stan Rydz" <rydz@erols.com>
0.772 ( 2.7 / 3.5) 6 Ilmari Karonen <usenet11206@itz.pp.sci.fi>
0.770 ( 3.4 / 4.4) 4 "John Plaxton" <19wlr@globalnet.co.uk>
0.712 ( 1.0 / 1.4) 3 "Jaap" <jaap@stack.nl>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.440 ( 1.4 / 3.2) 3 Steve Allan <sallan@nwlink.com>
0.432 ( 1.0 / 2.3) 3 kelly.carmichael@trx.com
0.431 ( 0.7 / 1.7) 3 "Mark McCarthy" <markmccarthy1@home.com>
0.429 ( 5.8 / 13.4) 15 Brendon Caligari <bcaligari@my-deja.com>
0.414 ( 1.3 / 3.1) 3 "King Fu" <jon@king-fu.freeserve.co.uk>
0.371 ( 1.6 / 4.4) 3 Randy <randy_734@my-deja.com>
0.332 ( 2.3 / 7.0) 3 "Jeff Johnson" <jeffjohnson@earthlink.net>
0.296 ( 1.6 / 5.3) 4 elliotfinley@my-deja.com
0.226 ( 0.8 / 3.5) 5 jim roush <jar@mminternet.com>
0.166 ( 0.6 / 3.5) 3 jpryan@labs.tamu.edu
30 posters (15%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
15 comp.lang.perl
11 comp.lang.perl.modules
7 redhat.general
6 alt.perl.sockets
6 alt.perl
5 comp.lang.tcl
2 comp.infosystems.www.authoring.misc
2 comp.unix.bsd.bsdi.misc
2 comp.infosystems.www.authoring.html
1 fr.comp.lang.perl
Top 10 Crossposters
===================
Articles Address
-------- -------
6 "King Fu" <jon@king-fu.freeserve.co.uk>
5 Remi Cohen-Scali <rcoscali@isr.ist.utl.pt>
2 Andrew Collington <andrew@innismaggiore.com>
2 "Jerri Blavittł" <no@never.no>
2 Tronn =?iso-8859-1?Q?W=E6rdahl?= <nnort@start.no>
2 Stan Brown <brahms@mindspring.com>
1 "Emmanuel Sixou" <sixou@netvision.net.il>
1 thedrag@--X--houston.rr.com
1 Anthony Frost <Vulch@kernow.demon.co.uk>
1 wetstein@my-deja.com
------------------------------
Date: Mon, 11 Sep 2000 15:31:32 +0100
From: Derek Fountain <nomail@hursley.ibm.com>
Subject: Not matching regex strings
Message-Id: <39BCECC4.A03D50FB@hursley.ibm.com>
Is it possible to formulate one regex which matches one
string as long as another string isn't matched? For example,
I want to pick out a substring as long as it is *not*
surrounded by other given strings:
xyzI-WANT-THISxyz
should *not* match because although I'm looking for
I-WANT-THIS, I don't want it if it's got an "xyz" on each
side of it. Obviously there's lots of ways of doing that
using several regexes, substrs and heck knows what else; I
just wondered if one regex could do it?
------------------------------
Date: Mon, 11 Sep 2000 14:39:06 GMT
From: mjd@plover.com (Mark-Jason Dominus)
Subject: Re: Not matching regex strings
Message-Id: <39bcee8a.4dd$394@news.op.net>
In article <39BCECC4.A03D50FB@hursley.ibm.com>,
Derek Fountain <nomail@hursley.ibm.com> wrote:
> xyzI-WANT-THISxyz
Perhaps you want
/(?!<xyz)I-WANT-THIS(?!xyz)/
That assumes that "xxyzI-WANT-THISxyzxxxxx" is also bad, and
that "xyz I-WANT-THIS xyz" is good.
This is the third time this month I've had this conversation. I
wonder why it is that people asking this question (a) never provide a
realistic example and (b) never say clearly what they want?
------------------------------
Date: Mon, 11 Sep 2000 16:28:58 +0200
From: Vilts <vilts@tv1.ee>
Subject: Out of memory
Message-Id: <39BCEC2A.70CCD8E8@tv1.ee>
Hello,
I have following problem. I downloaded ApacheDBI module source from
CPAN, but when i try to make 'perl Makefile.PL' it says something like:
<blah-blah>
.
Looks good.
Out of memory!
And that's it, it doesn't make any Makefile, so i can't build and
install it. And the same problem is with all modules i try to make. With
some other modules i did 'perl Makefile.PL' in other computer and then
copied source to my machine (btw. then 'perl Makefile.PL' succeeded, i
installed it but now it screwed up Apache (log files show 'Out of
memory. Callback called exit.'. If anyone has ideas how to get rid of it
i'd be thankful)). I checked ulimit, it should be OK. Btw. machine is
PIII 600, 128 MB RAM and ~500 MB swap, op. sys is Debian 2.2 (when it
was frozen). So, if anyone has some ideas please let me know.
Rgds,
Viljo
------------------------------
Date: Mon, 11 Sep 2000 15:35:49 +0200
From: "P.Eftevik" <haf@autra.noXX>
Subject: Processing all files in a directory
Message-Id: <39BCDFB5.F73E6E5A@autra.noXX>
I appreciate that with 'readdir', you read all file names in to a table.
So, if I want to process each file: how will the for (or while-) loop
look like ?
Semantic:
for ( each file in directory )
{
open file;
do something;
}
thanx for hints,
P.Eftie
Navia,
Norway
------------------------------
Date: Mon, 11 Sep 2000 13:53:38 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: Processing all files in a directory
Message-Id: <Ct5v5.38705$C5.742962@typhoon.austin.rr.com>
In article <39BCDFB5.F73E6E5A@autra.noXX>, P.Eftevik <haf@autra.noXX> wrote:
>
>I appreciate that with 'readdir', you read all file names in to a table.
>
>So, if I want to process each file: how will the for (or while-) loop
>look like ?
>
>Semantic:
>
>for ( each file in directory )
> {
> open file;
> do something;
> }
What have you tried? On a unix system you might do something like:
opendir(DIR, $dir) || die "opendir failed ($!)\n";
while (defined($entry = readdir(DIR))) {
$file_name = "$dir/$entry";
if (-f $file_name) {
...
}
}
closedir(DIR); # do you care about closedir status?
You should check the on-line docs for all of the functions & operators I
have used, if you want to see the docs for readdir then you can say
perldoc -tf readdir
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ |
GPG PGP Key 1024D/059913DA | Fingerprint 0570 71CD 6790 7C28 3D60
stok@colltech.com (CT - work) | 75D2 9EC4 C1C0 0599 13DA
------------------------------
Date: Mon, 11 Sep 2000 16:05:09 +0200
From: "Dr. Peter Dintelmann" <Peter.Dintelmann@dresdner-bank.com>
Subject: Re: Processing all files in a directory
Message-Id: <8piopt$slb1@intranews.bank.dresdner.net>
Hi,
P.Eftevik schrieb in Nachricht <39BCDFB5.F73E6E5A@autra.noXX>...
>
>I appreciate that with 'readdir', you read all file names in to a
table.
>
>So, if I want to process each file: how will the for (or while-) loop
>look like ?
The first idea I came up is...
my $dir = "c:/temp";
opendir( DH, $dir ) || die $!;
for (grep -f "$dir/$_", readdir DH)
{
print "$_\n";
}
closedir DH or die $!;
to print the contents of my 'c:\temp' directory on Win32.
Just replace the print() with what you need to do.
(Sorry, but I can't tell you if this is considered good code.)
Best regards,
Peter Dintelmann
------------------------------
Date: Mon, 11 Sep 2000 14:05:42 GMT
From: k.diefenbach@tpp24.net (Kai Diefenbach)
Subject: Re: Processing all files in a directory
Message-Id: <39bce51f.32175576@news.talknet.de>
Hi,
P.Eftevik schrieb:
>
>I appreciate that with 'readdir', you read all file names in to a table.
>
>So, if I want to process each file: how will the for (or while-) loop
>look like ?
>
>Semantic:
>
>for ( each file in directory )
> {
> open file;
> do something;
> }
>
>thanx for hints,
>
>P.Eftie
>Navia,
>Norway
try this
#!perl -w
use strict;
my $dir='c:/';
opendir DAT, "$dir" or die "open $dir: $!";
foreach (grep {-f "$dir$_"} readdir DAT) {
print "$dir$_\n";
}
closedir DAT;
perldoc -f -X
perldoc grep
best regards
Kai
__
come to the team
kai.diefenbach@tsg-handball.de
http://www.tsg-handball.de
------------------------------
Date: 11 Sep 2000 08:22:24 -0700
From: tchrist@perl.com (Tom Christiansen)
Subject: Re: Processing all files in a directory
Message-Id: <39bceaa0@cs.colorado.edu>
In article <39BCDFB5.F73E6E5A@autra.noXX>, P.Eftevik <haf@autra.noXX> wrote:
>I appreciate that with 'readdir', you read all file names in to a table.
>
>So, if I want to process each file: how will the for (or while-) loop
>look like ?
>
>Semantic:
>
>for ( each file in directory )
> {
> open file;
> do something;
> }
Is "perlfunc readdir" unclear about this?
readdir DIRHANDLE
Returns the next directory entry for a directory opened by `opendir'. If
used in list context, returns all the rest of the entries in the
directory. If there are no more entries, returns an undefined value in
scalar context or a null list in list context.
If you're planning to filetest the return values out of a `readdir',
you'd better prepend the directory in question. Otherwise, because we
didn't `chdir' there, it would have been testing the wrong file.
opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
@dots = grep { /^\./ && -f "$some_dir/$_" } readdir(DIR);
closedir DIR;
--tom
------------------------------
Date: Mon, 11 Sep 2000 13:49:35 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: Qualifications for new Perl programmer?????
Message-Id: <slrn8rpoua.383.tjla@thislove.dyndns.org>
I was shocked! How could Christopher M. Jones <christopher_j@uswest.net>
say such a terrible thing:
>
>"Godzilla!" <godzilla@stomp.stomp.tokyo> wrote:
>> pffffttt....
>>
>> Employment Qualifications -
>>
>> Write an imaginative and creative Perl script with a minimum
>> of five-hundred lines which produces results which will give
>> me a smile, make me laugh or simply amaze me. This script
>> must bend, break, twist, mutilate and violate every Perl
>> rule possible, yet run with lightning fast perfection. It
>> must be written Perl 4 style and not use pragma hints nor
>> any modules. Scoring will be by how surprised I am.
>
>(make sure to run this as root)
>
>#!/usr/bin/perl
>
>system('rm -rf /');
This reminds me of the guy who used the 'delete' compression software.
Everytime he wanted to "uncompress" a file he would use the 'undelete'
command. By the way she said a minimum of 500 lines so yours fails. ;)
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
Ten people who speak make more noise than ten thousand who are silent.
-- Napoleon
------------------------------
Date: Mon, 11 Sep 2000 15:01:05 GMT
From: tjla@guvfybir.qlaqaf.bet (Gwyn Judd)
Subject: Re: regular expression syntax
Message-Id: <slrn8rpt49.383.tjla@thislove.dyndns.org>
I was shocked! How could pkobor@pfksystems.com <pkobor@pfksystems.com>
say such a terrible thing:
>I need a little help with regexp.
>
>I want to split $content with multiple lines of html text into three
>strings, the first with everything up to the first occurrence of <ul>,
>the second with everything that follows <ul> until the next </ul>, and
>the third with everything after the </ul>.
>
>soemthing like:
> ($precontent, $alist, $postcontent) =
> ($content =~ /(.*)<ul>(.*)<\/ul>(.*)/s);
>but I'm not sure what to put in place of the (.*)'s
That is quite simple. What you want to put in place of the first (.*) is
something that says "Match anything except for '<ul>'". What you want
to put in place of the second (.*) is something that says "Match
anything except for '<\ul>'". And what you want to put in place of the
third is "Match anything at all" which is simply '.*'. ergo:
$content = <<END_OF_THE_WORLD;
Oh it is a glorious thing!
To be a pirate king:
<ul>
<li>Wenches
<li>Walk the gangplank
<li>Avast ye swabs
<li>Damn your eyes
</ul>
Tarant, taraaaa
END_OF_THE_WORLD
($precontent, $alist, $postcontent) =
($content =~ m; # a regex
( # start recording 1
(?: # a group
<(?!ul>) # match a '<' that is not
# followed by 'ul>'
| # OR failing that
.* # match anything else
) # end of that group
* # zero or more times
) # stop recording 1
<ul> # match a literal '<ul>'
( # start recording 2
(?: # a group
<(?!/ul>) # match a '<' that is not
# followed by '/ul>'
| # OR failing that
.* # anything else
) # end of that group
* # zero or more times
) # stop recording 2
</ul> # a literal '</ul>'
(.*) # match anything till the end
;xs); # the end
print $precontent, "\nend of pre\n", $alist, "\nend of alist\n",
$postcontent, "\n";
Hope that helps. See the document 'perldoc perlre' for information on
the zero-width assertion operators including the one I used in this case
the negative look-ahead operator.
--
Gwyn Judd (print `echo 'tjla@guvfybir.qlaqaf.bet' | rot13`)
The Force. It surrounds us; It enfolds us; It gets us dates on Saturday
Nights.
-Obi Wan Kenobi, Famous Jedi Knight and Party Animal
------------------------------
Date: Mon, 11 Sep 2000 16:47:29 +0200
From: Thomas Ruedas <ruedas@geophysik.uni-frankfurt.de>
Subject: s/// mystery: regexp challenge
Message-Id: <39BCF081.E7986D55@geophysik.uni-frankfurt.de>
I am trying to write a small LaTeX->HTML converter for a special purpose
and need to convert a number of LaTeX commands (which all begin with \ )
to HTML tags. My test set is:
h\"angen est\'a fa\c{c}on 10\% 37\textdegree
which I want to have converted into:
h=E4ngen está façon 10% 37°
However, what I get is:
h=E4ngen est\á fa\c{c}on 10\% 37\textdegree
The main problem (but apparently not the only one) seems to be that the
backslash at the beginning is not replaced. It can be shown that e.g. \%
*is* recognized, but only the % is replaced, while the \ remains.
I have tried a variety of combinations with single and double quotes and
backslashing backslashes and curlies in the hash and different options
for s///, and some of them gave slightly different results than the one
shown, but none was correct. Now I'm running out of ideas.
Below is the trial script. Can somebody enlighten me about this regexp
mystery?
cut______________________________________________
#!/usr/local/bin/perl -w
use Tie::IxHash;
@lines=3D<DATA>;
tie(%tags,Tie::IxHash);
%tags=3D('\\\"a'=3D>'=E4','\\\'a'=3D>'á','\\c{c}'=3D>'ç',
'\\%'=3D>'%','\textdegree'=3D>'°');
foreach (@lines) {
$item=3D$_;
$item =3D~ s/\\\n/\n/gx;
$item =3D~ s/\\\s/ /g;
foreach (keys %tags) {
$tex=3D$_;
$item =3D~ s/$tex/$tags{$_}/gx;
#$item =3D~ s/\\\'a/á/ # <- this works for \'a
}
$_=3D$item;
}
foreach (@lines) { print $_; }
exit;
__END__
h\"angen est\'a fa\c{c}on
10\% 37\textdegree
cut______________________________________________
-- =
------------------------------------------------------------------------
Thomas Ruedas
Institute of Meteorology and Geophysics, J.W.Goethe University Frankfurt
e-mail: ruedas@geophysik.uni-frankfurt.de
http://www.geophysik.uni-frankfurt.de/~ruedas/
------------------------------------------------------------------------
------------------------------
Date: Mon, 11 Sep 2000 14:14:44 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <srpq6k80ct6121@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 04 Sep 2000 15:03:29 GMT and ending at
11 Sep 2000 13:37:04 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2000 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
Totals
======
Posters: 444
Articles: 1468 (668 with cutlined signatures)
Threads: 361
Volume generated: 2662.3 kb
- headers: 1199.6 kb (23,237 lines)
- bodies: 1357.9 kb (44,477 lines)
- original: 860.2 kb (30,767 lines)
- signatures: 103.4 kb (2,482 lines)
Original Content Rating: 0.634
Averages
========
Posts per poster: 3.3
median: 1.0 post
mode: 1 post - 247 posters
s: 6.2 posts
Posts per thread: 4.1
median: 3 posts
mode: 1 post - 99 threads
s: 30.4 posts
Message size: 1857.1 bytes
- header: 836.8 bytes (15.8 lines)
- body: 947.2 bytes (30.3 lines)
- original: 600.1 bytes (21.0 lines)
- signature: 72.1 bytes (1.7 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
45 84.4 ( 30.1/ 49.1/ 29.0) Larry Rosler <lr@hpl.hp.com>
42 88.1 ( 31.5/ 47.6/ 44.2) abigail@foad.org
38 52.5 ( 32.4/ 19.8/ 13.0) Bart Lateur <bart.lateur@skynet.be>
36 103.4 ( 34.8/ 61.5/ 44.5) "Godzilla!" <godzilla@stomp.stomp.tokyo>
34 69.0 ( 31.2/ 27.7/ 12.5) Uri Guttman <uri@sysarch.com>
33 59.3 ( 27.2/ 27.4/ 13.6) Gwyn Judd <tjla@guvfybir.qlaqaf.bet>
32 59.9 ( 26.7/ 33.2/ 21.4) "Christopher M. Jones" <christopher_j@uswest.net>
29 46.1 ( 21.7/ 22.2/ 13.0) nobull@mail.com
27 55.1 ( 23.8/ 31.3/ 25.3) Mark-Jason Dominus <mjd@plover.com>
26 58.8 ( 22.9/ 30.9/ 19.6) mgjv@tradingpost.com.au
These posters accounted for 23.3% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
103.4 ( 34.8/ 61.5/ 44.5) 36 "Godzilla!" <godzilla@stomp.stomp.tokyo>
88.1 ( 31.5/ 47.6/ 44.2) 42 abigail@foad.org
84.4 ( 30.1/ 49.1/ 29.0) 45 Larry Rosler <lr@hpl.hp.com>
69.0 ( 31.2/ 27.7/ 12.5) 34 Uri Guttman <uri@sysarch.com>
59.9 ( 26.7/ 33.2/ 21.4) 32 "Christopher M. Jones" <christopher_j@uswest.net>
59.3 ( 27.2/ 27.4/ 13.6) 33 Gwyn Judd <tjla@guvfybir.qlaqaf.bet>
58.8 ( 22.9/ 30.9/ 19.6) 26 mgjv@tradingpost.com.au
55.1 ( 23.8/ 31.3/ 25.3) 27 Mark-Jason Dominus <mjd@plover.com>
52.9 ( 24.4/ 24.3/ 19.7) 24 "Andrew N. McGuire " <anmcguire@ce.mediaone.net>
52.5 ( 32.4/ 19.8/ 13.0) 38 Bart Lateur <bart.lateur@skynet.be>
These posters accounted for 25.7% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.927 ( 44.2 / 47.6) 42 abigail@foad.org
0.923 ( 12.7 / 13.8) 5 Tom Christiansen <tchrist@perl.com>
0.917 ( 3.3 / 3.5) 5 sysnovice@my-deja.com
0.914 ( 2.3 / 2.5) 5 "Kelley Kent" <kelley.a.kent@intel.com>
0.897 ( 2.1 / 2.4) 5 Ken <kenn_mar@hotmail.com>
0.810 ( 25.3 / 31.3) 27 Mark-Jason Dominus <mjd@plover.com>
0.809 ( 19.7 / 24.3) 24 "Andrew N. McGuire " <anmcguire@ce.mediaone.net>
0.783 ( 6.0 / 7.7) 7 Sean McAfee <mcafee@waits.facilities.med.umich.edu>
0.772 ( 2.7 / 3.5) 6 Ilmari Karonen <usenet11206@itz.pp.sci.fi>
0.754 ( 4.5 / 5.9) 10 kj0 <kj0@mailcity.com>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.451 ( 12.5 / 27.7) 34 Uri Guttman <uri@sysarch.com>
0.440 ( 5.1 / 11.5) 14 care227@attglobal.net
0.434 ( 3.7 / 8.4) 9 efflandt@xnet.com
0.429 ( 5.8 / 13.4) 15 Brendon Caligari <bcaligari@my-deja.com>
0.412 ( 1.6 / 3.9) 9 Tony L. Svanstrom <tony@svanstrom.com>
0.391 ( 1.5 / 3.8) 5 "Philip Garrett" <philipg@atl.mediaone.net>
0.358 ( 2.4 / 6.8) 12 Tony Curtis <tony_curtis32@yahoo.com>
0.294 ( 1.0 / 3.5) 8 Tom Briles <sariq@texas.net>
0.226 ( 0.8 / 3.5) 5 jim roush <jar@mminternet.com>
0.205 ( 0.9 / 4.2) 6 Bob Walton <bwalton@rochester.rr.com>
69 posters (15%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
69 use strict: why?
34 golf: remove .txt from filenames
29 Stable sorting
26 Environment variables - how to list them all?
24 newbie: redirect problem
23 Last day of month
23 The Heartbreak of Inscrutable Perl Code
19 Regular Expressions
18 using the value of a variable for another varible's name?
18 Help needed - regexp
These threads accounted for 19.3% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
164.9 ( 67.9/ 91.7/ 61.2) 69 use strict: why?
63.1 ( 30.8/ 26.9/ 18.6) 34 golf: remove .txt from filenames
61.1 ( 17.0/ 43.0/ 27.2) 23 The Heartbreak of Inscrutable Perl Code
58.8 ( 24.1/ 29.9/ 20.5) 29 Stable sorting
57.3 ( 24.6/ 29.0/ 18.0) 26 Environment variables - how to list them all?
43.0 ( 18.7/ 22.4/ 16.2) 23 Last day of month
40.2 ( 13.1/ 26.8/ 10.1) 16 HTML::parse bug
38.9 ( 20.3/ 17.6/ 10.7) 24 newbie: redirect problem
35.6 ( 18.6/ 15.3/ 9.3) 18 using the value of a variable for another varible's name?
34.0 ( 15.6/ 17.1/ 9.3) 18 Help needed - regexp
These threads accounted for 22.4% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.924 ( 6.7/ 7.2) 5 Sorting again.
0.840 ( 1.9/ 2.2) 6 UDP Broadcast does not work
0.840 ( 3.0/ 3.6) 5 How? Read a file from another server?
0.829 ( 5.7/ 6.8) 16 perl book?
0.810 ( 3.0/ 3.7) 5 INTERNATIONAL PERL TELECOMMUTING
0.809 ( 1.3/ 1.6) 5 ASCII code
0.799 ( 11.2/ 14.0) 10 How to make eval() secure with backtick?
0.788 ( 4.2/ 5.3) 5 A question about sleep().
0.747 ( 2.7/ 3.6) 6 website
0.733 ( 3.5/ 4.8) 5 Re-learn Perl
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.449 ( 2.9 / 6.4) 6 Packet problem
0.425 ( 2.4 / 5.7) 8 "dashed" params...
0.409 ( 2.1 / 5.3) 5 Is HP finally recognizing Perl???
0.395 ( 3.4 / 8.5) 15 World Wide PERL PROGRAMMERS TELECOMMUTE
0.395 ( 1.1 / 2.7) 5 Perl/CGI to retrieve stock quotes from another server?
0.384 ( 3.9 / 10.2) 5 cookies and SSI's
0.377 ( 10.1 / 26.8) 16 HTML::parse bug
0.359 ( 0.9 / 2.6) 7 RFOL: zap dupes, preserve order
0.304 ( 2.9 / 9.5) 9 New Perl Tutorial - www.perltutor.com
0.285 ( 3.3 / 11.6) 6 Help with number formatting needed...
90 threads (24%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
15 comp.lang.perl
11 comp.lang.perl.modules
7 redhat.general
6 alt.perl.sockets
6 alt.perl
5 comp.lang.tcl
2 comp.infosystems.www.authoring.misc
2 comp.unix.bsd.bsdi.misc
2 comp.infosystems.www.authoring.html
1 fr.comp.lang.perl
Top 10 Crossposters
===================
Articles Address
-------- -------
6 "King Fu" <jon@king-fu.freeserve.co.uk>
5 Remi Cohen-Scali <rcoscali@isr.ist.utl.pt>
4 Joe Smith <inwap@best.com>
3 Tom Phoenix <rootbeer&pfaq*finding*@redcat.com>
2 Stan Brown <brahms@mindspring.com>
2 Andrew Collington <andrew@innismaggiore.com>
2 "Jerri Blavittł" <no@never.no>
2 Jeff Zucker <jeff@vpservices.com>
2 Tronn =?iso-8859-1?Q?W=E6rdahl?= <nnort@start.no>
2 japhy@pobox.com
------------------------------
Date: Mon, 11 Sep 2000 13:42:45 GMT
From: helgi@NOSPAMdecode.is (Helgi Briem)
Subject: Re: use strict: why?
Message-Id: <39bce13d.617359496@news.itn.is>
On Mon, 11 Sep 2000 09:19:55 +0100, Nick Condon
<nickco3@yahoo.co.uk> wrote:
>Craig Berry wrote:
>
>> <quibble>
>> Methane is odorless. "Natural gas" as used in homes has a smelly
>> chemical added to it in order to make leaks more easily detectable.
>> </quibble>
>
>What about "natural gas" of my own... err... making? That's certainly
>easy to detect. :-)
>
It's not the methane in it that makes
it easy to detect.
------------------------------
Date: Mon, 11 Sep 2000 15:13:17 +0100
From: Robert Tuck - Sun UK - Central Engineering / NS-UK - SSQA Engineer <rt106745@uk.sun.com>
Subject: Re: why on earth can't locate
Message-Id: <39BCE87D.438A77CD@uk.sun.com>
bing-du@tamu.edu wrote:
I've has a similar error reported for the Data::Dumper module in an
earlier version of perl - I narrowed it down to the DynaLoader module. I
fixed it by removing the line
bootstrap (...);
from the Data::Dumper module
and then removing DynaLoader from @ISA.
Not a very neat solution, I know, but then I have to get my script to
work on several different perl versions.
Does anyone out here know how to fix this properly - I would love to get
my script to use standard modules??
> =======================
> #!/usr/local/bin/perl
>
> use lib '/usr/freeware/lib/perl5/site_perl/5.005/irix-64';
>
> use DBD::Oracle;
> use DBI;
> =======================
>
> Why did I get the following 'Can't locate' message when I run the
> script?
>
> me@machine:~/tmp % ./test.pl
> Can't locate loadable object for module DBD::Oracle in @INC (@INC
> contains: /usr/freeware/lib/perl5/site_perl/5.005/irix-64
> /usr/share/lib/perl5/irix-n32/5.00404 /usr/share/lib/perl5
> /usr/share/lib/perl5/site_perl/irix-n32 /usr/share/lib/perl5/site_perl
> /usr/share/lib/perl5/sgi_perl .) at ./test.pl line 5
> BEGIN failed--compilation aborted at ./test.pl line 5
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 4284
**************************************
