[6924] in Perl-Users-Digest
Perl-Users Digest, Issue: 549 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat May 31 18:07:19 1997
Date: Sat, 31 May 97 15:00:21 -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 Sat, 31 May 1997 Volume: 8 Number: 549
Today's topics:
Re: ATTENTION -- NEED A SCRIPT (Jf Gagnon)
FrontPage97 & PERL, Help! dkranste@vpsiinc.com
GDBM fails 'make test' <peterb@globaldialog.com>
Re: How do I pass HTTP_REFERER parameter in LWP:UserAge (Michael Fuhr)
Re: irix 5.3 & perl 5.004 (Michael Helm)
More PERL questions <doyle@teleport.com>
Re: needed: perl guru rroberts@gowebway.com
Re: os2 : unpack() bug || misfeature ? (Andrew M. Langmead)
Re: Perl 5.002 socket call on DEC OSF/1 - HELP (Andrew M. Langmead)
Re: Perl Packages (Bob Wilkinson)
Re: Please Help with this (easy??) Conditional Statemen (Andrew M. Langmead)
Re: searching for two or more strings that match in a s (Bob Wilkinson)
Second perl book (Michael Schuerig)
Re: Server side includes to run Perl scripts from web p (Matthew Burnham)
Shell to Perl.... (Michael Lauzon)
Statistics for comp.lang.perl.misc gbacon@cs.uah.edu
Statistics for comp.lang.perl.misc gbacon@cs.uah.edu
Re: Tutorial Needed (Matthew Burnham)
Re: Tutorial Needed (Bob Wilkinson)
Weird Behavior in 'foreach' with Perl 5.003_02 on BSDi <bkyan@mindcast.com>
What's perl equivalent to awk's $1, $2, etc.? <parkhurs@indiana.edu>
Re: What's perl equivalent to awk's $1, $2, etc.? (Michael Fuhr)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 30 May 1997 13:10:23 GMT
From: JfGagnon@QC.Bell.CA (Jf Gagnon)
Subject: Re: ATTENTION -- NEED A SCRIPT
Message-Id: <EAzwpr.JIJ@on.bell.ca>
In article <19970527025900.WAA10535@ladder01.news.aol.com>, n1graphics@aol.com (N1Graphics) wrote:
>Hi There!
>
>I need a Perl script for Perl 5.003 that is able to take some submitted
>data and repost it as a confirmation. I would also like if you would
>leave a place for me to add in some HTML that will be displayed on the the
>
>confirmation page. Then the submit button should activate mail.pl. E-mail
>me
>at ABergs@juno.com if you need more info. I need this fast.
>
>E-mail me at ABergs@juno.com
And why don't you try it by yourself?
------------------------------
Date: Sat, 31 May 1997 13:01:44 -0600
From: dkranste@vpsiinc.com
Subject: FrontPage97 & PERL, Help!
Message-Id: <865100765.31733@dejanews.com>
Please Help!
I am a beginner Perl "programmer" and just bought FrontPage97
and I have no idea how to go about previewing a CGI script
with FP97 before uploading to my ISP's webserver. I am taking
a intro to CGI class online and I am unable to receive
adequate help in answering this question. Here's my setup:
pc with win95
MS FrontPage97 (using the MS Personal Web Server)
I have downloaded Perl5 and saved to my C drive. (did install it)
My ISP is using a UNIX webserver.
Please let me know if I can do anything to help you help me
better! Thanks! Don
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 31 May 1997 17:41:40 GMT
From: "Peter Brant" <peterb@globaldialog.com>
Subject: GDBM fails 'make test'
Message-Id: <01bc6de9$f498e680$2e7a2e9c@ish.globaldialog.com>
Hello,
In order to use www_req, we had to install gdbm (and the Perl extension for
it). Everything compiles fine -- no problems at all until 'make test' is
run where tests 5-7 fail (the ones dealing with writing a test file, the
opening it and seeing if everything is ok [in other words, the really
really important ones]). We are using 5.003 + EMBED and the security
patch. Upgrading to 5.004 is something we would like to avoid for now (we
tried and MsqlPerl barfed even with a recompliation). Any help or pointers
to help would be incredibly appreciated.
Thanks,
Peter
------------------------------
Date: 31 May 1997 10:15:13 -0600
From: mfuhr@dimensional.com (Michael Fuhr)
Subject: Re: How do I pass HTTP_REFERER parameter in LWP:UserAgent ?
Message-Id: <5mpiqh$fju@flatland.dimensional.com>
[ cc to author ]
"Walter Klomp" <walter@swiftech.com.sg> writes:
> I am trying to auto-submit (POST) some information to a form on a server
> which actually checks on the HTTP_REFERER parameter (which browsers usually
> send). Is there any way I can submit this information in my request as well
> ?
Take a look at the HTTP::Request manual page - it'll point you
in the right direction.
Hope this helps.
--
Michael Fuhr
http://www.dimensional.com/~mfuhr/
------------------------------
Date: 31 May 1997 17:19:02 GMT
From: helm@fionn.es.net (Michael Helm)
Subject: Re: irix 5.3 & perl 5.004
Message-Id: <5mpmi6$s9l@overload.lbl.gov>
In article <5mo109$6sq@overload.lbl.gov>,
Michael Helm <helm@fionn.es.net> wrote:
>perl 5.004 has a few problems on irix 5.3.
>With gcc, it fails op/stat tests 18-20 & 26
>With the built=in cc, whatever that is, it fails op/stat test 18.
I know what causes this. If the unix uid != AFS uid & the AFS file
system ownership doesn't match, then perl will fail some of these
tests (it seems to depend what combination of non-matching you have,
which compiler, & what architecture).
This suggests to me that perl may have issues with AFS, but other than
that it seems to be fine.
------------------------------
Date: Sat, 31 May 1997 14:40:05 +0000
From: Doyle Tracy <doyle@teleport.com>
Subject: More PERL questions
Message-Id: <33903845.4F580F6@teleport.com>
I posted some questions awhile back about PERL and I'd like to thank
everyone who replied. The answers I got were perfect and I sincerely
appeciate them. I'm working on a reseaerch project on PERL (which I
know nothing about) and I have alot of questions that I need to provide
the answers for when I turn my project in. I will post alot of the
questions below, and any answers I can get will help me greatly.
1. What are the expression evaluation rules for PERL? What are the
operator precedences? Is left to right or right to left the
direction among operators of equal precedence?
Also, I am looking for an EBNF representation for these rules.
2. Does PERL permit an unconditional branch into the block of
statements executed under control of a conditional?
3. What types are permitted for the control expression of a case
statement?
4. How does PERL react when an unspecified choice is evaluated for
the expression controlling a case statement?
5. Does PERL permit unconditional branching into or out of the body
of an iteration?
6. What is the value of the ICV (Iteration Control Variable) after
the completion of an iteration?
7. When is the final expression evaluated in a fixed-count iteration?
8. Does PERL permit in ICV to be of a real type?
9. Does PERL permit an iteration to have multiple exit tests?
10. Does PERL permit modification of the ICV in the body of a
fixed-count iteration?
11. When is the index of an array checked against its domain type?
12. When is the domain of an array bound to the array?
13. What types are permitted for the domain of an array?
14. What types are permitted for the range of an array?
15. Is array assignment permitted? How are arrays with different
domains and the same cardinality handled?
16. Is ordering defined in arrays? If so, how?
17. Is there a maximum length enforced on strings? Is it user
definable?
18. If PERL has varient records, is the discriminant selection
enforced? Is assinment permitted to components not currently
activated by the discriminant?
I realize there are alot of questions here. And I appreciate the
patience everyone has with me. I've looked high and low for a book to
find these answers in but I can only find books on programming PERL, not
the specifics of the language. In addition to these specific questions,
I'm also looking for a little history on the language such as what
platform was is designed for? And any other info on the language that
would be helpful in presenting it to a college class of computer science
majors. Once again, thank you so much for you answers and thank you in
advance for any I might receive to these questions.
Thanks,
Doyle Tracy
------------------------------
Date: Sat, 31 May 1997 21:40:57 GMT
From: rroberts@gowebway.com
Subject: Re: needed: perl guru
Message-Id: <33909aba.2890569@news.interserv.com>
On Wed, 28 May 1997 13:30:54 GMT, rroberts@gowebway.com wrote:
>I need someone who is willing to help me learn by answering my silly
>questions.
>like why can't i get this simple program to work when i took it word
>for word from the book.
>email me if you can answer my questions.
>rroberts@gowebway.com
hey, thanks for all the responses to my call,
I have my guru so no need to mail me anymore.
Thanks, again.
------------------------------
Date: Sat, 31 May 1997 14:16:33 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: os2 : unpack() bug || misfeature ?
Message-Id: <EB1uBM.5qJ@world.std.com>
pgatille@online.fr (Pol GATILLE) writes:
>I tried recently to uudecode a mail with the Camel book
>example of uudecode.
>The resulting zip I got were corrupted because all '0A' have been
>converted to '0A0D'.
>Do I miss someting ?
>Is there a way to overcome this bug ?
It probably isn't a problem while unpacking, but while printing. (You
can check with the debugger to make sure.)
You probably need to use binmode() on the output filehandle to stop
the default text mode conversion.
See the perlfunc man page, and the FAQ entry "How do I handle binary
data correctly?" for details.
--
Andrew Langmead
------------------------------
Date: Sat, 31 May 1997 13:34:42 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Perl 5.002 socket call on DEC OSF/1 - HELP
Message-Id: <EB1sDu.GCG@world.std.com>
loi huynh <lhuynh@newscorp.com.au> writes:
>I got the following message for both the server and the client but line
>3 in my Perl code is a blank line for both the client and the server.
You should probably use the newer "Socket" moudule, rather than using
the "socket.ph" file that h2ph produces.
>I don't know what is happenning here. Have I missed out something in
>the h2ph conversion process? Any help are greatly appreciated.
The h2ph man page says:
BUGS
Doesn't construct the %sizeof array for you.
It doesn't handle all C constructs, but it does attempt to
isolate definitions inside evals so that you can get at the
definitions that it can translate.
It's only intended as a rough tool. You may need to dicker
with the files produced.
The standard way of using h2ph was:
Run h2ph on an .h file.
run perl on the .ph file.
find out where perl chokes.
fix it.
repeat.
And it definately requires a passing knowledge of C in order to
determine what the C header was supposed to do.
--
Andrew Langmead
------------------------------
Date: Fri, 30 May 1997 16:55:45 +0100
From: b.wilkinson@pindar.co.uk (Bob Wilkinson)
Subject: Re: Perl Packages
Message-Id: <b.wilkinson-3005971655450001@ip57-york.pindar.co.uk>
In article <338B19AD.177E6922@btg.com>, Dave Mead <dmead@btg.com> wrote:
> Where can I get a list of the various Perl packages' function blurbs?
> For example, are there any documents out there that tell you what the
> arguments, return values ,etc., of all of the functions in the FTP
> package are? Please respond to both the group and my email address.
>
> Thanks in advance,
>
> Dave Mead
> dmead@btg.com
Hello,
I just typed "perldoc File::Copy" and got the documentation for
File::Copy.pm, so I'd try something like "perldoc Net::FTP" or whatever.
Bob
--
I have become death, destroyer of the worlds.
------------------------------
Date: Sat, 31 May 1997 14:12:58 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Please Help with this (easy??) Conditional Statement Problem.
Message-Id: <EB1u5M.4Jz@world.std.com>
dilcher@cueva.com writes:
>The expression within the parenthesis will be a list of "sub
>expressions", each seperated with the && symbol, such as:
>$name =~ /smith/ && $height =~ /tall/ && $eyes =~ /blue/
>The individual "sub expressions" will be determined, on the
>fly, in the program, so I can not write them into the code.
Are there are fixed or variable number of sub-expressons.
If there are a fixed number, then you could probably use a variable in
the regular expression match.
$name =~ /$correct_name/;
Maybe with the /o modifier, if its efficiency trick would help and not
hurt.
If they are variable, and you want to put them in a string like you
suggested, use eval to send the string back to the perl interpreter to
compile and run it. Maybe something like the match_any subroutine in
<http://www.perl.com/CPAN/doc/FMTEYEWTK/sorting> but changing it to a
match_all instead.
Otherwise, while you have the things your would like to check in an
array, you could loop around the array. Set a flag if you find a
non-match. Test the flag in the conditional.
@correct = qw(smith tall blue);
@given = ($name, $height, $eyes);
$match = 1;
for($item = 0; $item < scalar @correct; $item++) {
$match = 0 if $given[$item] !~ /$correct[$item]/;
}
if($match) {
print "blah blah blah";
}
--
Andrew Langmead
------------------------------
Date: Fri, 30 May 1997 17:02:21 +0100
From: b.wilkinson@pindar.co.uk (Bob Wilkinson)
Subject: Re: searching for two or more strings that match in a single array
Message-Id: <b.wilkinson-3005971702210001@ip57-york.pindar.co.uk>
In article <5md5t0$8u8$1@news8.gte.net>, ddougal@concentric.net (David
Dougal) wrote:
> I have the following array:
>
> @array = ("w0123456789","l0123456787","w0134265879", "t0123456789",
> "w0123456789", "w0123456789");
>
> I want to compare each element and find the ones that match and count the
> number of matches and print out the results. I need to find the most matches.
>
> I would need to compare element 0 with all the elements in the array and
count
> the number of matches for element 0 and print results and so on....
Hello,
You should iterate through the @array, and for each element use this as a
key into a %hash. Then the value of this hash element should be incremented.
e.g.
my %seen;
foreach (@array) {$seen{$_}++;}
my $max;
foreach keys %seen {
if ($seen{$_} > $max) {
$max = $seen{$_};
}
}
This code is untested, but should give you some idea.
Bob
--
I have become death, destroyer of the worlds.
------------------------------
Date: Sat, 31 May 1997 18:12:21 +0200
From: uzs90z@uni-bonn.de (Michael Schuerig)
Subject: Second perl book
Message-Id: <19970531181221347500@rhrz-ts3-p1.rhrz.uni-bonn.de>
I only casually use perl and without Programming Perl next to me I'm
virtually lost. Although by now I know that there's always more than one
way to do it in perl I'm looking for a description of good perl
programming style. Somebody's gotta know, I gather, as there a people
around who do write exceptionally clean (even readable) perl code. Has
anyone of them written a book or is there some place on the web where I
ought to look?
Michael
---
Michael Schuerig I was thrown out of college for cheating on the
mailto:uzs90z@uni-bonn.de metaphysics exam; I looked into the soul
http://www.uni-bonn.de/~uzs90z/ of the boy next to me. -Woody Allen
------------------------------
Date: Sat, 31 May 1997 16:11:18 GMT
From: danew@enterprise.net (Matthew Burnham)
Subject: Re: Server side includes to run Perl scripts from web pages
Message-Id: <339292b1.1117902@194.72.192.4>
"Geoffrey Shuetrim" <G.Shuetrim@lse.ac.uk> wrote:
>I hope this is the right place to post this question. If not please
>redirect me.
It probably should be elsewhere, but I don't know exactly where.
>I am trying to execute a Perl script to generate a counter on my web page
>using the following comment tag in the webpage itself.
>
><!--#exec cgi="http://cep.lse.ac.uk/fm-cgi-bin/counter.pl"-->
This should be a server path not a url, but I'm not sure whether it
should be a full path or a virtual path (from the webserver root).
--
Matthew Burnham, Manager, MindWeb | danew@enterprise.net
Commercial web design and hosting, reasonable rates
UKP24/Mb/Year for DIY space | mindweb@pobox.co.uk
FTP, CGI, password protection, etc. too!
http://www.virtual-pc.com/mindweb/
------------------------------
Date: Sat, 31 May 1997 16:50:08 GMT
From: ce940@torfree.net (Michael Lauzon)
Subject: Shell to Perl....
Message-Id: <EB21FL.BH0.0.bloor@torfree.net>
The following script was written for Shell, if anyone knows how to change
it from a Shell script to a Perl script...it would be very helpful. And,
if you do change it into a Perl script; please email it to me at the
following email address: ce940@torfree.net
Here is the Shell script, that needs to be changed into a Perl
script...with a way to send the email anonymously (sp?) and through a
STMP server of your choice:
#!/bin/tcsh
# Or any Shell you can get it to work under.
# This program was written by Michael Lauzon (C) 1996.
# Modifacations by
# Put the persons email address.
echo -n "Who is the lucky recipient? "
set name = $<
# Attach a file to it, doesn't matter how big the file is...
# the bigger the better!
echo -n "What is the filename? "
set message = $<
# The number of how many you want to send the person.
echo -n "How many? "
set amount = $<
set loop_count = 1
while ($loop_count <= $amount)
echo "Done $loop_count"
mail $name <$message
@ loop_count++
end
Thank you, if you can make the modifacations from a Shell script into a
Perl script.
--
Michael
Free email address: http://www.hotmail.com/
'Eat, drink, and be merry, for tomorrow you may work.'
------------------------------
Date: Sat, 31 May 1997 13:21:14 -0600
From: gbacon@cs.uah.edu
Subject: Statistics for comp.lang.perl.misc
Message-Id: <865102419.41@dejanews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 24 May 1997 09:14:19 GMT and ending at
31 May 1997 05:43:26 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^(?:>|:|\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" e-mail address and name.
Excluded Posters
================
perlfaq-suggestions@mox.perl.com
Totals
======
Total number of posters: 401
Total number of articles: 834
Total number of threads: 345
Total volume generated: 1310.5 kb
- headers: 547.5 kb
- bodies: 724.0 kb (503.7 kb original)
- signatures: 37.4 kb
Averages
========
Number of posts per poster: 2.1
Number of posts per thread: 2.4
Message size: 1609.0 bytes
- header: 672.2 bytes
- body: 888.9 bytes (618.4 bytes original)
- signatures: 45.9 bytes
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
65 106.2 ( 53.8/ 52.3/ 37.9) Tom Phoenix <rootbeer@teleport.com> 34
54.5 ( 22.6/ 31.9/ 13.7) Chipmunk <Ronald.J.Kimball@dartmouth.edu> 23
33.6 ( 12.6/ 20.9/ 13.4) Tung-chiang Yang <tcyang@netcom.com> 18 36.2
( 17.1/ 15.0/ 7.6) abigail@fnx.com 17 26.7 ( 10.1/ 16.6/ 9.4) Tad
McClellan <tadmc@flash.net> 13 21.2 ( 7.9/ 13.3/ 11.4) Nathan V.
Patwardhan <nvp@shore.net> 13 17.7 ( 7.4/ 10.3/ 5.2) Hope this
helps! <scribble@shoga.wwa.com> 13 18.0 ( 7.5/ 10.5/ 4.3) Hope this
helps! <scribble@wwa.com> 12 17.5 ( 8.1/ 9.4/ 4.2) Magnus Bodin
<Magnus.Bodin@tychonides.se> 11 14.0 ( 5.4/ 8.4/ 5.1) Andrew M.
Langmead <aml@world.std.com>
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
106.2 ( 53.8/ 52.3/ 37.9) 65 Tom Phoenix <rootbeer@teleport.com> 54.5
( 22.6/ 31.9/ 13.7) 34 Chipmunk <Ronald.J.Kimball@dartmouth.edu> 36.2
( 17.1/ 15.0/ 7.6) 18 abigail@fnx.com 33.6 ( 12.6/ 20.9/ 13.4) 23
Tung-chiang Yang <tcyang@netcom.com> 26.7 ( 10.1/ 16.6/ 9.4) 17 Tad
McClellan <tadmc@flash.net> 24.3 ( 8.1/ 12.2/ 7.3) 11 Randal
Schwartz <merlyn@stonehenge.com> 21.2 ( 7.9/ 13.3/ 11.4) 13 Nathan V.
Patwardhan <nvp@shore.net> 18.0 ( 7.5/ 10.5/ 4.3) 13 Hope this
helps! <scribble@wwa.com> 17.7 ( 7.4/ 10.3/ 5.2) 13 Hope this helps!
<scribble@shoga.wwa.com> 17.5 ( 8.1/ 9.4/ 4.2) 12 Magnus Bodin
<Magnus.Bodin@tychonides.se>
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
12 PURE PERL .gif creating library needed; not in @#$ C language or
external modules. PERL! 11 Who will win? Borland or Microsoft or
Programmers? 11 Help with ( 10 any editor for perl? 10 Magical
Auto-increment operator 10 Why is ("a" == 0) true? 10 types 9 Idiom
for list summation? 9 Need vacation program in Perl! 8 questions
about chop
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
30.6 ( 14.2/ 15.8/ 6.2) 11 Who will win? Borland or Microsoft or
Programmers? 25.4 ( 7.8/ 17.6/ 12.2) 10 Magical Auto-increment
operator 21.0 ( 10.0/ 10.1/ 6.5) 12 PURE PERL .gif creating library
needed; not in @#$ C language or external modules. PERL! 16.6 ( 6.8/
9.5/ 5.3) 10 any editor for perl? 15.1 ( 6.9/ 7.7/ 4.8) 10 types
14.7 ( 6.4/ 8.1/ 4.2) 11 Help with ( 13.7 ( 3.1/ 10.5/ 9.1) 5
LEXICAL Scoping Hell! (explain?) 13.4 ( 5.7/ 7.3/ 4.2) 9 Idiom for
list summation? 13.4 ( 5.5/ 7.3/ 3.7) 8 questions about chop 13.1
( 7.1/ 5.7/ 4.0) 10 Why is ("a" == 0) true?
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
39 comp.lang.perl.modules
17 comp.lang.perl
12 comp.databases
12 comp.lang.c++
12 comp.object
11 comp.sys.amiga.advocacy
11 comp.lang.javascript
11 comp.unix.advocacy
11 comp.lang.basic.visual
11 comp.lang.tcl
Top 10 Crossposters
===================
Articles Address
-------- -------
48 rmycroft@cyberatl.net
15 Jackson Dodd <jackson@usenix.org>
12 Ben Hanson <benh@cristie.co.uk>
12 Ah feel your pain <no@junks.com>
12 Tim Smith <tzs@halcyon.com>
12 Ulrich Lauther <lauther@fubini.zfe.siemens.de>
12 CyBorch <baldur@image.dk>
12 "Fotis S. Fotopoulos" <cv94018@SPAMcentral.ntua.gr>
12 Stephan Schaem <t21@ix.netcom.com>
11 "Frank Z. Gligic" <zdravko@netcom.ca>
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Sat, 31 May 1997 13:21:09 -0600
From: gbacon@cs.uah.edu
Subject: Statistics for comp.lang.perl.misc
Message-Id: <865102257.32685@dejanews.com>
Following is a summary of articles spanning a 7 day period,
beginning at 18 May 1997 15:11:12 GMT and ending at
23 May 1997 06:00:44 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^(?:>|:|\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" e-mail address and name.
Excluded Posters
================
perlfaq-suggestions@mox.perl.com
Totals
======
Total number of posters: 375
Total number of articles: 791
Total number of threads: 317
Total volume generated: 1298.4 kb
- headers: 528.0 kb
- bodies: 725.4 kb (521.8 kb original)
- signatures: 43.4 kb
Averages
========
Number of posts per poster: 2.1
Number of posts per thread: 2.5
Message size: 1680.9 bytes
- header: 683.5 bytes
- body: 939.1 bytes (675.5 bytes original)
- signatures: 56.2 bytes
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
49 75.5 ( 39.2/ 36.2/ 26.2) Tom Phoenix <rootbeer@teleport.com> 34
62.1 ( 20.0/ 31.4/ 21.4) mike@stok.co.uk 29 57.0 ( 17.2/ 39.8/ 22.6)
Tad McClellan <tadmc@flash.net> 29 54.7 ( 27.4/ 27.2/ 14.5)
abigail@fnx.com 21 43.2 ( 14.4/ 28.8/ 10.1) Chipmunk
<Ronald.J.Kimball@dartmouth.edu> 18 18.9 ( 10.7/ 8.2/ 5.3) Nathan V.
Patwardhan <nvp@shore.net> 17 24.3 ( 10.2/ 14.1/ 8.9) Tung-chiang
Yang <tcyang@netcom.com> 14 29.8 ( 15.8/ 14.1/ 8.3) Eli the Bearded
<usenet-tag@qz.little-neck.ny.us> 10 19.2 ( 7.6/ 7.9/ 5.3) Randal
Schwartz <merlyn@stonehenge.com> 10 20.9 ( 5.0/ 15.7/ 9.3) Andrew M.
Langmead <aml@world.std.com>
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
75.5 ( 39.2/ 36.2/ 26.2) 49 Tom Phoenix <rootbeer@teleport.com> 62.1
( 20.0/ 31.4/ 21.4) 34 mike@stok.co.uk 57.0 ( 17.2/ 39.8/ 22.6) 29
Tad McClellan <tadmc@flash.net> 54.7 ( 27.4/ 27.2/ 14.5) 29
abigail@fnx.com 43.2 ( 14.4/ 28.8/ 10.1) 21 Chipmunk
<Ronald.J.Kimball@dartmouth.edu> 31.6 ( 2.5/ 29.1/ 27.3) 4 Jay Rogers
<jay@rgrs.com> 29.8 ( 15.8/ 14.1/ 8.3) 14 Eli the Bearded
<usenet-tag@qz.little-neck.ny.us> 24.3 ( 10.2/ 14.1/ 8.9) 17
Tung-chiang Yang <tcyang@netcom.com> 20.9 ( 5.0/ 15.7/ 9.3) 10
Andrew M. Langmead <aml@world.std.com> 19.2 ( 7.6/ 7.9/ 5.3) 10
Randal Schwartz <merlyn@stonehenge.com>
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
14 Reading the last line of a file
11 yyyymmdd from localtime?
11 print variable $abc which consist of '$' in it
10 Help: How to Split a file at a Null Line???
9 Year 2000 compliance
9 Time stamping with perl
8 Split function
7 Address parsing one-liner
7 getting next line in while
7 Help in Removing lines with duplicate Field Ones
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
27.9 ( 1.2/ 26.7/ 26.0) 2 GnuEmacs, ActiveWare Perl and debugging
27.9 ( 1.9/ 25.9/ 13.2) 3 How would you optimize this ugly script?
19.0 ( 9.8/ 8.6/ 5.0) 14 Reading the last line of a file 19.0 (
11.3/ 7.0/ 3.9) 6 RISC vs CISC or SunOS 17.0 ( 3.6/ 12.8/ 5.9) 6
AWKer needs Perl help 14.9 ( 7.3/ 7.3/ 4.2) 9 Year 2000 compliance
14.2 ( 7.1/ 6.7/ 3.8) 11 yyyymmdd from localtime? 13.9 ( 6.4/
7.5/ 4.3) 10 Help: How to Split a file at a Null Line??? 13.8 ( 4.9/
8.9/ 6.3) 7 Pattern matching question 12.8 ( 4.7/ 8.0/ 5.4) 7
Help in Removing lines with duplicate Field Ones
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
22 comp.lang.perl.modules
20 alt.fan.e-t-b
15 comp.lang.perl
10 comp.lang.tcl
9 comp.lang.c++
8 comp.databases
8 comp.lang.javascript
7 comp.object
7 comp.unix.advocacy
7 comp.lang.basic.visual
Top 10 Crossposters
===================
Articles Address
-------- -------
23 Michael Gambale <michael_gambale@merck.com>
23 Ray Fischer <ray@netcom.com>
22 Darin Johnson <darin@usa.net.delete_me>
22 rseeger@baynetworks.com
22 Jake Nale <NOSPAMj@NOSPAMnetcom.com>
21 sinclair@ix.netcom.com
13 Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
12 "Osvaldo Pinali Doederlein" <pinali@netpar.com.br>
6 cimarron@dis.org
6 joachim.durchholz@munich.netsurf.de
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Sat, 31 May 1997 16:11:31 GMT
From: danew@enterprise.net (Matthew Burnham)
Subject: Re: Tutorial Needed
Message-Id: <339393b5.1377917@194.72.192.4>
Andy Birkett <andrew.birkett@jotun.co.uk> wrote:
>Are there any good Perl tutorials on the net. If so could someone
>please point me in the right directions.
I'm (slowly) putting one together at
http://www.virtual-pc.com/mindweb/perl - at least I *think* that's the
right url.
Let me know what you think of it so far.
--
Matthew Burnham, Manager, MindWeb | danew@enterprise.net
Commercial web design and hosting, reasonable rates
UKP24/Mb/Year for DIY space | mindweb@pobox.co.uk
FTP, CGI, password protection, etc. too!
http://www.virtual-pc.com/mindweb/
------------------------------
Date: Fri, 30 May 1997 17:20:40 +0100
From: b.wilkinson@pindar.co.uk (Bob Wilkinson)
Subject: Re: Tutorial Needed
Message-Id: <b.wilkinson-3005971720400001@ip57-york.pindar.co.uk>
In article <BRXlVAA99qizEwl2@jotun.demon.co.uk>, Andy Birkett
<andrew.birkett@jotun.co.uk> wrote:
> Are there any good Perl tutorials on the net. If so could someone
> please point me in the right directions.
>
> Thanks
> --
> Andy Birkett
Hello,
Altavista is a good search engine. www.altavista.com. Use it!
Bob
--
I have become death, destroyer of the worlds.
------------------------------
Date: Sat, 31 May 1997 10:37:26 -0700
From: Benjamin Kyan <bkyan@mindcast.com>
Subject: Weird Behavior in 'foreach' with Perl 5.003_02 on BSDi 3.0
Message-Id: <339061D5.FCE5EE71@mindcast.com>
Okay, here's a puzzle for any Perl gurus, out there...
On the BSDi, the output from the following code snippet
prints:
1000
1001
1002
1003
1000
1001
1002
1
1000
1001
1002
1003
Why the heck does the last iteration in the test loop
change to 1? Nothing in the subroutine *should* affect
the variables outside of its scope, right?
I ran the same script on Linux and Solaris, and I get
the expected "1003" result in the test loop, so this appears
to be a problem with just this platform. I could
circumvent this problem by substituting a "for" loop in
place of the foreach loop, but I'd like figure what
problem is, so I could look for and remove any potentially
buggy code from the BSDi machine. Anyways, here's the
code fragment...
-=-=-
$DEBUG = 1;
$fieldcounter = 2 if ($DEBUG);
# 1st control loop
foreach $case (@remainder)
{
print $case, "\n" if ($DEBUG);
}
# test loop
undef $mergeseg;
foreach $case (@remainder)
{
print $case, "\n" if ($DEBUG);
$mergeseg .= &substituterecord($fieldcounter, $case, $template);
}
# 2nd control loop
foreach $case (@remainder)
{
print $case, "\n" if ($DEBUG);
}
sub substituterecord
{
my($fieldcounter) = shift(@_);
my($unique) = shift(@_);
my($datamerge) = shift(@_);
my($i, $currentfield, $subtext, @date, $recorddate, $recordtime);
@date = localtime(int($unique));
$date[1] = "0" . $date[1] if (length($date[1]) == 1);
$date[0] = "0" . $date[0] if (length($date[0]) == 1);
$recorddate = ++$date[4] . "/" . $date[3] . "/" . $date[5];
$recordtime = $date[2] . ":" . $date[1] . ":" . $date[0];
if ($datamerge =~ /<\!--\§ionheader-->/)
{
$subtext = §ionheader($unique);
$datamerge =~ s/<\!--\§ionheader-->/$subtext/g;
}
for ($i = 0; $i < $fieldcounter; $i++)
{
$currentfield = $fieldname[$i];
if ($datamerge =~ /\<\!--\$$currentfield/)
{
if ($blobfield[$i] == 1)
{
undef $subtext;
open(BLOB, $datapath . "blob." . $currentfield . "/" . $unique);
while(<BLOB>)
{
$subtext .= $_;
}
close(BLOB);
}
else
{
dbmopen(%dbm, $datapath . "field." . $currentfield, undef);
$subtext = $dbm{$unique};
dbmclose(%dbm);
}
if ($subtext)
{
$datamerge =~ s/<!--\$$currentfield\?(.+?)\?-->/$1/sg;
}
else
{
$datamerge =~ s/<!--\$$currentfield\?(.+?)\?-->//sg;
}
$datamerge =~ s/\<\!--\$$currentfield\--\>/$subtext/g;
}
}
$datamerge =~ s/<!--\&thisscript-->/$thisscript/g;
$datamerge =~ s/<!--\&thisrecord-->/$unique/g;
$datamerge =~ s/<!--\&recorddate-->/$recorddate/g;
$datamerge =~ s/<!--\&recordtime-->/$recordtime/g;
$datamerge =~ s/<!--\&userpassword-->/$userpassword/g;
if ($userpassword)
{
$datamerge =~ s/<!--\&userpassword\?(.+?)\?-->/$1/sg;
}
else
{
$datamerge =~ s/<!--\&userpassword\?(.+?)\?-->//sg;
}
$datamerge;
}
--
Best Regards,
Benjamin Kyan
bkyan@mindcast.com
========================== ======================== ==============
Clickstream Communications 9101 W. Sahara, #105-183 T 404.685.0852
(website) www.mindcast.com Las Vegas, Nevada 89117 F 404.685.0853
========================== ======================== ==============
------------------------------
Date: Sat, 31 May 1997 15:36:10 -0400
From: "D.F. Parkhurst" <parkhurs@indiana.edu>
Subject: What's perl equivalent to awk's $1, $2, etc.?
Message-Id: <33907DAA.3B60@indiana.edu>
I'm familiar with awk, but want to start using perl because of its much
greater power. Right now I need a little program to reorganize a data
file, and need to be able to refer to the eight fields in each line.
In awk, those would be referred to as $1 through $8.
I have three books on perl, but can't find concepts like "field" or
"parsing" in the index of any of them. Is there an equivalent concept
to $1 (etc.) in perl, and if so, what is it called?
Thanks for any enlightenment.
Dave Parkhurst
------------------------------
Date: 31 May 1997 15:10:48 -0600
From: mfuhr@dimensional.com (Michael Fuhr)
Subject: Re: What's perl equivalent to awk's $1, $2, etc.?
Message-Id: <5mq44o$i0e@flatland.dimensional.com>
"D.F. Parkhurst" <parkhurs@indiana.edu> writes:
> I'm familiar with awk, but want to start using perl because of its much
> greater power. Right now I need a little program to reorganize a data
> file, and need to be able to refer to the eight fields in each line.
> In awk, those would be referred to as $1 through $8.
You can turn on autosplitting with options documented in the perlrun
manual page; you can also use the "split" function documented in the
perlfunc manual page. There's also the Text::ParseWords module.
--
Michael Fuhr
http://www.dimensional.com/~mfuhr/
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.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 549
*************************************
