[10066] in Perl-Users-Digest
Perl-Users Digest, Issue: 3659 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Sep 8 12:17:29 1998
Date: Tue, 8 Sep 98 09: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 Tue, 8 Sep 1998 Volume: 8 Number: 3659
Today's topics:
active perl and Net::Ftp - solution (omer ben-shalom)
Re: Beginner's question (Matthew Bafford)
Determine NT Logon Server? (RonBo)
Re: Financial Function Needed <lembark@wrkhors.com>
Re: fork problem <aqumsieh@tigre.matrox.com>
Re: History of Perl - round 1 <eashton@bbnplanet.com>
Re: How do I check if an input have only letters and nu (Charles DeRykus)
Re: How do you supply cleartext password and be secure <bbense+comp.lang.perl.misc.Sep.08.98@telemark.stanford.edu>
Re: localtime and Y2K (Abigail)
Re: Memory Management (Larry Rosler)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Object serialization? <pahl@uni.lrz-muenchen.de>
Re: Object serialization? (Mike Stok)
Re: Perl Programmer Needed <merlyn@stonehenge.com>
Re: Perl Programmer Needed (Greg Bacon)
Ping options <rfrink@infinet.com>
Re: Problem: dereferencing references to hashes dzuy@my-dejanews.com
Re: reading a file backward <uri@sysarch.com>
regexp for html parsing <simon@new-mediacom.com>
Re: regexp for html parsing (Larry Rosler)
retrieving a web page via a socks server <mordkoff@acm.org>
Splitting code across several files. <saunder@kben.co.uk>
Re: Splitting code across several files. <merlyn@stonehenge.com>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
trace statement similar to "set -x" in ksh? muehlhuber@my-dejanews.com
Re: WWWBoard Questions <rbowen@rcbowen.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 8 Sep 1998 08:46:14 GMT
From: obshalom@fab8.intel.com (omer ben-shalom)
Subject: active perl and Net::Ftp - solution
Message-Id: <6t2qsm$qa1$1@scnews.sc.intel.com>
Sometime back there was a question on activeperl problem with Net::Ftp
I saw no ersponse to this so will post this.
get the package libnet from http://www.activestate.com/packages/libnet.ppd
and put in $dir
get the http://www.activestate.com/packages/x86/libnet.tar.gz and put it in
$dir/x86
in the perl bin directory (c:\perl\5.00502\bin or similar) type
perl ppm.pl install -location=\perl\packages libnet
you will be asked a number of configuration questions, the most important is to
choose 'yes' on the questions on passive connections only for ftp (the default
is 'no'
This worked for me.
you may even be able to use the ppm.pl after that WITH the ftp capabilities :)
Hope this hels
Omer Ben-Shalom
Network analyst
Intel Fab18 , Israel.
(not speaking for Intel in any way)
------------------------------
Date: Tue, 8 Sep 1998 09:02:57 -0400
From: dragons@scescape.net (Matthew Bafford)
Subject: Re: Beginner's question
Message-Id: <MPG.105ef4f2d85f159098968e@news.south-carolina.net>
In article <35EFEDF8.4DCD@ifi.uio.no> on Fri, 04 Sep 1998
15:41:12 +0200, Kamran (kamrani@ifi.uio.no) pounded in the
following text:
=> Hi
=>
=> How do I tell perl to extract text between to pattern encounter ?
=> For instance I want to print out whatever is of text between
=> the first and the second encounter of the word "public" in
=> the following example
=>
=> -----------
=>
=> public abstract void translate(int x,int y)
=>
=> Translates the origin of the graphics context to the point
=> (x, y) in the current coordinate system. Modifies this
=> graphics context so that its new origin corresponds to the
=> point (x, y) in this graphics context's original coordinate
=> system. All coordinates used in subsequent renderingoperations
=> on this graphics context will be relative to this new origin.
=>
=>
=> public abstract color getColor()
=> ...
=> ...
=> ..
=>
=> -------------
=>
=> Thanks in advance
=>
How about something like this:
#!/usr/bin/perl -w
# So it may be babytalk?, it seems to work for me... :)
while (<DATA>)
{
next unless /^public /;
chomp;
print "$_ :: \n";
{
local $/ = "\npublic ";
defined($_ = <DATA>) or last;
chomp $_;
print "$_\n";
}
}
__END__
blah blah blah
public abstract void translate(int x,int y)
This is the text for translate...
..........
public abstract void translate(int x,int y)
foo bar foo bar
public abstract int baz(void)
The description for baz...
........
public abstract int baz ( void )
# Just reads to the next 'public'...
Results in:
public abstract void translate(int x,int y) ::
This is the text for translate...
..........
public abstract int baz(void) ::
The description for baz...
........
Hope This Helps!
--Matthew
------------------------------
Date: Tue, 8 Sep 1998 14:42:28 GMT
From: snorjb@wnt.sas.com (RonBo)
Subject: Determine NT Logon Server?
Message-Id: <35f5420b.331546843@newshost.unx.sas.com>
How would I determine the NT Logon Server under Perl?
------------------------------
Date: Mon, 07 Sep 1998 22:51:03 -0500
From: Steven Lembark <lembark@wrkhors.com>
Subject: Re: Financial Function Needed
Message-Id: <35F4A9A7.E3FF8A51@wrkhors.com>
> I'm Writing a credit Simulation script , and i need a fuction that is
> equal to IRR() function of EXCEL.
> Please Help me is URGENT!
look up the equation. using F = P(1+i)**n you can solve for
i = <mumble> and code it or double-check the CRC math tables
(or whatever) for the equation. trick is that if your interest
is in % and the compounding period is m you get:
F = P( 1+i/100)**(n/m)
or
F**(-n/m) / P - 1 = i (God i wish netscape spoke TeX!)
to the extent P != 1 and m >0 (both rather likely in the real
world) that's your equation.
--
Steven Lembark 2930 W. Palmer St.
Workhorse Computing Chicago, IL 60647
lembark@wrkhors.com 800-762-1582
---------------------------------------------------------------------
The opinions expressed here are those of this company.
I am the company.
---------------------------------------------------------------------
------------------------------
Date: 08 Sep 1998 09:47:21 -0400
From: Ala Qumsieh <aqumsieh@tigre.matrox.com>
Subject: Re: fork problem
Message-Id: <x3y4suipvh2.fsf@tigre.matrox.com>
Daniel <dwiesel@my-dejanews.com> writes:
>
> I've got a script in perl that forks alot. However my code doesn't
> seem to be correct. The output procuces the same text over and over
> again and I can't figure out why.
>
> Please have a look at my code and the output it produces
>
> The output that I thaught my code would produce
> ===============================================
>
> Content-Type: text/plain
>
> 7649 forked process 7650 (started: 0)
> Child stuff by 7650
> 7649 forked process 7651 (started: 1)
> Child stuff by 7651
> 7649 forked process 7652 (started: 2)
> Child stuff by 7652
> 7649 forked process 7653 (started: 3)
> Child stuff by 7653
> 7649 forked process 7654 (started: 4)
> Child stuff by 7654
> 7649: Terminating
>
> # Not necessary in this order...
You program generated the following output for me:
Content-Type: text/plain
Child stuff by 1132
1131 forked process 1132 (started: 0)
Child stuff by 1133
1131 forked process 1133 (started: 1)
Child stuff by 1134
1131 forked process 1134 (started: 2)
Child stuff by 1135
1131 forked process 1135 (started: 3)
1131 forked process 1136 (started: 4)
Child stuff by 1136
1131: Terminating
Which is pretty much what you're looking for .. what version of Perl
and OS are you using?
(This is perl, version 5.004_04 built for sun4-solaris)
--
Ala Qumsieh | No .. not Just Another
ASIC Design Engineer | Perl Hacker!!!!!
Matrox Graphics Inc. |
Montreal, Quebec | (Not yet!)
------------------------------
Date: Tue, 08 Sep 1998 13:57:57 GMT
From: Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
Subject: Re: History of Perl - round 1
Message-Id: <35F53589.4BBA96C6@bbnplanet.com>
> To be fair old Abbigail flames anyone regardless of sex. Something of a
> rarity - an indiscriminate biggot
*sigh* You missed the point I was attempting to make without sounding
like a gun totin' Gloria Steinam. I realise that dear old abby flames at
will, but I am really tired of the pointless drivel about punctuation
which never happened when I assumed the persona of a man. Why it happens
I can only guess. That is happens is merely annoying. This is only
Usenet afterall.
e.
------------------------------
Date: Tue, 8 Sep 1998 14:50:23 GMT
From: ced@bcstec.ca.boeing.com (Charles DeRykus)
Subject: Re: How do I check if an input have only letters and numbers??
Message-Id: <Eyyzvz.13A@news.boeing.com>
In article <UwHI1.568$mW2.6142@nsw.nnrp.telstra.net>,
Martien Verbruggen <mgjv@comdyn.com.au> wrote:
>[Note that this question has nothing to do with perl modules, and
>should have been asked in clp.misc. Followups set]
>
> ... omitted...
>
>This of course will also match the underscore. If you really don't
>want that:
>
>$something =~ /^\w+$/ && $something !~ /_/;
>
Another possibility:
$something =~ /^[^\W_]+$/
hth,
--
Charles DeRykus
------------------------------
Date: 8 Sep 1998 13:59:15 GMT
From: <bbense+comp.lang.perl.misc.Sep.08.98@telemark.stanford.edu> ;
Subject: Re: How do you supply cleartext password and be secure in Perl (was Perl compiler)
Message-Id: <6t3d7j$n4d$1@nntp.Stanford.EDU>
In article <35F39B06.914128B0@bp.com>, Chris Leach <leachcj@bp.com> wrote:
>I've been reading the "Perl Compiler" thread had a look at a few FAQ but
>have not seen offered the secure way to supply a perl script a password
>which it will need to supply in clear text. This occurs often enough
>that
>I would have thought there would be a canned solution available.
- - Unfortunately, not all FAQ's have a FGA ( frequently given
answer ). In the short run, there is no secure way to give
a perl script a password.
>How do people supply there FTP, SQL etc scripts with that all important
>password?
- - A reasonable person uses a "middleware" approach. Most commonly
a cgi script is used to "hide" the data. If you can find my
previous post in this thread, I outlined the two approachs that
while not "secure" at least raise the bar.
- - Booker C. Bense
Version: 2.6.2
iQCVAwUBNfU4MQD83u1ILnWNAQFG3wQA3ZqBOBX3/gQ88f+SI7PKxXhoQP7qDEb6
UojpuUZApp2Jdg/EecUs8SNlyk+5xON8L2FYG6cwrV2mNlZS/QP3YuhGWe+PwZGs
S/pfHb67lFolyoOkYO1P7SFyZVz2wqKJlXkte6uXdad8XTX9n06yw+9nd8J0AOdt
T+gHaa/C8ns=
=pcSL
-----END PGP SIGNATURE-----
------------------------------
Date: 8 Sep 1998 15:39:32 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: localtime and Y2K
Message-Id: <6t3j3k$mh8$1@client3.news.psi.net>
james_della_porta@ansett.com.au (james_della_porta@ansett.com.au) wrote
on MDCCCXXXIV September MCMXCIII in <URL: news:6t2gln$95a$1@nnrp1.dejanews.com>:
++ Hi,
++
++ I'm just going through some scripts of mine, and others written
++ by collegues. I understand that localtime does not give a proper
++ representation of the year, and that you need to add 1900 to it.
++ My question is, will this always be the case, or will things change
++ at some later stage? eg. at the year 2001, will the year from
++ localtime() return 101, or could it possibly come back with 01?
Are you really too stupid to read the manual?
++ Are the standards for Perl set in concrete? I'm still pretty new to Perl,
++ so don't bite my head off if this is a little obvious.
Maybe you should forget about Perl. You will never be able to program
in Perl if you refuse to read the manual. Pick a hobby more up to your
skills, like turning stones or so.
Abigail
--
perl -wleprint -eqq-@{[ -eqw\\- -eJust -eanother -ePerl -eHacker -e\\-]}-
------------------------------
Date: Tue, 8 Sep 1998 07:37:02 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Memory Management
Message-Id: <MPG.105ee0ed935409e098983a@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <35F17261.607C8F11@dial.pipex.com> on Sat, 05 Sep 1998
17:18:25 +0000, Jason Holland <jason.holland@dial.pipex.com> says...
> Hello all,
...
> Monitoring my program from the top application, under Linux, my
> application's memory usage just seems to keep increasing, even when I
> know that data is supposedly being discarded.
>
> I currently do something like this to clear a scalar:
>
> $scalar = undef;
>
> Correct?
>
> I know that Perl manages it's own garbage collection, so will the memory
> usage shrink periodicaly, or not?
The following is from perlfaq3:
How can I free an array or hash so my program shrinks?
You can't. Memory the system allocates to a program will never be
returned to the system. That's why long-running programs sometimes re-
exec themselves.
However, judicious use of my on your variables will help make sure that
they go out of scope so that Perl can free up their storage for use in
other parts of your program. (NB: my variables also execute about 10%
faster than globals.) A global variable, of course, never goes out of
scope, so you can't get its space automatically reclaimed, although
undefing and/or deleteing it will achieve the same effect. In general,
memory allocation and de-allocation isn't something you can or should be
worrying about much in Perl, but even this capability (preallocation of
data types) is in the works.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 8 Sep 1998 14:50:55 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <6t3g8f$aa6$4@info.uah.edu>
Following is a summary of articles from new posters spanning a 8 day
period, beginning at 31 Aug 1998 14:27:18 GMT and ending at
08 Sep 1998 07:36:46 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 287 (49.1% of all posters)
Articles: 426 (27.1% of all articles)
Volume generated: 663.7 kb (25.5% of total volume)
- headers: 299.8 kb (6,181 lines)
- bodies: 354.0 kb (11,125 lines)
- original: 258.6 kb (8,550 lines)
- signatures: 9.6 kb (196 lines)
Original Content Rating: 0.731
Averages
========
Posts per poster: 1.5
median: 1 post
mode: 1 post - 223 posters
s: 2.5 posts
Message size: 1595.5 bytes
- header: 720.6 bytes (14.5 lines)
- body: 850.9 bytes (26.1 lines)
- original: 621.7 bytes (20.1 lines)
- signature: 23.0 bytes (0.5 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
40 58.7 ( 35.2/ 23.5/ 15.3) Elaine Ashton <eashton@bbnplanet.com>
8 16.7 ( 5.6/ 7.8/ 3.5) Steven Lembark <lembark@wrkhors.com>
8 14.2 ( 6.1/ 8.1/ 3.3) "Kevin Bartz" <kevinbartz@geocities.com>
8 7.0 ( 5.3/ 1.7/ 1.7) Magnus Eriksson <me418498@hotmail.com>
5 4.9 ( 3.0/ 1.9/ 1.9) "Doyle Johnson" <sales@madm.com>
5 7.4 ( 4.1/ 3.3/ 2.0) siberian@siberian.org
4 14.2 ( 3.2/ 11.1/ 5.6) Darrin Edwards <d-edwards@nospam.uchicago.edu>
3 5.0 ( 2.1/ 3.0/ 3.0) Raj Subramani <raj.subramani@citicorp.com>
3 4.0 ( 2.2/ 1.8/ 0.8) Alex Tatistcheff <alext@NOSPAM.pobox.com>
3 4.1 ( 2.2/ 1.9/ 1.8) Funkybiz@aol.com (Sunni Leigh)
These posters accounted for 5.5% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
58.7 ( 35.2/ 23.5/ 15.3) 40 Elaine Ashton <eashton@bbnplanet.com>
16.7 ( 5.6/ 7.8/ 3.5) 8 Steven Lembark <lembark@wrkhors.com>
14.2 ( 3.2/ 11.1/ 5.6) 4 Darrin Edwards <d-edwards@nospam.uchicago.edu>
14.2 ( 6.1/ 8.1/ 3.3) 8 "Kevin Bartz" <kevinbartz@geocities.com>
10.3 ( 2.2/ 8.0/ 3.0) 3 "Richard" <Richard@WowMe.com>
9.4 ( 0.7/ 8.8/ 8.0) 1 "'V)ReTK'" <socrates@uswest.net>
8.6 ( 1.5/ 7.1/ 6.9) 2 aedmis@rsf.dankaind.com (Alan E. Derhaag)
7.9 ( 1.7/ 6.1/ 4.0) 2 Oscar Fernandez Sierra <oscar@charpy.etsiig.uniovi.es>
7.4 ( 4.1/ 3.3/ 2.0) 5 siberian@siberian.org
7.3 ( 2.1/ 4.6/ 2.7) 3 cabney@cyberpass.net (C. Abney)
These posters accounted for 5.9% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.7 / 1.7) 8 Magnus Eriksson <me418498@hotmail.com>
1.000 ( 2.3 / 2.3) 3 Ralph SOBEK <sobek@irit.fr>
1.000 ( 0.8 / 0.8) 3 bitnut1@my-dejanews.com
1.000 ( 3.0 / 3.0) 3 Raj Subramani <raj.subramani@citicorp.com>
1.000 ( 1.8 / 1.8) 3 "Scott Pasnikowski" <spasnikowski@symantec.com>
0.999 ( 1.9 / 1.9) 5 "Doyle Johnson" <sales@madm.com>
0.936 ( 1.8 / 1.9) 3 Funkybiz@aol.com (Sunni Leigh)
0.650 ( 15.3 / 23.5) 40 Elaine Ashton <eashton@bbnplanet.com>
0.608 ( 2.0 / 3.3) 5 siberian@siberian.org
0.587 ( 2.7 / 4.6) 3 cabney@cyberpass.net (C. Abney)
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.608 ( 2.0 / 3.3) 5 siberian@siberian.org
0.587 ( 2.7 / 4.6) 3 cabney@cyberpass.net (C. Abney)
0.567 ( 1.8 / 3.2) 3 Patricia Shanahan <pats@acm.org>
0.502 ( 5.6 / 11.1) 4 Darrin Edwards <d-edwards@nospam.uchicago.edu>
0.448 ( 3.5 / 7.8) 8 Steven Lembark <lembark@wrkhors.com>
0.425 ( 0.8 / 1.8) 3 Alex Tatistcheff <alext@NOSPAM.pobox.com>
0.417 ( 1.8 / 4.4) 3 Eric Estabrooks <estabroo@ispn.com>
0.408 ( 3.3 / 8.1) 8 "Kevin Bartz" <kevinbartz@geocities.com>
0.370 ( 3.0 / 8.0) 3 "Richard" <Richard@WowMe.com>
0.283 ( 0.5 / 1.7) 3 David Corcoran <david.corcoran@pss.boeing.com>
18 posters (6%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
11 Pankaj Telang <pankaj.telang@infores.com>
6 Jeff Davey <jdavey@epidigm.geg.mot.com>
4 Nick Bradshaw <bradshaw@iridia.ulb.antispam_remove.ac.be>
3 vasant@bellatlantic.net
3 Patricia Shanahan <pats@acm.org>
3 kuip@dds.nl
3 stefan@dec.procura.nl
3 William Roeder <roeder@dba-sys.com>
3 "Internet Guy" <ar@webcanada.com>
3 Yellow Sun <yellowsun@geocities.com>
------------------------------
Date: Tue, 08 Sep 1998 17:01:31 +0200
From: Florian Pahl <pahl@uni.lrz-muenchen.de>
Subject: Object serialization?
Message-Id: <35F546CB.C3634F6F@uni.lrz-muenchen.de>
This is a multi-part message in MIME format.
--------------A9374F482ED795F11634971E
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I want to transmit Perl objects from one site to
another.
Therefore I need to serialize them and put them
together at
the other side. I didn't find any builtin
solution.
How do I achieve this? Is there any other way to
send objects
over the wire?
(I have complicated nested objects - so
seriliazing them by hand
would be hard.)
Thanks for any hints. (please CC me by email as
message volume
is very high here.)
Florian
--------------A9374F482ED795F11634971E
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
--------------A9374F482ED795F11634971E--
------------------------------
Date: 8 Sep 1998 15:17:09 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: Object serialization?
Message-Id: <6t3hpl$59i@news-central.tiac.net>
In article <35F546CB.C3634F6F@uni.lrz-muenchen.de>,
Florian Pahl <pahl@uni.lrz-muenchen.de> wrote:
>-=-=-=-=-=-
>
>I want to transmit Perl objects from one site to
>another.
>Therefore I need to serialize them and put them
>together at
>the other side. I didn't find any builtin
>solution.
>How do I achieve this? Is there any other way to
>send objects
>over the wire?
>(I have complicated nested objects - so
>seriliazing them by hand
>would be hard.)
You might consider the Data::Dumper module which is included in recent
distributions of Perl or can be retrieved from CPAN (the comprehensive
perl archive network - see http://www.perl.com/CPAN/ ) or the FreezeThaw
module which are a couple of ways you can start.
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: Tue, 08 Sep 1998 14:23:55 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Perl Programmer Needed
Message-Id: <8cyarun0nr.fsf@gadget.cscaper.com>
>>>>> "Roberto" == Roberto <roberto@toutatis.net> writes:
Roberto> It might also be people apppreciate it. I recall following a
Roberto> long thread about exactly this topic about a year ago, joined
Roberto> by several frequent posters. The general opinion ranged
Roberto> between ok, welcomed and *encouraged*, as long as they were
Roberto> specifically targeted at perl programmers. After all, this is
Roberto> perl _misc_, and I too think perl job postings are a lot more
Roberto> appropriate than a lot of other stuff I see here. Allow
Roberto> yourself a break, Randall. :-)
But you forget, apparently, that the rules for the group are *not* set
by the group participants. They're set by the people that actually
BRING you the news. The news admins around the world. The ones that
publish the stuff in news.admin.newusers. And *they* are the ones
that have decreed that job postings go in job groups, regardless of
the category.
If you have a problem with that, take it to news.groups. But you
probably won't get very far. This is a longstanding tradition, and
has excellent justification.
Just another (former) news admin,
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 8 Sep 1998 14:21:09 GMT
From: gbacon@itsc.uah.edu (Greg Bacon)
Subject: Re: Perl Programmer Needed
Message-Id: <6t3egl$aa6$1@info.uah.edu>
In article <H70J1.2692$JW5.8027958@news.rdc1.md.home.com>,
"Richard" <Richard@WowMe.com> writes:
: My point still stands, I not only didn't hurt anyone by my post, I am
: helping others. HONESTLY. Perhaps if you flame me enough you will stay off
: some other HONEST SMALL BUSINESSES trying to offer money to people who want
: to use their HARD LEARNED talents to put FOOD on their table and clothes on
: their kids backs. Like in my own case!
The people who post all those MAKE $$$$$$ FAST!!!!1!11!!! schemes also
claim to be trying to help people and that the success of their system
depends on the honesty of the participants. This doesn't mean we want
to see their spewage.
Greg
--
Cop: I can put you in Queens on the night of the hijacking.
Hocknet: Really? I live in Queens. Did you put that together yourself?
------------------------------
Date: Tue, 08 Sep 1998 10:33:59 -0400
From: Rick Frink <rfrink@infinet.com>
Subject: Ping options
Message-Id: <35F54057.2986@infinet.com>
Hello,
I am using the Ping module. Apparently, it just returns true or
false...I'd like to get the statistics associated with Ping.
Is there a way to do it without a system call to ping ?
Thanks, in advance.
Rick
P.S. - Pls cc responses to me directly.
------------------------------
Date: Tue, 08 Sep 1998 15:00:23 GMT
From: dzuy@my-dejanews.com
Subject: Re: Problem: dereferencing references to hashes
Message-Id: <6t3gq8$i1m$1@nnrp1.dejanews.com>
In article <35F51685.ADFD754A@N0SPAMyahoo.com>,
James Powell <jamespo@N0SPAMyahoo.com> wrote:
> Okay, I have a pointer to a hash fetched from a DBI call
>
> $hshrf = $sth->fetchrow_hashref;
>
> I can access elements if I know their name by
> $hshrf->{'crud'}
>
> How can I dereference $hshrf so I can supply it to
> keys to find all the keys in the hash?
> f. ex. keys($$hshrf) doesn't work
>
Try keys %{ $hshrf };
> I've had a look in the camel book and can't work it out!
> Please email me if poss.
>
> Thanks,
>
> James
> --
> -------------------------------------------------------
> remove N0SPAM from my email address to reply
> -------------------------------------------------------
>
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 08 Sep 1998 09:22:05 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: reading a file backward
Message-Id: <x71zpm20zm.fsf@sysarch.com>
here is some working code for a new Backwards.pm module. it needs some
cleaning up and some optimization and more testing but it seems to work.
if anyone wants to help with those aspects i will share the authoring
credit on CPAN with you.
if 4 argument substr is available i would use it and i can't seem to
get read with POSITION to work.
uri
#!/usr/local/bin/perl -w
use strict ;
use Backwards ;
my $back_line ;
my $foo = new Backwards( shift ) ;
while( $back_line = $foo->readline ) {
print "LINE '$back_line'\n" ;
}
# Backwards.pm
use strict ;
package Backwards ;
use IO::File ;
use Carp ;
my $max_read_size = 30 ;
#my $read_size = 1 << 12 ;
sub new {
my( $class, $filename ) = @_ ;
my( $handle, $file_size, $seek, $self ) ;
#print "class $class file $filename\n" ;
$handle = new IO::File ;
$handle->open( $filename ) || croak "Can't open $filename $!" ;
$self = {
'file_name' => $filename,
'handle' => $handle,
'buffer' => ''
} ;
bless( $self, $class ) ;
return( $self ) ;
}
sub _prepend_buf {
my( $self ) = @_ ;
my( $seek_pos, $file_size, $handle, $read_size, $read_cnt ) ;
$seek_pos = $self->{'seek_pos'} ;
$handle = $self->{'handle'} ;
if ( defined( $seek_pos ) ) {
if ( $seek_pos <= 0 ) {
return( 0 ) ;
}
$read_size = $max_read_size ;
$seek_pos -= $max_read_size ;
}
else {
seek( $handle, 0, 2 ) ;
$file_size = $handle->tell ;
$read_size = $file_size % $max_read_size ;
$seek_pos = $file_size - $read_size ;
#print "size = $file_size\n" ;
}
#print "SEEK = $seek_pos READ = $read_size\n" ;
seek( $handle, $seek_pos, 0 ) ;
# $read_cnt = read( $handle, $self->{'buffer'}, $read_size, 0 ) ;
my $read_buf ;
$read_cnt = read( $handle, $read_buf, $read_size, 0 ) ;
substr( $self->{'buffer'}, 0, 0 ) = $read_buf ;
#print "READ '$read_buf'\nBUFFER '$self->{'buffer'}'\n" ;
( $read_cnt >= 0 ) || croak "bad read on $self->{'file_name'} $!" ;
$self->{'seek_pos'} = $seek_pos ;
return( $read_cnt ) ;
}
sub readline {
my( $self ) = @_ ;
my( $handle, $buf_ref, $read_cnt, $nl_index, $last_pos, $line ) ;
$handle = $self->{'handle'} ;
$buf_ref = \$self->{'buffer'} ;
$last_pos = length( $$buf_ref ) ;
#print "POS $last_pos\n" ;
#print "last char '",substr( $$buf_ref, -1, 1 ), "'\n" ;
$last_pos -=2 if $last_pos && substr( $$buf_ref, -1, 1 ) eq "\n" ;
while( 1 ) {
#print "pos $last_pos\n" ;
#print "BUFFER '$self->{'buffer'}'\n" ;
$nl_index = ( $last_pos > 0 ) ?
rindex( $$buf_ref, "\n", $last_pos ) : -1 ;
if ( $nl_index < 0 ) {
$read_cnt = $self->_prepend_buf() ;
if ( $read_cnt == 0 ) {
$line = $$buf_ref ;
$$buf_ref = '' ;
return( $line ) ;
}
$last_pos = $read_cnt - 1 ;
$last_pos-- if substr( $$buf_ref, -1, 1 ) eq "\n" ;
#print "NEXT pos $last_pos\n" ;
next ;
}
#print "INDEX = $nl_index\n" ;
$line = substr( $$buf_ref, $nl_index + 1 ) ;
substr( $$buf_ref, $nl_index + 1 ) = '' ;
#print "line '$line'\n" ;
return( $line ) ;
}
}
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Tue, 8 Sep 1998 14:18:58 +0100
From: Simon Wistow <simon@new-mediacom.com>
Subject: regexp for html parsing
Message-Id: <645CAC0140CED111AF1500805FEDDB8AC21C@ns.new-mediacom.co.uk>
I'm reading in les from an HTML file and I want to change the all paths
of images and documents from local to an http reference.
Checking for all instances of 'background=', 'src=', 'href=' is fine
and I suppose I could do soemthing like
if (($_ =~ /href="/i) and not ($_ =~ /href="http:/i))
{
$_ =~ s/href="/href="http:\/\/$otherserever\//i;
}
but that doesn't handle more than one instance on a line very well.
Any suggestions/code on this or any other way to make my RegExps more
elegant would be gratefully received.
Cheers
------------------------------
Date: Tue, 8 Sep 1998 08:29:41 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: regexp for html parsing
Message-Id: <MPG.105eed4245475a2e98983d@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <645CAC0140CED111AF1500805FEDDB8AC21C@ns.new-mediacom.co.uk>
on Tue, 8 Sep 1998 14:18:58 +0100, Simon Wistow <simon@new-mediacom.com>
says...
> I'm reading in les from an HTML file and I want to change the all paths
> of images and documents from local to an http reference.
>
> Checking for all instances of 'background=', 'src=', 'href=' is fine
> and I suppose I could do soemthing like
>
> if (($_ =~ /href="/i) and not ($_ =~ /href="http:/i))
> {
> $_ =~ s/href="/href="http:\/\/$otherserever\//i;
> }
>
>
> but that doesn't handle more than one instance on a line very well.
First suggestion: $_ is the default for a regex match, so don't mention
it explicitly.
Second suggestion: When the regex contains slashes, use a different
delimiter to avoid Leaning Toothpick Syndrome.
Third suggestion: Use alternatives in the match to make one regex do it
all.
Fourth suggestion: Use a negative lookahead assertion (discussed in
`perldoc perlre`).
Fifth suggestion: Use the '/x' modifier to add comments and make it
readable.
s% # Any character not otherwise used
( # Stuff to capture and play back
(?:href|src|background) # Alternative matches
\s*=\s*["']? # To be more accepting of HTML variations
) # End of captured stuff
(?!http://) # Don't match if this is next
%$1http://$otherserver%gix; # g: match as many times as needed
The order of the alternatives doesn't matter much, but if you're doing
*lots* of this, you might choose to put the more frequent first.
Sixth suggestion: Consider buying Friedl's "Mastering Regular
Expressions." Maybe more than you need, but a good 'read' and worth the
investment.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 08 Sep 1998 10:56:19 -0400
From: Jeremy Mordkoff <mordkoff@acm.org>
Subject: retrieving a web page via a socks server
Message-Id: <35F54593.D879A097@acm.org>
I have been trying to get www.pl & network.pl to work using a socks
server instead of an http proxy. I've replaced the call
to socket() with a call to SOCKS, but then my connect hangs.
Does anyone have a way to retrieve a web page via a socks server?
Thanks,
JLM
--
Jeremy L. Mordkoff
http://www.net1plus.com/users/jom/pictel.htm
------------------------------
Date: Mon, 07 Sep 1998 18:08:07 +0100
From: Robert Saunders <saunder@kben.co.uk>
Subject: Splitting code across several files.
Message-Id: <35F412F7.B81FC793@kben.co.uk>
Hello all
I am having some difficulties. I have tried looking at the manual the
camel and the FAQ, and still have trouble. I read in the camel in the
packages section:
" You can switch into a package in more than one place; it
merely influences which symbol table is used by the compiler
for the reset of that block.( this is how a given package can
span more than one file)"
however no more explanation that makes enough sense to me. What I want
to do is split my code into several files (two at least) one file would
just contain a long list of arrays and hashes and their initial values
(and keys for the hashes) which could then be accessed by the rest of
the code (split or in just one file). So there would be a sort of
config file with things like
@hosts=("host1","host2","host3");
%hosts_status=(host1 => "production",
host2 => "backup",
host3 => "development"
);
Then in the other file there would be something like
foreach $host (@hosts){
do some function
}
I've tried putting the same package declaration in both files.
And using different packages but saying @Config::hosts
having used the EXPORT. What ever I do, it either complains about the
@hosts array (if I use strict;) or runs but doesn't pick up the
contents of @hosts.
I realise I probably haven't given all the information I could have, but
part of the problem is that the code is too big to post, I have changed
it several times, and I am not sure what the important information is
anyway.
Help would be appreciated.
Robert
------------------------------
Date: Tue, 08 Sep 1998 14:33:36 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Splitting code across several files.
Message-Id: <8cr9xmn07l.fsf@gadget.cscaper.com>
>>>>> "Robert" == Robert Saunders <saunder@kben.co.uk> writes:
Robert> What I want to do is split my code into several files (two
Robert> at least) one file would just contain a long list of arrays
Robert> and hashes and their initial values (and keys for the hashes)
Robert> which could then be accessed by the rest of the code (split or
Robert> in just one file).
You mean like this?
mainfile:
require "fred.pl";
&Fred::break_in();
&Fred::apologize();
file fred.pl:
package Fred;
require "barney.pl";
sub break_in {
for my $host (@hosts) {
for my $password (@passwords) {
&try($host, $password);
}
}
}
sub apologize {
...
}
...
1;
file barney.pl;
package Fred;
@hosts = qw(host1 host2 host3);
@passwords = qw(guessme changeme none);
...
1;
Of course, if you want it to work with "use", change that fred.pl to
Fred.pm and set up the export list. But barney.pl can stay the same.
print "Just another Perl hacker,"
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 8 Sep 1998 14:50:31 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <6t3g7n$aa6$3@info.uah.edu>
Following is a summary of articles spanning a 8 day period,
beginning at 31 Aug 1998 14:27:18 GMT and ending at
08 Sep 1998 07:36:46 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@mox\.perl\.com
Totals
======
Posters: 585
Articles: 1570 (652 with cutlined signatures)
Threads: 486
Volume generated: 2607.1 kb
- headers: 1122.6 kb (22,141 lines)
- bodies: 1372.9 kb (42,973 lines)
- original: 916.6 kb (30,880 lines)
- signatures: 110.0 kb (2,433 lines)
Original Content Rating: 0.668
Averages
========
Posts per poster: 2.7
median: 1 post
mode: 1 post - 374 posters
s: 5.5 posts
Posts per thread: 3.2
median: 2.0 posts
mode: 1 post - 157 threads
s: 4.3 posts
Message size: 1700.4 bytes
- header: 732.2 bytes (14.1 lines)
- body: 895.5 bytes (27.4 lines)
- original: 597.9 bytes (19.7 lines)
- signature: 71.8 bytes (1.5 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
61 90.0 ( 50.3/ 32.5/ 21.3) Tom Phoenix <rootbeer@teleport.com>
59 101.1 ( 37.3/ 57.2/ 34.3) lr@hpl.hp.com (Larry Rosler)
59 99.7 ( 38.5/ 54.6/ 29.6) Gellyfish@btinternet.com (Jonathan Stowe)
40 58.7 ( 35.2/ 23.5/ 15.3) Elaine Ashton <eashton@bbnplanet.com>
34 48.7 ( 18.8/ 29.8/ 22.5) mjd@op.net (Mark-Jason Dominus)
32 58.0 ( 26.3/ 25.1/ 16.8) mgjv@comdyn.com.au (Martien Verbruggen)
19 32.4 ( 16.2/ 16.2/ 13.1) nvp@shore.net (Nathan V. Patwardhan)
18 40.9 ( 14.4/ 20.2/ 12.5) Zenin <zenin@bawdycaste.org>
18 29.1 ( 16.4/ 12.6/ 6.5) John Porter <jdporter@min.net>
18 34.6 ( 14.0/ 20.2/ 13.8) bill@fccj.org
These posters accounted for 22.8% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
101.1 ( 37.3/ 57.2/ 34.3) 59 lr@hpl.hp.com (Larry Rosler)
99.7 ( 38.5/ 54.6/ 29.6) 59 Gellyfish@btinternet.com (Jonathan Stowe)
90.0 ( 50.3/ 32.5/ 21.3) 61 Tom Phoenix <rootbeer@teleport.com>
58.7 ( 35.2/ 23.5/ 15.3) 40 Elaine Ashton <eashton@bbnplanet.com>
58.0 ( 26.3/ 25.1/ 16.8) 32 mgjv@comdyn.com.au (Martien Verbruggen)
48.7 ( 18.8/ 29.8/ 22.5) 34 mjd@op.net (Mark-Jason Dominus)
40.9 ( 14.4/ 20.2/ 12.5) 18 Zenin <zenin@bawdycaste.org>
37.3 ( 13.9/ 20.1/ 10.6) 17 abigail@fnx.com
34.6 ( 14.0/ 20.2/ 13.8) 18 bill@fccj.org
32.4 ( 16.2/ 16.2/ 13.1) 19 nvp@shore.net (Nathan V. Patwardhan)
These posters accounted for 23.1% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 1.7 / 1.7) 8 Magnus Eriksson <me418498@hotmail.com>
0.999 ( 1.9 / 1.9) 5 "Doyle Johnson" <sales@madm.com>
0.972 ( 6.1 / 6.3) 11 fl_aggie@thepentagon.com (I R A Aggie)
0.955 ( 9.6 / 10.1) 5 Nathan Torkington <gnat@frii.com>
0.938 ( 18.9 / 20.1) 12 Greg Bacon <gbacon@cs.uah.edu>
0.914 ( 3.0 / 3.3) 6 "Phil R Lawrence" <prl2@lehigh.edu>
0.911 ( 20.9 / 23.0) 9 tchrist@mox.perl.com (Tom Christiansen)
0.903 ( 3.0 / 3.3) 6 gebis@fee.ecn.purdue.edu (Michael J Gebis)
0.899 ( 3.6 / 4.0) 6 gebis@welsh.ecn.purdue.edu (Michael J Gebis)
0.878 ( 5.7 / 6.5) 7 "Matthew O. Persico" <mpersico@erols.com>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.439 ( 2.3 / 5.2) 12 alastair@calliope.demon.co.uk
0.433 ( 4.2 / 9.8) 13 alecler@cam.org (Andre L.)
0.430 ( 2.5 / 5.8) 7 dblack@saturn.superlink.net (David A. Black)
0.426 ( 2.0 / 4.6) 10 Sam Wang <samwang@freewwweb.com>
0.410 ( 1.5 / 3.7) 5 "Jim Babbington" <jwb79@_DELETE_ME_mail.idt.net>
0.408 ( 3.3 / 8.1) 8 "Kevin Bartz" <kevinbartz@geocities.com>
0.389 ( 5.5 / 14.0) 6 edew@netcom.com (Eric Dew)
0.380 ( 1.4 / 3.7) 7 maierc@chesco.com
0.315 ( 1.4 / 4.4) 5 phenix@interpath.com (John Moreno)
0.314 ( 4.6 / 14.7) 9 david.hawker@removethis.cableol.co.uk
68 posters (11%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
50 Tom Phoenix: ANSWERS WANTED!
33 Perl & Java - differences and uses
28 Perl gurus opinion needed.
21 Perl compiler
19 Hats off to Tom Phoenix
17 How do I create a directory only if it doesn't exists
16 In search of Intellegint Life... HELP!!
16 reading a file backward
14 COBOL and Perl
12 unlinking file if <= 1 hour
These threads accounted for 14.4% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
88.7 ( 40.9/ 45.7/ 27.8) 50 Tom Phoenix: ANSWERS WANTED!
59.8 ( 26.9/ 30.3/ 19.3) 33 Perl & Java - differences and uses
47.5 ( 19.1/ 27.1/ 19.8) 21 Perl compiler
40.3 ( 22.7/ 16.1/ 9.2) 28 Perl gurus opinion needed.
37.4 ( 11.9/ 24.7/ 12.8) 14 COBOL and Perl
36.7 ( 11.0/ 23.9/ 13.9) 16 reading a file backward
33.3 ( 17.4/ 13.1/ 7.7) 19 Hats off to Tom Phoenix
30.7 ( 7.6/ 23.0/ 9.0) 12 Help on running perl scripts on MS-DOS (Win NT4 actually)
29.3 ( 9.1/ 18.3/ 12.3) 11 Parsing XML and HTML (was: Re: Better Regular Expressions)
27.9 ( 11.9/ 15.2/ 8.8) 16 In search of Intellegint Life... HELP!!
These threads accounted for 16.6% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.930 ( 1.2/ 1.3) 6 HTTP request?
0.896 ( 14.3/ 16.0) 8 FMTEYEWTK on Switch Statements in Perl (was: No switch statement in Perl??)
0.860 ( 5.6/ 6.6) 7 [Perl] How to find the Perl FAQ
0.827 ( 1.5/ 1.8) 5 Trolls
0.804 ( 0.8/ 1.0) 5 how does one delete a file with Perl?
0.787 ( 3.5/ 4.4) 6 Perl DBI vs. LiveWire
0.787 ( 11.5/ 14.7) 12 Perl Cookbook, does anyone have it?
0.786 ( 1.6/ 2.0) 5 Q: symlink under NT possible?
0.768 ( 4.4/ 5.7) 6 help with grep
0.767 ( 7.2/ 9.4) 17 How do I create a directory only if it doesn't exists
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.462 ( 0.9 / 1.9) 5 Where to get Net/Domain.pm?
0.461 ( 6.1 / 13.2) 6 Perl Programmer Needed
0.461 ( 2.5 / 5.5) 7 Flushing data to disk for open files
0.432 ( 2.8 / 6.6) 5 trouble getting df output on remote boxes
0.431 ( 6.4 / 14.9) 11 Perl documentation
0.428 ( 1.9 / 4.5) 5 GD.pm
0.402 ( 4.0 / 10.0) 5 mod_perl configuration
0.393 ( 9.0 / 23.0) 12 Help on running perl scripts on MS-DOS (Win NT4 actually)
0.384 ( 3.3 / 8.5) 7 #!/usr/bin/perl not working?
0.369 ( 1.7 / 4.6) 5 pass on value to subroutine call
88 threads (18%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
34 comp.lang.perl.modules
34 comp.lang.java.programmer
16 comp.lang.perl
14 comp.lang.cobol
8 comp.lang.perl.tk
7 alt.folklore.computers
7 comp.lang.c
6 comp.lang.c++
6 claranet.local.help
6 comp.lang.java
Top 10 Crossposters
===================
Articles Address
-------- -------
11 Pankaj Telang <pankaj.telang@infores.com>
8 NukeEmUp@ThePentagon.com (David Cantrell)
6 Jeff Davey <jdavey@epidigm.geg.mot.com>
6 "Matthew O. Persico" <mpersico@erols.com>
5 mjd@op.net (Mark-Jason Dominus)
5 Greg Bacon <gbacon@cs.uah.edu>
4 Nick Bradshaw <bradshaw@iridia.ulb.antispam_remove.ac.be>
4 "Jules" <julius@clara.net>
3 kuip@dds.nl
3 William Roeder <roeder@dba-sys.com>
------------------------------
Date: Tue, 08 Sep 1998 15:21:17 GMT
From: muehlhuber@my-dejanews.com
Subject: trace statement similar to "set -x" in ksh?
Message-Id: <6t3i1c$jgj$1@nnrp1.dejanews.com>
Hello,
I'm new to perl (but already a fan).
Most of our Korn-Shell scripts start with something like:
#!/bin/ksh
LogFile="/var/log/testfile.log"
exec > $LogFile 2>&1
set -x
...
...
The "set -x" turns on the trace option for the ksh.
How can this be done in perl.
The switch "perl -dt ....." seems to do something different.
Many thanks,
Tobi
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Tue, 08 Sep 1998 11:31:56 -0400
From: Rich Bowen <rbowen@rcbowen.com>
Subject: Re: WWWBoard Questions
Message-Id: <35F54DEC.17BA@rcbowen.com>
> WWWBoard is a horriible hack which appeared at the right moment in
> internet history to become ubiquitous. It really must be stamped out.
>
> Look around for a real database-backed forum. I don't know any completely
> freeware forum packages out there using Perl (except for Slashdot.org, but
> source is not posted yet, I believe).
I'm currently working on one based on mSQL that will hopefully be a
little less of a hack, and will probably be Open Source. This is an
outgrowth of my irritation with WWWBoard. Several of the features
requested in thie thread are ones that I plan to put in there. I don't
really have an ETA on completed code, but I'd like to have something
working before the end of the year. I have been completely unsuccessful
in finding a threaded newsgroup that really works like I want it to.
ie., like usenet.
Rich
--
perl -e "eval reverse '\'rekcaH lreP rehtonA tsuJ\' tnirp'"
http://www.rcbowen.com/
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 3659
**************************************
