[17721] in Perl-Users-Digest
Perl-Users Digest, Issue: 5141 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 18 14:10:32 2000
Date: Mon, 18 Dec 2000 11:10:15 -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: <977166615-v9-i5141@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 18 Dec 2000 Volume: 9 Number: 5141
Today's topics:
Problem with separating some information from the STDIN cyril78@my-deja.com
Re: Problem with separating some information from the S <stephenk@cc.gatech.edu>
Re: Problem with separating some information from the S <mischief@velma.motion.net>
Run dbiproxy upon boot up? Karl.Mikasa@usa.xerox.com
Run dbiproxy upon boot up? <Karl.Mikasa@usa.xerox.com>
Simple filehandle question - Please help. msalerno@my-deja.com
Simple filehandle question - Please help. msalerno@my-deja.com
Simple filehandle question - Please help. msalerno@my-deja.com
Simple filehandle question - Please help. msalerno@my-deja.com
Simple filehandle question - Please help. msalerno@my-deja.com
Simple filehandle question - Please help. msalerno@my-deja.com
Simple filehandle question - Please help. msalerno@my-deja.com
Simple filehandle question - Please help. msalerno@my-deja.com
Re: Simple filehandle question - Please help. nobull@mail.com
Re: Splitting data into an array <jeffp@crusoe.net>
Re: Splitting data into an array <uri@sysarch.com>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Street Address Parsing <t0873@my-deja.com>
Re: test nobull@mail.com
Re: time, schedules, advice <timallen449@coldmail.com>
Re: Total Beginner <lmoran@wtsg.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 18 Dec 2000 15:11:52 GMT
From: cyril78@my-deja.com
Subject: Problem with separating some information from the STDIN
Message-Id: <91l9fj$ns8$1@nnrp1.deja.com>
Hi guys
I tried to make a program but I have a problem
I would like that the user enters some information containing a space
ex:abc defg hijkl
What I want to do is to put in an array all the information before the
first SPACE (abc) and all the information after the first SPACE (defg
hijkl) in another array
I hope I was clear enough
Thank you
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Mon, 18 Dec 2000 11:00:47 -0500
From: Stephen Kloder <stephenk@cc.gatech.edu>
Subject: Re: Problem with separating some information from the STDIN
Message-Id: <3A3E34AE.A2FA6157@cc.gatech.edu>
cyril78@my-deja.com wrote:
> Hi guys
> I tried to make a program but I have a problem
> I would like that the user enters some information containing a space
>
> ex:abc defg hijkl
>
> What I want to do is to put in an array all the information before the
> first SPACE (abc) and all the information after the first SPACE (defg
> hijkl) in another array
>
> I hope I was clear enough
>
perldoc -f split
--
Stephen Kloder | "I say what it occurs to me to say.
stephenk@cc.gatech.edu | More I cannot say."
Phone 404-874-6584 | -- The Man in the Shack
ICQ #65153895 | be :- think.
------------------------------
Date: Mon, 18 Dec 2000 17:29:31 -0000
From: Chris Stith <mischief@velma.motion.net>
Subject: Re: Problem with separating some information from the STDIN
Message-Id: <t3sibrrba9jm18@corp.supernews.com>
cyril78@my-deja.com wrote:
> Hi guys
> I tried to make a program but I have a problem
> I would like that the user enters some information containing a space
> ex:abc defg hijkl
> What I want to do is to put in an array all the information before the
> first SPACE (abc) and all the information after the first SPACE (defg
> hijkl) in another array
perldoc -f split
I have a short example program that loops over lines of input,
and does the same thing you asked about for every line until EOF.
It pushes the results of one line onto the same array as the
results of the last line.
Why you would want to implement the logic I coded is beyond me,
sense there is no real way to tell which part of @first_array
goes with which parts of @second_array. This is as close as I
could tell from your post:
###########################################
while(<>) {
@foo = split;
push( @first_array, ( shift(@foo) ) );
push( @second_array, @foo );
}
###########################################
On the other hand, if you want everything from after the first
space in one element of the second array, separated by commas,
you could still tell which part goes with which because they
would have the same subscript.
###########################################
while(<>) {
@foo = split;
push( @first_array, ( shift(@foo) ) );
push( @second_array, ( join(',', @foo) ) );
}
###########################################
This still might not be what you are looking for, but short
of cutting and pasting, you might pick up a couple of ideas.
The code runs as-is. If you add the line below to the end you
can see the results the way I did. If you add the line within
at the end of the loop instead of outside it, you can follow
the loop's working pretty easily (not that the script isn't
trivial anyway).
#########################################
print("@first_array\n@second_array\n\n");
#########################################
I hope this helps. I'm sure someone else will have a different
take on what you asked. Someone else might even come up with a
simpler or faster or all-around better way to answer the
question I thought you asked. This one does do what I thought
you asked, though, and seems that it could be a useful though
modest starting point for a non-trivial program.
> I hope I was clear enough
You should be able to determine that by how closely the responses
match your needs based on the specs you provided. A bit of the
non-working program you were coding could help us determine more
precisely what you were trying to do. The code, annotated with
comments about what it should do and what it's doing wrong,
is always the best starting point when searching for a problem
with the code.
Chris
--
Christopher E. Stith
mischief@motion.net
------------------------------
Date: Mon, 18 Dec 2000 16:10:09 GMT
From: Karl.Mikasa@usa.xerox.com
Subject: Run dbiproxy upon boot up?
Message-Id: <91lcsv$qlg$1@nnrp1.deja.com>
Hi,
I'm running dbiproxy on Win NT 4.0. I'd like to know how am I able to
at the boot up, run a command...
dbiproxy --localport 3333 --debug --logfile /dev/tty
Do I put in a command line in start up?
Thanks,
Karl
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Mon, 18 Dec 2000 17:36:25 GMT
From: Karl Mikasa <Karl.Mikasa@usa.xerox.com>
Subject: Run dbiproxy upon boot up?
Message-Id: <91lhup$2u$1@nnrp1.deja.com>
I'm running dbiproxy on Win NT 4.0. I'd like to know how am I able to
at the boot up, run a command...
dbiproxy --localport 3333 --debug --logfile /dev/tty
Do I put in a command line in start up?
Thanks,
Karl
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Mon, 18 Dec 2000 17:25:15 GMT
From: msalerno@my-deja.com
Subject: Simple filehandle question - Please help.
Message-Id: <91lh98$v65$1@nnrp1.deja.com>
I have written a script that:
1. opens a file
2. searches the file
3. backs up the file
4. writes over the old file
For the search function I am using a subroutine. When the script enters
the sub I put the file into an array and search it. The only thing that
I return from the sub is the amount of times that the search matches.
It seems that the open filehandle gets closed when the script leaves the
subroutine. The filehandle is opened before the subroutine is called.
If I comment out the line that calls the sub, everything is passed along
just fine. I don't want to have to reopen the file. Please let me know
if there is anything that I can try.
Thanks,
Matt
ex.
open(PASSWD, "<$backupfile") || die "can't open /etc/passwd\n";
sub pwsearch {
my @pwq = <PASSWD>;
---Search Stuff---
}
my $test = pwsearch($search);
while (<PASSWD>) {
print OUTFILE $foo;
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Mon, 18 Dec 2000 17:30:06 GMT
From: msalerno@my-deja.com
Subject: Simple filehandle question - Please help.
Message-Id: <91lhi8$vk2$1@nnrp1.deja.com>
I have written a script that:
1. opens a file
2. searches the file
3. backs up the file
4. writes over the old file
For the search function I am using a subroutine. When the script enters
the sub I put the file into an array and search it. The only thing that
I return from the sub is the amount of times that the search matches.
It seems that the open filehandle gets closed when the script leaves the
subroutine. The filehandle is opened before the subroutine is called.
If I comment out the line that calls the sub, everything is passed along
just fine. I don't want to have to reopen the file. Please let me know
if there is anything that I can try.
Thanks,
Matt
ex.
open(PASSWD, "<$backupfile") || die "can't open /etc/passwd\n";
sub pwsearch {
my @pwq = <PASSWD>;
---Search Stuff---
}
my $test = pwsearch($search);
while (<PASSWD>) {
print OUTFILE $foo;
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Mon, 18 Dec 2000 17:25:28 GMT
From: msalerno@my-deja.com
Subject: Simple filehandle question - Please help.
Message-Id: <91lh9k$vet$1@nnrp1.deja.com>
I have written a script that:
1. opens a file
2. searches the file
3. backs up the file
4. writes over the old file
For the search function I am using a subroutine. When the script enters
the sub I put the file into an array and search it. The only thing that
I return from the sub is the amount of times that the search matches.
It seems that the open filehandle gets closed when the script leaves the
subroutine. The filehandle is opened before the subroutine is called.
If I comment out the line that calls the sub, everything is passed along
just fine. I don't want to have to reopen the file. Please let me know
if there is anything that I can try.
Thanks,
Matt
ex.
open(PASSWD, "<$backupfile") || die "can't open /etc/passwd\n";
sub pwsearch {
my @pwq = <PASSWD>;
---Search Stuff---
}
my $test = pwsearch($search);
while (<PASSWD>) {
print OUTFILE $foo;
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Mon, 18 Dec 2000 17:29:25 GMT
From: msalerno@my-deja.com
Subject: Simple filehandle question - Please help.
Message-Id: <91lhh0$vj9$1@nnrp1.deja.com>
I have written a script that:
1. opens a file
2. searches the file
3. backs up the file
4. writes over the old file
For the search function I am using a subroutine. When the script enters
the sub I put the file into an array and search it. The only thing that
I return from the sub is the amount of times that the search matches.
It seems that the open filehandle gets closed when the script leaves the
subroutine. The filehandle is opened before the subroutine is called.
If I comment out the line that calls the sub, everything is passed along
just fine. I don't want to have to reopen the file. Please let me know
if there is anything that I can try.
Thanks,
Matt
ex.
open(PASSWD, "<$backupfile") || die "can't open /etc/passwd\n";
sub pwsearch {
my @pwq = <PASSWD>;
---Search Stuff---
}
my $test = pwsearch($search);
while (<PASSWD>) {
print OUTFILE $foo;
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Mon, 18 Dec 2000 17:26:56 GMT
From: msalerno@my-deja.com
Subject: Simple filehandle question - Please help.
Message-Id: <91lhcc$vgc$1@nnrp1.deja.com>
I have written a script that:
1. opens a file
2. searches the file
3. backs up the file
4. writes over the old file
For the search function I am using a subroutine. When the script enters
the sub I put the file into an array and search it. The only thing that
I return from the sub is the amount of times that the search matches.
It seems that the open filehandle gets closed when the script leaves the
subroutine. The filehandle is opened before the subroutine is called.
If I comment out the line that calls the sub, everything is passed along
just fine. I don't want to have to reopen the file. Please let me know
if there is anything that I can try.
Thanks,
Matt
ex.
open(PASSWD, "<$backupfile") || die "can't open /etc/passwd\n";
sub pwsearch {
my @pwq = <PASSWD>;
---Search Stuff---
}
my $test = pwsearch($search);
while (<PASSWD>) {
print OUTFILE $foo;
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Mon, 18 Dec 2000 17:29:13 GMT
From: msalerno@my-deja.com
Subject: Simple filehandle question - Please help.
Message-Id: <91lhgk$vj1$1@nnrp1.deja.com>
I have written a script that:
1. opens a file
2. searches the file
3. backs up the file
4. writes over the old file
For the search function I am using a subroutine. When the script enters
the sub I put the file into an array and search it. The only thing that
I return from the sub is the amount of times that the search matches.
It seems that the open filehandle gets closed when the script leaves the
subroutine. The filehandle is opened before the subroutine is called.
If I comment out the line that calls the sub, everything is passed along
just fine. I don't want to have to reopen the file. Please let me know
if there is anything that I can try.
Thanks,
Matt
ex.
open(PASSWD, "<$backupfile") || die "can't open /etc/passwd\n";
sub pwsearch {
my @pwq = <PASSWD>;
---Search Stuff---
}
my $test = pwsearch($search);
while (<PASSWD>) {
print OUTFILE $foo;
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Mon, 18 Dec 2000 17:32:40 GMT
From: msalerno@my-deja.com
Subject: Simple filehandle question - Please help.
Message-Id: <91lhno$vng$1@nnrp1.deja.com>
I have written a script that:
1. opens a file
2. searches the file
3. backs up the file
4. writes over the old file
For the search function I am using a subroutine. When the script enters
the sub I put the file into an array and search it. The only thing that
I return from the sub is the amount of times that the search matches.
It seems that the open filehandle gets closed when the script leaves the
subroutine. The filehandle is opened before the subroutine is called.
If I comment out the line that calls the sub, everything is passed along
just fine. I don't want to have to reopen the file. Please let me know
if there is anything that I can try.
Thanks,
Matt
ex.
open(PASSWD, "<$backupfile") || die "can't open /etc/passwd\n";
sub pwsearch {
my @pwq = <PASSWD>;
---Search Stuff---
}
my $test = pwsearch($search);
while (<PASSWD>) {
print OUTFILE $foo;
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Mon, 18 Dec 2000 18:16:30 GMT
From: msalerno@my-deja.com
Subject: Simple filehandle question - Please help.
Message-Id: <91lk9r$23t$1@nnrp1.deja.com>
I have written a script that:
1. opens a file
2. searches the file
3. backs up the file
4. writes over the old file
For the search function I am using a subroutine. When the script enters
the sub I put the file into an array and search it. The only thing that
I return from the sub is the amount of times that the search matches.
It seems that the open filehandle gets closed when the script leaves the
subroutine. The filehandle is opened before the subroutine is called.
If I comment out the line that calls the sub, everything is passed along
just fine. I don't want to have to reopen the file. Please let me know
if there is anything that I can try.
Thanks,
Matt
ex.
open(PASSWD, "<$backupfile") || die "can't open /etc/passwd\n";
sub pwsearch {
my @pwq = <PASSWD>;
---Search Stuff---
}
my $test = pwsearch($search);
while (<PASSWD>) {
print OUTFILE $foo;
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: 18 Dec 2000 17:57:30 +0000
From: nobull@mail.com
Subject: Re: Simple filehandle question - Please help.
Message-Id: <u9itohipdh.fsf@wcl-l.bham.ac.uk>
msalerno@my-deja.com writes:
> I have written a script that:
> 1. opens a file
> 2. searches the file
> 3. backs up the file
> 4. writes over the old file
Perhaps you should show us the script - this is what you _want_ the
script to do but presumably you wouldn't be posting if the script was
working.
> It seems that the open filehandle gets closed when the script leaves the
> subroutine.
Can you show us some evidence to support is assertion.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 18 Dec 2000 10:03:16 -0500
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: Splitting data into an array
Message-Id: <Pine.GSO.4.21.0012181002050.22284-100000@crusoe.crusoe.net>
On Dec 17, Randy Harris said:
>Uri Guttman <uri@sysarch.com> wrote in message
>news:x7ofyag1ym.fsf@home.sysarch.com...
>> >>>>> "H" == Hawk <someguyREMOVE@REMOVEsunflower.com> writes:
>>
>> H> Hello,
>> H> I have a flat text database that has many lines like this
>> H> 12-15-00
>> H> entry1
>> H> entry2
>> H> entry3
>> H> entry4
>> H> 12-15-00 END
>>
>> H> Say I want to take all of the data between 12-15-00 and 12-15-00
>END and
>> H> print it, how would I accomplish that?
>>
>> perl -ne 'print if /^12-15-00$/ .. /^12-15-00 END$/' file
>
>Uri, wouldn't that make the output inclusive of the dates, where the OP
>wanted the lines between the dates?
So do:
perl -ne 'print if s/^12-15-00\n// .. s/^12-15-00 END\n//' file
--
Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/
CPAN - #1 Perl Resource (my id: PINYAN) http://search.cpan.org/
PerlMonks - An Online Perl Community http://www.perlmonks.com/
The Perl Archive - Articles, Forums, etc. http://www.perlarchive.com/
------------------------------
Date: Mon, 18 Dec 2000 17:05:45 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Splitting data into an array
Message-Id: <x7bsu9fymu.fsf@home.sysarch.com>
>>>>> "JP" == Jeff Pinyan <jeffp@crusoe.net> writes:
JP> On Dec 17, Randy Harris said:
>> Uri Guttman <uri@sysarch.com> wrote in message
>>>
>>> perl -ne 'print if /^12-15-00$/ .. /^12-15-00 END$/' file
>>
>> Uri, wouldn't that make the output inclusive of the dates, where the OP
>> wanted the lines between the dates?
JP> So do:
JP> perl -ne 'print if s/^12-15-00\n// .. s/^12-15-00 END\n//' file
not a bad trick. but see my later post on a non-destructive solution.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Mon, 18 Dec 2000 17:30:21 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <t3siddcdovv433@corp.supernews.com>
Following is a summary of articles 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.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
Totals
======
Posters: 450
Articles: 1382 (547 with cutlined signatures)
Threads: 405
Volume generated: 2570.7 kb
- headers: 1109.5 kb (22,033 lines)
- bodies: 1392.9 kb (44,797 lines)
- original: 933.3 kb (32,170 lines)
- signatures: 67.0 kb (1,495 lines)
Original Content Rating: 0.670
Averages
========
Posts per poster: 3.1
median: 1.0 post
mode: 1 post - 264 posters
s: 5.7 posts
Posts per thread: 3.4
median: 2 posts
mode: 1 post - 149 threads
s: 5.8 posts
Message size: 1904.8 bytes
- header: 822.1 bytes (15.9 lines)
- body: 1032.1 bytes (32.4 lines)
- original: 691.5 bytes (23.3 lines)
- signature: 49.6 bytes (1.1 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
47 67.7 ( 40.3/ 27.0/ 16.4) Bart Lateur <bart.lateur@skynet.be>
40 89.0 ( 32.7/ 50.7/ 31.7) Tad McClellan <tadmc@metronet.com>
32 48.8 ( 26.8/ 21.4/ 12.1) abigail@foad.org
31 61.3 ( 33.8/ 18.7/ 9.9) japhy@pobox.com
31 61.2 ( 28.1/ 23.8/ 11.4) Uri Guttman <uri@sysarch.com>
27 106.6 ( 20.4/ 85.1/ 85.1) PerlFAQ Server <faq@denver.pm.org>
27 90.6 ( 19.1/ 71.5/ 66.0) Tom Christiansen <tchrist@perl.com>
25 30.2 ( 18.3/ 11.9/ 7.1) rzilavec@tcn.net
23 34.8 ( 17.7/ 15.8/ 7.8) Rafael Garcia-Suarez <rgarciasuarez@free.fr>
23 44.9 ( 17.7/ 26.2/ 18.4) Chris Fedde <cfedde@fedde.littleton.co.us>
These posters accounted for 22.1% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
106.6 ( 20.4/ 85.1/ 85.1) 27 PerlFAQ Server <faq@denver.pm.org>
90.6 ( 19.1/ 71.5/ 66.0) 27 Tom Christiansen <tchrist@perl.com>
89.0 ( 32.7/ 50.7/ 31.7) 40 Tad McClellan <tadmc@metronet.com>
67.7 ( 40.3/ 27.0/ 16.4) 47 Bart Lateur <bart.lateur@skynet.be>
61.3 ( 33.8/ 18.7/ 9.9) 31 japhy@pobox.com
61.2 ( 28.1/ 23.8/ 11.4) 31 Uri Guttman <uri@sysarch.com>
48.8 ( 26.8/ 21.4/ 12.1) 32 abigail@foad.org
44.9 ( 17.7/ 26.2/ 18.4) 23 Chris Fedde <cfedde@fedde.littleton.co.us>
34.8 ( 17.7/ 15.8/ 7.8) 23 Rafael Garcia-Suarez <rgarciasuarez@free.fr>
34.7 ( 8.0/ 26.6/ 19.4) 14 Chris Stith <mischief@velma.motion.net>
These posters accounted for 24.9% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 85.1 / 85.1) 27 PerlFAQ Server <faq@denver.pm.org>
0.964 ( 5.7 / 5.9) 7 BUCK NAKED1 <dennis100@webtv.net>
0.924 ( 66.0 / 71.5) 27 Tom Christiansen <tchrist@perl.com>
0.920 ( 10.8 / 11.7) 14 John Hunter <jdhunter@nitace.bsd.uchicago.edu>
0.918 ( 18.0 / 19.6) 7 Greg Bacon <gbacon@cs.uah.edu>
0.904 ( 2.4 / 2.7) 6 Geoff Soper <g.soper@soundhouse.co.uk>
0.864 ( 4.2 / 4.9) 9 "John Lin" <johnlin@chttl.com.tw>
0.812 ( 11.8 / 14.5) 7 Mike Lin <mikelin6@home.com>
0.788 ( 14.5 / 18.5) 12 Logan Shaw <logan@cs.utexas.edu>
0.771 ( 2.9 / 3.7) 7 alessandro.augusto@ic.unicamp.br
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.438 ( 2.5 / 5.7) 8 "Randy Harris" <harrisr@bignet.net>
0.437 ( 3.8 / 8.6) 7 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.432 ( 4.2 / 9.7) 8 Tim Hammerquist <tim@degree.ath.cx>
0.412 ( 2.4 / 5.9) 6 "Peter Sundstrom" <peter.sundstrom@eds.com>
0.406 ( 3.6 / 8.9) 14 Randal L. Schwartz <merlyn@stonehenge.com>
0.392 ( 3.0 / 7.7) 8 "Vladimir Silyaev" <cbah@chez.com>
0.381 ( 1.8 / 4.7) 5 "EnIgMaBoM" <enigmabomb@home.gotohellspammers.ihopeyourotinghellyouspamminggarbage.com>
0.372 ( 1.7 / 4.5) 5 Josef Moellers <josef.moellers@fujitsu-siemens.com>
0.344 ( 4.4 / 12.7) 18 Michael Budash <mbudash@sonic.net>
0.272 ( 0.8 / 2.9) 5 mothra <mothra@nowhereatall.com>
62 posters (13%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
81 Posting Guidelines for comp.lang.perl.misc ($Revision: 0.1 $)
33 Regex can't be greedy with /(a|ab)/ ?
22 Is there an overhead using long variable names?
21 huh ??
19 One-Liner to Sum a Stack of Numbers?
19 Eliminating unneeded whitespace...
17 initialize array of identical elements
16 My first JAPH....
16 Windows cant recognize the original owner
15 Use PERL or Java? Which is faster?
These threads accounted for 18.7% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
154.8 ( 69.6/ 79.6/ 49.2) 81 Posting Guidelines for comp.lang.perl.misc ($Revision: 0.1 $)
71.4 ( 27.6/ 39.9/ 24.6) 33 Regex can't be greedy with /(a|ab)/ ?
46.1 ( 5.2/ 40.4/ 39.6) 7 creating a file
44.0 ( 18.1/ 25.1/ 14.8) 22 Is there an overhead using long variable names?
39.4 ( 15.8/ 22.0/ 14.5) 19 Eliminating unneeded whitespace...
36.8 ( 16.3/ 19.4/ 9.8) 21 huh ??
34.1 ( 9.9/ 23.9/ 11.1) 13 #include files? sort of
31.2 ( 11.6/ 19.1/ 12.8) 14 Faster than LWP
31.2 ( 16.5/ 12.8/ 7.4) 19 One-Liner to Sum a Stack of Numbers?
31.0 ( 18.3/ 12.4/ 6.9) 16 Windows cant recognize the original owner
These threads accounted for 20.2% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.979 ( 39.6/ 40.4) 7 creating a file
0.867 ( 4.3/ 4.9) 6 Total Beginner
0.836 ( 2.8/ 3.4) 5 TTY list
0.836 ( 2.3/ 2.7) 5 IO::Socket - The server will not reply back to the client
0.802 ( 12.0/ 15.0) 7 using s// on *()[]+ in perl regex
0.790 ( 5.9/ 7.5) 5 Perl 5.6, Regexp, performance problems
0.779 ( 4.2/ 5.4) 5 Getting around named pipe blocking?
0.774 ( 6.3/ 8.1) 6 To Blob or not To Blob
0.753 ( 3.4/ 4.6) 8 How do I get the last day of a month??
0.752 ( 3.6/ 4.8) 5 Function from string
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.427 ( 2.1 / 4.9) 5 backspace issues
0.413 ( 2.6 / 6.4) 8 Can we have left side info of subs, as 'split' does?
0.410 ( 3.0 / 7.4) 17 initialize array of identical elements
0.409 ( 0.8 / 2.1) 5 default method
0.395 ( 5.8 / 14.7) 8 Perl programming
0.394 ( 1.5 / 3.9) 6 Splitting data into an array
0.373 ( 3.1 / 8.2) 9 How to make LWP::UserAgent "frame enabled"
0.331 ( 3.1 / 9.5) 6 Pulling content from a HTML doc
0.313 ( 2.2 / 7.1) 6 (Beginner) Example CGI not working
0.309 ( 2.3 / 7.3) 8 Better way to remove lines from output?
81 threads (20%) had at least five 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
-------- -------
19 alessandro.augusto@ic.unicamp.br
10 "Harley Green" <ep@w3dzine.net>
8 Bart Lateur <bart.lateur@skynet.be>
8 Just Me <just_me@nowhere.com>
7 Chris Fedde <cfedde@fedde.littleton.co.us>
6 gareth@uberdog.net
6 Peter Schuller <peter.schuller@infidyne.com>
4 roedy@mindprod.com
4 Marc Dashevsky <m_arc@world.std.com>
4 morpheus@here.not.there
------------------------------
Date: Mon, 18 Dec 2000 14:03:53 GMT
From: t0873 <t0873@my-deja.com>
Subject: Street Address Parsing
Message-Id: <91l5g6$kio$1@nnrp1.deja.com>
Hello all,
I want to use Street Address Parsing Module, I found all the related
modules for Address parsing -- installed it on my win32 system.
sample demo.pl worked fine.
But when I tried to give any USA address, it does not work!!!
is there any tweaking required in .pm module(s). Has any one tried
it???. Please let me know asap. Please let me know if there is
something else available.
I need to parse complete street address.
Thanks in advance.
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: 18 Dec 2000 17:59:01 +0000
From: nobull@mail.com
Subject: Re: test
Message-Id: <u9hf41ipay.fsf@wcl-l.bham.ac.uk>
Karl.Mikasa@usa.xerox.com writes:
> test
You just failed the test.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 18 Dec 2000 16:20:55 +0100
From: "tim allen" <timallen449@coldmail.com>
Subject: Re: time, schedules, advice
Message-Id: <91l9c9$2hc$1@diana.bcn.ttd.net>
"Enrico Ng" <ng@fnmail.com> wrote in message
news:91k90k$jm0$1@info1.fnal.gov...
>I am making a webpage for alocal tv station. I would like some advice on
the schedule system.
<snip>
>I'm thinking of storing it like this date,time,duration of show,name of
show,description
>I just want an easy way to store the date and time.
Hi Enrico,
If it is a lot of data, maybe you could store it in a database and
access it using the DBI module. Maybe you could get away with storing the
database in CSV format (if it's not really big), or maybe you can convince
them to use MySQL as the database ($200 for commercial use). In either
case, DBI talks to these databases using either DBD::CSV or DBD::mysql (or
even DBD::ODBC, etc etc). Check these out. It's easy once you know how.
http://www.perldoc.com/cpan/DBI.html
http://www.perldoc.com/cpan/DBD/CSV.html
http://www.perldoc.com/cpan/DBD/mysql.html
http://www.perldoc.com/cpan/DBD/ODBC.html
http://www.perl.com/pub/1999/10/DBI.html
http://www.symbolstone.org/technology/perl/DBI/index.html
--
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:57:13 -0500
From: Lou Moran <lmoran@wtsg.com>
Subject: Re: Total Beginner
Message-Id: <pjis3tk88f6q57uq406h7di5oahlmasdpg@4ax.com>
On 18 Dec 2000 01:15:57 GMT, abigail@foad.org (Abigail) wrote
wonderful things about sparkplugs:
--SNIP--
>
> $ cat > my_first_cgi
> #!/opt/perl/bin/perl -wT
> use strict;
> use CGI;
>
> ... details ...
>
> __END__
> ^D
> $ chmod 755 my_first_cgi
> $
>
>
>Just fill in the details and you're done
I think this might be evil
>
>
>Abigail
lmoran@wtsgSPAM.com
print "\x{263a}"
------------------------------
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 5141
**************************************
