[17720] in Perl-Users-Digest
Perl-Users Digest, Issue: 5140 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 18 14:05:37 2000
Date: Mon, 18 Dec 2000 11:05:14 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <977166314-v9-i5140@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 18 Dec 2000 Volume: 9 Number: 5140
Today's topics:
Can you help me? <soeder@ai-lab.fh-furtwangen.de>
Re: Can you help me? <tinamue@zedat.fu-berlin.de>
change Password <Per-fredrik.Pollnow@epk.ericsson.se>
Re: chmod under Win32 <bbgraph@scioto.net>
Re: Fail to use DBI::Proxy <Karl.Mikasa@usa.xerox.com>
ftp - setting remote file permissions cgrab@my-deja.com
Re: ftp - setting remote file permissions nobull@mail.com
Re: General Tool(s) for browsing/editing DB tables? <newspost@coppit.org>
Re: Getting around the @#$@ DOS backslash! <timallen449@coldmail.com>
Guilty as charged!!! :-) <jwmsng@greatNOSPAMwebsolutions.com>
Re: Guilty as charged!!! :-) (Tom Christiansen)
Re: hard references - hash of arrays - tutorial? (brian d foy)
Re: Hiding source msalerno@my-deja.com
Re: How to make LWP::UserAgent "frame enabled" (Peter Scott)
Re: Is Perl dying? mexicanmeatballs@my-deja.com
Re: Language evolution C->Perl->C++->Java->Python (Is P <mischief@velma.motion.net>
Re: Language evolution C->Perl->C++->Java->Python (Is P <cdsmith@twu.net>
Re: Merry Christ Mas <mischief@velma.motion.net>
Re: Multiple ICMP Pings <visstmbl@reading.ac.uk>
Net::FTP, setting remote file permissions cgrab@minstrel.com
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: newbie - access to dbf foxpro file <kolisko@penguin.cz>
newbie question - dbi:xbase <kolisko@penguin.cz>
please helpme <arman2@mixmail.com>
Re: please helpme <timallen449@coldmail.com>
Re: please helpme ts@doc.ic.ac.uk
Re: please helpme ts@doc.ic.ac.uk
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 18 Dec 2000 19:22:35 +0100
From: Oliver =?iso-8859-1?Q?S=F6der?= <soeder@ai-lab.fh-furtwangen.de>
Subject: Can you help me?
Message-Id: <3A3E55EB.9BADA378@ai-lab.fh-furtwangen.de>
Hello, =
I am able to programm C++ and know how to use $subject there.
Is it possible to use these functions under perl? I already tried, =
but there ist no Heap and Stack like under C++.
Cheers
Oliver S=F6der
------------------------------
Date: 18 Dec 2000 18:43:53 GMT
From: Tina Mueller <tinamue@zedat.fu-berlin.de>
Subject: Re: Can you help me?
Message-Id: <91llt9$4i2cd$3@fu-berlin.de>
hi,
Oliver Söder <soeder@ai-lab.fh-furtwangen.de> wrote:
> I am able to programm C++ and know how to use $subject there.
> Is it possible to use these functions under perl? I already tried,
> but there ist no Heap and Stack like under C++.
didn't you get the answer to your posting on saturday?
message id:<slrn93ppn7.1m3.tadmc@magna.metronet.com>
tina
--
http://tinita.de \ enter__| |__the___ _ _ ___
tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
search & add comments \ \ _,_\ __/\ __/_| /__/ perception
please don't email unless offtopic or followup is set. thanx
------------------------------
Date: Mon, 18 Dec 2000 17:03:41 +0100
From: "Per- Fredrik Pollnow" <Per-fredrik.Pollnow@epk.ericsson.se>
Subject: change Password
Message-Id: <91lbub$2of$1@newstoo.ericsson.se>
Hi,
I was wondering if anyone knows how to change password in UNIX(Solaris) with
a perl script. The function of the script is to add a user and then change
the password for the user.
Can someone please help me ..
------------------------------
Date: Mon, 18 Dec 2000 16:56:02 GMT
From: "Bob" <bbgraph@scioto.net>
Subject: Re: chmod under Win32
Message-Id: <Ckr%5.7$ZQ3.133@news>
Thanks for the info and responses...I've tried cacls before but apparently
I'm not giving it the right syntax....I had hoped to have a perl script that
I could use...I'll look into the Win32 pointers...
Thanks again
Bob
===
"Bob" <bbgraph@scioto.net> wrote in message news:8tK_5.569$Y2.8983@news...
> I have read the docs for using the chmod command under ActiveState's perl
> version but I am unsure as to the correct syntax.
>
> I'd like to be able to chmod an entire directory of a group of files
within
> a directory from the command prompt rather than via Windows Explorer under
> NT.
>
> Has anyone used this successfully under NT?
>
> Thanks
>
> Bob
>
>
------------------------------
Date: Mon, 18 Dec 2000 17:48:47 GMT
From: Karl Mikasa <Karl.Mikasa@usa.xerox.com>
Subject: Re: Fail to use DBI::Proxy
Message-Id: <91lilt$kk$1@nnrp1.deja.com>
Did you install PlRPC module?
Karl
In article <90q6l7$rrh@netnews.hinet.net>,
"John" <john@imining.com.tw> wrote:
> Hi all:
>
> I want to access database(Access or SQL server) on NT from Linux
through
> DBI::Proxy.
>
> I have setup ODBC DSN and run dbiproxy on NT.
>
> The data source is
> "DBI:Proxy:hostname=211.72.167.46;port=1234;dsn=dbi:ODBC:visitors"
>
> I failed to call connect and the following error message was showed:
>
> install_driver(Proxy) failed: Can't locate RPC/PlClient.pm in @INC
(@INC
> contains: /usr/local/lib/perl5/5.00557/i686-linux
> /usr/local/lib/perl5/5.00557 /usr/loc
> al/lib/perl5/site_perl/5.00557/i686-linux
> /usr/local/lib/perl5/site_perl/5.00557
> .) at /usr/local/lib/perl5/site_perl/5.00557/i686-linux/DBD/Proxy.pm
line
> 28.
> BEGIN failed--compilation aborted at
> /usr/local/lib/perl5/site_perl/5.00557/i686
> -linux/DBD/Proxy.pm line 28.
> Perhaps a module that DBD::Proxy requires hasn't been fully installed
> at insert_dbi4.pl line 13
>
> Why?
>
> Thanks in advance.
>
> John Hsieh
> john@imining.com.tw
>
>
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Mon, 18 Dec 2000 14:31:15 GMT
From: cgrab@my-deja.com
Subject: ftp - setting remote file permissions
Message-Id: <91l73j$ltc$1@nnrp1.deja.com>
I'm attempting to use the Net::FTP module to move files from a staging
server to a production one. While the files themselves get moved ok,
their permissions are getting changed. The local machine has them set
at 755, but the remote one has them at 644. Is there any way to either
keep them the same or change them back? Thanks.
Charles
NOTE: I've tried using the 'site' command, but get back a "<<< 502 SITE
command not implemented" message.
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: 18 Dec 2000 18:05:00 +0000
From: nobull@mail.com
Subject: Re: ftp - setting remote file permissions
Message-Id: <u9g0jlip0z.fsf@wcl-l.bham.ac.uk>
cgrab@my-deja.com writes:
> I'm attempting to use the Net::FTP module to move files from a staging
> server to a production one. While the files themselves get moved ok,
> their permissions are getting changed. The local machine has them set
> at 755, but the remote one has them at 644. Is there any way to either
> keep them the same or change them back? Thanks.
>
> Charles
>
> NOTE: I've tried using the 'site' command, but get back a "<<< 502 SITE
> command not implemented" message.
The Unix chmod in FTP is implemented via the SITE CHMOD command. If
the server you are using does not implement the SITE CHMOD command
then you can't change the mode of a file.
Maybe you got the syntax of the SITE CHMOD wrong.
I don't think this really has much to do with Perl.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 18 Dec 2000 11:08:02 -0500
From: David Coppit <newspost@coppit.org>
To: John Stumbles <visstmbl@reading.ac.uk>
Subject: Re: General Tool(s) for browsing/editing DB tables?
Message-Id: <Pine.GSO.4.21.0012181105170.22783-100000@mamba.cs.Virginia.EDU>
[posted & mailed]
On Wed, 13 Dec 2000, John Stumbles wrote:
> Is there a module or some ready-rolled utilit[y|ies] for browsing
> and editing databases/tables/records via DBI/DBD? I'm thinking od the sort
> of visual tool one gets with MS (sorry :-) Access where you can point and
> drag fields from tables to indicate relations etc. I did get partway
> through a homebrew effort using a CGI front end but it was slow and not
> very functional, and I guess Perl/TK would be better for an interface.
I recommend phpMyAdmin
(http://www.phpwizard.net/projects/phpMyAdmin/). It's built on PHP and
not CGI, but does pretty much anything you'd want to do.
David
------------------------------
Date: Mon, 18 Dec 2000 15:25:28 +0100
From: "tim allen" <timallen449@coldmail.com>
Subject: Re: Getting around the @#$@ DOS backslash!
Message-Id: <91l644$pgc$1@diana.bcn.ttd.net>
<elvis@chowtech.cuug.ab.ca> wrote in message
news:91i67s$527$1@chowtech.cuug.ab.ca...
>...I need to extract info from a DOS string of type
C:\dos\command\fruitcake.exe.
>How can I extract all the sections
>between the backslashes and determine how many sections I can extract
without
>actually knowing anything about the string submitted?
>Elvis
Hi Elvis,
Something like this might work-- you can find out more by looking up the
split command (perlfunc), regular expressions (perlfaq6), and arrays
(perlfaq4).
$str = 'C:\dos\command\fruitcake.exe'; # get the string-- you could do this
as <STDIN>, too
@res = split(/\\/,$str); # split it up (use backslash to "escape" the
backslash)
foreach $sect (@res) { # loop through
print "$sect\n"; # print the sections
}
print "There are " . @res . " sections\n"; # array in scalar context returns
# of elements
In that last line, see what happens if you say "There are @res sections\n";
instead!
If you don't have the FAQs available you can find them at
http://www.perldoc.com
Hope that helps. -tim
--
unmunge?cold=hot
@q=unpack('U*',"Tim Allen");@l=unpack('U*',"Geeky Hackers Grok Perl!\n"
);@w=(61,113,107,191,88,-11,74,107,105,127,97,119,115,47,64,120,118,29,
20,72,91,189,144,39,-88);foreach(@w){push(@g,($_-$l[$x]));$x++}foreach(
@g){print chr($_+$q[$z]);$z++;$z%=@q}
------------------------------
Date: Mon, 18 Dec 2000 12:46:38 -0500
From: "John W" <jwmsng@greatNOSPAMwebsolutions.com>
Subject: Guilty as charged!!! :-)
Message-Id: <3a3e4cfc_2@goliath2.newsfeeds.com>
OK, folks -- I confess. The file WAS NAMED "test"!
If I understand the man page correctly, "test" (executed with no parameters)
does... absolutely nothing. Am I correct on this?
Thanks for the info, everyone -- and I've learned my lesson.
Dot-slash-filename from now on.
John
> Do a 'which file1', unless 'file1' == 'test', in which case do a 'man
test', and
> never call anything else 'test'. ;-)
>
> One further suggestion - put your current directory ('.') in your path
ahead of
> everything else.
>
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 80,000 Newsgroups - 16 Different Servers! =-----
------------------------------
Date: 18 Dec 2000 11:01:27 -0700
From: tchrist@perl.com (Tom Christiansen)
Subject: Re: Guilty as charged!!! :-)
Message-Id: <3a3e50f6@cs.colorado.edu>
In article <3a3e4cfc_2@goliath2.newsfeeds.com>,
John W <jwmsng@greatNOSPAMwebsolutions.com> wrote:
>OK, folks -- I confess. The file WAS NAMED "test"!
From the Camel:
A random clue: when you write a test script, don't call your
script I<test>. Unix systems have a built-in test command,
which will likely be executed instead of your script. Try
I<try> instead.
>If I understand the man page correctly, "test" (executed with no parameters)
>does... absolutely nothing. Am I correct on this?
Well, it exits with a failure status indication. Think of it
as a funny way to call "false".
--tom
------------------------------
Date: Mon, 18 Dec 2000 10:27:12 -0400
From: brian@smithrenaud.com (brian d foy)
Subject: Re: hard references - hash of arrays - tutorial?
Message-Id: <brian-ya02408000R1812001027120001@news.panix.com>
In article <91kake$1l5$1@nnrp1.deja.com>, cliverholloway@my-deja.com posted:
> foreach (@{$hash{$key}}) {
> If I use "no strict 'refs'" it works, but if I don't I get the error:
>
> Can't use string ("0") as an ARRAY ref while strict refs in use.
>
> Does anyone have a _simple_ explanation of what I need to do to maker this
> work under strict?
make sure that all of your values are array references. one of them
obviously isn't.
Data::Dumper is useful for debugging, as is print(). ;)
--
brian d foy
CGI Meta FAQ <URL:http://www.smithrenaud.com/public/CGI_MetaFAQ.html>
Perl Mongers <URL:http://www.perl.org/>
------------------------------
Date: Mon, 18 Dec 2000 18:22:45 GMT
From: msalerno@my-deja.com
Subject: Re: Hiding source
Message-Id: <91lkle$2a2$1@nnrp1.deja.com>
In article <3A3DB752.301F9992@videotron.ca>,
Mercille <gmercille@videotron.ca> wrote:
> I heard that it was impossible to totally hide the source of a script
> written in perl. I kinda agree with that, since the script has to be
> world-read+execute, but still, I haven't figured out a way to read my
> own source from the web. I'm no professional hacker, but I would like
> to know how they can do this to see what kind of security measures I
can
> take.
>
> Please try and get the source of
> http://www.info.polymtl.ca/~sleeping/cgi-bin/test.cgi and if you can
see
> the source, tell me how you did it (using which software, which
> strategy, etc.) Thanks a lot.
>
>
I am pretty sure that the scripts in the cgi-bin don't have to have read
permissions. Also if you are using apache, you can setup all kinds of
directory directives for tighter security. My suggestion to you is to
post this message to a newsgroup that has something to do with your web
server. This is not really a perl issue.
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Mon, 18 Dec 2000 17:58:57 GMT
From: peter@PSDT.com (Peter Scott)
Subject: Re: How to make LWP::UserAgent "frame enabled"
Message-Id: <Bfs%5.44297$3j.4244505@news1.gvcl1.bc.home.com>
In article <3a3d67c4$0$19416$7f31c96c@news01.syd.optusnet.com.au>,
"Carl Wu" <carlywu@yahoo.com> writes:
>Peter,
>
>You are right.
Flattery notwithstanding, you sent me a stealth cc which I replied to privately.
I'm done with this thread.
--
Peter Scott
------------------------------
Date: Mon, 18 Dec 2000 17:33:19 GMT
From: mexicanmeatballs@my-deja.com
Subject: Re: Is Perl dying?
Message-Id: <91lhov$vo0$1@nnrp1.deja.com>
In article <91h4es$ec$1@boomer.cs.utexas.edu>,
logan@cs.utexas.edu (Logan Shaw) wrote:
> In article <brian+usenet-0182D5.16135416122000@news.panix.com>,
> brian d foy <brian+usenet@smithrenaud.com> wrote:
> >however, you can't get rid of bad managers.
>
> Yes you can. It's just that sometimes it takes many months of
> cooperation from a large number of employees.
Or one with a gun.....
>:-)
--
Jon
perl -e 'print map {chr(ord($_)-3)} split //, "MrqEdunhuClqdph1frp";'
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Mon, 18 Dec 2000 16:23:17 -0000
From: Chris Stith <mischief@velma.motion.net>
Subject: Re: Language evolution C->Perl->C++->Java->Python (Is Python the ULTIMATE of languages??)
Message-Id: <t3sefllpkvda0a@corp.supernews.com>
In comp.lang.perl.misc Titan <NoSpam@home.com> wrote:
> Roedy Green wrote:
>>
>> ludicrous it yanks the rug out from under your credibility. Everything
>> else you have claimed is now suspect, even the stuff that is true,
>> e.g. that Python is terser and more readable.
> Well it seems your position is a little extreme, if not ludicrous to
> brand EVERYTHING someone claims as suspect just because of a
> disagreement on one issue.
I think it may be drastic to consider everything the poster says
to be dead wrong without giving it any consideration based on one
statement, but I think suspect is a good choice of words.
Any time someone makes a statement of view with the fervor of a
fanatic, there is a good chance you should expect to hear the
supporting statements from the mouth of a fanatic, who is biased
and often underinformed or misinformed about the alternatives to
his or her own views.
This does not mean that everything a fanatic says holds no value.
It just means that what a fanatic says must be considered in light
of the source. Every statement you hear or read should be considered
in light of the source. In the case of anyone who seems to be a
fanatic for a cause, consider it more closely before you award it
merit.
Chris
--
Christopher E. Stith
mischief@motion.net
------------------------------
Date: Mon, 18 Dec 2000 09:27:56 -0600
From: "Chris Smith" <cdsmith@twu.net>
Subject: Re: Language evolution C->Perl->C++->Java->Python (Is Python the ULTIMATE of languages??)
Message-Id: <91laem$8nu$0@dosa.alt.net>
Titan <NoSpam@home.com> wrote ...
> Roedy Green wrote:
> >
> > ludicrous it yanks the rug out from under your credibility. Everything
> > else you have claimed is now suspect, even the stuff that is true,
> > e.g. that Python is terser and more readable.
>
> Well it seems your position is a little extreme, if not ludicrous to
> brand EVERYTHING someone claims as suspect just because of a
> disagreement on one issue.
True, except when the "one issue" is a claim that Python is the
theoretically ultimate language and it's impossible to develop a better
language. Anyone who makes that claim about any language is not merely
wrong, but spectacularly wrong.
I'm with Roedy on this one.
Chris Smith
------------------------------
Date: Mon, 18 Dec 2000 16:00:30 -0000
From: Chris Stith <mischief@velma.motion.net>
Subject: Re: Merry Christ Mas
Message-Id: <t3sd4u7oht62ee@corp.supernews.com>
Charlie Brown <root@c237627-d.moline1.il.home.com> wrote:
> this is a perl schrip a friend and i whipped up
It's a script or a program. I don't know what the
heck a 'schrip' is.
> last night for anyone who's religious (christian)
> or just interested in a perl schrip to display
> some greek schriptures on the win95/98/nt? mchine.
> just need to reverse the slashes and change the
> jb directory to /root/jb and it'll work
> fine in X.
You should reverse the slashes separating directories
anyway. Windows supports proper directory separators
in programs even if it is backwards from the command
line.
> requires Tk and LWP::UserAgent/HTTP::Request
> (in order to download the greek scriptures
> only downloads a piece at a time, stripped
> from the ccat archives and some greek nt
> i downloaded a while back (julyish))
> from God remembers where on the net.
Just curious and not critical, but why do you
download only bits at a time? It would seem
better to me to download the whole thing once
if it's not there, and not download anything
at all if the data is already there.
Or maybe, at least, if you download data as needed,
keep it around later. Of course, forgive me if your
code does this, I'm just commenting on your
description of it.
> Merry Christ-mas remember Jesus loves us!
> ########## start code ##########
Merry Christmas to you, too.
Chris
--
Christopher E. Stith - mischief@motion.net
------------------------------
Date: Mon, 18 Dec 2000 18:38:34 +0000
From: John Stumbles <visstmbl@reading.ac.uk>
To: "J.D. Stumbles" <j.d.stumbles@reading.ac.uk>
Subject: Re: Multiple ICMP Pings
Message-Id: <Pine.WNT.4.30.0012181546191.109-100000@supc16.rdg.ac.uk>
On Fri, 15 Dec 2000, Vladimir Silyaev wrote:
>
> "Rodney Ramos" <rodneyra@my-deja.com> wrote in message
> news:91d884$rtv$1@nnrp1.deja.com...
> > Does anyone know how can I make a scrip to ping several hosts at same
> > time? I mean, I want to ping several hosts without having to wait one
> > finish to ping the next, because I have to do this in a short period of
> > time and I have more than 1,000 hosts.
> How about this:
> open(PING1, "ping -c 1 hostname1|")
> for all number of hosts what you like to ping simultaneosly
> and after that you can use or 'select' and for read output or call wat and
> look for pid/return code.
Please be careful doing this on a live network (if you want to
keep it that way ;-)
Simultaneously generating 1000 pings from a machine on one subnet
to hosts on another causes the intervening router to do many 100s of arp
requests (one for each destination host it doesn't have in it arp cache)
which causes lots of broadcasts plus can cause a lot of load on the
router's CPU.
Generally, if you're pinging hosts you know exist to check that
they're up you should be OK, but if you're trying to discover hosts you
can cause problems. Take it easy ... they'll probably still be there in
another hour or so, and so will your network!
You also have to consider the machine you're running your script
on: spawning 1000 processes may impact performace :-)
regards,
--
John Stumbles j.d.stumbles@reading.ac.uk
I.T. Services Centre, University of Reading http://www.rdg.ac.uk/~visstmbl
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
never generalise
------------------------------
Date: Mon, 18 Dec 2000 14:08:06 GMT
From: cgrab@minstrel.com
Subject: Net::FTP, setting remote file permissions
Message-Id: <91l5o3$ktb$1@nnrp1.deja.com>
I'm attempting to use the Net::FTP module to move files from a staging
server to a production one. While the files themselves get moved ok,
their permissions are getting changed. The local machine has them set
at 755, but the remote one has them at 644. Is there any way to either
keep them the same or change them back? Thanks.
Charles
NOTE: I've tried using the 'site' command, but get back a "<<< 502 SITE
command not implemented" message.
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Mon, 18 Dec 2000 17:30:27 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <t3sidj98kvdf38@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 11 Dec 2000 17:21:03 GMT and ending at
18 Dec 2000 14:25:28 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: 173 (38.4% of all posters)
Articles: 272 (19.7% of all articles)
Volume generated: 489.1 kb (19.0% of total volume)
- headers: 218.4 kb (4,406 lines)
- bodies: 265.2 kb (9,097 lines)
- original: 184.6 kb (6,708 lines)
- signatures: 5.3 kb (130 lines)
Original Content Rating: 0.696
Averages
========
Posts per poster: 1.6
median: 1 post
mode: 1 post - 123 posters
s: 1.4 posts
Message size: 1841.4 bytes
- header: 822.1 bytes (16.2 lines)
- body: 998.2 bytes (33.4 lines)
- original: 695.1 bytes (24.7 lines)
- signature: 20.1 bytes (0.5 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
8 13.6 ( 5.9/ 7.7/ 3.0) "Vladimir Silyaev" <cbah@chez.com>
7 14.8 ( 4.9/ 9.9/ 4.3) fuzzybear@pocketmail.com
7 20.5 ( 6.0/ 14.5/ 11.8) Mike Lin <mikelin6@home.com>
6 16.4 ( 5.6/ 10.8/ 7.1) "John Michael" <johnm@acadiacom.net>
6 12.2 ( 5.3/ 6.9/ 4.1) fozz@xmission.com
5 8.6 ( 3.7/ 4.9/ 2.7) mike_solomon@lineone.net
5 7.8 ( 4.1/ 3.7/ 2.2) Jeff Robertson <jeff_robertson@yahoo.com>
4 7.5 ( 3.6/ 2.9/ 1.5) Ilmari Karonen <usenet11304@itz.pp.sci.fi>
4 7.3 ( 2.9/ 4.4/ 3.9) "tim allen" <timallen449@coldmail.com>
4 13.8 ( 3.1/ 10.6/ 9.5) Andreas Burmester HG/EHS/FD <qhsand@ehpt.com>
These posters accounted for 4.1% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
20.5 ( 6.0/ 14.5/ 11.8) 7 Mike Lin <mikelin6@home.com>
16.4 ( 5.6/ 10.8/ 7.1) 6 "John Michael" <johnm@acadiacom.net>
14.8 ( 4.9/ 9.9/ 4.3) 7 fuzzybear@pocketmail.com
13.8 ( 3.1/ 10.6/ 9.5) 4 Andreas Burmester HG/EHS/FD <qhsand@ehpt.com>
13.6 ( 5.9/ 7.7/ 3.0) 8 "Vladimir Silyaev" <cbah@chez.com>
12.4 ( 2.4/ 9.9/ 4.3) 3 Kul <WebMaster3@qax.org>
12.2 ( 5.3/ 6.9/ 4.1) 6 fozz@xmission.com
9.1 ( 2.0/ 7.1/ 3.8) 3 "bab" <trentm1@hotmail.com>
8.6 ( 3.7/ 4.9/ 2.7) 5 mike_solomon@lineone.net
7.9 ( 0.8/ 7.2/ 6.9) 1 ignition78@my-deja.com
These posters accounted for 5.0% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.897 ( 3.9 / 4.4) 4 "tim allen" <timallen449@coldmail.com>
0.895 ( 9.5 / 10.6) 4 Andreas Burmester HG/EHS/FD <qhsand@ehpt.com>
0.842 ( 1.5 / 1.7) 4 Evanda Remington <evanda@ater.org>
0.812 ( 11.8 / 14.5) 7 Mike Lin <mikelin6@home.com>
0.792 ( 1.1 / 1.4) 3 Mariusz Drozdziel <nova@moo.pl>
0.768 ( 1.1 / 1.5) 3 "Lars Svensson" <lars_lars@home.se>
0.708 ( 0.6 / 0.9) 3 willem veenhoven <willem@veenhoven.com>
0.658 ( 7.1 / 10.8) 6 "John Michael" <johnm@acadiacom.net>
0.604 ( 2.2 / 3.7) 5 Jeff Robertson <jeff_robertson@yahoo.com>
0.596 ( 4.1 / 6.9) 6 fozz@xmission.com
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.549 ( 2.7 / 4.9) 5 mike_solomon@lineone.net
0.539 ( 3.8 / 7.1) 3 "bab" <trentm1@hotmail.com>
0.519 ( 1.5 / 2.9) 4 Ilmari Karonen <usenet11304@itz.pp.sci.fi>
0.508 ( 1.9 / 3.7) 3 hroces@my-deja.com
0.508 ( 2.3 / 4.5) 3 "Perry Smit" <perry@in4me.tv>
0.445 ( 1.1 / 2.5) 4 "Waarddebon" <Waarddebon@chello.nl>
0.440 ( 4.3 / 9.9) 7 fuzzybear@pocketmail.com
0.438 ( 4.3 / 9.9) 3 Kul <WebMaster3@qax.org>
0.392 ( 3.0 / 7.7) 8 "Vladimir Silyaev" <cbah@chez.com>
0.240 ( 1.2 / 5.1) 4 "Hawk" <someguyREMOVE@REMOVEsunflower.com>
20 posters (11%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
42 comp.lang.perl
20 alt.perl
16 comp.os.ms-windows.nt.admin.misc
14 comp.lang.java.tech
14 comp.lang.java.machine
14 comp.lang.java.softwaretools
13 comp.os.ms-windows.nt.admin.security
13 comp.os.ms-windows.nt.misc
13 alt.comp.perlcgi.freelance
11 comp.lang.perl.tk
Top 10 Crossposters
===================
Articles Address
-------- -------
8 Just Me <just_me@nowhere.com>
4 "Chris Smith" <cdsmith@twu.net>
4 willem veenhoven <willem@veenhoven.com>
4 Titan <NoSpam@home.com>
4 "Ice Demon" <mbjorkman1@qwest.net>
4 Al Dev <alavoor-nospam@yahoo.com>
4 arnet@hpcvplnx.cv.hp.com
4 roedy@mindprod.com
4 BorrisYeltsin <BorrisYeltsin@webtribe.net>
4 xnews.reply.to@rtij.nl
------------------------------
Date: Mon, 18 Dec 2000 19:35:55 +0100
From: "Michal Kolesar" <kolisko@penguin.cz>
Subject: Re: newbie - access to dbf foxpro file
Message-Id: <91llfr$2ifj$1@news.vol.cz>
Thank you..
its fine now, but I have next problem .. :-(
I posted it to this konference 2 minutes ago.
--
---
Michal Kolesar
kolisko@penguin.cz
http://www.egarden.cz
public server of free unix services
"Bart Lateur" <bart.lateur@skynet.be> wrote in message
news:7p2s3t47q4dqo66jarqlkvr7a274f6svjt@4ax.com...
> Michal Kolesar wrote:
>
> >I have a linear.dbf file.
> >and I would like to use for this file a select:
> >select * from linear where tcislo > 101000
> >
> >How is it possible? Must I install any modules?
> >And how?
>
> Try DBD::XBase.
>
> <http://search.cpan.org/search?dist=DBD-XBase>
>
> Activestate, Perl 5.6:
>
> <http://www.activestate.com/packages/x86/DBD-XBase.tar.gz>
>
> You'll most likely need DBI as well.
>
> <http://www.activestate.com/packages/x86/DBI.tar.gz>
>
> To install the packages, you'll need the equivalent PPD files too, which
> are one directory up. Download the files, put them in the same relative
> position, i.e. the tar.gz files in an "x86" subdirectory, create a
> simple BAT file with just this one line:
>
> @ppm install %1
>
> and drop the PPD files on it, one by one (DBI first). Both modules will
> be installed. Note that ppm.bat is the module management tool included
> in the Activestate distribution. It's in the "bin" subdir.
>
> Next, try some adapted samples from the DBD::XBase docs.
>
> --
> Bart.
------------------------------
Date: Mon, 18 Dec 2000 19:33:44 +0100
From: "Michal Kolesar" <kolisko@penguin.cz>
Subject: newbie question - dbi:xbase
Message-Id: <91llbn$2if4$1@news.vol.cz>
Hi all..
I have installed dbi and xbase on windows (activeperl 5)...
I have this code noname1.pl:
#!/usr/bin/perl
use DBI;
my $dbh = DBI->connect('DBI:xbase:.', 'mysqluser', 'mysqluser')
or die "Couldn't connect to database: " . DBI->errstr;
my $sth = $dbh->prepare('SELECT * FROM linear WHERE tcislo =
100000')
or die "Couldn't prepare statement: " . $dbh->errstr;
$dbh->disconnect;
when I tried run it i get error message:
DBD::xbase initialisation failed: Can't locate object method "driver" via
package
"DBD::xbase" at d:/michal/programfiles/perl/site/lib/dbi.pm line 511.
Perhaps the capitalisation of DBD 'xbase' isn't right. at noname1.pl line 8
Could You help me, please!
Tx
--
---
Michal Kolesar
kolisko@penguin.cz
http://www.egarden.cz
public server of free unix services
------------------------------
Date: Mon, 18 Dec 2000 17:35:30 GMT
From: "Arman" <arman2@mixmail.com>
Subject: please helpme
Message-Id: <CVr%5.103338$yO2.3036301@telenews.teleline.es>
Hello,
I want to process a log file (750 Mbytes) with perl, but when I execute my
perl code it return the error "OUT OF MEMORY". While the execution of code I
detect one increment of memory used by the process. The perl process load
all log file into memory? Memory used by the process arrive to 450 Mbytes
when the error ocurs.
My code used is:
if (!open (FIN, $FicheroLog))
{ print "Error: No puedo abrir \"$FicheroLog\" para procesarlo\n";
exit; }
@bucle = ();
while (<FIN>)
{
chomp;
push (@bucle, $_);
# At this point I process bucle
@bucle = ();
}
close (FIN);
Where is the problem? Anyone have any idea to solve this problem? Wich is
the method to process the file line to line and decrease memory used?
Sorry for my poor english.
Thank's in advance.
Arman.
------------------------------
Date: Mon, 18 Dec 2000 19:29:56 +0100
From: "tim allen" <timallen449@coldmail.com>
Subject: Re: please helpme
Message-Id: <91lkfd$j9c$1@diana.bcn.ttd.net>
"Arman" <arman2@mixmail.com> wrote in message
news:CVr%5.103338$yO2.3036301@telenews.teleline.es...
>if (!open (FIN, $FicheroLog))
> { print "Error: No puedo abrir \"$FicheroLog\" para procesarlo\n";
>exit; }
>@bucle = ();
>while (<FIN>) {
> chomp;
> push (@bucle, $_);
> # At this point I process bucle
> @bucle = ();
>}
>close (FIN);
Hola Arman, I tried this, and had no errors:
open (FIN, $FicheroLog)
|| die("Error: No puedo abrir $FicheroLog para procesarlo");
while (<FIN>) {
chomp;
# process @bucle
@bucle = split("::");
# --- or ----
# @bucle = m/(w+)::(\d+) etc etc... /;
}
close (FIN);
You didn't mention the format of the log file, but I believe it makes more
sense to use either a split or a regular expression match to extract your
array. I hope that helps-- maybe if you could put reply with the format of
the log file and what you're trying to do with @bucle it would help. Un
saludo.
--
tim allen
barcelona, spain
unmunge?cold=hot
------------------------------
Date: Mon, 18 Dec 2000 18:35:42 +0000
From: ts@doc.ic.ac.uk
Subject: Re: please helpme
Message-Id: <91lldu$jk3$2@lux.doc.ic.ac.uk>
Arrgh! Ignore previous post!
Sorry - I'm am too tired to read code straight.
I agree with Tim Allen.
Cheers
<Pillock Mode=off>
Need coffee. Need coffee... ;-)
--
Mr Tim J Southerwood
CSG, Dept of Computing, Imperial College, London
Tel: +44 (0)20 7594 8392
Email@Work: ts@doc.ic.ac.uk Email@Home: ts@dionic.co.uk
------------------------------
Date: Mon, 18 Dec 2000 18:31:58 +0000
From: ts@doc.ic.ac.uk
Subject: Re: please helpme
Message-Id: <91ll6v$jk3$1@lux.doc.ic.ac.uk>
In article <CVr%5.103338$yO2.3036301@telenews.teleline.es>, "Arman"
<arman2@mixmail.com> wrote:
Hi
> Hello,
>
> I want to process a log file (750 Mbytes) with perl, but when I execute
> my perl code it return the error "OUT OF MEMORY". While the execution of
> code I detect one increment of memory used by the process. The perl
> process load all log file into memory? Memory used by the process arrive
> to 450 Mbytes when the error ocurs.
>
> My code used is:
>
> if (!open (FIN, $FicheroLog))
> { print "Error: No puedo abrir \"$FicheroLog\" para procesarlo\n";
> exit; }
>
> @bucle = ();
>
> while (<FIN>)
> {
> chomp; push (@bucle, $_);
<snip>
That's the problem - you are pushing every line into @bucle - so the
array will grow and grow towards 750MB.
You really need to process the log file in smaller chunks.
What are you trying to do? Is it something that can't be done on
a line by line basis?
Cheers
Tim
--
Mr Tim J Southerwood
CSG, Dept of Computing, Imperial College, London
Tel: +44 (0)20 7594 8392
Email@Work: ts@doc.ic.ac.uk Email@Home: ts@dionic.co.uk
------------------------------
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 5140
**************************************
