[24095] in Perl-Users-Digest
Perl-Users Digest, Issue: 6289 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 22 09:05:34 2004
Date: Mon, 22 Mar 2004 06:05:07 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 22 Mar 2004 Volume: 10 Number: 6289
Today's topics:
Re: Accessing a SQL Server Database from a Perl Script (v796)
Re: Any Help would be great <tore@aursand.no>
Re: Capturing errors from sqlplus <bjr601553@cia.gov>
Re: How to determine the path of a module? (Anno Siegel)
Re: How to determine the path of a module? <noreply@gunnar.cc>
Re: perl 5.8.3 on windows XP eat an huge amount of memo (GreenLight)
Re: perl module for file downloading? <me@privacy.net>
perl threads Thread Queue <mail@mail.com>
Re: perl threads Thread Queue (Anno Siegel)
Re: perl threads Thread Queue <mail@mail.com>
Re: Redirect problem <Tigerhillsideremove@removenetscape.net>
Re: Redirect problem <flavell@ph.gla.ac.uk>
Re: scope again <tadmc@augustmail.com>
Statistics for comp.lang.perl.misc <gbacon@hiwaay.net>
Trouble with regular expressions <auto87829@hushmail.com>
Re: Trouble with regular expressions <tore@aursand.no>
Re: Trouble with regular expressions (Anno Siegel)
Re: using a variable as STDIN for an external program (Anno Siegel)
Re: using a variable as STDIN for an external program <gned@telsmonopolytradotcom.remove.monopoly)>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 22 Mar 2004 05:15:11 -0800
From: vicky7909@rediffmail.com (v796)
Subject: Re: Accessing a SQL Server Database from a Perl Script on Linux
Message-Id: <49f90fb9.0403220515.4c50ede8@posting.google.com>
Hi,
I got the DBD Syabase tar file from your website. But I have no clue
how to install it. I went thru the README and am confused.
I don't have any Sybase directory on my system, neither is the env.
variable set. I am using Linux.
[root@localhost /]# echo $SYBASE
[root@localhost /]#
The MS SQL Server Database is on a Windows machine for which I have
only read permissions. I am assuming that what works with Sybase will
work with MS SQL Server too.
Please help on this installation. Also I plan to install FreeTDS
instead of Sybase OpenClient libraries. I think that will be less
painful.
Any suggestions are welcome.
Sincerely,
v796.
Michael Peppler <mpeppler@peppler.org> wrote in message news:<pan.2004.03.20.17.44.25.571388@peppler.org>...
> On Fri, 19 Mar 2004 18:22:04 +0000, Stephen Patterson wrote:
>
> > On Fri, 19 Mar 2004 04:04:50 GMT, Bob Walton wrote:
> >> use DBI;
> >
> > With DBD::Sybase - we use this at work for some daily reports.
>
> But don't forget that you need FreeTDS (www.freetds.org) as well.
>
> Michael
------------------------------
Date: Mon, 22 Mar 2004 12:35:57 +0100
From: Tore Aursand <tore@aursand.no>
Subject: Re: Any Help would be great
Message-Id: <pan.2004.03.22.11.26.08.258722@aursand.no>
On Sat, 20 Mar 2004 13:15:03 +0100, Peter J. Acklam wrote:
>> Not to nitpick, but: When dealing with computers, 1 megabyte _is_
>> 1.024 kilobytes. The reason is that computers are dealing with binary
>> numbers.
> Uh...no, even with computers it depends. For instance, when talking
> about the size of a hard disk, 1 MB is often 10^6 bytes and 1 GB is 10^9
> bytes.
You always have to look upon things in the correct context; When it comes
to computers, 1 megabyte is 1,024 kilobytes.
I know that a lot of companies that should know better, deals with 1 MB as
if it's 1,000,000 bytes. I guess it's for the sake of simplicity.
>> For more information, please visit Wikipedia:
>>
>> <http://en.wikipedia.org/wiki/Megabyte>
> Wikipedia says "This definition is often used in computer science". The
> word "often" does not mean "always".
I know, and that's the whole problem; Companies like Maxtor and Microsoft
should stick with the correct term(s). They are in the computer business,
after all.
You could also take a closer look at the links James posted; They have a
lot of interesting information which supports my point of view in this
cass.
Anyway: This is quite off-topic, so I'll end this discussion now.
--
Tore Aursand <tore@aursand.no>
"Time only seems to matter when it's running out." -- Peter Strup
------------------------------
Date: Mon, 22 Mar 2004 11:44:29 GMT
From: Tweetie Pooh <bjr601553@cia.gov>
Subject: Re: Capturing errors from sqlplus
Message-Id: <5520e90c3413bd2b5606fc126afdfbf3@news.teranews.com>
davidol@hushmail.com (David) honoured comp.lang.perl.misc on Mon 22 Mar 2004
03:56:19a with news:3bef037b.0403211956.e955cbe@posting.google.com:
> I'm piping a bunch of insert statements through sqlplus (yes, I know I
> should be using the DBI or sql*loader, unfortunately I can't either)
> and I'm having trouble capturing errors when they happen.
>
maybe you can emulate a telnet to the localhost, run sqlplus and then you can
send and capture as required.
------------------------------
Date: 22 Mar 2004 11:14:11 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: How to determine the path of a module?
Message-Id: <c3mhq3$csk$3@mamenchi.zrz.TU-Berlin.DE>
Guru03 <Guru03@despammed.com> wrote in comp.lang.perl.misc:
> Hi, I need to know the path of a PERL module inside a Perl program.
> i.e. I want to know the location of 'date.pm'.
The name of the language is "Perl".
> What's the easiest way to do it?
Look up %INC in perlvar.
Anno
--
spruch 1
------------------------------
Date: Mon, 22 Mar 2004 12:19:04 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: How to determine the path of a module?
Message-Id: <c3mi3q$28m6ls$1@ID-184292.news.uni-berlin.de>
Guru03 wrote:
> Hi, I need to know the path of a PERL module inside a Perl program.
> i.e. I want to know the location of 'date.pm'.
>
> What's the easiest way to do it?
After it has been 'use'd or 'require'd:
print $INC{'date.pm'};
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 22 Mar 2004 05:19:09 -0800
From: google@milbaugh.com (GreenLight)
Subject: Re: perl 5.8.3 on windows XP eat an huge amount of memory?
Message-Id: <c4b60ce1.0403220519.30335e5c@posting.google.com>
Sandrino <sandrinotrepppalle@sandrino.it> wrote in message news:<febs50duguffm8a1iitfigvchd6c8512qh@4ax.com>...
> On Mon, 22 Mar 2004 00:04:23 GMT, Sandrino
> <sandrinotrepppalle@sandrino.it> wrote:
>
> >if I insert a big number (like 10000000), perl uses about 300MB of
> >memory. Why?
>
> I'm a moron. Definitely a moron. Sorry
Well, we were all beginners at one point, and I doubt that you are a
moron.
I'm sure that there are others out there that are wondering what the
solution to your problem is. In your original message, you said:
> I'm learning perl just now. Trying some very simple examples, I
found
> that perl requires a very large amount of memory. For example the
> following program
>
> print "insert a string: ";
> $string = <STDIN>;
> print "insert a number: ";
> chomp($number = <STDIN>);
> $string2 = $string x $number;
> print $string2;
>
> if I insert a big number (like 10000000), perl uses about 300MB of
> memory. Why?
The key lies in understanding that the "x" operator is not an
arithmatic operator - it is a string operator. It tells Perl to
duplicate the string "x" number of times. If you enter a big number
(like 10000000), you are asking Perl to duplicate the first string
entered 10 million times, and save the result in $string2. As you
discovered, that can take up a lot of memory!
If you want to actually multiply two numbers that are stored in some
variables, you can use the "star" operator (*), like this:
$string2 = $string * $number;
Then Perl will attempt to evaluate $string and $number in "number"
context, and return the result of the multiplication into $string2.
--
my real e-mail address is perl - at - milbaugh - dot - com
------------------------------
Date: Mon, 22 Mar 2004 23:07:19 +1200
From: "Tintin" <me@privacy.net>
Subject: Re: perl module for file downloading?
Message-Id: <c3mhhe$29ci68$1@ID-172104.news.uni-berlin.de>
"Stijn De Saeger" <die@spammers.die> wrote in message
news:c3mf77$6pa$1@jaist-news.jaist.ac.jp...
> "James Willmore" <jwillmore@remove.adelphia.net> wrote in message
> news:pan.2004.03.22.09.54.24.991833@remove.adelphia.net...
> > On Mon, 22 Mar 2004 17:58:26 +0900, Stijn De Saeger wrote:
> >
> > > hi all,
> > >
> > > a quick question, is there some generic way (module ?) to do simple
file
> > > downloads to disk from within a perl script?
> > > something that behaves like '$download_mgr->download($remote_file,
> > > $location_on_disk);' or the like. Just curious whether there is such a
> > > thing, or if not what would be the way to go ?
> > > thank you.
> > > s.
> >
> > Yes. The LWP module.
> >
> > `perldoc lwpcook` for ways to do this.
>
> thanks a lot... I thought the LWP module only did html processing.
> cheers,
The LWP bundle is mostly concerned with HTTP. Modules related to HTML are
under the HTML::X namespace.
------------------------------
Date: Mon, 22 Mar 2004 11:48:14 -0000
From: "bob" <mail@mail.com>
Subject: perl threads Thread Queue
Message-Id: <aM6dnYaf5KdTT8PdSa8jmA@karoo.co.uk>
Would anyone have an example of passing a hash to a thread queue??
I have tried passing it as a ref but all i so far can do is pass scalars
i.e. 1,2,3,4,5
When testing i keep getting
Invalid value for shared scalar at
/usr/local/lib/perl5/5.8.3/Thread/Queue.pm line 90.
Thanks in advance
------------------------------
Date: 22 Mar 2004 12:31:29 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: perl threads Thread Queue
Message-Id: <c3mmb1$hkj$1@mamenchi.zrz.TU-Berlin.DE>
bob <mail@mail.com> wrote in comp.lang.perl.misc:
> Would anyone have an example of passing a hash to a thread queue??
> I have tried passing it as a ref but all i so far can do is pass scalars
> i.e. 1,2,3,4,5
>
> When testing i keep getting
Testing how? Show your code.
> Invalid value for shared scalar at
> /usr/local/lib/perl5/5.8.3/Thread/Queue.pm line 90.
use Thread::Queue;
my $q = Thread::Queue->new;
$q->enqueue( {});
runs without complaint for me.
Anno
--
spruch 3
------------------------------
Date: Mon, 22 Mar 2004 13:02:42 -0000
From: "bob" <mail@mail.com>
Subject: Re: perl threads Thread Queue
Message-Id: <RMSdnfdR4dHcecPdSa8jmA@karoo.co.uk>
interesting, i try the code you suggested and i get
thread failed to start: Invalid value for shared scalar at
/usr/local/lib/perl5/5.8.3/Thread/Queue.pm line 90.
I am using perl 5.8.3 on solaris 8 but not not sure that should cause a
problem.
a sample of my code is :
#
# create data queue
#
my $DataQueue = Thread::Queue->new();
sub message_thread {
my($data);
while (1) {
#
# using your example;
#
$DataQueue->enqueue({});
sleep(5);
}
}
"Anno Siegel" <anno4000@lublin.zrz.tu-berlin.de> wrote in message
news:c3mmb1$hkj$1@mamenchi.zrz.TU-Berlin.DE...
> bob <mail@mail.com> wrote in comp.lang.perl.misc:
> > Would anyone have an example of passing a hash to a thread queue??
> > I have tried passing it as a ref but all i so far can do is pass scalars
> > i.e. 1,2,3,4,5
> >
> > When testing i keep getting
>
> Testing how? Show your code.
>
> > Invalid value for shared scalar at
> > /usr/local/lib/perl5/5.8.3/Thread/Queue.pm line 90.
>
> use Thread::Queue;
> my $q = Thread::Queue->new;
> $q->enqueue( {});
>
> runs without complaint for me.
>
> Anno
> --
> spruch 3
------------------------------
Date: Mon, 22 Mar 2004 12:25:31 GMT
From: Tigerhillside <Tigerhillsideremove@removenetscape.net>
Subject: Re: Redirect problem
Message-Id: <ffmt50pa790m4ng4feqavb33rvvbra59qt@4ax.com>
In comp.lang.perl.misc, efflandt@xnet.com (David Efflandt), I
read and responded
>On Sun, 21 Mar 2004, Tigerhillside
><Tigerhillsideremove@removenetscape.net> wrote:
>> Yes, I have walked through the troubleshooting steps. I have
>> tried everything I can. I am trying to get redirection to work.
>> Here is a simple script that does not work:
>>
>> #!/usr/bin/perl -w
>>
>> use strict;
>>
>> use CGI qw(:standard);
>> use CGI qw(-debug);
>>
>> use Carp;
>>
>> local $SIG{__WARN__} = \&Carp::cluck;
>>
>> my $q = new CGI;
>>
>> print $q->redirect('NewURL');
>
>Why do you 'use' so many variations of CGI.pm in the same script (2
>separate function methods and object method)? One: use CGI qw(:standard
>-debug); eliminates the need for my $q = new CGI; and $q->.
Because I am new and insecure regarding perl. I am trying hard to
learn it but it comes at things in a way that I am having trouble
with. It will click eventually. Anyway, thanks.
>If you read 'perldoc CGI', it says "relative links may not work
>correctly...The solution to this is to use the full URL..." Relative
>internal links may be considered insecure for a secure server.
As I said, I tried all of the variations, none of them worked. I
did read the docs and so used the full URI at first. When that
did not work I thought that maybe it did not see that the
redirect was to the same server and saw that it was insecure so I
tried various relative links. I figured that "ma not" could also
mean "may" and that an internal redirect may be considered
secure.
------------------------------
Date: Mon, 22 Mar 2004 12:37:59 +0000
From: "Alan J. Flavell" <flavell@ph.gla.ac.uk>
Subject: Re: Redirect problem
Message-Id: <Pine.LNX.4.53.0403221227450.26041@ppepc56.ph.gla.ac.uk>
On Mon, 22 Mar 2004, David Efflandt wrote:
> If you read 'perldoc CGI', it says "relative links may not work
> correctly...The solution to this is to use the full URL..."
IMHO that's potentially misleading. There are two defined formats for
the target of a CGI redirection response, and they are defined to
produce quite different results: neither of them are "relative".
Only one of them is a "full URL". (The other is an absolute URLpath.)
CGI.pm's documentation may be alluding to this feature of the
underlying CGI specification, but if CGI.pm has no intention of
converting relative references into absolute ones, then I'd be happier
if it said outright that they are not allowed, rather than havering
about "may not work correctly" - there is, after all, no relative URLs
in the specification, so there is no arbiter of correctness.
> Relative internal links may be considered insecure for a secure
> server.
An interesting hunch. I don't think that the CGI specification goes
into that level of detail as to what happens with https: , but you may
well have put your finger on the spot. I'll be interested to see some
more diagnostics in that area before being sure.
------------------------------
Date: Mon, 22 Mar 2004 07:23:00 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: scope again
Message-Id: <slrnc5tq5k.7rs.tadmc@magna.augustmail.com>
Joe <mail@annuna.com> wrote:
> C++ pennis
> and prizes source, space.
Huh?
Is that an English sentence?
> I do apoligise for my terceness but I am having a few beers
Oh, I see.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 22 Mar 2004 13:11:56 -0000
From: Greg Bacon <gbacon@hiwaay.net>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <105tpgsjbpd3g4a@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 15 Mar 2004 13:21:00 GMT and ending at
22 Mar 2004 13:08:15 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) 2004 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
faq\@(?:.*\.)?denver\.pm\.org
comdog\@panix\.com
Totals
======
Posters: 212
Articles: 637 (223 with cutlined signatures)
Threads: 156
Volume generated: 1351.1 kb
- headers: 568.4 kb (10,419 lines)
- bodies: 752.2 kb (24,753 lines)
- original: 460.4 kb (15,701 lines)
- signatures: 29.9 kb (876 lines)
Original Content Rating: 0.612
Averages
========
Posts per poster: 3.0
median: 2.0 posts
mode: 1 post - 105 posters
s: 16.6 posts
Posts per thread: 4.1
median: 3.0 posts
mode: 1 post - 36 threads
s: 4.9 posts
Message size: 2172.0 bytes
- header: 913.7 bytes (16.4 lines)
- body: 1209.1 bytes (38.9 lines)
- original: 740.1 bytes (24.6 lines)
- signature: 48.1 bytes (1.4 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
42 75.2 ( 32.0/ 43.1/ 19.8) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
30 47.4 ( 21.2/ 26.2/ 14.9) Roel van der Steen <roel-perl@st2x.net>
22 59.7 ( 31.3/ 22.7/ 10.8) jwillmore@adelphia.net
19 35.3 ( 17.7/ 14.4/ 6.8) Tore Aursand <tore@aursand.no>
18 36.1 ( 14.2/ 21.8/ 9.1) Paul Lalli <ittyspam@yahoo.com>
18 33.8 ( 16.9/ 15.5/ 8.4) Brian McCauley <nobull@mail.com>
13 25.1 ( 11.6/ 13.5/ 6.2) Richard Morse <remorse@partners.org>
13 23.6 ( 10.8/ 12.4/ 3.1) "John W. Krahn" <krahnj@acm.org>
11 18.0 ( 10.9/ 6.3/ 3.8) Gunnar Hjalmarsson <noreply@gunnar.cc>
11 29.9 ( 11.8/ 17.5/ 9.1) see@sig.invalid
10 17.6 ( 6.9/ 9.4/ 3.6) ctcgag@hotmail.com
9 13.6 ( 8.4/ 5.2/ 2.6) "Jürgen Exner" <jurgenex@hotmail.com>
9 18.3 ( 8.1/ 8.2/ 3.3) Uri Guttman <uri@stemsystems.com>
9 26.9 ( 10.8/ 16.2/ 6.5) "bob" <mail@mail.com>
8 9.0 ( 6.4/ 2.5/ 1.7) "C3" <gned@telsmonopolytradotcom.remove.monopoly)>
8 18.8 ( 9.4/ 9.3/ 4.5) Sandman <mr@sandman.net>
8 13.2 ( 7.4/ 5.8/ 3.4) "gnari" <gnari@simnet.is>
8 24.9 ( 7.4/ 15.7/ 6.2) tassilo.parseval@post.rwth-aachen.de
7 13.9 ( 7.6/ 6.2/ 2.5) Vetle Roeim <vetro@online.no>
7 13.1 ( 5.3/ 7.6/ 3.4) "David K. Wall" <dwall@fastmail.fm>
These posters accounted for 44.0% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
42 75.2 ( 32.0/ 43.1/ 19.8) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
30 47.4 ( 21.2/ 26.2/ 14.9) Roel van der Steen <roel-perl@st2x.net>
22 59.7 ( 31.3/ 22.7/ 10.8) jwillmore@adelphia.net
19 35.3 ( 17.7/ 14.4/ 6.8) Tore Aursand <tore@aursand.no>
18 36.1 ( 14.2/ 21.8/ 9.1) Paul Lalli <ittyspam@yahoo.com>
18 33.8 ( 16.9/ 15.5/ 8.4) Brian McCauley <nobull@mail.com>
13 25.1 ( 11.6/ 13.5/ 6.2) Richard Morse <remorse@partners.org>
13 23.6 ( 10.8/ 12.4/ 3.1) "John W. Krahn" <krahnj@acm.org>
11 29.9 ( 11.8/ 17.5/ 9.1) see@sig.invalid
11 18.0 ( 10.9/ 6.3/ 3.8) Gunnar Hjalmarsson <noreply@gunnar.cc>
10 17.6 ( 6.9/ 9.4/ 3.6) ctcgag@hotmail.com
9 18.3 ( 8.1/ 8.2/ 3.3) Uri Guttman <uri@stemsystems.com>
9 13.6 ( 8.4/ 5.2/ 2.6) "Jürgen Exner" <jurgenex@hotmail.com>
8 13.2 ( 7.4/ 5.8/ 3.4) "gnari" <gnari@simnet.is>
8 18.8 ( 9.4/ 9.3/ 4.5) Sandman <mr@sandman.net>
8 24.9 ( 7.4/ 15.7/ 6.2) tassilo.parseval@post.rwth-aachen.de
7 13.9 ( 7.6/ 6.2/ 2.5) Vetle Roeim <vetro@online.no>
7 13.1 ( 5.3/ 7.6/ 3.4) "David K. Wall" <dwall@fastmail.fm>
6 26.9 ( 10.8/ 16.2/ 6.5) "bob" <mail@mail.com>
5 21.2 ( 7.8/ 13.4/ 4.9) Joe <mail@annuna.com>
These posters accounted for 53.0% of all followups.
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
78.8 ( 6.1/ 72.7/ 67.8) 5 knocte <knocte@NO-SPAM-PLEASE-hotmail.com>
75.2 ( 32.0/ 43.1/ 19.8) 42 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
59.7 ( 31.3/ 22.7/ 10.8) 22 jwillmore@adelphia.net
47.7 ( 7.4/ 39.8/ 36.7) 6 tadmc@augustmail.com
47.4 ( 21.2/ 26.2/ 14.9) 30 Roel van der Steen <roel-perl@st2x.net>
36.1 ( 14.2/ 21.8/ 9.1) 18 Paul Lalli <ittyspam@yahoo.com>
35.3 ( 17.7/ 14.4/ 6.8) 19 Tore Aursand <tore@aursand.no>
33.8 ( 16.9/ 15.5/ 8.4) 18 Brian McCauley <nobull@mail.com>
29.9 ( 11.8/ 17.5/ 9.1) 11 see@sig.invalid
26.9 ( 10.8/ 16.2/ 6.5) 9 "bob" <mail@mail.com>
25.1 ( 11.6/ 13.5/ 6.2) 13 Richard Morse <remorse@partners.org>
24.9 ( 7.4/ 15.7/ 6.2) 8 tassilo.parseval@post.rwth-aachen.de
23.6 ( 10.8/ 12.4/ 3.1) 13 "John W. Krahn" <krahnj@acm.org>
21.2 ( 7.8/ 13.4/ 4.9) 7 Joe <mail@annuna.com>
18.8 ( 9.4/ 9.3/ 4.5) 8 Sandman <mr@sandman.net>
18.3 ( 8.1/ 8.2/ 3.3) 9 Uri Guttman <uri@stemsystems.com>
18.0 ( 10.9/ 6.3/ 3.8) 11 Gunnar Hjalmarsson <noreply@gunnar.cc>
17.6 ( 6.9/ 9.4/ 3.6) 10 ctcgag@hotmail.com
15.1 ( 4.6/ 10.5/ 4.5) 6 Bunny <bunny1112@yahoo.com>
14.7 ( 7.4/ 7.3/ 3.4) 7 Tigerhillside <Tigerhillsideremove@removenetscape.net>
These posters accounted for 49.4% of the total volume.
Top 11 Posters by Volume of Original Content (min. ten posts)
=============================================================
(kb)
Posts orig Address
----- ----- -------
42 19.8 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
30 14.9 Roel van der Steen <roel-perl@st2x.net>
22 10.8 jwillmore@adelphia.net
18 9.1 Paul Lalli <ittyspam@yahoo.com>
11 9.1 see@sig.invalid
18 8.4 Brian McCauley <nobull@mail.com>
19 6.8 Tore Aursand <tore@aursand.no>
13 6.2 Richard Morse <remorse@partners.org>
11 3.8 Gunnar Hjalmarsson <noreply@gunnar.cc>
10 3.6 ctcgag@hotmail.com
13 3.1 "John W. Krahn" <krahnj@acm.org>
These posters accounted for 20.7% of the original volume.
Top 11 Posters by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.604 ( 3.8 / 6.3) 11 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.568 ( 14.9 / 26.2) 30 Roel van der Steen <roel-perl@st2x.net>
0.540 ( 8.4 / 15.5) 18 Brian McCauley <nobull@mail.com>
0.517 ( 9.1 / 17.5) 11 see@sig.invalid
0.473 ( 10.8 / 22.7) 22 jwillmore@adelphia.net
0.468 ( 6.8 / 14.4) 19 Tore Aursand <tore@aursand.no>
0.463 ( 6.2 / 13.5) 13 Richard Morse <remorse@partners.org>
0.459 ( 19.8 / 43.1) 42 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.416 ( 9.1 / 21.8) 18 Paul Lalli <ittyspam@yahoo.com>
0.386 ( 3.6 / 9.4) 10 ctcgag@hotmail.com
0.252 ( 3.1 / 12.4) 13 "John W. Krahn" <krahnj@acm.org>
Bottom 11 Posters by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.604 ( 3.8 / 6.3) 11 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.568 ( 14.9 / 26.2) 30 Roel van der Steen <roel-perl@st2x.net>
0.540 ( 8.4 / 15.5) 18 Brian McCauley <nobull@mail.com>
0.517 ( 9.1 / 17.5) 11 see@sig.invalid
0.473 ( 10.8 / 22.7) 22 jwillmore@adelphia.net
0.468 ( 6.8 / 14.4) 19 Tore Aursand <tore@aursand.no>
0.463 ( 6.2 / 13.5) 13 Richard Morse <remorse@partners.org>
0.459 ( 19.8 / 43.1) 42 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.416 ( 9.1 / 21.8) 18 Paul Lalli <ittyspam@yahoo.com>
0.386 ( 3.6 / 9.4) 10 ctcgag@hotmail.com
0.252 ( 3.1 / 12.4) 13 "John W. Krahn" <krahnj@acm.org>
11 posters (5%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
35 dollar sign and spaces from a string
15 Empty hash key produces funky results
15 HOW TO PARSE A VAST FILE!
14 Any Help would be great
13 variable initialization question
12 Having problems with with the s/// substitution
11 Redirect problem
10 block of code doesn't get executed
10 Retrieving text between 2 tags.
9 need help with if then statement
9 incrementing a string by a certain value
9 Perl threads
9 Simple Sort Keys Question from a Simpleton
9 problem with pack and output to binary files
8 stripping out ASCII chars using regexp?
8 regex (pcre) variable number of (captures)* - how?
8 All capital permutations of a string?
8 scope again
8 browser tries to download perl code
8 Printing in Perl
These threads accounted for 35.8% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
82.9 ( 36.1/ 45.5/ 24.0) 35 dollar sign and spaces from a string
72.6 ( 3.8/ 68.6/ 64.7) 3 Errors installing Template CPAN module
34.4 ( 2.1/ 32.3/ 32.3) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
31.5 ( 15.5/ 14.4/ 8.0) 14 Any Help would be great
31.2 ( 14.8/ 14.8/ 7.1) 13 variable initialization question
28.5 ( 13.5/ 14.6/ 8.5) 15 HOW TO PARSE A VAST FILE!
28.2 ( 9.4/ 18.1/ 7.0) 9 Perl threads
27.2 ( 10.9/ 15.0/ 6.6) 12 Having problems with with the s/// substitution
26.8 ( 13.8/ 12.2/ 6.3) 15 Empty hash key produces funky results
23.9 ( 8.3/ 15.3/ 7.1) 8 scope again
22.8 ( 10.9/ 11.7/ 6.1) 11 Redirect problem
22.5 ( 8.5/ 13.7/ 6.5) 10 Retrieving text between 2 tags.
22.0 ( 8.2/ 13.6/ 7.6) 10 block of code doesn't get executed
19.9 ( 7.1/ 12.7/ 8.3) 8 stripping out ASCII chars using regexp?
19.5 ( 6.5/ 12.9/ 5.6) 8 perl2exe can't locate DBI.pm
19.2 ( 6.1/ 12.6/ 6.1) 6 installing CPAN module
16.2 ( 7.9/ 7.8/ 4.1) 9 need help with if then statement
16.2 ( 6.4/ 9.1/ 6.5) 8 browser tries to download perl code
16.0 ( 8.1/ 7.4/ 4.2) 9 Simple Sort Keys Question from a Simpleton
15.8 ( 7.0/ 8.2/ 4.7) 8 All capital permutations of a string?
These threads accounted for 42.7% of the total volume.
Top 9 Threads by OCR (minimum of ten posts)
===========================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.583 ( 8.5/ 14.6) 15 HOW TO PARSE A VAST FILE!
0.557 ( 7.6/ 13.6) 10 block of code doesn't get executed
0.556 ( 8.0/ 14.4) 14 Any Help would be great
0.528 ( 24.0/ 45.5) 35 dollar sign and spaces from a string
0.522 ( 6.1/ 11.7) 11 Redirect problem
0.522 ( 6.3/ 12.2) 15 Empty hash key produces funky results
0.477 ( 7.1/ 14.8) 13 variable initialization question
0.472 ( 6.5/ 13.7) 10 Retrieving text between 2 tags.
0.442 ( 6.6/ 15.0) 12 Having problems with with the s/// substitution
Bottom 9 Threads by OCR (minimum of ten posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.583 ( 8.5 / 14.6) 15 HOW TO PARSE A VAST FILE!
0.557 ( 7.6 / 13.6) 10 block of code doesn't get executed
0.556 ( 8.0 / 14.4) 14 Any Help would be great
0.528 ( 24.0 / 45.5) 35 dollar sign and spaces from a string
0.522 ( 6.1 / 11.7) 11 Redirect problem
0.522 ( 6.3 / 12.2) 15 Empty hash key produces funky results
0.477 ( 7.1 / 14.8) 13 variable initialization question
0.472 ( 6.5 / 13.7) 10 Retrieving text between 2 tags.
0.442 ( 6.6 / 15.0) 12 Having problems with with the s/// substitution
9 threads (5%) had at least ten posts.
Top 12 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
7 comp.lang.perl
2 comp.lang.perl.tk
2 comp.databases.ms-sqlserver
2 comp.os.linux.admin
2 comp.os.linux.questions
1 alt.drugs
1 comp.databases.ibm-db2
1 news.answers
1 rec.arts.books.marketplace
1 alt.romance.chat
1 comp.answers
1 comp.lang.perl.moderated
Top 14 Crossposters
===================
Articles Address
-------- -------
3 v796 <vicky7909@rediffmail.com>
3 Erland Sommarskog <sommar@algonet.se>
3 "Agent 69" <69-no-spam@sandor-communications.hr>
2 <jari.aalto@poboxes.com> (Jari Aalto+mail.perl)
2 "meneerjansen" <meneerjansen@europe.be>
1 Kevin Michael Vail <kevin@vaildc.net>
1 Bart Van der Donck <bart@nijlen.com>
1 NoJunkMailshah@xnet.com
1 Tulip <tulipsca04@hotmail.com>
1 ksflock@yahoo.com
1 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
1 Karel Kubat <karel@e-tunity.com>
1 "Jochen Wall" <jwall@t-online.de>
1 "gnu valued customer" <tlviewer@yahoo.com>
------------------------------
Date: Mon, 22 Mar 2004 23:33:40 +1100
From: "Stevens" <auto87829@hushmail.com>
Subject: Trouble with regular expressions
Message-Id: <405edd24$0$31907$afc38c87@news.optusnet.com.au>
I'm trying to transform a filename like /usr/local/matrix_ldr.pl to
matrix_ldr.log. My code gives: matrix_ldr.log.pl.
What am I doing wrong here?
Cheers,
David
use warnings;
use strict;
my $logfile;
$0 = "/usr/local/matrix_ldr.pl";
($logfile = $0) =~ s/(^.*\/)(\w+)/$2.log/;
print "Debug: $logfile\n";
------------------------------
Date: Mon, 22 Mar 2004 13:38:50 +0100
From: Tore Aursand <tore@aursand.no>
Subject: Re: Trouble with regular expressions
Message-Id: <pan.2004.03.22.12.38.50.747915@aursand.no>
On Mon, 22 Mar 2004 23:33:40 +1100, Stevens wrote:
> I'm trying to transform a filename like /usr/local/matrix_ldr.pl to
> matrix_ldr.log. My code gives: matrix_ldr.log.pl.
#!/usr/bin/perl
#
use strict;
use warnings;
use File::Basename;
my ($filename, undef, undef) = fileparse( '/usr/local/matrix_ldr.pl' );
$filename .= '.log';
--
Tore Aursand <tore@aursand.no>
"The road to hell is full of good intentions." -- Bruce Dickinson
------------------------------
Date: 22 Mar 2004 13:08:15 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Trouble with regular expressions
Message-Id: <c3mofv$j7a$1@mamenchi.zrz.TU-Berlin.DE>
Stevens <auto87829@hushmail.com> wrote in comp.lang.perl.misc:
> I'm trying to transform a filename like /usr/local/matrix_ldr.pl to
> matrix_ldr.log. My code gives: matrix_ldr.log.pl.
>
> What am I doing wrong here?
>
> Cheers,
>
> David
>
> use warnings;
> use strict;
>
> my $logfile;
>
> $0 = "/usr/local/matrix_ldr.pl";
Don't use $0 as a general-purpose variable. It has special significance
in Perl (see perldoc perlvar), and changing it may affect other parts of
the program.
> ($logfile = $0) =~ s/(^.*\/)(\w+)/$2.log/;
The regex doesn't match the ".pl" part of the file name, so it isn't
changed.
Use the standard module File::Basename, the author has been through
all this.
use File::Basename;
my $file = "/usr/local/matrix_ldr.pl";
my $otherfile = basename( $file, '.pl') . '.log';
print "$file -> $otherfile\n";
Anno
------------------------------
Date: 22 Mar 2004 11:12:27 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: using a variable as STDIN for an external program
Message-Id: <c3mhmr$csk$2@mamenchi.zrz.TU-Berlin.DE>
C3 <gned@telsmonopolytradotcom.remove.monopoly)> wrote in comp.lang.perl.misc:
Quote some context with your post.
> Yup, I'm using perl under Unix, but what you mentioned doesn't work.
Doesn't work how? What did you try? What did you expect? What
happened instead?
> Just for the record, when I try the same command (with some valid data) in a
> shell, it works fine.
>
> Is there anything else I could try? Or do I have to take the plunge and
> learn how to use open2/3?
How should I know? You're not giving any facts.
Anno
--
spruch 3
------------------------------
Date: Mon, 22 Mar 2004 22:42:33 +1100
From: "C3" <gned@telsmonopolytradotcom.remove.monopoly)>
Subject: Re: using a variable as STDIN for an external program
Message-Id: <405ed0c7$0$8355$afc38c87@news.optusnet.com.au>
Nevermind, I fixed it.
C3
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V10 Issue 6289
***************************************
