[22686] in Perl-Users-Digest
Perl-Users Digest, Issue: 4907 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Apr 28 18:05:49 2003
Date: Mon, 28 Apr 2003 15:05:08 -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, 28 Apr 2003 Volume: 10 Number: 4907
Today's topics:
Re: books from beginner to guru - reading order <mpapec@yahoo.com>
Re: Can Internet Explorer be run from inside perl ? <abigail@abigail.nl>
Re: Can Internet Explorer be run from inside perl ? <goedicke@goedsole.com>
Comparing strings with small differences <mlm@nospam.com>
Re: Comparing strings with small differences <mlm@nospam.com>
Re: Comparing strings with small differences <w.koenig@acm.org>
crypt function on Win32 Perl ? (Kenjis Kaan)
Re: Curses and perl5.8 <REMOVEsdnCAPS@comcast.net>
Re: Get PID from process started by "system" - how? (Bryan Castillo)
Re: Getting FULL path+filename from a filehandle <michael.p.broida@boeing.com>
Re: Getting FULL path+filename from a filehandle <michael.p.broida@boeing.com>
Re: grep problem <mpapec@yahoo.com>
Re: Hash memory consumption ctcgag@hotmail.com
Re: Hash memory consumption <abigail@abigail.nl>
Re: if (grep ...) is failing... <bongie@gmx.net>
Newb Question: Telling perl when to stop and go while (entropy123)
Re: Newbie cannot compile :( <mhunter@celeste.net.berkeley.edu>
Re: Newbie cannot compile :( <glex_nospam@qwest.net>
Re: perl, grep and multidimensional array - help needed <Rainer.Scherg@t-online.de>
Re: Read File, write filename? (entropy123)
Re: Statistics for comp.lang.perl.misc <abigail@abigail.nl>
Re: Statistics for comp.lang.perl.misc <bart.lateur@pandora.be>
Re: Statistics for comp.lang.perl.misc <abigail@abigail.nl>
Re: Statistics for comp.lang.perl.misc <michael.p.broida@boeing.com>
Sybperl DBlib <arich@u.washington.edu>
Re: Sybperl DBlib <ethan@draupnir.gso.saic.com>
Re: Undefining Aggregates <foobear@foobear.doom.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 28 Apr 2003 21:12:47 +0200
From: Matija Papec <mpapec@yahoo.com>
Subject: Re: books from beginner to guru - reading order
Message-Id: <1uuqavg61khbenm1bag62irlsr1aohjmf2@4ax.com>
X-Ftn-To: Malte Ubl
Malte Ubl <ubl@schaffhausen.de> wrote:
>qanda wrote:
>> Could anyone also recommend a good book or source of reference that
>> details large scale Perl development as mentioned above?
>
>100%, no way around, must have:
>Object Oriented Perl
>by Damian Conway
I would only add that book is easy to read and it even explain some Perl
basics, so IMO it could be read just after Camel book.
--
Matija
------------------------------
Date: 28 Apr 2003 18:32:28 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Can Internet Explorer be run from inside perl ?
Message-Id: <slrnbaqsts.a9b.abigail@alexandra.abigail.nl>
jhiggins (jhiggins@netsatx.net) wrote on MMMDXXVII September MCMXCIII in
<URL:news:3eac8fb5$1@news.netsatx.net>:
][ Can IE be run from inside perl. I want to create a program that will scan
][ my MRTG images on a timed basis.
What do you mean by "run from inside perl"? Or "scan MRTG images"?
Abigail
--
perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];}
print+Just (), another (), Perl (), Hacker ();'
------------------------------
Date: Mon, 28 Apr 2003 18:50:12 GMT
From: William Goedicke <goedicke@goedsole.com>
Subject: Re: Can Internet Explorer be run from inside perl ?
Message-Id: <m38ytu8nje.fsf@mail.goedsole.com>
Dear jhiggins -
"jhiggins" <jhiggins@netsatx.net> writes:
> Can IE be run from inside perl. I want to create a program that will scan
> my MRTG images on a timed basis.
I think what you really want to do is pull your MRTG images down from
the web server with a perl program instead of with a browser.
This is easy assuming you know the URL for you MRTG images (try
right-clicking on the images in your browser to get the URL). The
code will be something like:
use LWP::Simple;
my $result_code = getstore("http://...", "/tmp/picture.gif");
Having said all that what you probably want is "wget".
Yours - Billy
============================================================
William Goedicke goedicke@goedsole.com
http://www.goedsole.com:8080
============================================================
Lest we forget:
Genomes act as the initial sequence for Wolframish "basic
rules" implemented by the amino acids.
- William Goedicke
------------------------------
Date: Mon, 28 Apr 2003 15:06:47 -0500
From: mlm <mlm@nospam.com>
Subject: Comparing strings with small differences
Message-Id: <NA-dnbBZ8KtKFDCjXTWcqg@giganews.com>
I have a long list of strings in an array. Each string differs from the
previous by only a few characters somewhere in the string. I want to
obtain an index (and substring length) into the string where the
difference occurs.
Eg:
$a[0] is "Polka dot (18), sheet 07."
$a[1] is "Polka dot (19), sheet 07."
$a[2] is "Polka dot (20), sheet 07."
if I compare $a[1] and $a[2] i would like the function to return 12,1
(meaning the different part begins at offset 12 and is one character
long)
If I compare $ a[2] and $a[3] i want it to return 11,2.
Is there a quick and dirty way to do this, rather than making a function
to proceed character by character through the string (I can figure out
the brute force method, but with tens of thousands of strings it might
get slow)?
Could I use foreach and a regexp to catch the different part (say if it
was always enclosed in parentheses)?
Thanks for any help.
Mark
------------------------------
Date: Mon, 28 Apr 2003 15:41:20 -0500
From: mlm <mlm@nospam.com>
Subject: Re: Comparing strings with small differences
Message-Id: <2QOdnUdEB61tDDCjXTWcqw@giganews.com>
mlm <mlm@nospam.com> wrote in news:NA-dnbBZ8KtKFDCjXTWcqg@giganews.com:
> I have a long list of strings in an array. Each string differs from
> the previous by only a few characters somewhere in the string. I want
> to obtain an index (and substring length) into the string where the
> difference occurs.
>
> Eg:
> $a[0] is "Polka dot (18), sheet 07."
> $a[1] is "Polka dot (19), sheet 07."
> $a[2] is "Polka dot (20), sheet 07."
>
> if I compare $a[1] and $a[2] i would like the function to return 12,1
> (meaning the different part begins at offset 12 and is one character
> long)
>
> If I compare $ a[2] and $a[3] i want it to return 11,2.
>
> Is there a quick and dirty way to do this, rather than making a
> function to proceed character by character through the string (I can
> figure out the brute force method, but with tens of thousands of
> strings it might get slow)?
>
> Could I use foreach and a regexp to catch the different part (say if
> it was always enclosed in parentheses)?
>
> Thanks for any help.
> Mark
>
I thought about a bitwise AND of the strings leaving only the different
part remaining in the result. Can this be done in Perl?
------------------------------
Date: Mon, 28 Apr 2003 22:41:40 +0200
From: Winfried Koenig <w.koenig@acm.org>
Subject: Re: Comparing strings with small differences
Message-Id: <3EAD9204.9010508@acm.org>
mlm wrote:
> I have a long list of strings in an array. Each string differs from the
> previous by only a few characters somewhere in the string. I want to
> obtain an index (and substring length) into the string where the
> difference occurs.
>
> Eg:
> $a[0] is "Polka dot (18), sheet 07."
> $a[1] is "Polka dot (19), sheet 07."
> $a[2] is "Polka dot (20), sheet 07."
>
> if I compare $a[1] and $a[2] i would like the function to return 12,1
> (meaning the different part begins at offset 12 and is one character
> long)
>
> If I compare $ a[2] and $a[3] i want it to return 11,2.
for such simple differences you may use something like:
#!/usr/local/bin/perl
use strict;
use warnings;
my @a = (
"Polka dot (18), sheet 07.",
"Polka dot (19), sheet 07.",
"Polka dot (20), sheet 07.",
);
foreach my $i (1 .. $#a) {
my $diff = $a[$i -1 ] ^ $a[$i];
if ($diff =~ m/[^\000]+/) {
printf "%d,%d\n", $-[0], $+[0] - $-[0];
}
}
__END__
Winfried Koenig
------------------------------
Date: 28 Apr 2003 14:34:55 -0700
From: tivolinewbie@canada.com (Kenjis Kaan)
Subject: crypt function on Win32 Perl ?
Message-Id: <6a8ba9f8.0304281334.18ed7b36@posting.google.com>
How secure is the crypt function of Perl in win32? (activeperl).
Is is implemented in the same way as that of unix crypt? is it MD5
algorithm?
Should one use it to secure a website access?? ie. you can only access
links at a website if you can pass the Login/Password challenge
provided by Perl crypt function. The original password is encrypted
with crypt/salt and saved into a database whereby it is retrieved when
a password challenge is required.
Also the connection from browser to http server is encapsulated by SSL
(https). Any comments are welcome.
------------------------------
Date: Mon, 28 Apr 2003 15:53:44 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: Curses and perl5.8
Message-Id: <Xns936BABCC8165Fsdn.comcast@216.166.71.239>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
Benjamin Goldberg <goldbb2@earthlink.net> wrote in
news:3EAD5259.BFBFEFED@earthlink.net:
> Actually, since there is a line in one of the headers:
>
> #define sv_isa(a,b) Perl_sv_isa(aTHX_ a,b)
>
> They are equivilant. So you could use either. However, a bare
sv_isa
> is clearer (and it's more consistant with the other code in
Curses).
>
Then why the compiler error? :-/
- --
Eric
print scalar reverse sort qw p ekca lre reh
ts uJ p, $/.r, map $_.$", qw e p h tona e;
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.2.1 (MingW32) - WinPT 0.5.13
iD8DBQE+rZS8Y96i4h5M0egRAovaAJ9KSdOUJETXJrlqsM2YHn6e+7FMDgCgkel2
0TRLWrdQEnZXw0ePGrU31Fo=
=0ZGh
-----END PGP SIGNATURE-----
------------------------------
Date: 28 Apr 2003 12:51:20 -0700
From: rook_5150@yahoo.com (Bryan Castillo)
Subject: Re: Get PID from process started by "system" - how?
Message-Id: <1bff1830.0304281151.18dbf9e7@posting.google.com>
"Tony" <anthony@movielink.net.au> wrote in message
<snip>
>
> sub play_file($file_name) { # sub with a file name passed to the sub.
>
> my $play_program = "/usr/bin/play";
> my file = $file_name;
> system "$play_file $file";
>
> ### or alteernatively..
>
> system `$play_program $file`;
> return (0) # Success
> }
>
>
> There is a lot more in there but not relevant to the problem
> I have...
>
> I do not quite get what is hapening below...it looks like a
> variation of the above with the fork within it.
>
> How would you play the list of files remembering that the
> main program still needs to run checking for new events
> to handle? Or is the suggestion below a "second fork"
> to be used after a first fork?
>
> Where do the %pids come from? (Only the forked process ID
> as far as I can see). Killing the forked perl process
> will not kill the play process...
(it will)
See his ForkAndExec subroutine and lookup perldoc -f exec
It is basically a front end for the unix c exec family of functions
from man -s 2 exec on Solaris
DESCRIPTION
Each of the functions in the exec family overlays a new pro-
cess image on an old process. The new process image is con-
structed from an ordinary, executable file. This file is
either an executable object file, or a file of data for an
interpreter. There can be no return from a successful call
to one of these functions because the calling process image
is overlaid by the new process image.
Basically, the child process you created with fork, will be overlaid by
the program you specify in exec and it will have the same pid as that of the
child from fork.
Try it, print out the pid after fork then use ps to find the play program,
it will have the same pid as the forked child.
>
> > Untested:
> >
> > my %pids = ();
> > my %devs = ();
> >
> > sub FreeDevice($)
> > {
> > my ($dev) = @_;
> > my $pid = $pids{$dev}
> > or return undef;
> > kill $SIGNAL => $pid;
> > waitpid $pid, 0;
> > undef $pids{$dev}, $devs{$pid};
> > return 1;
> > }
> >
> > sub StartFile($$)
> > {
> > my ($dev, $file) = @_;
> > FreeDevice $dev; # and perhaps do some error handling
> > $pids{$dev} = ForkAndExec play => '-d', $dev, $file;
> > $devs{$pids{$dev}} = $dev; # reverse mapping
> > }
> >
<snip>
------------------------------
Date: Mon, 28 Apr 2003 21:08:15 GMT
From: "Michael P. Broida" <michael.p.broida@boeing.com>
Subject: Re: Getting FULL path+filename from a filehandle
Message-Id: <3EAD983F.E6ED8491@boeing.com>
"John W. Krahn" wrote:
>
> > > my $fullpath = readlink "/proc/$$/fd/" . fileno filehandle;
> >
> > Any ideas how to do that on Win2K? I'm not lucky enough
> > to be using any kind of Unix here. <grin>
>
> Sorry, I haven't used any form of Windows for many years now.
Lucky you. <grin>
> > It seems (from the Camel book) that "readlink" requires a
> > symbolic link:
> > EXPR should evalute to a filename, the last
> > component of which is a symbolic link.
> > It also only wants one argument, not two as in your example.
>
> The example has one argument. The two strings are joined together via
> the concatenation operator (it's a period, not a comma.)
I saw the "." concatenation but, since I didn't know what "fileno"
was at that time, I mistook the part:
fileno filehandle
for two separate items, making the command seem to have this
structure:
command: readlink
argument 1: "/proc/$$/fd/" . fileno
argument 2: filehandle
(But I should have realized from the lack of a comma before
"filehandle" that it wasn't a separate argument.)
Now that I understand fileno a bit, I see that "fileno filehandle"
produces the second part of the concatenation. Thus there is only
one argument.
Thanks for helping to clear that up. :)
Mike
------------------------------
Date: Mon, 28 Apr 2003 21:01:20 GMT
From: "Michael P. Broida" <michael.p.broida@boeing.com>
Subject: Re: Getting FULL path+filename from a filehandle
Message-Id: <3EAD96A0.764257D5@boeing.com>
Anno Siegel wrote:
>
> Michael P. Broida <michael.p.broida@boeing.com> wrote in comp.lang.perl.misc:
>
> [...]
>
> > That just leaves the case where the user types in the filename with
> > possibly NO path info or a partial, relative path. If I can open
> > the file from that info, I can assume that all of that is (or is
> > relative to) the current working dir, and build a path string by
> > carefully removing any ../.. relative stuff. This is not even
> > really difficult. I had just hoped for a pre-built solution.
>
> Then look into File::Spec, which has a function rel2abs() for this
> purpose. It can also clean up intervening ".." and multiple "//"
> (or whatever the directory separator is).
That sounds excellent! I'll definitely use that.
Thanks!
Mike
------------------------------
Date: Mon, 28 Apr 2003 21:21:28 +0200
From: Matija Papec <mpapec@yahoo.com>
Subject: Re: grep problem
Message-Id: <3ivqav0ortsr59cm58u0lec8krcfft495u@4ax.com>
X-Ftn-To: P S Mahesh
P S Mahesh <psmahesh@miel.mot.com> wrote:
>So far I have failed to grep properly the list of fixed terms from the
>instream that I get line by line. Can anyone help me to figure this out.
> I need to grep a line for a couple of characters.
>I tried the following. The problem is the output is a table and I am
>reading it row by row where one of the columns might contain AAA or
>BBBB.
you need regexp, not grep; grep is used on lists(list context).
>if ( grep /AAAA/BBBBB/CCCC $currentline)
if ($currentline =~ /AAAA|BBBBB|CCCC/)
is probably what you want(check for AAAA or BBBBB or CCCC in $currentline).
--
Matija
------------------------------
Date: 28 Apr 2003 18:33:13 GMT
From: ctcgag@hotmail.com
Subject: Re: Hash memory consumption
Message-Id: <20030428143312.774$Mu@newsreader.com>
mhunter@uclink.berkeley.edu wrote:
> Hey everybody,
>
> I have a script that ends up using a lot of memory when I shove lots of
> data into a hash.
Yeah, life is like that. :)
> I followed a suggestion on this group to try pack'ing
> values to be stored instead of storing array references, but it hasn't
> helped much.
Without any code or numbers or estimates, I don't know whether to believe
you or not.
Did you try tying it to disk?
> My question is: Is there any way to reduce the consumption of the hash
> data structure itself?
Not feasibly. If eliminating the overhead from 5 million arrays didn't
help, I doubt that decreasing the overhead from one hash is going to
help, anyway.
> Is there any OS dependance on this size?
I'm sure there must be some, I'd think an OS with 64 bit pointers
has to use more space than one with 32-bit pointers, at least
to store the pointers.
Large hashes are pretty memory efficient, at least for general purpose
use. If you're use for the hash is not general purpose, I'd have to know
what is non-general about your purpose before suggesting ways to improve
it.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service New Rate! $9.95/Month 50GB
------------------------------
Date: 28 Apr 2003 18:49:10 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Hash memory consumption
Message-Id: <slrnbaqtt6.a9b.abigail@alexandra.abigail.nl>
Mike Hunter (mhunter@celeste.net.berkeley.edu) wrote on MMMDXXVII
September MCMXCIII in <URL:news:slrnbaqpue.rj.mhunter@celeste.net.berkeley.edu>:
//
// My question is: Is there any way to reduce the consumption of the hash
// data structure itself? Is there any OS dependance on this size?
Well, yes and no. You can't really reduce the consumption of the hash
datastructure, but you can tie a hash to DBM file, which stores the
data on disk.
You might want to look into AnyDBM_File.
Abigail
--
@;=split//=>"Joel, Preach sartre knuth\n";$;=chr 65;%;=map{$;++=>$_}
0,22,13,16,5,14,21,1,23,11,2,7,12,6,8,15,3,19,24,14,10,20,18,17,4,25
;print@;[@;{A..Z}];
------------------------------
Date: Mon, 28 Apr 2003 21:56:27 +0200
From: "Harald H.-J. Bongartz" <bongie@gmx.net>
Subject: Re: if (grep ...) is failing...
Message-Id: <1184613.hlOV4Wx5bF@nyoga.dubu.de>
pdqd wrote:
> I am using the following program which uses grep command to check
> whether a substring is found in a string.
grep() is to check an array for elements matching certain criteria.
Your problem can be solved with a regex or - if it is a real substring -
even better with the index() function:
if (index ($text, 'flower') >= 0) {
print "correct\n";
} else {
print "wrong\n";
}
Ciao,
Harald
--
Harald H.-J. Bongartz <bongie@gmx.net>
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
I heard a Californian student in Heidelberg say, in one of his
calmest moods, that he would rather decline two drinks than one
German adjective. -- Mark Twain
------------------------------
Date: 28 Apr 2003 14:48:11 -0700
From: email_entropy123@yahoo.com (entropy123)
Subject: Newb Question: Telling perl when to stop and go while reading a file..
Message-Id: <90cdce37.0304281348.e2f7f3@posting.google.com>
Hey all,
Thank you all for your help on my input/output question, works like a
charm.
Now that I can open a file, read it, and output to the output file I
need to figure out how to tell perl what I exactly want inside the old
file and how I want it transferred to the new file.
For example (oldfile is the old file and newfile is the new output
file)
The first 4 lines of oldfile are filler and I'll never use them (Maybe
someday I'd use them but not right now).
The juicy stuff starts on line 5 which starts out with two spaces and
a series of numbers like:
ssssnnnnnnnssnnnnnnssnnnnnnsscssssnsssnsssn
s= space
n= number
c = character
Line 5 starts a series of such lines and all I ever want is the
character c and which line it came from.
At some point, unique to each file, something new starts to happen,
the new information starts out with 2 spaces instead of four.
Sorry for all the questions (This is something I need to put together
for my eng. related grad project...gotta graduate!)
Thanks,
entropy
------------------------------
Date: Mon, 28 Apr 2003 18:40:30 +0000 (UTC)
From: Mike Hunter <mhunter@celeste.net.berkeley.edu>
Subject: Re: Newbie cannot compile :(
Message-Id: <slrnbaqtg0.vv.mhunter@celeste.net.berkeley.edu>
On 28 Apr 2003 10:44:13 -0700, ibits wrote:
> function computePersonality(letter){
What is "function"? Type "man perlsub" and read up.
Mike
------------------------------
Date: Mon, 28 Apr 2003 13:46:48 -0500
From: Jeff D Gleixner <glex_nospam@qwest.net>
Subject: Re: Newbie cannot compile :(
Message-Id: <SCera.2411$n23.47960@news.uswest.net>
ibits wrote:
> I had some questions about my program. I can't compile/run the program
> because of some errors. Can anyone please take a look at my program
> and direct me to make the appropriate corrections.
The error points you right to the line in question.
> function computePersonality(letter){
Should be "sub" instead of "function" that's not how ya pass
variables.
sub computePersonality
{
my $letter = shift;
#etc.
}
There are many other "problems" with your script, however fixing the
above should help you get something working.
Look at perldoc CGI a bit more, you don't need all those CGI objects. Also,
be sure to
use warnings;
use strict;
To help you figure out other errors.
See ya
------------------------------
Date: Mon, 28 Apr 2003 23:10:15 +0200
From: Rainer Scherg <Rainer.Scherg@t-online.de>
Subject: Re: perl, grep and multidimensional array - help needed
Message-Id: <3EAD98B7.443D3622@t-online.de>
Bernard El-Hagin schrieb:
>
> >
> > for the last line I'm getting the following error message:
> >>Modification of a read-only value attempted at "perl-progname.cgi"
> >>line XX.
> >
> > The same error I get using the sort function.
> >
> >
> > Any idea why?
> > I don't see any error here. Any hint is appreciated.
>
> There is no error in your snippet. I copied it and ran it with no problems.
>
Well, I'm glad to here this.
But unfortunatly perl 5.6.1 has a different opinion on this.
Perhaps I have to post "more" code, because there are some
if () { } else... statments part of the code.
But normally these "if" should not affect the grep, shouldn't it?
@fields = split /\|/, $line; # split ...
if ($fields[1] > $value) {
$list[$count] = [@fields];
}
@list2 = grep { $_->[2] !~ /some-pattern/i } @list;
Tnx - Rainer
------------------------------
Date: 28 Apr 2003 13:40:15 -0700
From: email_entropy123@yahoo.com (entropy123)
Subject: Re: Read File, write filename?
Message-Id: <90cdce37.0304281240.1d3ec3be@posting.google.com>
Woohoo!!!
Thanks all, I got something that kinda works and I kinda understand :)
Much appreciation,
entropy
------------------------------
Date: 28 Apr 2003 18:18:44 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <slrnbaqs44.a9b.abigail@alexandra.abigail.nl>
Andras Malatinszky (nobody@dev.null) wrote on MMMDXXVII September
MCMXCIII in <URL:news:3EAD3E3F.80009@dev.null>:
==
== The "Bottom 12 by OCR" list is actually a repetition of the "Top 12 by
== OCR" list. You might want to look at that for next week.
Could that be because only 12 posters qualified for this listing?
The fact there only 12 instead of 20 is a clue.
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$==-2449231+gm_julian_day+time);do{until($=<$#r){$_.=$r[$#r];$=-=$#r}for(;
!$r[--$#r];){}}while$=;$,="\x20";print+$_=>September=>MCMXCIII=>=>=>=>=>=>=>=>'
------------------------------
Date: Mon, 28 Apr 2003 19:59:37 GMT
From: Bart Lateur <bart.lateur@pandora.be>
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <nv1ravg06pf24alrdl80cqhk4mrmd1l1ti@4ax.com>
Abigail wrote:
>Could that be because only 12 posters qualified for this listing?
I think everybody qualifies for this listing. As I am not even in the
list, I feel this monitor must have had a very poor newsfeed.
--
Bart.
------------------------------
Date: 28 Apr 2003 21:22:47 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <slrnbar6t7.a9b.abigail@alexandra.abigail.nl>
Bart Lateur (bart.lateur@pandora.be) wrote on MMMDXXVII September
MCMXCIII in <URL:news:nv1ravg06pf24alrdl80cqhk4mrmd1l1ti@4ax.com>:
][ Abigail wrote:
][
][ >Could that be because only 12 posters qualified for this listing?
][
][ I think everybody qualifies for this listing. As I am not even in the
][ list, I feel this monitor must have had a very poor newsfeed.
The statistics say:
Top 12 Posters by OCR (minimum of ten posts)
============================================
Do you thing that part between the parenthesis is just for decoration?
Abigail
--
perl -we '$| = 1; $_ = "Just another Perl Hacker\n"; print
substr $_ => 0, 1 => "" while $_ && sleep 1 => 1'
------------------------------
Date: Mon, 28 Apr 2003 21:21:01 GMT
From: "Michael P. Broida" <michael.p.broida@boeing.com>
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <3EAD9B3D.80A59E0@boeing.com>
Bart Lateur wrote:
>
> Abigail wrote:
>
> >Could that be because only 12 posters qualified for this listing?
>
> I think everybody qualifies for this listing. As I am not even in the
> list, I feel this monitor must have had a very poor newsfeed.
Qualified in this case means that it fits the
criteria of "minimum 10 posts" that is listed
above the table. Anyone who didn't make ten
posts is not included in that list.
Mike
------------------------------
Date: Mon, 28 Apr 2003 13:57:35 -0700
From: "Alan" <arich@u.washington.edu>
Subject: Sybperl DBlib
Message-Id: <b8k4k6$1oua$1@nntp6.u.washington.edu>
I'm getting the below error when attempting to run a Sybperl module. @INC,
whatever that is, is pointing to the wrong directory. How do I change @INC
to point to c:\etc\perl\lib\site\Sybase instead?
Can't locate Sybase/DBlib.pm in @INC (@INC contains: C:/Perl/lib
C:/Perl/site/lib .) at
F:\inetpub\wwwroot\clinical_apps\map\perl\clinical_cq.pl line 40. BEGIN
failed--compilation aborted at
F:\inetpub\wwwroot\clinical_apps\map\perl\clinical_cq.pl line 40.
------------------------------
Date: 28 Apr 2003 14:28:55 -0700
From: Ethan Brown <ethan@draupnir.gso.saic.com>
Subject: Re: Sybperl DBlib
Message-Id: <vr8ytu9uqw.fsf@draupnir.gso.saic.com>
>>>>> "Alan" == Alan <arich@u.washington.edu> writes:
Alan> I'm getting the below error when attempting to run a Sybperl module. @INC,
Alan> whatever that is, is pointing to the wrong directory. How do I change @INC
Alan> to point to c:\etc\perl\lib\site\Sybase instead?
Alan> Can't locate Sybase/DBlib.pm in @INC (@INC contains: C:/Perl/lib
Alan> C:/Perl/site/lib .) at
Alan> F:\inetpub\wwwroot\clinical_apps\map\perl\clinical_cq.pl line 40. BEGIN
Alan> failed--compilation aborted at
Alan> F:\inetpub\wwwroot\clinical_apps\map\perl\clinical_cq.pl line 40.
You can add directories to the @INC list a number of ways, including
using the "-I" argument on the #! line.
--Ethan Brown
--Keyboards: "The Fabulous Pelicans" (www.pelicans.com)
--In a band? Use http://www.WheresTheGig.com for free.
------------------------------
Date: Mon, 28 Apr 2003 21:51:38 GMT
From: <foobear@foobear.doom.net>
Subject: Re: Undefining Aggregates
Message-Id: <Knhra.56$m53.6380@petpeeve.ziplink.net>
TeanerTiner <no-spam-TeanerTiner@hotmail.com> wrote:
> I think you, of all responders, Anno, have hit the nail on the head. I
> admittedly code in a more C fashion, sometimes to my detriment.
I think most of us caught that when we noticed your use of Hungarian Notation
$iReturnValue = funcCall(\$param)
In a perl program? Ew.
-v
------------------------------
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.
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 4907
***************************************
