[10183] in Perl-Users-Digest
Perl-Users Digest, Issue: 3776 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 21 11:07:44 1998
Date: Mon, 21 Sep 98 08:01:27 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 21 Sep 1998 Volume: 8 Number: 3776
Today's topics:
Perl module help. andy.williams@clara.net
Re: Perl module help. <gp@gpsoft.de>
Search for special characters? <yakuza@qni.com>
Re: Search for special characters? <eashton@bbnplanet.com>
select (RBITS, WBITS, EBITS, TIMEOUT) problem (polling <ehsmatt@ehpt.com>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 21 Sep 1998 10:01:46 GMT
From: andy.williams@clara.net
Subject: Perl module help.
Message-Id: <6u5869$d82$1@nnrp1.dejanews.com>
Someone please help as this is driving me mad.
I am trying to write a PERL module to wrap around the DBI module.
I have attached all my code at the bottom (including my test script).
All the keys, rows and fields seem to be added to the object ok, but when I
call EachField() to retreive all each field for a particular row, I get the
following error
'Can't call method "EachField" without a package or object reference at
testconnect.pl line 22.'
Thanks in advance.
Andy Williams
======================================
Test Script.
------------
use dbConnect;
$dbC = new dbConnect;
$fh = $dbC->connect("db","user","password");
print $dbC->database . "\t" . $dbC->user . "\t" . $dbC->pass . "\n";
print "Query db\n";
$result = $dbC->query($fh, "select * from test");
print "==================================\n\n\n\n";
foreach $key ($result->EachKey()) {
$name = $key->name();
print "Key = $name\n";
$r = 0;
foreach $row ($key->EachRow()) {
print "\tRow = $row\n";
foreach $field ($row->EachField()) {
print "\t\tField = $field\n";
}
}
}
-----------------------------------------
dbConnect.pm
------------
package dbConnect;
# This is just a rapper for the dbi module
use DBI qw(:sql_types); use dbKey; use vars qw($AUTOLOAD @ISA @EXPORT_OK);
use Exporter; use Carp; use strict; # # Place functions/variables you want to
*export*, ie be visible from the caller package into @EXPORT_OK #
@EXPORT_OK = qw();
#
# @ISA has our inheritance.
#
@ISA = ( 'Exporter' );
my %fields = (
database => undef,
user => undef,
pass => undef,
);
sub new {
my $self = {
'_permitted' => \%fields,
%fields,
};
bless $self;
return $self;
}
sub AUTOLOAD {
my $self = shift;
my $type = ref($self) || carp "Ok, $self is not an object of mine!";
my $name = $AUTOLOAD;
# don't propagate DESTROY messages...
$name =~ /::DESTROY/ && return;
$name =~ s/.*://; #get only the bit we want
unless (exists $self->{'_permitted'}->{$name} ) {
carp "In type $type, can't access $name - probably passed a wrong
variable into dbConnect\n";
}
if (@_) {
return $self->{$name} = shift;
} else {
return $self->{$name}
}
}
sub connect {
my $self = shift;
my $database = shift;
my $user = shift;
my $pass = shift;
my $db;
if ($db = DBI->connect("dbi:ODBC:$database","$user","$pass")) {
$db->{LongReadLen} = 100000;
$db->{LongTruncOk} = 1;
# If connects ok
$self->database($database);
$self->user($user);
$self->pass($pass);
# Return handle
return $db;
} else {
return $db->errstr;
}
}
sub query {
my $self = shift;
my $db = shift;
my $query = shift;
my $blob = shift; # For blob data inserts. ? will be in $query
my $sth = $db->prepare("$query");
return $db->errstr if $db->errstr;
if ($blob) {
$sth->execute($blob);
} else {
$sth->execute;
}
return $db->errstr if $db->errstr;
# Get out all of the data and return in some data structure.
my $result = new dbKey;
my @row;
my $r = 0; # Number of rows.
while (@row = $sth->fetchrow_array) {
# Hashed on the first returned field.
# 2 dimensional array holding results
my $first_element = shift @row;
# add row to results
$result->AddKeyResults($first_element,$r,@row);
$r++;
}
return $result;
}
1;
--------------------------------------------------------------
dbKey.pm
--------
package dbKey;
# This is just a rapper for the dbi module use dbRow; use vars qw($AUTOLOAD
@ISA @EXPORT_OK); use Exporter; use Carp; use strict; # # Place
functions/variables you want to *export*, ie be visible from the caller
package into @EXPORT_OK #
@EXPORT_OK = qw();
#
# @ISA has our inheritance.
#
@ISA = ( 'Exporter' );
my %fields = (
name => undef,
Key => undef,
);
sub new {
my $self = {
'_permitted' => \%fields,
%fields,
};
$self->{'Key'} = {};
bless $self;
return $self;
}
sub AUTOLOAD {
my $self = shift;
my $type = ref($self) || carp "Ok, $self is not an object of mine!";
my $name = $AUTOLOAD;
# don't propagate DESTROY messages...
$name =~ /::DESTROY/ && return;
$name =~ s/.*://; #get only the bit we want
unless (exists $self->{'_permitted'}->{$name} ) {
carp "In type $type, can't access $name - probably passed a wrong
variable into dbRow\n";
}
if (@_) {
return $self->{$name} = shift;
} else {
return $self->{$name}
}
}
sub AddKey {
my $self = shift;
my $key = shift;
my $name;
$name = $key->name();
print "Adding $key to $self\n";
$self->{'Key'}->{$name} = $key;
}
sub EachKey {
my $self = shift;
my $name;
my @array;
#print "I've got a $self\n";
foreach $name (keys %{ $self->{'Key'}}) {
push(@array, $self->{'Key'}->{$name});
}
return @array;
}
sub GetKey {
my $self = shift;
my $key = shift;
my $name;
$name = $self->{'Key'}->{$key};
return $name;
}
sub AddKeyResults {
my $self = shift;
my $key = shift;
my $row = shift;
my @value = @_;
my $t;
if (defined $self->{'Key'}->{$key}) {
print "$key Exists\n";
$t = $self->{'Key'}->{$key};
$t->AddRow($row, @value);
} else {
print "$key is NEW\n";
$t = new dbRow;
$t->name($key);
$t->AddRow(0, @value);
$self->AddKey($t);
}
}
1;
---------------------------------------------------------
dbRow.pm
--------
package dbRow;
use dbFields;
use vars qw($AUTOLOAD @ISA @EXPORT_OK);
use Exporter;
use Carp;
#use strict;
# # Place functions/variables you want to *export*, ie be visible from the
caller package into @EXPORT_OK #
@EXPORT_OK = qw();
#
# @ISA has our inheritance.
#
@ISA = ( 'Exporter' );
my %fields = (
name => undef,
Row => undef,
);
sub new {
my $self = {
'_permitted' => \%fields,
%fields,
};
$self->{'Row'} = [];
bless $self;
return $self;
}
sub AUTOLOAD {
my $self = shift;
my $type = ref($self) || carp "Ok, $self is not an object of mine!";
my $name = $AUTOLOAD;
# don't propagate DESTROY messages...
$name =~ /::DESTROY/ && return;
$name =~ s/.*://; #get only the bit we want
unless (exists $self->{'_permitted'}->{$name} ) {
carp "In type $type, can't access $name - probably passed a wrong
variable into dbRow";
}
if (@_) {
return $self->{$name} = shift;
} else {
return $self->{$name}
}
}
sub AddRow {
my $self = shift;
my $row = shift;
my @fields = @_;
my ($t, $name);
print "Adding Row - $row\n";
print "Adding Row to $self\n";
push ( @{ $self->{'Row'} }, $row);
$t = new dbFields;
$t->name($self->{'Row'}->[$row]);
$t->AddField(@fields);
}
sub EachRow {
my $self = shift;
my @array;
foreach (@{ $self->{'Row'} }) {
print "EachRow... Adding " . $_ . "\n";
push(@array, $_);
}
return @array;
}
1; # says use was ok
-------------------------------------------------------
dbFields.pm
-----------
package dbFields;
use vars qw($AUTOLOAD @ISA @EXPORT_OK);
use Exporter;
use Carp;
use strict;
# # Place functions/variables you want to *export*, ie be visible from the
caller package into @EXPORT_OK #
@EXPORT_OK = qw();
#
# @ISA has our inheritance.
#
@ISA = ( 'Exporter' );
my %fields = (
name => undef,
Fields => undef,
);
sub new {
my $self = {
'_permitted' => \%fields,
%fields,
};
$self->{'Fields'} = [];
bless $self;
return $self;
}
sub AUTOLOAD {
my $self = shift;
my $type = ref($self) || carp "Ok, $self is not an object of mine!";
my $name = $AUTOLOAD;
# don't propagate DESTROY messages...
$name =~ /::DESTROY/ && return;
$name =~ s/.*://; #get only the bit we want
unless (exists $self->{'_permitted'}->{$name} ) {
carp "In type $type, can't access $name - probably passed a wrong
variable into dbFields";
}
if (@_) {
return $self->{$name} = shift;
} else {
return $self->{$name}
}
}
sub AddField {
my $self = shift;
my @fields = @_;
print "Adding - \(\(\(@fields\)\)\) - to " . $self->{'Fields'} . "\n";
push( @{ $self->{'Fields'} }, @fields);
}
sub EachField {
my $self = shift;
my @array;
foreach (@{ $self->{'Fields'} }) {
push(@array, $_);
}
return @array;
}
1; # says use was ok
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 21 Sep 1998 14:16:08 +0100
From: Guenther Pewny <gp@gpsoft.de>
Subject: Re: Perl module help.
Message-Id: <36065197.D50A96C0@gpsoft.de>
andy.williams@clara.net schrieb:
> I am trying to write a PERL module to wrap around the DBI module.
> I have attached all my code at the bottom (including my test script).
>
> All the keys, rows and fields seem to be added to the object ok, but when I
> call EachField() to retreive all each field for a particular row, I get the
> following error
>
> 'Can't call method "EachField" without a package or object reference at
> testconnect.pl line 22.'
Try this in 'dbRow.pm', sub 'AddRow':
Remove the line
push ( @{ $self->{'Row'} }, $row);
and -instead- add the line
push ( @{ $self->{'Row'} }, $t);
AT THE END of the sub's body (after $t creation).
COMMENTS:
1. Your test script expects $key->EachRow() to return an array of references to objects
of type 'dbFields', but it doesn't do so (instead returns an array of scalars).
This causes the error message.
You create dbFields objects ($t), but instead add the scalar value $row to the sub's return list.
2. I think your encapsulation concept leads to misunderstandings:
Your object types (dbKey, dbRow, ...) don't represent keys, rows, ....
They represent LISTS OF keys, rows,... .
In your test script the index variables don't have the meanings for which their names stand for:
$key contains NO key; it contains a dbRow object (reference).
$row contains NO row; it contains a dbFields object (reference) <- AFTER correction
Perhaps you should rewrite your code so that a
(new object type) represents the query result which has many keys
dbKey object represents ONE key which has many rows (can a key have more than one row?)
dbRow object represents ONE row, which has many fields
dbField object represents ONE field, which has ONE value
or similar.
Hope that helps
G|nther Pewny
------------------------------
Date: Mon, 21 Sep 1998 07:44:38 -0500
From: "yakuza" <yakuza@qni.com>
Subject: Search for special characters?
Message-Id: <6u5hj6$jmh$1@scoop.suba.com>
I am currently developing a website that allows users to search large text
files for a word they type in. I've run across a couple problems I can't
find a solution for:
1. I need to allow the users to search for special characters such as a
"$". How do I allow the search without requiring the user to type in the
escape character?
2. One of the text files is exported from a MS Access database. Each record
includes line and paragraph breaks as well as lots of quotes and other
special characters (movie dialog). My client wants users to have the
capability to search the entire contents of each record and display the
record with the same formatting that it had originally. Is this possible?
Thanks in advance for your help,
Amber Hayes
yakuza@qni.com
------------------------------
Date: Mon, 21 Sep 1998 14:43:25 GMT
From: Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
Subject: Re: Search for special characters?
Message-Id: <360663A4.E7747EAA@bbnplanet.com>
yakuza wrote:
> 1. I need to allow the users to search for special characters such as a
> "$". How do I allow the search without requiring the user to type in the
> escape character?
You could parse the query and escape it on the fly with a nice regex.
Requiring the user to type "\" is asking way too much indeed.
> 2. One of the text files is exported from a MS Access database. Each record
> includes line and paragraph breaks as well as lots of quotes and other
> special characters (movie dialog). My client wants users to have the
> capability to search the entire contents of each record and display the
> record with the same formatting that it had originally. Is this possible?
Well, it depends, how does it look in the current database? You would
probably want to either dump the database to a flat text file if this is
a query only application in order to get a more reasonable data file.
Once you get the data in a dealable format you can format it any way you
like in the output.
Also, are you familiar with ASP? If your boss wants the same look and
feel of Access with search pages then you might save yourself a lot of
time by researching that.
e.
"All of us, all of us, all of us trying to save our immortal souls, some
ways seemingly more round-about and mysterious than others. We're having
a good time here. But hope all will be revealed soon." R. Carver
------------------------------
Date: Mon, 21 Sep 1998 11:46:32 +0200
From: Mattias Petersson EHS/SKA 81306 62067 <ehsmatt@ehpt.com>
Subject: select (RBITS, WBITS, EBITS, TIMEOUT) problem (polling of filehandles)
Message-Id: <36062077.6DCC042E@ehpt.com>
I try to use the Perl function:
select (RBITS, WBITS, EBITS, TIMEOUT)
I have problems, because I want to poll
the filehandles FILE1 and STDIN. If there are data
to read on either filehandle, I want to do different things.
It seems like select() is always returning value 1 even though
there aren't any data to read at the moment on FILE1.
Any Perl -guru out there who sees my problem?
Mattias Petersson
My script looks like this:
open FILE1, "fmrout|";
print "Opened file...\n";
$rin = $win = $ein ="";
vec($rin, fileno(FILE1), 1) = 1;
vec($win, fileno(STDIN), 1) = 1;
$ein = $rin | $win;
while (1) {
$nfound = select ($rout=$rin, $wout=$win, $eout=$ein, 0); #I
thought that this makes the poll, right?
if ($nfound == 1) {
$line = <FILE1>;
print $line;
} elsif ($nfound == 2) {
$line =<STDIN>;
print "Action received: $line";
}
sleep 1;
}
close FILE1;
print "Closed file...\n";
--
Mattias Petersson
Ericsson Hewlett-Packard Telecom | phone: +46 (0) 31 7462067
P.O. Box 333 | fax: +46 (0) 31 7462375
S-431 24 MOLNDAL,Sweden | email: ehsmatt@<nospam>ehpt.com
------------------------------
Date: 21 Sep 1998 14:37:49 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <6u5obt$ia6$6@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 14 Sep 1998 14:34:39 GMT and ending at
21 Sep 1998 07:51:29 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) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@mox\.perl\.com
Totals
======
Posters: 522
Articles: 1533 (608 with cutlined signatures)
Threads: 413
Volume generated: 2859.9 kb
- headers: 1149.6 kb (21,823 lines)
- bodies: 1594.9 kb (48,388 lines)
- original: 1009.8 kb (34,159 lines)
- signatures: 113.9 kb (2,272 lines)
Original Content Rating: 0.633
Averages
========
Posts per poster: 2.9
median: 1.0 post
mode: 1 post - 324 posters
s: 5.7 posts
Posts per thread: 3.7
median: 2 posts
mode: 1 post - 140 threads
s: 9.3 posts
Message size: 1910.3 bytes
- header: 767.9 bytes (14.2 lines)
- body: 1065.3 bytes (31.6 lines)
- original: 674.5 bytes (22.3 lines)
- signature: 76.1 bytes (1.5 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
59 128.8 ( 50.0/ 67.4/ 29.1) abigail@fnx.com
53 105.8 ( 50.1/ 55.2/ 34.3) Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
46 65.1 ( 25.7/ 39.4/ 31.8) mjd@op.net (Mark-Jason Dominus)
43 72.8 ( 27.5/ 40.3/ 24.6) lr@hpl.hp.com (Larry Rosler)
31 118.0 ( 33.2/ 73.9/ 43.8) Zenin <zenin@bawdycaste.org>
30 54.4 ( 23.4/ 23.3/ 12.1) rjk@coos.dartmouth.edu (Ronald J Kimball)
29 124.7 ( 31.6/ 87.4/ 32.9) George Reese <borg@imaginary.com>
22 39.3 ( 14.7/ 24.6/ 15.4) Craig Berry <cberry@cinenet.net>
21 36.6 ( 15.5/ 21.1/ 11.1) dragons@scescape.net (Matthew Bafford)
20 62.1 ( 18.2/ 41.8/ 17.5) sholden@pgrad.cs.usyd.edu.au (Sam Holden)
These posters accounted for 23.1% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
128.8 ( 50.0/ 67.4/ 29.1) 59 abigail@fnx.com
124.7 ( 31.6/ 87.4/ 32.9) 29 George Reese <borg@imaginary.com>
118.0 ( 33.2/ 73.9/ 43.8) 31 Zenin <zenin@bawdycaste.org>
105.8 ( 50.1/ 55.2/ 34.3) 53 Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
72.8 ( 27.5/ 40.3/ 24.6) 43 lr@hpl.hp.com (Larry Rosler)
65.1 ( 25.7/ 39.4/ 31.8) 46 mjd@op.net (Mark-Jason Dominus)
62.1 ( 18.2/ 41.8/ 17.5) 20 sholden@pgrad.cs.usyd.edu.au (Sam Holden)
54.4 ( 23.4/ 23.3/ 12.1) 30 rjk@coos.dartmouth.edu (Ronald J Kimball)
39.3 ( 14.7/ 24.6/ 15.4) 22 Craig Berry <cberry@cinenet.net>
36.6 ( 15.5/ 21.1/ 11.1) 21 dragons@scescape.net (Matthew Bafford)
These posters accounted for 28.2% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 6.2 / 6.2) 5 jari.aalto@poboxes.com (Jari Aalto+mail.perl)
0.968 ( 12.4 / 12.8) 12 gebis@fee.ecn.purdue.edu (Michael J Gebis)
0.939 ( 18.2 / 19.4) 8 Greg Bacon <gbacon@cs.uah.edu>
0.869 ( 2.9 / 3.3) 5 Daniel Grisinger <dgris@rand.dimensional.com>
0.862 ( 2.4 / 2.8) 6 syarbrou@ais.net (Steve .)
0.828 ( 7.6 / 9.2) 9 bill@fccj.org
0.818 ( 14.6 / 17.9) 17 Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
0.807 ( 31.8 / 39.4) 46 mjd@op.net (Mark-Jason Dominus)
0.788 ( 5.3 / 6.7) 8 aml@world.std.com (Andrew M. Langmead)
0.770 ( 15.0 / 19.5) 7 Andrew Dalke <dalke@bioreason.com>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.423 ( 1.9 / 4.5) 6 "Jay Guerette" <JayGuerette@pobox.com>
0.418 ( 17.5 / 41.8) 20 sholden@pgrad.cs.usyd.edu.au (Sam Holden)
0.410 ( 2.3 / 5.7) 11 Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
0.392 ( 4.9 / 12.4) 8 Patricia Shanahan <pats@acm.org>
0.377 ( 32.9 / 87.4) 29 George Reese <borg@imaginary.com>
0.376 ( 2.6 / 6.8) 10 Randal Schwartz <merlyn@stonehenge.com>
0.373 ( 1.4 / 3.7) 6 "Matthew O. Persico" <mpersico@erols.com>
0.279 ( 2.6 / 9.3) 12 Sam Wang <samwang@freewwweb.com>
0.262 ( 1.6 / 6.2) 7 phenix@interpath.com (John Moreno)
0.197 ( 2.5 / 12.6) 6 Ben Sauvin <sauvin@osmic.com>
68 posters (13%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
155 Perl & Java - differences and uses
94 how safe is xor encryption ?
33 any way to encrypt my script?
29 Who posts original posts on CLPM?
26 even/odd numbers
18 Can I foreach multiple arrays?
17 script: scriptMangle!
16 where is Date::Parse?
16 assigning file contents to a string
13 mod function in PERL?
These threads accounted for 27.2% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
544.0 (165.2/354.2/183.3) 155 Perl & Java - differences and uses
198.2 ( 74.2/118.7/ 78.5) 94 how safe is xor encryption ?
76.8 ( 29.0/ 46.6/ 22.4) 29 Who posts original posts on CLPM?
50.7 ( 26.5/ 21.2/ 13.5) 33 any way to encrypt my script?
46.6 ( 19.8/ 23.7/ 13.8) 26 even/odd numbers
39.2 ( 12.9/ 25.2/ 19.7) 17 script: scriptMangle!
27.6 ( 14.1/ 11.6/ 7.4) 18 Can I foreach multiple arrays?
26.0 ( 11.2/ 14.0/ 6.8) 16 assigning file contents to a string
25.9 ( 11.3/ 12.7/ 9.0) 16 where is Date::Parse?
21.6 ( 8.2/ 12.7/ 5.7) 10 milliseconds?
These threads accounted for 37.0% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.868 ( 5.6/ 6.4) 5 Kermit Speaks
0.839 ( 2.7/ 3.2) 6 STD I/O for WIN32 Perl
0.832 ( 3.4/ 4.1) 5 PERL routine using wtmp?
0.796 ( 3.0/ 3.8) 5 what's wrong with win32 perl ?
0.792 ( 4.7/ 5.9) 6 A real dumb PERL question...
0.784 ( 2.4/ 3.0) 5 Stripping Trailing Spaces - How?
0.782 ( 19.7/ 25.2) 17 script: scriptMangle!
0.777 ( 4.0/ 5.1) 6 Javascript or Perl or Java?
0.775 ( 4.4/ 5.7) 5 Interesting method technique: Default $self
0.750 ( 1.3/ 1.7) 5 Diff between two text files
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.488 ( 5.2 / 10.7) 6 print statement in perl
0.486 ( 1.9 / 4.0) 5 Help Configuring IIS 4.0
0.486 ( 6.8 / 14.0) 16 assigning file contents to a string
0.480 ( 2.1 / 4.3) 6 Perl implementation question
0.480 ( 22.4 / 46.6) 29 Who posts original posts on CLPM?
0.450 ( 5.7 / 12.7) 10 milliseconds?
0.427 ( 2.4 / 5.7) 6 Regex strange behavior
0.415 ( 1.7 / 4.1) 6 downloading a file using perl...
0.413 ( 3.4 / 8.3) 6 What is Perl related? [was Re: how safe is xor encryption ?]
0.397 ( 3.2 / 8.1) 9 passing argument !!!!
74 threads (17%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
142 comp.lang.java.programmer
70 comp.lang.python
28 comp.lang.perl.modules
14 comp.lang.perl.moderated
10 comp.lang.perl
6 comp.infosystems.www.servers.unix
5 misc.jobs.offered
5 comp.infosystems.www.authoring.tools
5 comp.lang.java.softwaretools
5 us.jobs.offered
Top 10 Crossposters
===================
Articles Address
-------- -------
36 Zenin <zenin@bawdycaste.org>
33 George Reese <borg@imaginary.com>
30 hdoyle@diveweb.com
20 ka0osk@creighton.edu
17 abigail@fnx.com
15 Vincent Lowe <vincent@compclass.com>
12 John Porter <jdporter@min.net>
11 Andrew Dalke <dalke@bioreason.com>
11 Patricia Shanahan <pats@acm.org>
11 "Garrett G. Hodgson" <garry@sage.att.com>
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 3776
**************************************
