[24448] in Perl-Users-Digest
Perl-Users Digest, Issue: 6631 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 31 09:10:40 2004
Date: Mon, 31 May 2004 06:10:14 -0700 (PDT)
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, 31 May 2004 Volume: 10 Number: 6631
Today's topics:
Perl module for programming Windows 2000 quota <ld@mmm12345.com>
Re: Perl module for programming Windows 2000 quota <tlviewer@yahoo.com>
Re: Printing lines out of a text file <krahnj@acm.org>
Re: Printing lines out of a text file <EmJayEm392NO-F-SPAM@yahoo.com>
Re: Printing lines out of a text file <flavell@ph.gla.ac.uk>
Sorting and Ordering by date etc <thepotplants@yahoo.com>
Re: Sorting and Ordering by date etc <thepotplants@yahoo.com>
Re: Sorting and Ordering by date etc <noreply@gunnar.cc>
Re: Sorting and Ordering by date etc <thepotplants@yahoo.com>
Re: Sorting and Ordering by date etc <ebohlman@omsdev.com>
Re: Sorting and Ordering by date etc <krahnj@acm.org>
splitting cvs file and insert in mysql via DBI <javier@t-online.de>
Re: splitting cvs file and insert in mysql via DBI <ittyspam@yahoo.com>
Re: splitting cvs file and insert in mysql via DBI <gnari@simnet.is>
Statistics for comp.lang.perl.misc <gbacon@hiwaay.net>
Re: Why is this upload script not working (Arun)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 31 May 2004 11:57:21 +0800
From: "ddl" <ld@mmm12345.com>
Subject: Perl module for programming Windows 2000 quota
Message-Id: <c9e8lo$dnm$1@reader01.singnet.com.sg>
Hi all,
Does anyone know of any Perl module for programming Windows 2000 server
quota ? I need to write a script which I can plug into task scheduler and
run every weekly. It will check if the users' quota entries has exceeded a
certain amount and then send an email to that user so that they can
hosuekeep their home directory.
Thanks
ldd.
------------------------------
Date: Mon, 31 May 2004 05:54:47 GMT
From: "gnu valued customer" <tlviewer@yahoo.com>
Subject: Re: Perl module for programming Windows 2000 quota
Message-Id: <HMzuc.16655$g15.5535@nwrddc02.gnilink.net>
"ddl" <ld@mmm12345.com> wrote in message =
news:c9e8lo$dnm$1@reader01.singnet.com.sg...
> Hi all,
>=20
> Does anyone know of any Perl module for programming Windows 2000 =
server
> quota ? I need to write a script which I can plug into task scheduler =
and
> run every weekly. It will check if the users' quota entries has =
exceeded a
> certain amount and then send an email to that user so that they can
> hosuekeep their home directory.
>=20
> Thanks
> ldd.
>=20
>=20
Win32-OLE should do fine:
------------ snip ---------------
use Win32::OLE;
my $Obj =3D Win32::OLE->new('Microsoft.DiskQuota', =20
\&OleQuit) || die("could not create Obj\n");
------------ unsnip -------------------------
If you need help with the object model for DiskQuota,
try my Win32 custom Object Browser, called TLViewer
http://mysite.verizon.net/res1ur2j/ (TLViewer link left side)
Further, see this article
http://support.microsoft.com/default.aspx?scid=3Dkb;en-us;297835
I've never scripted this in anyway, so take pride in being
a pioneer (whether you find success or failure).
hth,
Mark Pryor
------------------------------
Date: Mon, 31 May 2004 11:42:32 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Printing lines out of a text file
Message-Id: <40BB1A2C.9264583@acm.org>
EmJayEm wrote:
>
> > while ( <FILE> ) {
> > if ( /^ENTRY=(?=.*?$entry)/ ... /^ENTRY=/ and !/^ENTRY=/ ) {
> > print;
> > }
> > }
>
> comments please.
Wow ... what a great solution to the OP's problem! IMNSHO YMMV HAND :-)
John
--
use Perl;
program
fulfillment
------------------------------
Date: Mon, 31 May 2004 13:24:04 +0100
From: "EmJayEm" <EmJayEm392NO-F-SPAM@yahoo.com>
Subject: Re: Printing lines out of a text file
Message-Id: <GtFuc.39496$FV7.30685@doctor.cableinet.net>
> > while (! file[$line_of_file]=~m/ENTRY=(.*)/) # for each line of the
entry
> ^^ $
>
> Please post real code. It is just a waste of everybody's time if you
> post fake code. Have you read the posting guidelines?
Sorry, that should have been @file
------------------------------
Date: Mon, 31 May 2004 13:29:10 +0100
From: "Alan J. Flavell" <flavell@ph.gla.ac.uk>
Subject: Re: Printing lines out of a text file
Message-Id: <Pine.LNX.4.53.0405311326170.30551@ppepc56.ph.gla.ac.uk>
On Mon, 31 May 2004, EmJayEm wrote (quoting Ben Morrow without
attribution):
> > Have you read the posting guidelines?
>
> Sorry, that should have been @file
Wrong answer. Should have been "Sorry, I'll take care to copy/paste
my real code in future".
------------------------------
Date: Mon, 31 May 2004 14:53:47 +1200
From: "ThePotPlants" <thepotplants@yahoo.com>
Subject: Sorting and Ordering by date etc
Message-Id: <47xuc.12357$XI4.434251@news.xtra.co.nz>
I have a nasty set of text data that I want to sort into order, and remove
duplicates from.
This would only have taken 5 seconds in SQL, but I have no idea how to do it
in Perl.
Data looks like so...
-33.580333 162.601833 01/12/2003 00:01:09
-33.579833 162.601667 01/12/2003 00:01:51
-33.579167 162.601500 01/12/2003 00:03:09
-33.578667 162.601333 01/12/2003 00:04:51
-33.578667 162.601333 01/12/2003 00:05:09
What would be the most common approach to acheive this? hash array?
Can you insert each line of data into an array, and perform operations on
specific parts of it?
Any suggestions would be greatly appreciated.
P
------------------------------
Date: Mon, 31 May 2004 14:56:03 +1200
From: "ThePotPlants" <thepotplants@yahoo.com>
Subject: Re: Sorting and Ordering by date etc
Message-Id: <b9xuc.12360$XI4.434192@news.xtra.co.nz>
Correction:
> I have a nasty set of text data that I want to sort into DATE order, and
remove duplicates.
------------------------------
Date: Mon, 31 May 2004 05:01:19 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Sorting and Ordering by date etc
Message-Id: <2hvlpuFg4m5vU1@uni-berlin.de>
ThePotPlants wrote:
> I have a nasty set of text data that I want to sort into order, and
> remove duplicates from.
That were two FAQs.
perldoc -q sort
perldoc -q duplicate
Note that you are expected to check out the FAQ before asking for help
here. Other useful tips about posting in this newsgroup can be found
at http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 31 May 2004 15:42:46 +1200
From: "ThePotPlants" <thepotplants@yahoo.com>
Subject: Re: Sorting and Ordering by date etc
Message-Id: <_Qxuc.12388$XI4.434566@news.xtra.co.nz>
"Gunnar Hjalmarsson" <noreply@gunnar.cc> wrote in message
news:2hvlpuFg4m5vU1@uni-berlin.de...
> ThePotPlants wrote:
> > I have a nasty set of text data that I want to sort into order, and
> > remove duplicates from.
>
> That were two FAQs.
>
> perldoc -q sort
>
> perldoc -q duplicate
>
> Note that you are expected to check out the FAQ before asking for help
> here. Other useful tips about posting in this newsgroup can be found
> at http://mail.augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html
My apologies. Thanks for the pointer.
------------------------------
Date: 31 May 2004 05:29:39 GMT
From: Eric Bohlman <ebohlman@omsdev.com>
Subject: Re: Sorting and Ordering by date etc
Message-Id: <Xns94FA5B8A8742ebohlmanomsdevcom@130.133.1.4>
"ThePotPlants" <thepotplants@yahoo.com> wrote in
news:47xuc.12357$XI4.434251@news.xtra.co.nz:
> I have a nasty set of text data that I want to sort into order, and
> remove duplicates from.
> This would only have taken 5 seconds in SQL, but I have no idea how to
> do it in Perl.
Others have already pointed you to Perl's reference material concerning
duplicates and sorting. However, since you're obviously familiar with
doing such things in SQL, you ought to know that there are several perl
modules that will allow you to use SQL on arbitrary data, including text
files and in-memory structures. Check out DBI (the engine-independent
interface for working with SQL) and DBD::RAM, DBD::Anydata, and DBD::CSV
("drivers" for DBI that allow it to query arbitrary data).
------------------------------
Date: Mon, 31 May 2004 12:28:52 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Sorting and Ordering by date etc
Message-Id: <40BB2508.A3C83454@acm.org>
ThePotPlants wrote:
>
> I have a nasty set of text data that I want to sort into order, and remove
> duplicates from.
> This would only have taken 5 seconds in SQL, but I have no idea how to do it
> in Perl.
>
> Data looks like so...
>
> -33.580333 162.601833 01/12/2003 00:01:09
> -33.579833 162.601667 01/12/2003 00:01:51
> -33.579167 162.601500 01/12/2003 00:03:09
> -33.578667 162.601333 01/12/2003 00:04:51
> -33.578667 162.601333 01/12/2003 00:05:09
>
> What would be the most common approach to acheive this? hash array?
> Can you insert each line of data into an array, and perform operations on
> specific parts of it?
>
> Any suggestions would be greatly appreciated.
my @data = (
"-33.580333 162.601833 01/12/2003 00:01:09\n",
"-33.579833 162.601667 01/12/2003 00:01:51\n",
"-33.579167 162.601500 01/12/2003 00:03:09\n",
"-33.578667 162.601333 01/12/2003 00:04:51\n",
"-33.578667 162.601333 01/12/2003 00:05:09\n",
);
my @sorted =
map substr( $_, 17 ),
sort
map sprintf( '%s%s%s%s',
( m<(\d\d/\d\d)/(\d{4}) (\d\d:\d\d:\d\d)> )[ 1, 0, 2 ], $_ ),
keys %{[ { map { $_ => 1 } @data } ]};
print for @sorted;
John
--
use Perl;
program
fulfillment
------------------------------
Date: Mon, 31 May 2004 12:44:24 +0200
From: Xaver Biton <javier@t-online.de>
Subject: splitting cvs file and insert in mysql via DBI
Message-Id: <c9f2a7$eup$02$1@news.t-online.com>
Hi,
I'm running activestate 5.8 on winmaschine and I'm not very familiar
with perl but I like it very much.
Please be patient.
I've to split a csv file and insert it in a mysql db. I've done some
tests with other file and it worked wonderfull now in the real work
doesn't work, I' ve many errors.
The first question ist: why does perl complain when it find a "@" a "."
or a number in csv file. Perl says that it find an a number or a dot
... where opeator is espected. how can I get rid of this?
The second question which I can't anderstand it at all is, when I
execute the script and give the csv file as parameter I recieve this
error message:
Can't locate object method "Ilzasname" via package "Asan" (perhaps you
forgot to load "Asan"?) at customers.csv line 1.
*** Process "C:\Perl\bin\perl.exe" terminated. Return code=255
the csv file is like this:
100742;ASAN;Herr;Ilzasname Asan;Steingoetter-Greiff-StrDOT
;69168;Wiesloch;;;20020425;
10074;ASAN;Herr;Ilzasname Asan;Steingoetter-Greiff-StrDOT
;69168;Wiesloch;;;20020425;hansgkoenigetaolDOTcom;
100744;ASAN;Herr;Ilzasname Asan;Steingoetter-Greiff-StrDOT
;69168;Wiesloch;;;20020425;
hier is the perl script:
use DBI;
#use strict;
# Declare and initialize variables
my $host = 'localhost';
my $db = 'dbname';
my $db_user = 'username';
my $db_password = 'password';
$dbh = DBI->connect("dbi:mysql:$db:$host", "$db_user", "$db_password",
{RaiseError => 0, PrintError => 0} );
$sth = $dbh->prepare("INSERT INTO test(vo_nr, interne_customer_id,
nikname, salutation, name, forename, address, zip, city, tel, telefax,
customer_since, mail) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?)");
while(<>){
chomp;
my ($interne_customer_id, $nikname, $salutation, $name, $address,
$zip, $city, $tel, $telefax, $customer_since, $mail) = split /;/;
($name,$forename) = split(/\s+/,$name);
my $vo_nr = '012345';
$sth->execute($vo_nr, $interne_customer_id, $nikname, $salutation,
$name, $forename, $address, $zip, $city, $tel, $telefax,
$customer_since, $mail);
}
Thks. for help.
Xaver
------------------------------
Date: Mon, 31 May 2004 07:18:28 -0400
From: Paul Lalli <ittyspam@yahoo.com>
Subject: Re: splitting cvs file and insert in mysql via DBI
Message-Id: <20040531071413.J18263@dishwasher.cs.rpi.edu>
On Mon, 31 May 2004, Xaver Biton wrote:
> The first question ist: why does perl complain when it find a "@" a "."
> or a number in csv file. Perl says that it find an a number or a dot
> ... where opeator is espected. how can I get rid of this?
>
> The second question which I can't anderstand it at all is, when I
> execute the script and give the csv file as parameter I recieve this
> error message:
>
> Can't locate object method "Ilzasname" via package "Asan" (perhaps you
> forgot to load "Asan"?) at customers.csv line 1.
> *** Process "C:\Perl\bin\perl.exe" terminated. Return code=255
>
How, *exactly*, are you calling this script? That error message would
seem to indicate you are telling perl to execute the CSV file as though it
were a perl script. You should be calling it similar to this:
perl myfile.pl customers.csv
Are you forgetting the name of the script in the above?
> use DBI;
> #use strict;
Don't comment this out. It's important. If you're getting errors while
using strict, the correct action to take is to correct the errors, not to
disable strict.
Additionally, you forgot
use warnings;
Asking thousands of people to do the work that the interpreter itself can
do by typing that one line is rather rude.
Once you've run the script again with those two lines enabled, if you
can't figure out the problem(s), post again...
Paul Lalli
------------------------------
Date: Mon, 31 May 2004 11:21:43 -0000
From: "gnari" <gnari@simnet.is>
Subject: Re: splitting cvs file and insert in mysql via DBI
Message-Id: <c9f4d0$moj$1@news.simnet.is>
"Xaver Biton" <javier@t-online.de> wrote in message
news:c9f2a7$eup$02$1@news.t-online.com...
[snip problem supposedly involving CSV and DBI]
try to simplify your problem until it goes away.
not many on this group will want to create a mysql table
to try your script. so take away the DBI stuff.
it is boring to have to cut and paste your data into a separate
file to run a test script on, so unless the problem is a file
reading problem, simplify that away.
of course in your case, it probably IS some sort of file reading
problem, because you do not show us how you execute the script.
my guess is the you are not even running your script, but doing
the equivalent of
perl customers.csv
gnari
------------------------------
Date: Mon, 31 May 2004 12:52:52 -0000
From: Greg Bacon <gbacon@hiwaay.net>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <10bmal4ti4nbndf@corp.supernews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 24 May 2004 12:55:13 GMT and ending at
31 May 2004 12:40:04 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 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: 189
Articles: 694 (295 with cutlined signatures)
Threads: 136
Volume generated: 1367.4 kb
- headers: 631.9 kb (11,450 lines)
- bodies: 688.9 kb (22,809 lines)
- original: 392.3 kb (14,029 lines)
- signatures: 46.0 kb (987 lines)
Original Content Rating: 0.569
Averages
========
Posts per poster: 3.7
median: 2 posts
mode: 1 post - 86 posters
s: 19.1 posts
Posts per thread: 5.1
median: 4.0 posts
mode: 2 posts - 27 threads
s: 5.2 posts
Message size: 2017.6 bytes
- header: 932.4 bytes (16.5 lines)
- body: 1016.4 bytes (32.9 lines)
- original: 578.8 bytes (20.2 lines)
- signature: 67.8 bytes (1.4 lines)
Top 20 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
38 89.8 ( 36.5/ 43.7/ 15.4) Ben Morrow <usenet@morrow.me.uk>
30 64.0 ( 29.8/ 27.3/ 12.2) Uri Guttman <uri@stemsystems.com>
26 52.1 ( 19.9/ 32.2/ 13.9) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
25 45.2 ( 19.0/ 26.2/ 12.2) Paul Lalli <ittyspam@yahoo.com>
23 36.8 ( 21.4/ 15.4/ 5.9) krakle <krakle@visto.com>
23 31.6 ( 18.5/ 11.6/ 5.6) Gunnar Hjalmarsson <noreply@gunnar.cc>
22 43.3 ( 20.2/ 19.6/ 13.7) Tore Aursand <tore@aursand.no>
18 69.0 ( 21.0/ 45.8/ 39.4) tadmc@augustmail.com
16 28.0 ( 13.9/ 13.7/ 3.9) "John W. Krahn" <krahnj@acm.org>
16 38.0 ( 15.3/ 21.7/ 13.5) Brian McCauley <nobull@mail.com>
14 28.5 ( 16.4/ 9.2/ 3.1) John Bokma <postmaster@castleamber.com>
10 15.6 ( 9.3/ 6.2/ 3.2) "gnari" <gnari@simnet.is>
10 18.7 ( 8.1/ 9.2/ 4.0) Jim Cochrane <jtc@shell.dimensional.com>
10 18.9 ( 6.5/ 12.3/ 7.6) Eric Bohlman <ebohlman@omsdev.com>
9 16.9 ( 8.9/ 8.0/ 4.4) schaumfestiger@gmx.de
9 14.2 ( 9.5/ 4.7/ 2.5) Joe Smith <Joe.Smith@inwap.com>
9 24.2 ( 12.4/ 11.8/ 5.2) Jim Gibson <jgibson@mail.arc.nasa.gov>
9 20.2 ( 11.4/ 8.2/ 3.3) "A. Sinan Unur" <1usa@llenroc.ude>
7 12.7 ( 6.8/ 5.9/ 3.0) Abhinav <matrix_calling@yahoo.dot.com>
7 11.8 ( 6.5/ 5.3/ 2.3) "Jürgen Exner" <jurgenex@hotmail.com>
These posters accounted for 47.7% of all articles.
Top 20 Posters by Number of Followups
=====================================
(kb) (kb) (kb) (kb)
Followups Volume ( hdr/ body/ orig) Address
--------- -------------------------- -------
38 89.8 ( 36.5/ 43.7/ 15.4) Ben Morrow <usenet@morrow.me.uk>
30 64.0 ( 29.8/ 27.3/ 12.2) Uri Guttman <uri@stemsystems.com>
26 52.1 ( 19.9/ 32.2/ 13.9) Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
25 45.2 ( 19.0/ 26.2/ 12.2) Paul Lalli <ittyspam@yahoo.com>
23 31.6 ( 18.5/ 11.6/ 5.6) Gunnar Hjalmarsson <noreply@gunnar.cc>
23 36.8 ( 21.4/ 15.4/ 5.9) krakle <krakle@visto.com>
20 43.3 ( 20.2/ 19.6/ 13.7) Tore Aursand <tore@aursand.no>
16 38.0 ( 15.3/ 21.7/ 13.5) Brian McCauley <nobull@mail.com>
16 28.0 ( 13.9/ 13.7/ 3.9) "John W. Krahn" <krahnj@acm.org>
16 69.0 ( 21.0/ 45.8/ 39.4) tadmc@augustmail.com
14 28.5 ( 16.4/ 9.2/ 3.1) John Bokma <postmaster@castleamber.com>
10 15.6 ( 9.3/ 6.2/ 3.2) "gnari" <gnari@simnet.is>
10 18.9 ( 6.5/ 12.3/ 7.6) Eric Bohlman <ebohlman@omsdev.com>
9 20.2 ( 11.4/ 8.2/ 3.3) "A. Sinan Unur" <1usa@llenroc.ude>
9 24.2 ( 12.4/ 11.8/ 5.2) Jim Gibson <jgibson@mail.arc.nasa.gov>
9 18.7 ( 8.1/ 9.2/ 4.0) Jim Cochrane <jtc@shell.dimensional.com>
9 14.2 ( 9.5/ 4.7/ 2.5) Joe Smith <Joe.Smith@inwap.com>
8 16.9 ( 8.9/ 8.0/ 4.4) schaumfestiger@gmx.de
7 19.9 ( 9.5/ 9.5/ 5.7) Joe Cosby <http://joecosby.com/code/mail.pl>
7 13.1 ( 6.8/ 6.3/ 3.0) "Matt Garrish" <matthew.garrish@sympatico.ca>
These posters accounted for 55.4% of all followups.
Top 20 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
89.8 ( 36.5/ 43.7/ 15.4) 38 Ben Morrow <usenet@morrow.me.uk>
69.0 ( 21.0/ 45.8/ 39.4) 18 tadmc@augustmail.com
64.0 ( 29.8/ 27.3/ 12.2) 30 Uri Guttman <uri@stemsystems.com>
52.1 ( 19.9/ 32.2/ 13.9) 26 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
45.2 ( 19.0/ 26.2/ 12.2) 25 Paul Lalli <ittyspam@yahoo.com>
43.3 ( 20.2/ 19.6/ 13.7) 22 Tore Aursand <tore@aursand.no>
38.0 ( 15.3/ 21.7/ 13.5) 16 Brian McCauley <nobull@mail.com>
36.8 ( 21.4/ 15.4/ 5.9) 23 krakle <krakle@visto.com>
31.6 ( 18.5/ 11.6/ 5.6) 23 Gunnar Hjalmarsson <noreply@gunnar.cc>
28.5 ( 16.4/ 9.2/ 3.1) 14 John Bokma <postmaster@castleamber.com>
28.0 ( 13.9/ 13.7/ 3.9) 16 "John W. Krahn" <krahnj@acm.org>
24.2 ( 12.4/ 11.8/ 5.2) 9 Jim Gibson <jgibson@mail.arc.nasa.gov>
20.2 ( 11.4/ 8.2/ 3.3) 9 "A. Sinan Unur" <1usa@llenroc.ude>
19.9 ( 9.5/ 9.5/ 5.7) 7 Joe Cosby <http://joecosby.com/code/mail.pl>
18.9 ( 6.5/ 12.3/ 7.6) 10 Eric Bohlman <ebohlman@omsdev.com>
18.7 ( 8.1/ 9.2/ 4.0) 10 Jim Cochrane <jtc@shell.dimensional.com>
16.9 ( 8.9/ 8.0/ 4.4) 9 schaumfestiger@gmx.de
15.6 ( 4.8/ 10.1/ 7.7) 5 Eric Schwartz <emschwar@pobox.com>
15.6 ( 9.3/ 6.2/ 3.2) 10 "gnari" <gnari@simnet.is>
14.2 ( 9.5/ 4.7/ 2.5) 9 Joe Smith <Joe.Smith@inwap.com>
These posters accounted for 50.5% of the total volume.
Top 14 Posters by Volume of Original Content (min. ten posts)
=============================================================
(kb)
Posts orig Address
----- ----- -------
18 39.4 tadmc@augustmail.com
38 15.4 Ben Morrow <usenet@morrow.me.uk>
26 13.9 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
22 13.7 Tore Aursand <tore@aursand.no>
16 13.5 Brian McCauley <nobull@mail.com>
25 12.2 Paul Lalli <ittyspam@yahoo.com>
30 12.2 Uri Guttman <uri@stemsystems.com>
10 7.6 Eric Bohlman <ebohlman@omsdev.com>
23 5.9 krakle <krakle@visto.com>
23 5.6 Gunnar Hjalmarsson <noreply@gunnar.cc>
10 4.0 Jim Cochrane <jtc@shell.dimensional.com>
16 3.9 "John W. Krahn" <krahnj@acm.org>
10 3.2 "gnari" <gnari@simnet.is>
14 3.1 John Bokma <postmaster@castleamber.com>
These posters accounted for 39.2% of the original volume.
Top 14 Posters by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.860 ( 39.4 / 45.8) 18 tadmc@augustmail.com
0.700 ( 13.7 / 19.6) 22 Tore Aursand <tore@aursand.no>
0.621 ( 13.5 / 21.7) 16 Brian McCauley <nobull@mail.com>
0.620 ( 7.6 / 12.3) 10 Eric Bohlman <ebohlman@omsdev.com>
0.521 ( 3.2 / 6.2) 10 "gnari" <gnari@simnet.is>
0.484 ( 5.6 / 11.6) 23 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.466 ( 12.2 / 26.2) 25 Paul Lalli <ittyspam@yahoo.com>
0.446 ( 12.2 / 27.3) 30 Uri Guttman <uri@stemsystems.com>
0.433 ( 4.0 / 9.2) 10 Jim Cochrane <jtc@shell.dimensional.com>
0.432 ( 13.9 / 32.2) 26 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.387 ( 5.9 / 15.4) 23 krakle <krakle@visto.com>
0.352 ( 15.4 / 43.7) 38 Ben Morrow <usenet@morrow.me.uk>
0.331 ( 3.1 / 9.2) 14 John Bokma <postmaster@castleamber.com>
0.283 ( 3.9 / 13.7) 16 "John W. Krahn" <krahnj@acm.org>
Bottom 14 Posters by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.860 ( 39.4 / 45.8) 18 tadmc@augustmail.com
0.700 ( 13.7 / 19.6) 22 Tore Aursand <tore@aursand.no>
0.621 ( 13.5 / 21.7) 16 Brian McCauley <nobull@mail.com>
0.620 ( 7.6 / 12.3) 10 Eric Bohlman <ebohlman@omsdev.com>
0.521 ( 3.2 / 6.2) 10 "gnari" <gnari@simnet.is>
0.484 ( 5.6 / 11.6) 23 Gunnar Hjalmarsson <noreply@gunnar.cc>
0.466 ( 12.2 / 26.2) 25 Paul Lalli <ittyspam@yahoo.com>
0.446 ( 12.2 / 27.3) 30 Uri Guttman <uri@stemsystems.com>
0.433 ( 4.0 / 9.2) 10 Jim Cochrane <jtc@shell.dimensional.com>
0.432 ( 13.9 / 32.2) 26 Anno Siegel <anno4000@lublin.zrz.tu-berlin.de>
0.387 ( 5.9 / 15.4) 23 krakle <krakle@visto.com>
0.352 ( 15.4 / 43.7) 38 Ben Morrow <usenet@morrow.me.uk>
0.331 ( 3.1 / 9.2) 14 John Bokma <postmaster@castleamber.com>
0.283 ( 3.9 / 13.7) 16 "John W. Krahn" <krahnj@acm.org>
14 posters (7%) had at least ten posts.
Top 20 Threads by Number of Posts
=================================
Posts Subject
----- -------
33 On "for (@foo)"
22 Perl work?
21 Stat() function fails?
20 Templating system needs help
19 Map or Regex and Sorting
17 Using Cookies With Perl
17 Login to MS Exchange to send e-mail
16 Why is this upload script not working
14 Effective perl function to remove one element from array?
14 Beginner needs help with script :)
13 create directory ...
12 How to Pattern match the keys in a hash
12 Remove first letter of each string in array
12 ActiveState Perl mangles text files
11 Another Dereference Post by me
11 Unwanted double-interpolation in string passed to backticks
11 Password scheme/Persistent session...
10 Unpack and checksums
10 Am I a programmer or a scripter?
10 Printing lines out of a text file
These threads accounted for 43.9% of all articles.
Top 20 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
62.5 ( 30.8/ 28.3/ 12.9) 33 On "for (@foo)"
52.5 ( 25.8/ 24.7/ 14.1) 21 Stat() function fails?
49.4 ( 17.9/ 28.7/ 15.4) 20 Templating system needs help
40.9 ( 23.8/ 15.4/ 8.3) 22 Perl work?
37.6 ( 18.1/ 18.4/ 8.8) 19 Map or Regex and Sorting
34.6 ( 17.1/ 15.8/ 6.0) 17 Login to MS Exchange to send e-mail
34.4 ( 2.1/ 32.3/ 32.3) 2 Posting Guidelines for comp.lang.perl.misc ($Revision: 1.5 $)
34.0 ( 13.8/ 19.0/ 12.0) 16 Why is this upload script not working
30.1 ( 13.5/ 15.0/ 6.3) 14 Effective perl function to remove one element from array?
28.2 ( 16.1/ 10.8/ 4.3) 17 Using Cookies With Perl
27.2 ( 9.9/ 16.7/ 9.4) 11 Another Dereference Post by me
26.7 ( 12.9/ 13.1/ 5.8) 12 ActiveState Perl mangles text files
24.7 ( 12.1/ 12.2/ 5.9) 14 Beginner needs help with script :)
23.4 ( 11.1/ 11.4/ 5.0) 12 How to Pattern match the keys in a hash
23.4 ( 13.0/ 9.3/ 3.5) 13 create directory ...
21.6 ( 10.9/ 10.1/ 7.0) 12 Remove first letter of each string in array
21.4 ( 12.5/ 8.2/ 3.1) 11 Password scheme/Persistent session...
21.1 ( 9.5/ 11.0/ 5.0) 11 Unwanted double-interpolation in string passed to backticks
19.9 ( 7.3/ 12.4/ 8.5) 7 "Commutative" regexps?
18.5 ( 9.6/ 8.8/ 5.1) 10 Am I a programmer or a scripter?
These threads accounted for 46.2% of the total volume.
Top 20 Threads by OCR (minimum of ten posts)
============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.690 ( 7.0/ 10.1) 12 Remove first letter of each string in array
0.669 ( 5.7/ 8.5) 10 Anonymous
0.634 ( 12.0/ 19.0) 16 Why is this upload script not working
0.576 ( 5.1/ 8.8) 10 Am I a programmer or a scripter?
0.572 ( 14.1/ 24.7) 21 Stat() function fails?
0.561 ( 9.4/ 16.7) 11 Another Dereference Post by me
0.536 ( 8.3/ 15.4) 22 Perl work?
0.535 ( 15.4/ 28.7) 20 Templating system needs help
0.520 ( 4.7/ 9.1) 10 Unpack and checksums
0.486 ( 5.9/ 12.2) 14 Beginner needs help with script :)
0.479 ( 8.8/ 18.4) 19 Map or Regex and Sorting
0.456 ( 5.0/ 11.0) 11 Unwanted double-interpolation in string passed to backticks
0.455 ( 12.9/ 28.3) 33 On "for (@foo)"
0.447 ( 3.0/ 6.7) 10 Printing lines out of a text file
0.445 ( 5.8/ 13.1) 12 ActiveState Perl mangles text files
0.440 ( 5.0/ 11.4) 12 How to Pattern match the keys in a hash
0.418 ( 6.3/ 15.0) 14 Effective perl function to remove one element from array?
0.402 ( 4.3/ 10.8) 17 Using Cookies With Perl
0.380 ( 3.5/ 9.3) 13 create directory ...
0.378 ( 3.1/ 8.2) 11 Password scheme/Persistent session...
Bottom 20 Threads by OCR (minimum of ten posts)
===============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.669 ( 5.7 / 8.5) 10 Anonymous
0.634 ( 12.0 / 19.0) 16 Why is this upload script not working
0.576 ( 5.1 / 8.8) 10 Am I a programmer or a scripter?
0.572 ( 14.1 / 24.7) 21 Stat() function fails?
0.561 ( 9.4 / 16.7) 11 Another Dereference Post by me
0.536 ( 8.3 / 15.4) 22 Perl work?
0.535 ( 15.4 / 28.7) 20 Templating system needs help
0.520 ( 4.7 / 9.1) 10 Unpack and checksums
0.486 ( 5.9 / 12.2) 14 Beginner needs help with script :)
0.479 ( 8.8 / 18.4) 19 Map or Regex and Sorting
0.456 ( 5.0 / 11.0) 11 Unwanted double-interpolation in string passed to backticks
0.455 ( 12.9 / 28.3) 33 On "for (@foo)"
0.447 ( 3.0 / 6.7) 10 Printing lines out of a text file
0.445 ( 5.8 / 13.1) 12 ActiveState Perl mangles text files
0.440 ( 5.0 / 11.4) 12 How to Pattern match the keys in a hash
0.418 ( 6.3 / 15.0) 14 Effective perl function to remove one element from array?
0.402 ( 4.3 / 10.8) 17 Using Cookies With Perl
0.380 ( 3.5 / 9.3) 13 create directory ...
0.378 ( 3.1 / 8.2) 11 Password scheme/Persistent session...
0.376 ( 6.0 / 15.8) 17 Login to MS Exchange to send e-mail
21 threads (15%) had at least ten posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
17 comp.lang.awk
17 comp.os.linux.networking
17 comp.os.linux.misc
4 alt.perl
2 comp.mail.imap
2 comp.lang.perl
2 comp.lang.perl.modules
1 comp.lang.perl.tk
1 alt.sex.masturbation
1 comp.unix.shell
Top 15 Crossposters
===================
Articles Address
-------- -------
15 Grant Edwards <grante@visi.com>
12 "Y W Wong" <ywwong_hk@hotmail.com>
12 Petri <Petri_member@newsguy.com>
6 Jeff Breitner <usenet@rudn.com>
3 Gunnar Hjalmarsson <noreply@gunnar.cc>
3 Ben Morrow <usenet@morrow.me.uk>
3 Joe <joe@jretrading.com>
2 Joe Smith <Joe.Smith@inwap.com>
2 mk-2@corena.de
1 JDS <jds@iti-oh.com>
1 krakle <krakle@visto.com>
1 Stephane CHAZELAS <this.address@is.invalid>
1 Richard Bell <rbell001824@earthlink.net>
1 "Player" <notachance@inhell.com>
1 Ratta Newatta <newatta@yahoo.com>
------------------------------
Date: 31 May 2004 03:32:23 -0700
From: mailarunpandey@rediffmail.com (Arun)
Subject: Re: Why is this upload script not working
Message-Id: <a60857e6.0405310232.31ed5c4d@posting.google.com>
You might also want to check the attributes of your form tag
they should contain the attribute ENCTYPE="multipart/form-data"
------------------------------
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 6631
***************************************
