[9488] in Perl-Users-Digest
Perl-Users Digest, Issue: 3083 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 7 14:07:23 1998
Date: Tue, 7 Jul 98 11:01:34 -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, 7 Jul 1998 Volume: 8 Number: 3083
Today's topics:
Re: How to get files in a directory? <rra@stanford.edu>
Re: How to get files in a directory? (Greg Bacon)
Re: HTTP connections WITHOUT the libwww module? asapiro@my-dejanews.com
Re: Methods for creating unique file name? (Kevin Reid)
Re: Methods for creating unique file name? (Michael J Gebis)
Re: methods to insert/substitute blocks of text? (Andy Wardley)
Microsoft Client IE 4 vs Netscape HTTP Server <bill@assist.org>
new problem <howard@vortexweb.com>
Re: Oh man, DO I love Perl ! (References to things that <jc@ral1.zko.dec.com>
Re: Oh man, DO I love Perl ! (References to things that (Mark-Jason Dominus)
Re: Oh man, DO I love Perl ! (References to things that <dfan@harmonixmusic.com>
perl and msql on windows <josri@postoffice.pacbell.net>
Problem with Win32::NetAdmin:: and AdminMisc::UserChang <Yernaux@ifsa.ucl.ac.be>
Retrieving Links From a Search Engine Results Page??? <a.r.mccoy@larc.nasa.gov>
Re: Retrieving Links From a Search Engine Results Page? (brian d foy)
Re: setting @INC in (ActiveState) Perl 5 for Win32 <simonf@conduit.co.uk>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Win32::ODBC <josri@postoffice.pacbell.net>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 07 Jul 1998 09:16:03 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: How to get files in a directory?
Message-Id: <m3emvxr60s.fsf@windlord.Stanford.EDU>
John Chambers <jc@ral1.zko.dec.com> writes:
> Jeez, why didn't anyone even mention the much simpler solution:
> @files = glob("*");
> Not that there's anything wrong with opendir and readdir, and you
> probably do want to know about them in case you want to do something
> more complicated than just get a list of the files. But the fellow just
> wanted to know what files were in the directory. You'd think that glob
> would at least deserve a mention.
Most of us don't like forking a copy of csh for no particularly good
reason. *wry grin*
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: 7 Jul 1998 17:05:43 GMT
From: gbacon@cs.uah.edu (Greg Bacon)
Subject: Re: How to get files in a directory?
Message-Id: <6ntkh7$ijv$1@info.uah.edu>
In article <m3emvxr60s.fsf@windlord.stanford.edu>,
Russ Allbery <rra@stanford.edu> writes:
: John Chambers <jc@ral1.zko.dec.com> writes:
:
: > Jeez, why didn't anyone even mention the much simpler solution:
:
: > @files = glob("*");
:
: > Not that there's anything wrong with opendir and readdir, and you
: > probably do want to know about them in case you want to do something
: > more complicated than just get a list of the files. But the fellow just
: > wanted to know what files were in the directory. You'd think that glob
: > would at least deserve a mention.
:
: Most of us don't like forking a copy of csh for no particularly good
: reason. *wry grin*
Exactly the reason to have a look at
<URL:http://www.cs.uah.edu/~gbacon/perl/File-BSDGlob-0.94.tar.gz>
Greg
--
open(G,"|gzip -dc");$_=<<EOF;s/[0-9a-f]+/print G pack("h*",$&)/eg
f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084
d2ac158c84c4ece4d22d1000118a8d5491000000
EOF
------------------------------
Date: Tue, 07 Jul 1998 16:33:37 GMT
From: asapiro@my-dejanews.com
Subject: Re: HTTP connections WITHOUT the libwww module?
Message-Id: <6ntil1$d96$1@nnrp1.dejanews.com>
In article <6nrvc6$he0@mozo.cc.purdue.edu>,
gebis@albrecht.ecn.purdue.edu (Michael J Gebis) wrote:
>
> "David Thompson" <domainsource@usa.net> writes:
>
> }Is it possible to retrieve a URL (and store for later parsing) WITHOUT
> }using the LibWWW module?
>
> You could probably open a socket to port 80 and grab the page
> yourself. This solution is far from general--you can't possibly hope
> to do things right in all cases without doing duplicating a huge
> amount of work, and making a ton of mistakes in the process. However,
> if enough things are constant, you could probably get a "good enough"
> solution. (But don't fool yourself. This is a fragile solution, at
> best.)
>
> I haven't seen anyone mention calling an external utility (such as
> lynx) to do the fetching for you, but this may also work for you.
>
> (Hm...two answers of dubious quality and usefulness. Does this
> actually get me any karma? I guess I'll see.)
>
> --
> Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
>
Try getting yourself a copy of netcat (if you're running on unix). You can
execute that from a perl script and get ALL the output of a request to port 80
including the headers.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Tue, 7 Jul 1998 13:26:33 -0400
From: kpreid@ibm.net (Kevin Reid)
Subject: Re: Methods for creating unique file name?
Message-Id: <1dbsn31.1458aye1wbxefsN@slip166-72-108-48.ny.us.ibm.net>
Christian Brink <strat@pacifier.com> wrote:
> Who has a good routine for creating unique filenames in Perl5 and 4?
If you have a filename and you want to make sure that there is not an
already-existing file with that name, then try this:
$filename = "myfile";
$max_length = 31; # set this for your OS;
if (-e $filename) {
$filename =~ s/^(.{0,@{[$max_length-2]})/$1.0/;
substr($filename, (length $filename) - 1, 1)++ while -e $filename;
}
THIS IS UNTESTED CODE.
--
Kevin Reid. | Macintosh.
"I'm me." | Think different.
------------------------------
Date: 7 Jul 1998 17:41:27 GMT
From: gebis@albrecht.ecn.purdue.edu (Michael J Gebis)
Subject: Re: Methods for creating unique file name?
Message-Id: <6ntmk7$sb1@mozo.cc.purdue.edu>
kpreid@ibm.net (Kevin Reid) writes:
}Christian Brink <strat@pacifier.com> wrote:
}> Who has a good routine for creating unique filenames in Perl5 and 4?
}If you have a filename and you want to make sure that there is not an
}already-existing file with that name, then try this:
}$filename = "myfile";
}$max_length = 31; # set this for your OS;
}if (-e $filename) {
} $filename =~ s/^(.{0,@{[$max_length-2]})/$1.0/;
} substr($filename, (length $filename) - 1, 1)++ while -e $filename;
}}
}THIS IS UNTESTED CODE.
This seems to have a pretty serious race condition. Multiple
copies of this program could all get the same filename.
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: Tue, 7 Jul 1998 15:58:57 GMT
From: abw@cre.canon.co.uk (Andy Wardley)
Subject: Re: methods to insert/substitute blocks of text?
Message-Id: <EvqF2A.DuD@cre.canon.co.uk>
Dan Baker <dtbaker_@flash.net> wrote:
>I would like to get some thoughts from the crowd on different methods to
>substitute blocks of text into templates.
There are several templating modules avilable from CPAN.
>I'd *like* to leave the HTML source page as working source so that
>non-perl people can edit the basic format of the page (as long as they
>don't delete start/end tags or whatever is required for substitutions.
Text::MetaText is probably what you want.
>Please let me know what modules you think would be best for this sort of
>substitution work! Also, if you have any simple examples, or tutorial
>type material online, let me know!
Check out the documentation which comes as part of the distribution.
http://www.perl.com/CPAN/modules/by-module/Text/Text-MetaText-0.19.tar.gz
As the author of Text::MetaText I'm naturally biased, but you can look in
the "Features" file in the distribution which talks about some of the pros
and cons of other templating modules.
A
--
Andy Wardley <abw@kfs.org> Signature regenerating. Please remain seated.
<abw@cre.canon.co.uk> For a good time: http://www.kfs.org/~abw/
------------------------------
Date: Tue, 07 Jul 1998 10:20:39 -0700
From: William L Cooper <bill@assist.org>
Subject: Microsoft Client IE 4 vs Netscape HTTP Server
Message-Id: <35A258E6.680D6EFB@assist.org>
I am having a problem with IE 4 using Netscape Fastract HTTP Server.
When the IE 4 preference
View/Internet Options/Advanced/HTTP 1.1 Settings/Use Http 1.1
is set, I have a problem when a cgi program runs. The problem is that
the IE 4 client is waiting for the transaction to complete while the
server cgi program has sent the HTML termination
</BODY></HTML>
and performed an exit. This does not happen if the client is Netscape
Ver 3 or 4 nor does it happen if the client is IE 3.
The problem also does not happen with IE 4 if the server is CERN.
Is there an HTTP 1.1 requirement to signal end of HTML page other than
</BODY></HTML> ?
Thanks for the help
William L Cooper
bill@assist.org
------------------------------
Date: Tue, 7 Jul 1998 12:41:29 -0500
From: "Howard Dierking" <howard@vortexweb.com>
Subject: new problem
Message-Id: <OBxOO2cq9GA.153@upnetnews03>
This is a weird question, because I already have something like this
working--I just don't know why this one isn't. I'm trying with this
function to get my perl script to open a "list.dat" file, read it line by
line, and put everyother line into one of 2 arrays. Here are the two very
strange errors I'm getting. The script appears to compile fine because I
get the "die" message--the description says that the file or directory can't
be found (telnet). This is interesting because my perl file is in the same
directory as the .dat file. Also, when I try and run it from the web
browser, I get a message asking me if I want to download or open the
file--it's like the browser doesn't even recognize that it's a perl program.
Any ideas? thanks
howard
--------------------------------------------------program
block-------------------------------
#!/usr/bin/perl -w
use CGI qw(:standard);
$i = 0;
$j = 0;
open (LIST, "list.dat") || die "Can't open list: $!";
while ( defined ($line = <LIST>)) {
chomp ($line);
$a_file_name[$j] = $line;
$line = <LIST>;
chomp ($line);
$a_file_loc[$j] = $line;
$j++;
}
----------------------------------------------------------------------------
------------------------
------------------------------
Date: Tue, 07 Jul 1998 12:28:50 -0400
From: John Chambers <jc@ral1.zko.dec.com>
Subject: Re: Oh man, DO I love Perl ! (References to things that go out of scope)
Message-Id: <35A24CC2.300C141@ral1.zko.dec.com>
Jean-Louis Leroy wrote:
>
> In article <359BAE5B.59CD@min.net>, John Porter wrote:
> > F.Quednau wrote:
> > >
> > > Well, I know this is not Perl specific,
>
> Well it could be LISP...but sure, Perl is a great language to do OO in.
> Certainly a match for C++ and Smalltalk.
>
> But I wonder, why do relatively few people seem to do OO in Perl...at
> least that's the impression I get from reading the Perl NGs.
Good question, with several different answers.
One is that the OO approach is of value mostly in large projects with
a lot of independent parts that must be partitioned from each other.
Much of perl's value has been as a scripting language, for fairly
small tools. The OO approach isn't of much value for a 5-line script,
and even for a 100-line script, it's hard to find situations where
it actually gains you anything (other than a lot more code to do the
same thing ;-). I have written several 1000+ perl programs, and I've
OOified some parts of some of them. But in looking back, I can't
really say that it has ever been a big win. The code is much more
opaque than before, and I'm the only one that understands why I
wasted all that time just making the code harder to read. And in
most cases, the resulting code has run slower, for reasons that I
don't quite fathom.
Also, OO is much more difficult to learn and debug. The perl debugger
seems to have problems with it: "my" variables always come up null,
references display as hex values, and so on. You are pretty much reduced
to the old "add another print" to find out what's gone wrong. So it's
easy to write something first in a non-OO fashion, so you can use the
debugger. And then, once you've got it running, you think that you
should redo it in OO style, but you have other tasks that are higher
priority, so it gets put aside for now ...
The opaqueness of most of the OO documentation ("preaching to the
converted" comes to mind) is also a major culprit. You can only
understand most of it if you already know all the rest. Learning
how to use it requires a lot of dedication, with no obvious payoff
(other than becoming part of the OO in-crowd and being able to put
it on your resume ;-). So it gets put off until there's spare time
to delve into the mysteries.
A major problem with learning it is that most of the OO notation is
"buried in the syntax". If I see a new builtin that I don't recognize,
I know how to dig around in the code and/or manuals to find it. But
if I see an expression like $foo::bar->(%{{map{$_,1} @list}})[$qux],
what do I look up and where? There's no clear way to find the right
document to decipher such syntax. You just have to slog through
lots of documentation, hoping to eventually get some glimmer of an
idea as to what's going on. (And yes, that expression is probably
bogus; I got it from doing a bit of cutting and pasting from a couple
of other messages that I found in the newsgroup. But it does seem
typical of what you find in OO code. ;-)
The arrogance of much of the OO crowd to newbies is also rather
effective at putting people off.
I wonder if there's a "Perl OO for Dummies" in the works?
------------------------------
Date: 7 Jul 1998 13:18:17 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Oh man, DO I love Perl ! (References to things that go out of scope)
Message-Id: <6ntl8p$etr$1@monet.op.net>
Keywords: commodity gave irresponsible teratogenic
In article <35A24CC2.300C141@ral1.zko.dec.com>,
John Chambers <jc@eddie.mit.edu> wrote:
>The opaqueness of most of the OO documentation ("preaching to the
>converted" comes to mind) is also a major culprit.
Yeah. And it's quite complete, which is a problem, because complete
documentation usually spends more space discussing the peculiar,
complicated facilities that you use very rarely than it does the
simple, common facilities that you use all the time.
I'm trying to fix this. I just had an article appear in TPJ #10 that
explains the imporant parts of the syntax for references and omits the
unimportant parts. I hope it'll be the first in a series that
continues by discussing packages and namespace issues, and then gets
to OO programming. The focus is on basics and on understanding the
syntax.
>I wonder if there's a "Perl OO for Dummies" in the works?
That's my hope.
------------------------------
Date: 07 Jul 1998 13:45:16 -0400
From: Dan Schmidt <dfan@harmonixmusic.com>
Subject: Re: Oh man, DO I love Perl ! (References to things that go out of scope)
Message-Id: <wk90m5bln7.fsf@turangalila.harmonixmusic.com>
John Chambers <jc@ral1.zko.dec.com> writes:
| The opaqueness of most of the OO documentation ("preaching to the
| converted" comes to mind) is also a major culprit. You can only
| understand most of it if you already know all the rest. Learning
| how to use it requires a lot of dedication, with no obvious payoff
| (other than becoming part of the OO in-crowd and being able to put
| it on your resume ;-). So it gets put off until there's spare time
| to delve into the mysteries.
I also had a hard time with the OO documentation in the camel book,
and I'm used to OO programming!
I strongly recommend Advanced Perl Programming to all serious Perl
programmers. The first few chapters do a good job of explaining
things that the camel book doesn't explain well (IMO), such as
references (no "thingies"!) and objects. Don't think that you
should have to understand the camel book before you buy APP; there
were lots of things in the camel book I didn't understand _until_ I
read APP.
Now that I understand how to do OO in perl :) I use it for a lot of my
libraries, and it's been incredibly useful.
--
Dan Schmidt -> dfan@harmonixmusic.com, dfan@alum.mit.edu
Honest Bob & the http://www2.thecia.net/users/dfan/
Factory-to-Dealer Incentives -> http://www2.thecia.net/users/dfan/hbob/
Gamelan Galak Tika -> http://web.mit.edu/galak-tika/www/
------------------------------
Date: Tue, 07 Jul 1998 10:12:10 -0700
From: josri <josri@postoffice.pacbell.net>
Subject: perl and msql on windows
Message-Id: <35A256EA.472EAC5F@postoffice.pacbell.net>
Hi
I have msql116c and perl5.004_002 on windows 95. I found that msqlperl
is not available for windows. Is there something else like database
drivers (Win32::ODBC) is available for windows?
Thanks for any help!
Regards
Josri
------------------------------
Date: Tue, 07 Jul 1998 19:39:28 +0200
From: Bruno Yernaux <Yernaux@ifsa.ucl.ac.be>
To: rothd@roth.net, yernaux@ifsa.ucl.ac.be
Subject: Problem with Win32::NetAdmin:: and AdminMisc::UserChangePassword
Message-Id: <35A25D50.51EAA1B5@ifsa.ucl.ac.be>
Hello,
I am running Perl5.004.02 for Win32, on NT4 SP3, and most functions of
the
NetAdmin and AdminMisc modules seem to be working correctly, except
UserChangePassword that actually changes the user password without
returning any value. I have got the same problem with UsersExist.
Is that a well-known bug?
Is there any specific configuration required for the users?
Thank you
Bruno Yernaux
Yernaux@ifsa.ucl.ac.be
------------------------------
Date: Tue, 7 Jul 1998 12:45:22 -0400
From: "Alan McCoy" <a.r.mccoy@larc.nasa.gov>
Subject: Retrieving Links From a Search Engine Results Page???
Message-Id: <6ntjmo$pj8$1@reznor.larc.nasa.gov>
I'm trying to run a search on Metacrawler, parse the results page, retrieve
the URLs, titles, and descriptions of the results, and return them to the
browser. I know this is possible using a combination of LWP::Simple (I
think) and a few other modules, but I haven't the slightest idea of the
process involved in making this happen.
I was planning to use the WWW::Search module to do this, since it was pretty
much made for this purpose. However, there is no module for Metacrawler, so
I'm trying this method.
Can anyone give me a clue as to what steps are involved to make this happen?
So far, I figure I should start by using LWP::Simple to run the query and
grab the HTML code for the results page. From there, I have NO idea!
Alan McCoy
a.r.mccoy@larc.nasa.gov
------------------------------
Date: Tue, 07 Jul 1998 13:34:59 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Retrieving Links From a Search Engine Results Page???
Message-Id: <comdog-ya02408000R0707981334590001@news.panix.com>
Keywords: from just another new york perl hacker
In article <6ntjmo$pj8$1@reznor.larc.nasa.gov>, "Alan McCoy" <a.r.mccoy@larc.nasa.gov> posted:
>I'm trying to run a search on Metacrawler, parse the results page, retrieve
>the URLs, titles, and descriptions of the results, and return them to the
>browser. I know this is possible using a combination of LWP::Simple (I
>think) and a few other modules, but I haven't the slightest idea of the
>process involved in making this happen.
>Can anyone give me a clue as to what steps are involved to make this happen?
>So far, I figure I should start by using LWP::Simple to run the query and
>grab the HTML code for the results page. From there, I have NO idea!
get the data and store it in memory.
manipulate the data as desired, perhaps with HTML::Parser.
output the results as desired.
good luck :)
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers Travel Deals! <URL:http://www.pm.org/travel.html>
------------------------------
Date: Tue, 7 Jul 1998 12:02:03 +0100
From: "Simon Fairey" <simonf@conduit.co.uk>
Subject: Re: setting @INC in (ActiveState) Perl 5 for Win32
Message-Id: <35a1ff68.0@nnrp1.news.uk.psi.net>
Unless this is not applicable to the ActiveState perl ( in which case just
ignore my comment ) why not just push() the required paths onto the @INC
array.
Simon
Rik Blok wrote in message <35A1C81D.DB7E75A6@physics.ubc.ca>...
>Can somebody tell me where I can set the @INC variable under
>ActiveState's Perl? I want to set up a default library folder where I
>can put all my commonly "required" scripts.
>
>I've looked in the registry but didn't see anything there. Maybe in
>autoexec.bat? Please help...
>
>TIA, Rik.
>
>(Please send replies to my email address.)
>
>--
>Rik Blok <blok@physics.ubc.ca>
>Department of Physics and Astronomy,
>University of British Columbia, Canada
>http://www.physics.ubc.ca/~blok/
------------------------------
Date: 7 Jul 1998 16:53:28 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <6ntjq8$ijr$1@info.uah.edu>
Following is a summary of articles spanning a 8 day period,
beginning at 29 Jun 1998 14:35:00 GMT and ending at
07 Jul 1998 06:46:42 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" e-mail 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) 1998 Greg Bacon. All Rights Reserved.
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\@mox\.perl\.com
Totals
======
Posters: 565
Articles: 1583 (690 with cutlined signatures)
Threads: 495
Volume generated: 2771.9 kb
- headers: 1084.1 kb (22,098 lines)
- bodies: 1551.4 kb (47,014 lines)
- original: 1077.2 kb (34,564 lines)
- signatures: 134.9 kb (2,997 lines)
Original Content Rating: 0.694
Averages
========
Posts per poster: 2.8
median: 1 post
mode: 1 post - 366 posters
s: 6.3 posts
Posts per thread: 3.2
median: 2 posts
mode: 1 post - 143 threads
s: 3.7 posts
Message size: 1793.1 bytes
- header: 701.3 bytes (14.0 lines)
- body: 1003.5 bytes (29.7 lines)
- original: 696.8 bytes (21.8 lines)
- signature: 87.3 bytes (1.9 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
56 79.7 ( 43.5/ 29.6/ 18.5) Tom Phoenix <rootbeer@teleport.com>
51 76.7 ( 35.3/ 31.3/ 23.7) "F.Quednau" <quednauf@nortel.co.uk>
49 84.2 ( 39.1/ 38.7/ 29.7) tchrist@mox.perl.com (Tom Christiansen)
46 75.8 ( 29.5/ 41.8/ 22.9) lr@hpl.hp.com (Larry Rosler)
46 75.7 ( 33.3/ 30.9/ 17.4) comdog@computerdog.com (brian d foy)
43 73.0 ( 27.8/ 45.1/ 31.4) cberry@cinenet.net (Craig Berry)
37 59.3 ( 22.1/ 37.2/ 21.3) kortbein@iastate.edu (Josh Kortbein)
30 58.3 ( 24.7/ 29.5/ 11.2) abigail@fnx.com
26 46.8 ( 17.6/ 29.2/ 17.3) Gellyfish@btinternet.com (Jonathan Stowe)
24 47.0 ( 18.9/ 22.0/ 12.8) rjk@coos.dartmouth.edu (Ronald J Kimball)
These posters accounted for 25.8% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
96.8 ( 0.8/ 96.0/ 96.0) 1 mcq@best.com (Rebecca McQuitty)
84.2 ( 39.1/ 38.7/ 29.7) 49 tchrist@mox.perl.com (Tom Christiansen)
79.7 ( 43.5/ 29.6/ 18.5) 56 Tom Phoenix <rootbeer@teleport.com>
76.7 ( 35.3/ 31.3/ 23.7) 51 "F.Quednau" <quednauf@nortel.co.uk>
75.8 ( 29.5/ 41.8/ 22.9) 46 lr@hpl.hp.com (Larry Rosler)
75.7 ( 33.3/ 30.9/ 17.4) 46 comdog@computerdog.com (brian d foy)
73.0 ( 27.8/ 45.1/ 31.4) 43 cberry@cinenet.net (Craig Berry)
59.3 ( 22.1/ 37.2/ 21.3) 37 kortbein@iastate.edu (Josh Kortbein)
58.3 ( 24.7/ 29.5/ 11.2) 30 abigail@fnx.com
56.0 ( 15.0/ 27.9/ 19.3) 20 Zenin <zenin@bawdycaste.org>
These posters accounted for 26.5% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.971 ( 2.4 / 2.5) 5 "Howard Dierking" <howard@vortexweb.com>
0.962 ( 7.7 / 8.0) 5 macintsh@cs.bu.edu (John Siracusa)
0.945 ( 8.3 / 8.8) 11 gebis@albrecht.ecn.purdue.edu (Michael J Gebis)
0.929 ( 2.8 / 3.1) 8 perlguy@technologist.com
0.925 ( 9.1 / 9.8) 9 ryan@steelplan.com.au
0.832 ( 4.2 / 5.1) 5 ptimmins@netserv.unmc.edu (Patrick Timmins)
0.790 ( 7.2 / 9.1) 7 Toby Chamberlain <tjchamberlain@hotmail.com>
0.780 ( 12.2 / 15.7) 10 joker@inlink.com (John Hocking)
0.769 ( 3.2 / 4.2) 6 Jonathan Feinberg <jdf@pobox.com>
0.766 ( 29.7 / 38.7) 49 tchrist@mox.perl.com (Tom Christiansen)
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.540 ( 3.3 / 6.1) 5 drummj@mail.mmc.org
0.516 ( 2.5 / 4.8) 5 Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
0.485 ( 7.0 / 14.5) 18 jdporter@min.net
0.468 ( 1.5 / 3.3) 5 heribert.wettels@sueddeutsche.de
0.381 ( 11.2 / 29.5) 30 abigail@fnx.com
0.379 ( 2.9 / 7.7) 10 bowlin@sirius.com
0.336 ( 0.9 / 2.6) 5 david.x.corcoran@boeing.com
0.334 ( 1.1 / 3.2) 5 mjtg@cus.cam.ac.uk (M.J.T. Guy)
0.287 ( 1.5 / 5.2) 7 kpreid@ibm.net (Kevin Reid)
0.285 ( 2.3 / 8.0) 5 ced@bcstec.ca.boeing.com (Charles DeRykus)
57 posters (10%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
28 problems with script
21 better way of getting the last modified file?
19 question about objects
19 What a Crappy World
15 2-byte code match problem
15 regexp s/// for removing tail end of string
15 perl newbie Q: Any ideas why this doesn't work?
13 Virtual functions.
13 Uploading image files
13 Invalid regexp in grep
These threads accounted for 10.8% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
96.8 ( 0.8/ 96.0/ 96.0) 1 RESULT: comp.lang.perl.moderated moderated passes 1127:46
54.3 ( 15.3/ 37.6/ 16.3) 19 question about objects
52.6 ( 23.3/ 25.7/ 13.1) 28 problems with script
49.1 ( 14.1/ 33.9/ 22.3) 19 What a Crappy World
42.8 ( 3.9/ 38.6/ 30.8) 5 ICE - Search engine
40.8 ( 16.8/ 21.9/ 11.4) 21 better way of getting the last modified file?
28.7 ( 10.6/ 17.3/ 12.2) 13 Uploading image files
27.7 ( 12.3/ 14.5/ 7.5) 15 2-byte code match problem
25.6 ( 8.1/ 16.5/ 8.7) 13 Invalid regexp in grep
25.4 ( 10.3/ 13.6/ 6.6) 15 regexp s/// for removing tail end of string
These threads accounted for 16.0% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.876 ( 3.7/ 4.2) 5 PUZZLE: dutree (new)
0.867 ( 7.6/ 8.7) 6 The vagaries of read()ing
0.863 ( 2.7/ 3.2) 5 Webresource.net
0.861 ( 2.1/ 2.5) 7 array of objets
0.841 ( 2.2/ 2.6) 5 PUZZLE: dutree (old)
0.835 ( 9.1/ 11.0) 6 Flames....
0.830 ( 3.8/ 4.5) 8 Why no Perl news/mailreader?
0.828 ( 2.0/ 2.4) 6 Running Unix Script in Perl
0.821 ( 6.2/ 7.6) 7 [Q] mod_perl
0.818 ( 8.1/ 9.9) 6 passing a ref to a subroutine, problem with use strict
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.496 ( 1.5 / 3.0) 6 Two commands, one button.
0.491 ( 1.4 / 2.9) 7 How to get files in a directory?
0.486 ( 2.1 / 4.4) 5 Perl strchr?
0.485 ( 3.3 / 6.7) 6 problem with system and ftp
0.483 ( 6.6 / 13.6) 15 regexp s/// for removing tail end of string
0.479 ( 4.1 / 8.6) 13 Virtual functions.
0.434 ( 16.3 / 37.6) 19 question about objects
0.430 ( 4.4 / 10.3) 10 How to check variables exists in a string
0.412 ( 2.9 / 6.9) 7 Regular expression matech for ( non-fixed number of () pairs )?
0.398 ( 0.9 / 2.4) 5 flame everyone on sight (was Re: Perl and Delphi)
104 threads (21%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
48 comp.lang.perl.modules
22 comp.lang.perl
16 alt.perl
10 comp.lang.perl.tk
8 comp.unix.shell
7 comp.infosystems.www.servers.unix
4 gnu.emacs.gnus
3 comp.os.linux.misc
3 comp.infosystems.www.authoring.cgi;
3 comp.mail.sendmail
Top 10 Crossposters
===================
Articles Address
-------- -------
14 Donovan Rebbechi <elflord@pegasus.rutgers.edu>
8 Zenin <zenin@bawdycaste.org>
6 lr@hpl.hp.com (Larry Rosler)
6 "Howard Dierking" <howard@vortexweb.com>
6 "Norman Bunn" <norman.bunn@mci.com>
5 jdporter@min.net
5 ilya@math.ohio-state.edu (Ilya Zakharevich)
4 Gisle Aas <aas@sn.no>
3 "Igor Krivokon" <igor.k@usa.net>
3 j5rson@iversonsoftware.com
------------------------------
Date: Tue, 07 Jul 1998 09:54:36 -0700
From: josri <josri@postoffice.pacbell.net>
Subject: Win32::ODBC
Message-Id: <35A252CC.C7065578@postoffice.pacbell.net>
Hi
I have gurusamy sarathy's (windows port) perl and msql116c. When I tried
the following
use Win32::ODBC;
my($db)=new Win32::ODBC("test");
if($cnum=$db->Connection){
print "Success";
}
$db->Close();
I get the foll. error:
Can't load C:\perl\lib\site/auto/Win32/ODBC/ODBC.dll for module
Win32::ODBC; 1157 at C:\perl\lib/DynaLoader.pm line 155
I have the ODBC.dll and I also tried giving it in the path.
Any help would be greatly appreciated.
Regards
Josri
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 3083
**************************************
