[17342] in Perl-Users-Digest
Perl-Users Digest, Issue: 4764 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 30 14:20:47 2000
Date: Mon, 30 Oct 2000 11:20:26 -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: <972933626-v9-i4764@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 30 Oct 2000 Volume: 9 Number: 4764
Today's topics:
Linked lists (Anno Siegel)
Re: Linked lists (Mark-Jason Dominus)
Re: Linked lists (Tom Christiansen)
Re: Linked lists mexicanmeatballs@my-deja.com
Re: Linked lists (Anno Siegel)
Re: Linked lists mexicanmeatballs@my-deja.com
Re: Linked lists (Tom Christiansen)
Re: Linked lists <uri@sysarch.com>
Re: Linked lists (Mark-Jason Dominus)
Re: Linked lists (Anno Siegel)
Re: Linked lists (Mark-Jason Dominus)
Re: Linked lists (Anno Siegel)
Re: Linked lists <uri@sysarch.com>
Need help with ~/.rpmrc <gena@mailcity.com>
Need help with ~/.rpmrc <gena@mailcity.com>
Re: Need help with ~/.rpmrc nobull@mail.com
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Newbie Q <ren.maddox@tivoli.com>
Perl e-learning cd comments jzalog@yahoo.com
Perl, DBI, and Oracle 8i <al_meilinger@meilinger.com>
Re: Perl/cgi coder salaries <mischief@velma.motion.net>
Re: Perl/cgi coder salaries <jboes@eomonitor.com>
Re: Perl/cgi coder salaries (Randal L. Schwartz)
PerlMagick quality of Annotate in animated GIF nobody@nobody.com
Query (Learning perl) v_v_n@my-deja.com
Re: Sending image into server. nobull@mail.com
signal "CTRL-x" <cpegbeggar@mail.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 30 Oct 2000 17:21:42 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Linked lists
Message-Id: <8tkan6$f9s$1@lublin.zrz.tu-berlin.de>
Keywords: Colosseum, devotee, pod, splintery
Mark-Jason Dominus <mjd@plover.com> wrote in comp.lang.perl.misc:
>In article <8tjq9n$eoo$1@lublin.zrz.tu-berlin.de>,
>Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
>>It is hard to see how arrays could replace linked lists without
>>spoiling the effect of sparse matrix storage.
>
>In Perl, it is often better to use a hash rather than a linked
>>structure.
>
> $h{100,200} = 'Red'; # Sparse matrix
>
True. But please admit that storing a pair of integers as a string
concatenation of two decimals an an obscure separator, and retrieving
them with the equivalent of "split /$;/" is revolting!
$h{ pack 'N*', 100, 200} = 'Red'; # now we can talk...
It's also quite a bit faster. Maybe we should tell people to prefix
the indexes with "pack 'N*'," for multidimensional arrays.
Anno
------------------------------
Date: Mon, 30 Oct 2000 16:33:41 GMT
From: mjd@plover.com (Mark-Jason Dominus)
Subject: Re: Linked lists
Message-Id: <39fda2e5.ce1$224@news.op.net>
Keywords: Argus, consign, fog, somnolent
In article <8tjq9n$eoo$1@lublin.zrz.tu-berlin.de>,
Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
>It is hard to see how arrays could replace linked lists without
>spoiling the effect of sparse matrix storage.
In Perl, it is often better to use a hash rather than a linked
>structure.
$h{100,200} = 'Red'; # Sparse matrix
------------------------------
Date: 30 Oct 2000 10:28:14 -0700
From: tchrist@perl.com (Tom Christiansen)
Subject: Re: Linked lists
Message-Id: <39fdafae$1@cs.colorado.edu>
Keywords: Colosseum, devotee, pod, splintery
In article <8tkan6$f9s$1@lublin.zrz.tu-berlin.de>,
Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
>> $h{100,200} = 'Red'; # Sparse matrix
>True. But please admit that storing a pair of integers as a string
>concatenation of two decimals an an obscure separator, and retrieving
>them with the equivalent of "split /$;/" is revolting!
I think not. It's definitely notationally convenient, and you're
hyperfocusing on the underlying implementation. Mark is quite
right.
>
> $h{ pack 'N*', 100, 200} = 'Red'; # now we can talk...
Now *that* is revolting and obscure, and a pleasure to look
at in the debugger I assure you.
>It's also quite a bit faster.
No, it's not.
--tom
------------------------------
Date: Mon, 30 Oct 2000 17:44:52 GMT
From: mexicanmeatballs@my-deja.com
Subject: Re: Linked lists
Message-Id: <8tkc2i$ro4$1@nnrp1.deja.com>
In article <8tk8g0$f5l$1@lublin.zrz.tu-berlin.de>,
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote:
> Mark-Jason Dominus <mjd@plover.com> wrote in comp.lang.perl.misc:
> >In article <8tjq9n$eoo$1@lublin.zrz.tu-berlin.de>,
> >Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
> >>It is hard to see how arrays could replace linked lists without
> >>spoiling the effect of sparse matrix storage.
> >
> >In Perl, it is often better to use a hash rather than a linked
> >>structure.
> >
> > $h{100,200} = 'Red'; # Sparse matrix
> >
>
> True. But please admit that storing a pair of integers as a string
> concatenation of two decimals an an obscure separator, and retrieving
> them with the equivalent of "split /$;/" is revolting!
>
Well, you don't have to go to strings:
$h{100,200}=[14,17];
my ($n, $m) = @{$h{100,200}};
Still ugly though, need something more struct-like.
Maybe objects..
package Item;
sub new {
my $class=shift;
my $this=[shift,shift];
bless($this, $class);
}
sub values{ @{$_[0]}; }
1;
$h{100,200}=Item->new(14,17);
print $h{100,200}->values,"\n";
Now it's long winded, but at least I escaped the split monster..
--
Jon
perl -e 'print map {chr(ord($_)-3)} split //, "MrqEdunhuClqdph1frp";'
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 30 Oct 2000 17:53:50 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Linked lists
Message-Id: <8tkcje$fbg$1@lublin.zrz.tu-berlin.de>
Keywords: Colosseum, devotee, pod, splintery
Tom Christiansen <tchrist@perl.com> wrote in comp.lang.perl.misc:
>In article <8tkan6$f9s$1@lublin.zrz.tu-berlin.de>,
>Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
>>> $h{100,200} = 'Red'; # Sparse matrix
>>True. But please admit that storing a pair of integers as a string
>>concatenation of two decimals an an obscure separator, and retrieving
>>them with the equivalent of "split /$;/" is revolting!
>
>I think not. It's definitely notationally convenient, and you're
>hyperfocusing on the underlying implementation. Mark is quite
>right.
Yes. I was only half serious. I note though, that in advising me
to ignore the implementation you concede that it *is* revolting to
treat a nice pair of integers like that.
>>
>> $h{ pack 'N*', 100, 200} = 'Red'; # now we can talk...
>
>Now *that* is revolting and obscure, and a pleasure to look
>at in the debugger I assure you.
>
>>It's also quite a bit faster.
>
>No, it's not.
Hmmm... the art of benchmarking. First tests showed me "pack" almost
five times faster than the 2-dim array; this is why I posted the pack
suggestion at all. More benchmarks show that the gain is insignificant
in general.
Anno
------------------------------
Date: Mon, 30 Oct 2000 17:47:08 GMT
From: mexicanmeatballs@my-deja.com
Subject: Re: Linked lists
Message-Id: <8tkc6p$rr5$1@nnrp1.deja.com>
Oops, brain damage, I'm with you now..
--
Jon
perl -e 'print map {chr(ord($_)-3)} split //, "MrqEdunhuClqdph1frp";'
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 30 Oct 2000 11:05:27 -0700
From: tchrist@perl.com (Tom Christiansen)
Subject: Re: Linked lists
Message-Id: <39fdb867@cs.colorado.edu>
Keywords: Colosseum, devotee, pod, splintery
In article <8tkcje$fbg$1@lublin.zrz.tu-berlin.de>,
Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
>Hmmm... the art of benchmarking. First tests showed me "pack" almost
>five times faster than the 2-dim array; this is why I posted the pack
>suggestion at all. More benchmarks show that the gain is insignificant
>in general.
Actually, some show it as a(n insignificant) loss:
use Benchmark;
timethese 0 => {
real => q{ $h{100,200} = "Red"; },
packed => q{ $h{ pack "N*", 100, 200} = "Red"; },
};
timethese 0 => {
real => sub { $h{100,200} = "Red"; },
packed => sub { $h{ pack "N*", 100, 200} = "Red"; },
};
Produces (edited/abbreviated):
With q{}:
packed: @ 189797.39/s (n=582678)
real: @ 201621.90/s (n=616963)
With sub{}:
packed: @ 146151.58/s (n=461839)
real: @ 137859.94/s (n=437016)
But the difference either way is too small to concern oneself with.
Of more interest are the dramatic differences between the q/sub
results.
--tom
------------------------------
Date: Mon, 30 Oct 2000 18:20:47 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Linked lists
Message-Id: <x77l6qjim8.fsf@home.sysarch.com>
>>>>> "AS" == Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> writes:
AS> Mark-Jason Dominus <mjd@plover.com> wrote in comp.lang.perl.misc:
>> In Perl, it is often better to use a hash rather than a linked
>>> structure.
>>
>> $h{100,200} = 'Red'; # Sparse matrix
>>
AS> True. But please admit that storing a pair of integers as a string
AS> concatenation of two decimals an an obscure separator, and retrieving
AS> them with the equivalent of "split /$;/" is revolting!
what is this about split? the idea is to insert and delete intot he
sparse matrix. finding which elements are set and their indexes is a
different (and more annoying here) problem. if you have the indexes you
can simulate a sparse matrix very simply with that construct. i might
not use it but it should be known that it can be used for it.
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, 30 Oct 2000 18:43:34 GMT
From: mjd@plover.com (Mark-Jason Dominus)
Subject: Re: Linked lists
Message-Id: <39fdc155.1036$347@news.op.net>
Keywords: chorine, complex, foxy, safari
In article <8tk8g0$f5l$1@lublin.zrz.tu-berlin.de>,
Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
>But please admit that [this] is revolting!
I don't find it revolting. To me it seems simple, convenient,
straightforward, and efficient.
------------------------------
Date: 30 Oct 2000 18:45:13 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Linked lists
Message-Id: <8tkfjp$feh$1@lublin.zrz.tu-berlin.de>
Keywords: Colosseum, devotee, pod, splintery
Tom Christiansen <tchrist@perl.com> wrote in comp.lang.perl.misc:
> use Benchmark;
>
> timethese 0 => {
> real => q{ $h{100,200} = "Red"; },
> packed => q{ $h{ pack "N*", 100, 200} = "Red"; },
> };
>
> timethese 0 => {
> real => sub { $h{100,200} = "Red"; },
> packed => sub { $h{ pack "N*", 100, 200} = "Red"; },
> };
>
>Produces (edited/abbreviated):
>
>With q{}:
>
> packed: @ 189797.39/s (n=582678)
> real: @ 201621.90/s (n=616963)
>
>With sub{}:
>
> packed: @ 146151.58/s (n=461839)
> real: @ 137859.94/s (n=437016)
>
>But the difference either way is too small to concern oneself with.
>Of more interest are the dramatic differences between the q/sub
>results.
Of interest, but not entirely unexpected. It shows that the call
overhead is comparable in execution time to a single Perl instruction.
I guess the rule is, use quoted code if you can, use a coderef if you
must. The difference is, of course, that a sub is compiled in your
name space and, more importantly, your scope of lexicals, whereas
a line of code is compiled somewhere in the guts of the Benchmark
module, probably in your name space but certainly with no access to
your lexicals.
Anno
------------------------------
Date: Mon, 30 Oct 2000 18:53:11 GMT
From: mjd@plover.com (Mark-Jason Dominus)
Subject: Re: Linked lists
Message-Id: <39fdc397.1070$364@news.op.net>
Keywords: Colosseum, devotee, pod, splintery
In article <8tkfjp$feh$1@lublin.zrz.tu-berlin.de>,
Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
>I guess the rule is, use quoted code if you can, use a coderef if you
>must.
I thought that the rule was that you should never use this:
>> timethese 0 => {
>> real => sub { $h{100,200} = "Red"; },
>> packed => sub { $h{ pack "N*", 100, 200} = "Red"; },
>> };
Instead, always use this:
>> timethese 0 => {
null => sub { },
>> real => sub { $h{100,200} = "Red"; },
>> packed => sub { $h{ pack "N*", 100, 200} = "Red"; },
>> };
And then compare (real - null)/(packed - null) instead of comparing
real/packed.
I don't know why Benchmark.pm doesn't do this automatically. I guess
it is a benefit, because it shows me who isn't thinking about what
they are doing.
------------------------------
Date: 30 Oct 2000 19:00:12 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Linked lists
Message-Id: <8tkgfs$fgn$1@lublin.zrz.tu-berlin.de>
Uri Guttman <uri@sysarch.com> wrote in comp.lang.perl.misc:
>>>>>> "AS" == Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> writes:
>
> AS> Mark-Jason Dominus <mjd@plover.com> wrote in comp.lang.perl.misc:
>
> >> In Perl, it is often better to use a hash rather than a linked
> >>> structure.
> >>
> >> $h{100,200} = 'Red'; # Sparse matrix
> >>
>
> AS> True. But please admit that storing a pair of integers as a string
> AS> concatenation of two decimals an an obscure separator, and retrieving
> AS> them with the equivalent of "split /$;/" is revolting!
>
>what is this about split? the idea is to insert and delete intot he
>sparse matrix. finding which elements are set and their indexes is a
>different (and more annoying here) problem. if you have the indexes you
>can simulate a sparse matrix very simply with that construct. i might
>not use it but it should be known that it can be used for it.
True, if it's all about storing and retrieving elements. If you want
to use it as a matrix, you'll want to walk through it by rows or columns.
With this implementation, you'll either have to give up the advantage
of a sparse matrix and scan the whole row, or you'll do ugly things
with keys, grep, sort and an occasional split thrown in.
Seen this way, a linked-list implementation still has its attractions.
Anno
------------------------------
Date: Mon, 30 Oct 2000 19:03:55 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Linked lists
Message-Id: <x71ywyjgmc.fsf@home.sysarch.com>
>>>>> "MD" == Mark-Jason Dominus <mjd@plover.com> writes:
MD> And then compare (real - null)/(packed - null) instead of comparing
MD> real/packed.
MD> I don't know why Benchmark.pm doesn't do this automatically. I
MD> guess it is a benefit, because it shows me who isn't thinking
MD> about what they are doing.
from Benchmark.pm, under Notes:
The time of the null loop (a loop with the same number of
rounds but empty loop body) is subtracted from the time of
the real loop.
it has been disputed how accurate this is. but a basic null benchmark
loop is accounted for. a null sub call is useful to remove that
overhead, but it is not obvious that a null q{} loop is meaningful.
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, 30 Oct 2000 17:15:45 GMT
From: guest <gena@mailcity.com>
Subject: Need help with ~/.rpmrc
Message-Id: <39FDACC1.5C6AF58F@mailcity.com>
#!/usr/bin/perl -w
require "html.pl";
my $version = `cat /opt/apps/bin/apps_VERSION`;
my $date = `rpm -q --queryformat
'%{NAME}-%{VERSION}-%{RELEASE}\n%{INSTALLTIME:date}\n' apps`;
&ch_start_html();
print $version;
print $date;
&ch_end_html();
Running above script produces this error in the
/var/log/httpd/error_log:
Cannot expand ~/.rpmrc
The system runs as nobody, so I assume it does not know where to look
for .rpmrc.
Though I coppied it into /etc so there would be a global rpmrc.
I set the permissions to 777 for all participating files.
The question is how can I then resolve this, create .rpmrc somewhre ...?
Thanks.
------------------------------
Date: Mon, 30 Oct 2000 17:43:40 GMT
From: guest <gena@mailcity.com>
Subject: Need help with ~/.rpmrc
Message-Id: <39FDB34C.B80F6DC7@mailcity.com>
#!/usr/bin/perl -w
require "html.pl";
my $version = `cat /opt/apps/bin/apps_VERSION`; #this one
works
my $date = `rpm -q --queryformat
'%{NAME}-%{VERSION}-%{RELEASE}\n%{INSTALLTIME:date}\n' apps`;
&ch_start_html();
print $version; #this one
works
print $date; #this one
doesn't
&ch_end_html();
Running above script produces this error in the
/var/log/httpd/error_log:
Cannot expand ~/.rpmrc
The system runs as nobody, so I assume it does not know where to look
for .rpmrc.
Though I coppied it into /etc so there would be a global rpmrc.
I set the permissions to 777 for all participating files.
From prompt line it works fine.
The question is how can I then resolve this, create .rpmrc somewhre ...?
Thanks.
------------------------------
Date: 30 Oct 2000 17:59:22 +0000
From: nobull@mail.com
Subject: Re: Need help with ~/.rpmrc
Message-Id: <u9u29unrb9.fsf@wcl-l.bham.ac.uk>
guest <gena@mailcity.com> writes something that has nothing whatever to
do with Perl:
> my $date = `rpm -q --queryformat
> '%{NAME}-%{VERSION}-%{RELEASE}\n%{INSTALLTIME:date}\n' apps`;
You are getting an error you don't understand from an external program
that you are calling from Perl. There is no reason to think the fact
that you are calling it from Perl is significant. Please only post
questions here if there is some reason to suspect that they may be
related to Perl in some way.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 30 Oct 2000 16:53:25 -0000
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <svr9s52ldtv5b8@corp.supernews.com>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 23 Oct 2000 16:35:04 GMT and ending at
30 Oct 2000 13:36:28 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 2000 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 202 (43.7% of all posters)
Articles: 381 (24.8% of all articles)
Volume generated: 628.3 kb (23.2% of total volume)
- headers: 302.4 kb (6,069 lines)
- bodies: 313.6 kb (10,641 lines)
- original: 204.5 kb (7,503 lines)
- signatures: 11.8 kb (341 lines)
Original Content Rating: 0.652
Averages
========
Posts per poster: 1.9
median: 1.0 post
mode: 1 post - 135 posters
s: 2.5 posts
Message size: 1688.6 bytes
- header: 812.9 bytes (15.9 lines)
- body: 842.9 bytes (27.9 lines)
- original: 549.7 bytes (19.7 lines)
- signature: 31.8 bytes (0.9 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
20 47.6 ( 21.1/ 20.3/ 13.2) jihad.battikha@sharewire.com
20 22.2 ( 15.2/ 6.9/ 6.4) xerxes_2k@my-deja.com
14 25.2 ( 13.9/ 11.2/ 7.1) "The Moriman" <themoriman@ntlworld.com>
8 10.5 ( 7.2/ 3.3/ 2.0) Alex Fitterling <fe8x025@public.uni-hamburg.de>
7 17.6 ( 6.8/ 10.8/ 5.3) "Ed Grosvenor" <secursrver@hotmail.com>
6 6.4 ( 3.1/ 3.3/ 3.2) Tarael200 <tarael200@aol.com>
6 12.1 ( 4.2/ 7.3/ 3.3) William Lewis Brown <bbrown@addtoit.com>
5 5.6 ( 3.1/ 2.5/ 1.3) /michael
5 7.1 ( 4.4/ 2.7/ 1.4) steve@dvd.net.au
5 8.6 ( 3.8/ 4.8/ 2.4) fallenang3l@my-deja.com
These posters accounted for 6.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
47.6 ( 21.1/ 20.3/ 13.2) 20 jihad.battikha@sharewire.com
25.2 ( 13.9/ 11.2/ 7.1) 14 "The Moriman" <themoriman@ntlworld.com>
22.2 ( 15.2/ 6.9/ 6.4) 20 xerxes_2k@my-deja.com
17.6 ( 6.8/ 10.8/ 5.3) 7 "Ed Grosvenor" <secursrver@hotmail.com>
12.1 ( 4.2/ 7.3/ 3.3) 6 William Lewis Brown <bbrown@addtoit.com>
10.5 ( 7.2/ 3.3/ 2.0) 8 Alex Fitterling <fe8x025@public.uni-hamburg.de>
9.9 ( 2.5/ 7.3/ 2.1) 3 Steve Flitman <sflitman@xenoscience.com>
9.8 ( 3.8/ 6.0/ 3.6) 5 msalerno@my-deja.com
9.6 ( 4.1/ 5.5/ 2.9) 5 Josef Moellers <josef.moellers@fujitsu-siemens.com>
8.6 ( 3.0/ 4.5/ 2.6) 4 Darren Dunham <ddunham@redwood.taos.com>
These posters accounted for 6.4% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.3 / 1.3) 3 Phil xxx <phil_xxx@my-deja.com>
1.000 ( 2.3 / 2.3) 3 "Brian Reichholf" <brian@reichholf.at>
0.977 ( 3.2 / 3.3) 6 Tarael200 <tarael200@aol.com>
0.956 ( 1.4 / 1.4) 4 "Michael Frost" <micfrost@worldonline.dk>
0.931 ( 6.4 / 6.9) 20 xerxes_2k@my-deja.com
0.919 ( 2.5 / 2.7) 3 joelyhughes@my-deja.com
0.856 ( 2.3 / 2.7) 3 Alex Pomeranz <pomeranz@runner.ucdavis.edu>
0.808 ( 4.4 / 5.4) 3 mischief@velma.motion.net
0.786 ( 0.5 / 0.6) 3 "Teemu Oksanen" <teemu.oksanen@luukku.com>
0.767 ( 2.5 / 3.3) 3 "joe cipale" <jcipale@hotmail.com>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.493 ( 5.3 / 10.8) 7 "Ed Grosvenor" <secursrver@hotmail.com>
0.482 ( 1.6 / 3.4) 3 T <tommylebrun@yahoo.com>
0.472 ( 1.0 / 2.0) 3 "Jason Chung" <jason99992000@yahoo.com>
0.465 ( 1.5 / 3.1) 5 5defcon5@my-deja.com
0.446 ( 1.6 / 3.5) 3 s_punk@my-deja.com
0.444 ( 3.3 / 7.3) 6 William Lewis Brown <bbrown@addtoit.com>
0.413 ( 0.9 / 2.2) 3 Young H Lee <yhlee@red.seas.upenn.edu>
0.389 ( 0.8 / 2.2) 3 "MNJP" <not.my.real.email@bellglobal.com>
0.290 ( 2.1 / 7.3) 3 Steve Flitman <sflitman@xenoscience.com>
0.262 ( 0.2 / 1.0) 3 "Nathan Going" <nathangoing@yahoo.com>
36 posters (17%) had at least three posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
43 comp.lang.perl.modules
13 alt.perl
9 comp.lang.perl.moderated
8 comp.lang.perl
7 de.comp.lang.perl.misc
4 comp.os.ms-windows.nt
4 comp.lang.c++
4 comp.lang.c
2 alt.comp.lang.superlang
2 comp.os.linux.advocacy
Top 10 Crossposters
===================
Articles Address
-------- -------
4 Phil xxx <phil_xxx@my-deja.com>
4 AndreasKleiner <AndreasKleiner@compuserve.de>
3 AH <ahr@ti.allieur.no.com>
3 "Onegin" <usenetjournal@hotmail.com>
2 joelwebb@usa.net
2 5defcon5@my-deja.com
2 gena@mailcity.com
2 "Frank Smith" <frank@eentertainment.net>
1 gartim@ix.netcom.com
1 xzrgpnys@yvtugubhfrovm.pbz
------------------------------
Date: 30 Oct 2000 10:49:15 -0600
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: Newbie Q
Message-Id: <m3r94yl1f8.fsf@dhcp11-177.support.tivoli.com>
matthew.planchant@virgin.net (Des) writes:
> If anyone could help me with my little problem then I would be very
> grateful.
>
> I'm trying to generate a 6 digit random number i.e. 789342. I've used
> rand to generate a number between 0..1 and multiplied that by 100000
> but now im stuck with the decimal part. How can I get rid of it?
>
> i.e. make 123456.098765 into 123456?
perldoc -f int
Also, you can pass rand an expression and avoid the multiply:
perldoc -f rand
If you want numbers from 0 to 999999, use:
my $rand_num = int rand 1_000_000;
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Mon, 30 Oct 2000 17:07:05 GMT
From: jzalog@yahoo.com
Subject: Perl e-learning cd comments
Message-Id: <8tk9ri$pjl$1@nnrp1.deja.com>
I am a new user to Perl, and wanted to know if anyone has used the set
of e-learning Perl cd's from a company called Global Knowledge. The
first cd is called "Fundamentals" and the second cd is called "Working
with Data and Communication".
If anyone has any good or bad comments that they can share with me, I
would appreciate it. I have not used the e-learning cd's from this
company before, but I have taken several e-learning courses through
colleges in other computer subjects that I have been happy with.
Thank you.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Mon, 30 Oct 2000 12:01:13 -0600
From: "Dirk Meilinger" <al_meilinger@meilinger.com>
Subject: Perl, DBI, and Oracle 8i
Message-Id: <xNiL5.95$mu4.1661@dfw-read.news.verio.net>
We have upgraded a test server to Oracle 8.1.6 and all of our perl code
using Oracle DBI drivers broke. We are now getting the message
"You must install a Solaris patch to run this version of the Java runtime.
Please see the README and release notes for more information."
Has anyone else run into this problem? Anyone know of a fix?
Thanks in advance,
Dirk Meilinger
------------------------------
Date: Mon, 30 Oct 2000 15:43:56 -0000
From: <mischief@velma.motion.net>
Subject: Re: Perl/cgi coder salaries
Message-Id: <svr5pskk533r53@corp.supernews.com>
Tad McClellan <tadmc@metronet.com> wrote:
> On 29 Oct 2000 19:53:20 GMT, Tarael200 <tarael200@aol.com> wrote:
>>Very recently, within the past day I think, there was a job advertisement for a
>>perl/cgi programmer, for $25-30/hour.
>>
>>Someone posted $50-90 was the going salary, as of a 1997 survey.
> ^^^^^^ ^^^^^^
> I doubt that anybody works for 50-90 dollars a year.
> "salary" and "per hour" are mutually exclusive.
My day job is full-time salaried, and I'm paid well under the average,
so I'd rather not get into specifics. I was willing to work for less because
they let me work on GPLed projects and re-release the code, because it's less than ten miles from where I live, because I was given the job on the spot when my old employer lost some contracts and liad a bunch of people off, and because I was promised raises as this small company can afford.
When I work for myself on the side (another perk), I generally charge $60 per
hour, which most clients are quite willing to pay in this area for someone who
will come to their site to discuss the specification, will provide docs, and
will give a short introduction on how to use the software.
Chris
--
Christopher E. Stith
mischief@motion.net
------------------------------
Date: Mon, 30 Oct 2000 11:10:21 -0500
From: Jeff Boes <jboes@eomonitor.com>
Subject: Re: Perl/cgi coder salaries
Message-Id: <39fd9d59$0$30006$44a10c7e@news.net-link.net>
Tarael200 wrote:
>
> Very recently, within the past day I think, there was a job advertisement for a
> perl/cgi programmer, for $25-30/hour.
>
> Someone posted $50-90 was the going salary, as of a 1997 survey.
>
> My friend, you are quite wrong IIRC, for then they were rare. Now, they are but
> a dime a dozen.
>
Yup. Try to hire one sometime...
Seriously, the question about rates is virtually impossible to answer.
Do you want someone onsite, or telecommuting? Do they need to know how
to make Perl/CGI work under Apache, or IIS? Is SQL part of the mix,
therefore DBI? Is it a secure server, or just form-to-email/db
processing? Is it work from scratch, or is it an interface to or upgrade
of an existing system?
I've done work-from-home Perl/CGI contracting for anywhere from US$35 to
US$60 per hour. Many times I would quote my rate and be told that I was
the cheapest AND most-experienced person they'd come across. Some of
that stems from being in the Midwest, where I can't charge $100 per hour
onsite, since virtually no one outside Chicago and Detroit is even using
Perl...
--
Jeff Boes <jboes@eoexchange.com> Tel: (616) 381-9889 x.18
Sr. Software Engineer, EoExchange, Inc. http://www.eoexchange.com/
Search, Monitor, Notify. http://www.eomonitor.com/
------------------------------
Date: 30 Oct 2000 08:23:00 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Perl/cgi coder salaries
Message-Id: <m166ma8fiz.fsf@halfdome.holdit.com>
>>>>> "Jeff" == Jeff Boes <jboes@eomonitor.com> writes:
Jeff> Yup. Try to hire one sometime...
Jeff> Seriously, the question about rates is virtually impossible to
Jeff> answer. Do you want someone onsite, or telecommuting? Do they
Jeff> need to know how to make Perl/CGI work under Apache, or IIS? Is
Jeff> SQL part of the mix, therefore DBI? Is it a secure server, or
Jeff> just form-to-email/db processing? Is it work from scratch, or is
Jeff> it an interface to or upgrade of an existing system?
And can they complete in a day what it would take a junior programmer
a week to have coded and debugged?
:)
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 30 Oct 2000 14:24:12 GMT
From: nobody@nobody.com
Subject: PerlMagick quality of Annotate in animated GIF
Message-Id: <8tk0ac$mif$1@enterprise.cistron.net>
Hi all,
With PerlMagick I'm trying to do a:
my $error=$imagem->[$subimage]->Annotate(font=>"\@Arial",pointsize=>12,pen=>'#000000',text=>"Testing",x=>10,y=>10);
die "$error" if "$error"; # print the error message
It works, but the quality of the text is very bad (ugly antialiasing), I'm using ImageMagick v4.2.9. Do newer versions produce better
quality?
I tried to do a
$image->Set(antialias=>'False');
But it didn't work.
Does anyone know how to get better text quality?
Y. Dobon
------------------------------
Date: Mon, 30 Oct 2000 18:45:18 GMT
From: v_v_n@my-deja.com
Subject: Query (Learning perl)
Message-Id: <8tkfjs$v6u$1@nnrp1.deja.com>
Hi ,
I have to delete a string from a file which appears at the end of that
file ..... can anyone help me out how to do it.
for example :- In a file "abc.xyz" last line contains the string
"AAAAAA" .I have to delete that line, I am not able to do it in Perl.
Please help me out.
Thanks in advance.
v_v_n
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 30 Oct 2000 17:54:11 +0000
From: nobull@mail.com
Subject: Re: Sending image into server.
Message-Id: <u9vguanrjw.fsf@wcl-l.bham.ac.uk>
foo <keisari_@hotnail.com> writes:
> 2. send it into a cgi file with post method as http (maybe with LWP).
>
> But the problem is that i dont know how to do it exactly.
How to use LWP is, not supprisingly, documented in the documentation
that comes with LWP. The LWP cookbook "perldoc lwpcook" is
particularly enlightening.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Tue, 31 Oct 2000 01:15:25 +0800
From: Beggar <cpegbeggar@mail.com>
Subject: signal "CTRL-x"
Message-Id: <39FDACAD.2DC72892@mail.com>
Hi all,
How to capture the signal "CTRL-x" in perl?
Actually, is it considered as a signal ?
Please reply to cpegbeggar@mail.com
Thanks!
Dicky
------------------------------
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 4764
**************************************
