[9811] in Perl-Users-Digest
Perl-Users Digest, Issue: 3404 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 10 12:07:12 1998
Date: Mon, 10 Aug 98 09:00:24 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 10 Aug 1998 Volume: 8 Number: 3404
Today's topics:
[Q] How to put function into .pm file and use elsewhere (Scott Cherkofsky)
[Q] How to put function into .pm file and use elsewhere (Scott Cherkofsky)
Re: [Q] Problems building perl 5.004_4 on SGI (Greg Bacon)
Re: ActiveState 5.005: Where are the threads? (Nathan V. Patwardhan)
Re: ARGV truncations <kirkmo@us.ibm.com>
Re: Calculate Date in Perl <thomas@daimi.aau.dk>
Re: Can't make flock work as described... <tbeaulieu@mediaone.net>
Re: Checking if URL is valid/exist using PERL (Abigail)
Re: comp.lang.perl.announce redux <grant.griffin@nospam.com>
Re: Help Help Please Help ! <jdporter@min.net>
Re: HELP WANTED: Problems with Servers Side Includes (S <tbeaulieu@mediaone.net>
HTTP_Proxy enviroment variable also doesn't work <pep_mico@hp.com>
HTTP_proxy in PPM.pl <pep_mico@hp.com>
Re: Installing Perl 5.004_04 on SCO Unixware 2.x (Mike Wescott)
Re: Mail attachments in NT w/o sendmail, blat, etc... <martin@klg.com>
Re: MIME types and perl data... <dparrott@ford.com>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Newbie Question About 'for' (Martin Gallo)
Re: Newbie Question About 'for' (Larry Rosler)
Re: Newbie Question About 'for' (Philosopher King)
Re: Newbie Question About 'for' <jj_90@hotmail.com>
oraperl books mathew_hou@hotmail.com
Re: Perl Docs.. forget the original post <jdporter@min.net>
Re: PERLDOC for Win32 ?? (Jim Weisgram)
Re: perlfaq - frequently asked questions about Perl (pa <jdporter@min.net>
Re: perlfaq - frequently asked questions about Perl (pa <jdporter@min.net>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 10 Aug 1998 10:48:13 -0400
From: crusader@bobo.shirenet.com (Scott Cherkofsky)
Subject: [Q] How to put function into .pm file and use elsewhere?
Message-Id: <6qn17d$pbp@bobo.shirenet.com>
I'm been learning how to create global module files which all of my
scripts can access for things like global constants and global functions.
I got the global constants thing down pat but I can't seem to get
functions, embedded within my module file, to be accessed from scripts
USEing the module file.
Here's what I've got in my Module file:
-----------------------------------------
package NRMVars;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw($cSIDFile sdcGetSID);
# Initialize Constants
$cSIDFile = "SomeDirectory/SID.txt";
# Get Session ID Function
sub sdcGetSID {
if (open(fhSID,"$cSIDFile")) {
$vSID = <fhSID>;
chomp($vSID);
close(fhSID);
return($vSID);
} else {return(0);}
}
1;
-----------------------------------------
and Here's what I've got in my Script:
-----------------------------------------
#!/usr/local/bin/perl -w
use NRMVars;
print "<BR> SID: ".sdfGetSID;
-----------------------------------------
Not surprizingly, I don't get what I expect to get, which is a print out
of the Function's results ($vSID).
Since I'm new to Modules I'm sure that's where the error is - either in
the way I attached to it or in the way I call the function (or the way the
function is setup in the module).
Anyway, I would greatly appreciate some help - I've look in the FAQs, have
read the Nutshell books (and a few others) and find the explanations
cryptic and of little help - I not a coder by trade.
Scott Cherkofsky
--
____________________________________________________________________________
Scott | scottc1033 aol com | Need Interenet access in Virginia?
Cherkofsky|crusader shirenet com | Try Shirenet <mailto:info@shirenet.com>
'Crusader'|HomePage: http://www.shirenet.com/~crusader/html/Home.html
------------------------------
Date: 10 Aug 1998 11:08:58 -0400
From: crusader@bobo.shirenet.com (Scott Cherkofsky)
Subject: [Q] How to put function into .pm file and use elsewhere?
Message-Id: <6qn2ea$psj@bobo.shirenet.com>
Well, looks like I've made a perfect dodo of myself. Guess I should
have double checked my typing before jumping to the conclusion it was
an error in my coding.
Gads...
Thanks to the kind souls that responded pointing out the error without
lambasting me for my own stupidity.
--
____________________________________________________________________________
Scott | scottc1033 aol com | Need Interenet access in Virginia?
Cherkofsky|crusader shirenet com | Try Shirenet <mailto:info@shirenet.com>
'Crusader'|HomePage: http://www.shirenet.com/~crusader/html/Home.html
------------------------------
Date: 10 Aug 1998 15:13:43 GMT
From: gbacon@cs.uah.edu (Greg Bacon)
Subject: Re: [Q] Problems building perl 5.004_4 on SGI
Message-Id: <6qn2n7$jqh$2@info.uah.edu>
In article <joe.mcmahon-0708981655220001@prtims.stx.com>,
joe.mcmahon@gsfc.nasa.gov (Joe McMahon) writes:
: In article <m3ww8llrre.fsf@windlord.Stanford.EDU>, Russ Allbery
: <rra@stanford.edu> wrote:
: >Does it work better if you compile without optimization? I think I've
: >seen this one before....
:
: For best results, use -32 (not -n32!) and -O2 (not -O3! the compiler will
: coredump). Alter the config not to use /lib32, /usr/lib32, etc. Just generally
: avoid -n32 to improve your life a lot.
Hmm?
% perl -V
Summary of my perl5 (5.0 patchlevel 5 subversion 0) configuration:
Platform:
osname=irix, osvers=6.2, archname=IP22-irix
uname='irix mork 6.2 06101030 ip22 '
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef useperlio=undef d_sfio=undef
Compiler:
cc='cc -n32', optimize='-O3', gccversion=
The biggest problem I've experienced with regard to -n?32 is that when
I want to link against other libraries, it always seems like I have at
least one in the bunch that is of the wrong ABI. :-( The solution I use
is to create a /usr/local/lib32 and populate it with -n32 libraries.
Of course, it doesn't help with the OpenGL libraries in /usr/lib32 are
actually from the old ABI. :-( IRIX sucks, and I can't wait for the
Linux port! :-)
Greg
--
Usenet is like a herd of performing elephants with diarrhea; massive,
difficult to redirect, awe-inspiring, entertaining, and a source of
mind-boggling amounts of excrement when you least expect it.
-- Gene Spafford
------------------------------
Date: 10 Aug 1998 14:32:51 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: ActiveState 5.005: Where are the threads?
Message-Id: <6qn0aj$lp7@fridge.shore.net>
Philosopher King (holcojh5@REMOVEMEwfu.edu) wrote:
: According to some other docs, threaded binaries will build with VC++,
: BC++, or egcs/gcc. Of course this doesn't help the original poster too
: much with finding such a binary, but at least the search is not
: completely futile.
If there's one "element of beauty" in the merged versions, it's that a
person can download a set of development tools (U/WIN, Cygnus, Mingw32,
Borland, MSVC-whatever), and build Perl effectively themselves.
It's quite a liberating thing when one isn't forced to use a version
of software which doesn't necessarily work in the way that the
developer had anticipated it to work. The developer can build things
as they see fit, providing that they're using the right tools.
Neat.
--
Nate Patwardhan|root@localhost
"Fortunately, I prefer to believe that we're all really just trapped in a
P.K. Dick book laced with Lovecraft, and this awful Terror Out of Cambridge
shall by the light of day evaporate, leaving nothing but good intentions in
its stead." Tom Christiansen in <6k02ha$hq6$3@csnews.cs.colorado.edu>
------------------------------
Date: Mon, 10 Aug 1998 11:55:55 -0400
From: Kirk Moren <kirkmo@us.ibm.com>
To: Lloyd Zusman <ljz@asfast.com>
Subject: Re: ARGV truncations
Message-Id: <35CF180B.24C98B9D@us.ibm.com>
That is my suspiscion as well that when rexx is passing the argument string to
perl,
the data does contain CRLF characters occassionally and these characters
effectively
truncate the argument string at the point the first CRLF character appears. Apart
from removing these CRLF characters from the argument string, is their any way to
overcome this problem?
Thanks in advance,
Kirk Moren
Lloyd Zusman wrote:
> Kirk Moren <kirkmo@us.ibm.com> writes:
>
> > Nem W Schlecht wrote:
> >
> > > [courtesy copy e-mailed to author(s)]
> > >
> > > In comp.lang.perl.misc, Kirk Moren <kirkmo@us.ibm.com> wrote:
> > > >I have a situation where an rexx program is calling a perl 5 program to
> > > >perform some socket i/o. The data is being passed to the perl program
> > > >via arguments such as...
> > > >
> > > > [ ... ]
> >
> > [ ... ]
> >
> > To provide an actual example would be quite lengthy since most argument
> > lengths
> > are close to 1000 bytes, but a good illustration would be the following...
> >
> > `perl perlsock.pl adv3.tpa.co.com 5000 0999data string preceded by 4 byte
> > length of 0999 contains a string of data and special characters0a0dxthis is
> > the end`
> >
> > @ARGV in perlsock only receives up to ... and special characters ... with all
> > data past and including the 0a0dx hex string represenation being truncated.
>
> You're invoking the Perl program from Rexx, and so it looks as if it's
> Rexx which is somehow interpreting the special characters in its
> efforts to construct the command line which you are passing to Perl.
> It appears as if Rexx is interpreting `0a0dx' as a
> carriage-return-linefeed pair and truncating (or splitting?) the
> command line at that point.
>
> I bet that you would get the same truncated command line if you invoked
> the following command in Rexx:
>
> `echo perlsock.pl adv3.tpa.co.com 5000 0999data string preceded by 4 byte
> length of 0999 contains a string of data and special characters0a0dxthis is
> the end`
>
> --
> Lloyd Zusman ljz@asfast.com
> perl -e '$n=170;for($d=2;($d*$d)<=$n;$d+=(1+($d%2))){for($t=0;($n%$d)==0;
> $t++){$n=int($n/$d);}while($t-->0){push(@r,$d);}}if($n>1){push(@r,$n);}
> $x=0;map{$x+=(($_>0)?(1<<log($_-0.5)/log(2.0)+1):1)}@r;print"$x\n"'
------------------------------
Date: Mon, 10 Aug 1998 16:37:34 +0200
From: Thomas Jespersen <thomas@daimi.aau.dk>
Subject: Re: Calculate Date in Perl
Message-Id: <35CF05AE.2F54C4B0@daimi.aau.dk>
ngong@my-dejanews.com wrote:
> #!/usr/local/bin/perl
>
> use Date::Calc qw(:all);
> use CGI;
> use lib qw(/usr/home/<username>/usr/local/lib/perl5
> /usr/home/<username>/usr/local/lib/perl5/site_perl);
>
> print("Content-type: text/html\n\n");
> print("<html>\n");
> print("<head>\n");
.....
Why don't you use CGI.pm to make these lines above?? You have already
loaded it
------------------------------
Date: Mon, 10 Aug 1998 11:26:02 -0400
From: "Todd B" <tbeaulieu@mediaone.net>
Subject: Re: Can't make flock work as described...
Message-Id: <6qn3h3$1d5$1@wbnws01.ne.highway1.com>
i have noticed that several of the "high profile" users in this group appear
to be very short on patience and long on rudeness.
i keep reading very curt, offensive replies, which appear to be building up
the egos of the senders, and making the rest of us feel stupid.
this is why i HATE newgroups, and love compuserve. there is such an
enormous lack of professionalism on the net.
------------------------------
Date: 10 Aug 1998 15:57:01 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Checking if URL is valid/exist using PERL
Message-Id: <6qn58d$lq7$1@client3.news.psi.net>
Randal Schwartz (merlyn@stonehenge.com) wrote on MDCCCIV September
MCMXCIII in <URL: news:8chfzmvx5i.fsf@gadget.cscaper.com>:
++ >>>>> "vanja" == vanja <vanja@siamrelay.com> writes:
++
++ vanja> Is it possible to check if URL is valid (if it exists) using
++ vanja> PERL? I am sure that I have seen something about that topic on
++ vanja> Dejanews few days ago, but there's no way in hell I can find
++ vanja> that message again.
++
++ vanja> If someone can point me to any direction...
++
++ Yes:
++
++ use LWP::Simple;
++ print "it's valid" if get $url;
++
++ Can't be much simpler than that.
Really? Then what's all this mumble-jumble about validating email
addresses? Mailto: URLs are just a small subset of the possible
URLs. Furthermore, just because you cannot get a certain HTTP url doesn't
mean the URL isn't valid/non-existing - partly for the same reasons you
cannot validate email addresses.
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
------------------------------
Date: Mon, 10 Aug 1998 09:20:40 -0500
From: Grant Griffin <grant.griffin@nospam.com>
Subject: Re: comp.lang.perl.announce redux
Message-Id: <35CF01B7.CF6CC0DE@nospam.com>
Tom Christiansen wrote:
> Smiley aside, *please* stop this stupid statement. It's not true, and
> you're confused. Americans and Briton both speak English. If you'd
> like to find a different language, go to China or Peru. Or Wales. :-)
>
> --tom
Do you think it is too late to send back my "Webster's New World
Dictionary of the AMERICAN LANGUAGE" which I have had for twenty years?
;-)
=g2
Olathe, Kansas USA
------------------------------
Date: Mon, 10 Aug 1998 11:24:36 -0400
From: John Porter <jdporter@min.net>
Subject: Re: Help Help Please Help !
Message-Id: <35CF10B4.38B2@min.net>
Rick Delaney wrote:
>
> Neil Kandalgaonkar wrote:
> >
> > This will also do what you want:
> >
> > @x = (0,1,2,3,4,5);
> > @xx = map (($_, $_), @x);
>
> Or, as long as you're throwing x's around,
>
> @xx = map $_ x 2, @x;# should be a bit faster
Not only is it not faster (according to your benchmark),
but it is wrong. That produces
('00','11','22','33','44','55')
You meant to say ($_) x 2
The parens confuse map a little, so you'd need to
leave in the parens that Neil had; thus:
@xx = map( ($_) x 2, @x );
--
John Porter
------------------------------
Date: Mon, 10 Aug 1998 11:33:27 -0400
From: "Todd B" <tbeaulieu@mediaone.net>
Subject: Re: HELP WANTED: Problems with Servers Side Includes (SSI) on IIS 4.
Message-Id: <6qn3v0$1mk$1@wbnws01.ne.highway1.com>
because he was hoping someone, other than an asshole, could help him. whch
category do you fall into?
answer: asshole.
------------------------------
Date: Mon, 10 Aug 1998 16:02:15 +0200
From: Pep Mico <pep_mico@hp.com>
Subject: HTTP_Proxy enviroment variable also doesn't work
Message-Id: <35CEFD66.A260DE52@hp.com>
Hi Chuck
Thanks for your suggestion, I will try it.
I've been investigating how PPM.PL works and I've seen that it is able to use an
environment varialbe named HTTP_proxy.
I've tried to work with it assigning my Web-Proxy server, but it does't work. Have
you seen it?
Regards
pep_mico@hp.com
chuckk@monmouth.com wrote:
> <SNIP>
> In article <35C9548E.D29D32B2@hp.com>,
> Pep Mico <pep_mico@hp.com> wrote:
> > Hello everybody
> >
> > I'm suffering problems with a module named ppm.pl that installs
> > additional packages in the latest distribution of Perl provided by
> > ActiveState.
> <SNIP>
>
> I find ppm.pl a little tempermental myself.
> Try the following:
> 1) go to www.activestate.com/packages
> 2) Look at the Module names listed and see if they have the one you want
> 3) example Tk
> type www.activesate.com/packages/Tk.ppd
> Hit save when prompted. Save it in a dir called packages.
> 4) type www.activestate.com/packages/x86/Tk.tar.gz
> (I think x in x86 is lowercase, or try uppercase also)
> 5) save the file to a directory x86 under packages.
> 6) rename the file incase windows turns the filename to Tk_tar.gz to Tk.tar.gz
> 7) start ppm and type: set repository local c:\packages
> 8) install Tk
>
> Thats it.
> chuck
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 10 Aug 1998 16:06:24 +0200
From: Pep Mico <pep_mico@hp.com>
Subject: HTTP_proxy in PPM.pl
Message-Id: <35CEFE60.39A39809@hp.com>
Hello,
I'm trying to install additional packages of ACTIVEPERL using PPM.PL
script that is distributed with it.
I've seen that this script seems that is able to use an environment
variable named HTTP_proxy, to configure this script to work in closed
networks that uses firewalls.
I was trying to use it, but I'm unable to download any additional
package. Does anybody knows how to work with it? Some example?
Regards
pep_mico@hp.com
------------------------------
Date: 10 Aug 1998 09:52:44 -0400
From: wescott@cygnus.ColumbiaSC.NCR.COM (Mike Wescott)
To: "Colin J Denman" <colin@softc.co.uk>
Subject: Re: Installing Perl 5.004_04 on SCO Unixware 2.x
Message-Id: <x44svl54gj.fsf@cygnus.ColumbiaSC.NCR.COM>
In article <35cafde3.0@nnrp1.news.uk.psi.net> "Colin J Denman" <colin@softc.co.uk> writes:
[ cc email sent ]
> The test "lib/io_sel.t" fails after 10 items, complaining that:
> "select not implemented at ../lib/IO/Select.pm line 259"
> "FAILED at test 11"
This is almost certainly the result of using the wrong libc.so, try
using the one in /usr/ccs/lib.
--
-Mike Wescott
mike.wescott@ColumbiaSC.NCR.COM
------------------------------
Date: Mon, 10 Aug 1998 10:26:55 -0400
From: Martin Little <martin@klg.com>
To: Laurie Russinko <laurie@eclipse.net>
Subject: Re: Mail attachments in NT w/o sendmail, blat, etc...
Message-Id: <35CF032F.8751D9CB@klg.com>
I use the following program under NT for my perl scripts.
http://www.stalkerlab.ch/SMailers/index.html
It has all the basic functionality for what I need but YMMV.
../Martin
Laurie Russinko wrote:
> I've just started working with Perl in NT 4.0 (I'm used to working in
> Unix) and I've run into a problem I'm hoping someone can help me out
> with...
>
> I need to send a text file that's on our server to a specified email
> address, but it has to be sent as an attachment. The server we're
> working on does not have sendmail.exe installed, and it's not ours so I
> can't install any modules or other executable programs. Currently, I'm
> using a perl script developed by Christian Mallwitz
> (http://www.geocities.com/SiliconValley/Park/8312/mail1a_pl.txt) to send
> the file, but it sends the file in the body of the message, not as an
> attachment. I've looked around and found several suggested solutions to
> this problem, but all require either extra modules or executables to be
> installed on the server. Are there any other ways to do this?
>
> Any help would be greatly appreciated...
>
------------------------------
Date: Mon, 10 Aug 1998 10:16:28 -0400
From: "Dennis M. Parrott" <dparrott@ford.com>
To: alfo <alfo@perspecta.com>
Subject: Re: MIME types and perl data...
Message-Id: <35CF00BC.D90@ford.com>
Perhaps (and this is only an *opinion*) you might have a look at
how the Penguin module ships things 'round the 'net. You might
get a reasonable clue from it's workings.
alfo wrote:
>
> I have some code which creates message object, these are passed to
> arbitrary 'messageHander' object ( I have a message handler object that
> can be inherited by objects interested in messages, override
> messageHander::recieveMessage and your good). I want to 'type' the
> content of these message and I'm wondering if anyone has suggestions as
> to a good, general purpose way to do this.
>
> My first inkling is to use MIME types. Also, I would love to be able to
> easily forward perl native references ( arrays, hashed, regexes & etc)
> with good type codes. So: has anyone got a list of 'official' or
> preferred MIME types for the various perl internal data types?
>
> For e.g..:
>
> application/x-perl-scalar-ref
> application/x-perl-array-ref
> application/x-perl-hash-ref
> application/x-perl-object-ref <- since the object knows what it
> is, this should be enough.
>
> etc...
>
> PS, you can find a list of current (RFC1521) media types here:
>
> ftp://ftp.isi.edu/in-notes/iana/assignments/media-types/media-types
>
> Thanks for any thoughts and please CC me in your response.
>
> #alfo
>
> --
> Alf O. Watt alfo@perspecta.com www.perspecta.com
>
> perl code is the beat poetry of the information age
--
-----------------------------------------------------------------------
Dennis M. Parrott | Unix: dparrott@ford.com
PCSE Webmaster | PROFS: DPARROTT
Ford Motor Company | VAX: EEE1::PARROTT
Dearborn, Michigan USA | public Internet: dparrott@ford.com
-----------------------------------------------------------------------
Voice: 313-322-4933 Fax: 313-248-1234 Pager: 313-201-9978
------------------------------
Date: 10 Aug 1998 15:23:56 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <6qn3ac$jqh$4@info.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 03 Aug 1998 14:56:17 GMT and ending at
10 Aug 1998 06:15:04 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" e-mail address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 253 (46.1% of all posters)
Articles: 378 (21.6% of all articles)
Volume generated: 632.2 kb (20.5% of total volume)
- headers: 253.9 kb (5,157 lines)
- bodies: 371.2 kb (11,303 lines)
- original: 255.5 kb (8,380 lines)
- signatures: 6.7 kb (162 lines)
Original Content Rating: 0.688
Averages
========
Posts per poster: 1.5
median: 1 post
mode: 1 post - 184 posters
s: 1.3 posts
Message size: 1712.6 bytes
- header: 687.8 bytes (13.6 lines)
- body: 1005.5 bytes (29.9 lines)
- original: 692.2 bytes (22.2 lines)
- signature: 18.3 bytes (0.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
10 18.4 ( 6.2/ 12.1/ 9.1) Niklas Matthies <matthies@fsinfo.cs.uni-sb.de>
8 16.7 ( 5.4/ 11.3/ 7.6) "Ha" <REPLY_TO_lastronin@earthlink.net>
7 16.4 ( 6.3/ 10.1/ 7.4) "Scott Willsey" <hangtown_nospam@thelostweb.com>
6 8.2 ( 4.7/ 3.5/ 2.1) "Mission A/V" <dan@dont.spam.me.please.missionrec.com>
5 6.6 ( 3.1/ 3.5/ 1.4) Dan Sugalski <sugalskd@netserve.ous.edu>
4 5.1 ( 2.6/ 2.3/ 1.4) alastair@psoft.co.uk
4 3.6 ( 2.4/ 1.2/ 0.7) Bob Lockie <bjlockie@nortel.ca>
4 13.3 ( 3.0/ 9.3/ 4.8) tigger@io.nospaam.com
4 5.1 ( 2.8/ 2.3/ 1.8) b_redeker@my-dejanews.com
4 9.2 ( 3.4/ 5.8/ 4.7) arclightcomm.no.sp@mail.com
These posters accounted for 3.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
39.2 ( 0.7/ 38.5/ 1.4) 1 Taylor Frith <tfrith@vmasc.odu.edu>
18.4 ( 6.2/ 12.1/ 9.1) 10 Niklas Matthies <matthies@fsinfo.cs.uni-sb.de>
16.7 ( 5.4/ 11.3/ 7.6) 8 "Ha" <REPLY_TO_lastronin@earthlink.net>
16.4 ( 6.3/ 10.1/ 7.4) 7 "Scott Willsey" <hangtown_nospam@thelostweb.com>
13.3 ( 3.0/ 9.3/ 4.8) 4 tigger@io.nospaam.com
9.2 ( 3.4/ 5.8/ 4.7) 4 arclightcomm.no.sp@mail.com
9.2 ( 0.6/ 8.6/ 0.0) 1 "s12345" <s12345@sp.ac.sg>
8.5 ( 3.1/ 5.4/ 4.3) 4 Adam Ipnarski <adam@fastfare.co.uk>
8.2 ( 4.7/ 3.5/ 2.1) 6 "Mission A/V" <dan@dont.spam.me.please.missionrec.com>
7.6 ( 2.8/ 4.8/ 2.6) 3 birgitt@minivend.com
These posters accounted for 4.8% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 0.5 / 0.5) 3 "Todd B" <tbeaulieu@mediaone.net>
1.000 ( 3.6 / 3.6) 3 jlafosse@my-dejanews.com
1.000 ( 1.1 / 1.1) 3 Frank Cusack <fcusack@iconnet.net>
0.917 ( 2.4 / 2.7) 3 webmaster@vaticanmuseumtreasures.com
0.813 ( 4.7 / 5.8) 4 arclightcomm.no.sp@mail.com
0.789 ( 1.8 / 2.3) 4 b_redeker@my-dejanews.com
0.789 ( 4.3 / 5.4) 4 Adam Ipnarski <adam@fastfare.co.uk>
0.761 ( 1.9 / 2.5) 4 no.uce@dead.mailbox.com
0.760 ( 2.5 / 3.2) 3 Bomboze <bomboze@pol.ru>
0.759 ( 1.8 / 2.4) 3 Jean-Michel Hemstedt <djinn@tech.eurodyn.com.gr>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.622 ( 1.4 / 2.3) 4 alastair@psoft.co.uk
0.591 ( 2.1 / 3.5) 6 "Mission A/V" <dan@dont.spam.me.please.missionrec.com>
0.587 ( 1.4 / 2.4) 3 sneaker@fccj.org
0.541 ( 2.6 / 4.8) 3 birgitt@minivend.com
0.519 ( 4.8 / 9.3) 4 tigger@io.nospaam.com
0.471 ( 1.4 / 3.1) 3 Matt Grommes <mpgromm@sandia.gov>
0.438 ( 1.3 / 3.0) 3 huntersean@hotmail.com
0.405 ( 1.4 / 3.5) 5 Dan Sugalski <sugalskd@netserve.ous.edu>
0.359 ( 0.6 / 1.6) 3 AHands@unforgettable.com
0.318 ( 0.6 / 2.0) 3 "Donald W. McArthur" <donatla@ix.netcom.com>
27 posters (10%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
14 toni@usenix.org (Toni Veglia)
9 dOOMSdAY@STARDATE.WESTFALEN.DE (Max von Weissenborn)
7 Tom Giering <tgiering@fccmail.com>
6 "Host Investigator" <investigators@iglobe.net>
5 float@interport.net (void)
5 kulakov@kulakov.msk.ru
5 searle@longacre.demon.co.uk (Michael Searle)
4 cmason@unixzone.com (Chris L. Mason)
4 "MSmith" <Msmith@notes.net>
3 Jesse <potus@usa.net>
------------------------------
Date: 10 Aug 1998 14:04:51 GMT
From: martimer@mindspring.com (Martin Gallo)
Subject: Re: Newbie Question About 'for'
Message-Id: <martimer-1008980907320001@pool-207-205-143-51.rvdl.grid.net>
Thanks for the help. Boy, stare at something long enough and you miss the
details. I would have thought that 18 years of experience would have
taught me!!
Sigh
Marty
Thanks again
------------------------------
Date: Mon, 10 Aug 1998 06:55:15 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Newbie Question About 'for'
Message-Id: <MPG.10389b9babf0109f9897c0@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <martimer-1008980812070001@pool-207-205-143-51.rvdl.grid.net>
on 10 Aug 1998 13:09:25 GMT, Martin Gallo <martimer@mindspring.com>
says...
> I just started with Perl over the weekend (I have been programming off and
> on since 1980), and cannot understand why the simple program:
>
> for ($a=1,$a<7, ++$a) {
> print $a,"\n"
> }
Try using semicolons instead of commas. What you have specified is a
"foreach" loop ("for" and "foreach" are synonyms) consisting of the three
items $a = 1, $a < 7, ++$a. These are evaluated before the looping
begins, so the value of $a is 2. This is then printed three times, once
for each element of the list. No surprise, but not what you wanted,
either.
Look at perlsyn for syntax descriptions.
--
Larry Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 10 Aug 1998 14:56:04 GMT
From: holcojh5@REMOVEMEwfu.edu (Philosopher King)
Subject: Re: Newbie Question About 'for'
Message-Id: <35cf047e.487046505@enews.newsguy.com>
On 10 Aug 1998 13:09:25 GMT, martimer@mindspring.com (Martin Gallo)
wrote:
>I just started with Perl over the weekend (I have been programming off and
>on since 1980), and cannot understand why the simple program:
>
>for ($a=1,$a<7, ++$a) {
>print $a,"\n"
>}
>
>gives the following results:
>
>2
>2
>2
>
>Using $a++ for the incremental also gives the same result.
>
>I was able to get the 'while' version to work.
>
>Marty
Take a look at your loop initialization. You have commas where you
probably meant to have semicolons. This makes perl think you want all
3 of these things in your initialization statement and no loop control
or incrementing, which is why you're getting this bizarre output.
Good luck and I hope this helps...
Heath
--
Heath Holcomb * I want to be more like the ocean
holcojh5@REMOVEMEwfu.edu * No talking man
http://www.wfu.edu/~holcojh5/ * All action
delete REMOVEME to email * - Perry Farrell
------------------------------
Date: Mon, 10 Aug 1998 10:00:34 -0400
From: john h <jj_90@hotmail.com>
To: Martin Gallo <martimer@mindspring.com>
Subject: Re: Newbie Question About 'for'
Message-Id: <35CEFD02.7B0CD5FB@hotmail.com>
Martin Gallo wrote:
>
> I just started with Perl over the weekend (I have been programming off and
> on since 1980), and cannot understand why the simple program:
>
> for ($a=1,$a<7, ++$a) {
> print $a,"\n"
> }
>
as other posters mentioned, you need semi-colons, but
a nice short cut is:
for (1..7)
{
print $_ . "\n";
}
or if you want to increment a particular variable:
my $a; ## define for: use strict;
for $a (1..7)
{
print $a . "\n";
}
-j
------------------------------
Date: Mon, 10 Aug 1998 15:07:48 GMT
From: mathew_hou@hotmail.com
Subject: oraperl books
Message-Id: <6qn2c3$lv$1@nnrp1.dejanews.com>
Does anyone know if there are any books or documentation on ORAPERL
programming???
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Mon, 10 Aug 1998 11:11:34 -0400
From: John Porter <jdporter@min.net>
Subject: Re: Perl Docs.. forget the original post
Message-Id: <35CF0DA6.1C80@min.net>
M.J.T. Guy wrote:
>
> "The PODs are no better than they are because YOU haven't provided
> patches to improve them."
>
> The theme tune of perl5-porters is "Patches always welcome".
> Anyone can contribute.
> See the file Porting/patching.pod in the Perl
> distribution for more details.
Exactly.
This is what gives us (i.e. everyone) the right to complain
about M$ crashware.
Perl is Open.
--
John Porter
------------------------------
Date: Mon, 10 Aug 1998 14:14:06 GMT
From: jweisgram@hotmail.com (Jim Weisgram)
Subject: Re: PERLDOC for Win32 ??
Message-Id: <35d3ffa0.56158852@news.teleport.com>
Charles Maier <maierc@chesco.com> wrote:
>dturley@pobox.com wrote:
>>
>> In article <35C81B5A.A504ACC6@chesco.com>,
>> maierc@chesco.com wrote:
>> > Is there no perdoc executable for the Win32 port of Perl??
>>
>> Get the GS binary dist:
>>
>> http://www.perl.com/CPAN-local/ports/win32/Standard/x86/perl5.00402-bindist04-bc
>> .tar.gz
>
>
>LOL... a "tar.gz" binary release for a Win32 executable?
>
>Thanks.. I will try to get it from there.
Winzip handles it just fine. I expect other modern unzippers will also.
--
All opinions expressed are mine and not my employers (but they ought to be)
Jim Weisgram
Oregon Department of Transportation
------------------------------
Date: Mon, 10 Aug 1998 10:40:36 -0400
From: John Porter <jdporter@min.net>
Subject: Re: perlfaq - frequently asked questions about Perl (part 0 of 9)
Message-Id: <35CF0664.112B@min.net>
Bart Lateur wrote:
>
> Because, basically, an editor can do everything a pager can do, and more
> (like correcting typing mistakes). It's a superset. No need for a pager.
> Do you really need Word Viewer if you have Word?
Bad example. (Think "bloat"). Why would I wait for 30 seconds for a
program to load, when I could wait 10 seconds instead?
--
John Porter
------------------------------
Date: Mon, 10 Aug 1998 11:08:06 -0400
From: John Porter <jdporter@min.net>
Subject: Re: perlfaq - frequently asked questions about Perl (part 0 of 9)
Message-Id: <35CF0CD6.A94@min.net>
Curtis Jewell / Dennis Whalen wrote:
>
> But I don't need a man viewer (or a POD viewer) for just Perl, either.
Guess I was supposed to read your mind. The original question was about
how to view the perl faq. This is clpm, after all.
> does anybody know of a Win95 port of either one
> (or of man), or instructions on the format (and no, man nroff/troff/man on
> my nearest Unixen don't tell me much about *roff markup - what would?)
I guess a DOS port isn't gui enough for you?
Also, consider that there are programs that can convert man pages
to html, so you can view them in any browser.
What man pages do you want to read? If you're on Windows or Mac,
most documentation in the world which is in man (roff) format will
not be interesting to you. And if you are actually interested in
unix-related man pages, many of those are already accessible as
html on the www.
> >> Maybe someone should send me the markup language used and I'll write a
> >> graphical one!
We're not talking html here. roff and its derivatives are full-blown,
ugly languages, not unlike PostScript. You would be writing an
interpreter. Why reinvent that particular wheel?
More critically, not all systems ship with man pages in *roff source
format. And even those that do, each has its own variation.
If you're really interested in this, check out PolyglotMan (formerly
known as RosettaMan), which is one example of a program that converts
between *roff variants and many other text document formats.
--
John Porter
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 3404
**************************************
