[10360] in Perl-Users-Digest
Perl-Users Digest, Issue: 3952 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 12 11:07:36 1998
Date: Mon, 12 Oct 98 08:00:26 -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, 12 Oct 1998 Volume: 8 Number: 3952
Today's topics:
Re: Difficulty with HTML & Perl & CGI <jdporter@min.net>
Enterprise Management Forum (Unicenter TNG, OpenView, T csmiga@my-dejanews.com
Finite state machine, ZModem (Jonas Bofjall)
Re: Finite state machine, ZModem (Mark-Jason Dominus)
ftp in perl via a proxy: new line character missing pcharpen@my-dejanews.com
Re: ftp in perl via a proxy: new line character missing <stefan.haller@ascom.ch>
Re: Help needed extracting URLs <erhmiru@erh.ericsson.se>
Re: Help to compile or translate my software perl in C <tjhill@flash.net>
Re: How do I use die? (Joergen W. Lang)
Re: How do I use die? <jdf@pobox.com>
Re: How do I use die? (Mark-Jason Dominus)
Re: How to do a nslookup ! <garry@america.net>
Re: How to do a nslookup ! (r j huntington)
Re: How to do a nslookup ! (Michael Fuhr)
Re: I'm looking for someone who wants to write a comple (Michael J Gebis)
Re: I'm looking for someone who wants to write a comple <work@despam.idea.co.uk>
inputing two arrays into a sub <avitala@macs.biu.ac.il>
Re: inputing two arrays into a sub <jdf@pobox.com>
Re: inputing two arrays into a sub (David Alan Black)
Re: Name from IP <erhmiru@erh.ericsson.se>
Re: Name from IP dragnovich@my-dejanews.com
Need help with time function (r j huntington)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
newbie question: regular expressions dvoon@my-dejanews.com
Re: newbie question: regular expressions <garry@america.net>
Re: newbie question: regular expressions <eike.grote@theo.phy.uni-bayreuth.de>
Re: newbie question: regular expressions <avitala@macs.biu.ac.il>
Re: Newbie: using strict with filehandles <garry@america.net>
Re: Newbie:parse into a hash table <ludlow@us.ibm.com>
Perl freezes when using large HTML-forms (Ruud Limbeck)
Perl freezes when using special characters in HTML (Ruud Limbeck)
Re: PERL in Business <jdporter@min.net>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 12 Oct 1998 09:41:27 -0400
From: John Porter <jdporter@min.net>
Subject: Re: Difficulty with HTML & Perl & CGI
Message-Id: <36220707.4CC17214@min.net>
brian d foy wrote:
>
> header() doesn't ignore the argument list:
Right. I guess what I mean is, header() (and all the other methods
in CGI) are very smart about handling their arguments. They can
tell how the arguments were passed (named vs. positional) and what
args supplied are actually relevant.
Also, @_ gets set in method calls; and since the CGI module actually
uses its own internal object when the :standard interface is being
used, header; is not getting the current value of @_.
So, header; and header() are in fact identical.
It's kinda too bad a module has to subvert normal perl semantics
like that.
--
John "Many Jars" Porter
baby mother hospital scissors creature judgment butcher engineer
------------------------------
Date: Mon, 12 Oct 1998 12:53:35 GMT
From: csmiga@my-dejanews.com
Subject: Enterprise Management Forum (Unicenter TNG, OpenView, Tivoli, Platinum)
Message-Id: <6vsu4e$v01$1@nnrp1.dejanews.com>
Good morning everyone! There's a discussion group on delphi concerning
Enterprise Management. The areas covered are CA Unicenter, HP OpenView,
Tivoli, Platinum Tech, Enterprise Management Trade Shows, EM User Groups,
Networking Jobs, Industry Discussion, and General Discussion. Again, this is
focusing on Enterprise Management. There are over 232 members to this forum
as of 10/12/98. You can visit this site at....
http://www.delphi.com/emc2/
Check it out. I believe this will benefit all involved in the enterprise
management arena. See ya there.
Christopher Smiga
ICQ UIN#: 5035779
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 12 Oct 1998 12:10:12 GMT
From: m9418@abc.se (Jonas Bofjall)
Subject: Finite state machine, ZModem
Message-Id: <6vsrj4$b4c$2@oden.abc.se>
I want to write a ZModem protocol driver in Perl (has this been done
before? I searched CPAN but found nothing). This is a pretty strict finite
state machine, the protocol can be expressed as:
INIT: receive packet
if CRC ... goto step CAN
DATA: read xx bytes
if .. goto step
if time > 20 goto step TOUT
This is something I definitively would use goto's for in C. Now I really
would like to write nice code, I suppose since Perl is so versatile there is
a nice readable way to write this code.
Any thoughts on this greatly appreciated
// Jonas <job@abc.se> [2:201/262.37]
------------------------------
Date: 12 Oct 1998 10:33:32 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Finite state machine, ZModem
Message-Id: <6vt3vs$cfk$1@monet.op.net>
In article <6vsrj4$b4c$2@oden.abc.se>, Jonas Bofjall <m9418@abc.se> wrote:
>This is something I definitively would use goto's for in C. Now I really
>would like to write nice code, I suppose since Perl is so versatile there is
>a nice readable way to write this code.
See <URL:http://x8.dejanews.com/getdoc.xp?AN=342619256>.
------------------------------
Date: Mon, 12 Oct 1998 11:49:33 GMT
From: pcharpen@my-dejanews.com
Subject: ftp in perl via a proxy: new line character missing
Message-Id: <6vsqcc$r59$1@nnrp1.dejanews.com>
Hi,
I am getting and putting files to an ftp server via our proxy.
for a PUT, here is the code:
use LWP::UserAgent;
sub PutLocalFile
{
# $type is "a" or "b" (default "b"?)
my($proxy,$user,$pwd,$host,$remote_dir,$remote_file,$local_dir,$local_file,$type
)=@_;
my $ua = new LWP::UserAgent; $ua->agent("AgentName/0.1 " . $ua->agent);
$ua->proxy('ftp', $proxy); my $content; my $req = new HTTP::Request
'PUT',"ftp://".$user.":".$pwd."@".$host."/".$remote_dir."/".$remote_file."?ty
pe= ".$type; if(open(INX, "$local_dir/$local_file")) {
read(INX, $content, (-s INX) ); close INX; } else
{ exit; } $req ->
content($content); my $res = $ua->request($req); }
My problem is:
When I send a "dos file" from UNIX in binary, the file is sent as is: OK.
when I send a "dos file" from Windows (NT) in binary, the file sent loses its
NewLine character at the end of each line...
I absolutly need the files to be sent from Windows. Any help, please?
Cheers
Philippe
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 12 Oct 1998 15:45:00 +0200
From: haller <stefan.haller@ascom.ch>
To: pcharpen@my-dejanews.com
Subject: Re: ftp in perl via a proxy: new line character missing
Message-Id: <362207DC.65E9745A@ascom.ch>
Hello
pcharpen@my-dejanews.com wrote:
>
> Hi,
- snip -
> My problem is:
> When I send a "dos file" from UNIX in binary, the file is sent as is: OK.
> when I send a "dos file" from Windows (NT) in binary, the file sent loses its
> NewLine character at the end of each line...
> I absolutly need the files to be sent from Windows. Any help, please?
I think that's not a Perl-problem...
Windos expects at the end of a line not a single linefeed, but a
carriage return + linefeed character...
this is how windos interprets the file.
So put these to characters there and maybe it will work...
regards
Steve
--
"Those are my principles! And if you don't like them... well, I have
others..."
-- Groucho Marx
------------------------------
Date: 12 Oct 1998 14:07:37 +0200
From: Michal Rutka <erhmiru@erh.ericsson.se>
To: sstevens@hshsl.umaryland.edu
Subject: Re: Help needed extracting URLs
Message-Id: <lak926nfue.fsf@erh.ericsson.se>
"Scott H. Stevens" <sstevens@hshsl.umaryland.edu> writes:
[...]
> What I need to do is open a report that contains new and old URLs. I
> need to find OLD URLs only. The only common way element to finding these
> URLs is that a "u" and a space appear before the address and a space and a $
> appear after the address. And the address may be split over 2 lines. Below
> is an example of the report:
[...]
> open (urlreport, "856.TXT");
> @array=<urlreport>;
> close (urlreport);
>
> foreach (@array){
> print (@array,"\n");
> }
If you change this code to:
open (URLREPORT, "856.TXT");
$array= join '',<URLREPORT>;
close (URLREPORT);
while($array =~ m|u\s*(http://.*?)\s*\$|sg){
$_ = $1;
s/\s*//sg;
print "$_\n";
}
Then you have not much more code, but it should do what you want.
Regards,
Michal
>
> Not much I realise, but I was hoping someone might be able to clue me in on
> the best way to approach this problem.
>
> Thank you kindly,
> Scott Stevens
------------------------------
Date: Mon, 12 Oct 1998 06:13:29 -0700
From: "Tom Hill" <tjhill@flash.net>
Subject: Re: Help to compile or translate my software perl in C for win95
Message-Id: <6vsv9a$s95$1@excalibur.flash.net>
Yeah, I thought it might be doing something like that. Thanks! I'll give it
a try.
Jihad Battikha wrote in message <36217D77.CF0F9567@highsynth.com>...
>Tom Hill wrote:
>
>> Does anybody know what perl2exe is actually doing?
>> Converting to C and compiling?
>
>I think it's simply repackaging the perl interpreter (whichever one
>happens to be installed on your system) into an .exe that contains
>both the interpreter and the script.
------------------------------
Date: Mon, 12 Oct 1998 14:31:36 +0100
From: jwl@_munged_worldmusic.de (Joergen W. Lang)
Subject: Re: How do I use die?
Message-Id: <1dgsfrc.ib31v49dmwxqN@host040-210.seicom.net>
Mark-Jason Dominus <mjd@op.net> wrote:
> In article <1dgqp5r.18oxfglzmbvgiN@host016-210.seicom.net>,
> Joergen W. Lang <jwl@_munged_worldmusic.de> wrote:
> > BEGIN {
> > use CGI::Carp qw(carpout);
> > open(LOG, ">>/usr/local/cgi-logs/mycgi-log") or
> > die("Unable to open mycgi-log: $!\n");
> > carpout(LOG);
> > }
>
> I like to do it a little differently:
>
> BEGIN {
> $ERR = '/tmp/program.err'; # ***
> $ERR and open (STDERR, ">> $ERR")
> or die "Couldn't open error log file $ERR: $!; aborting";
> # carpout goes here if you want it
> }
>
> Then later on, I can have
>
> $ERR and print STDERR "Some diagnostic message.\n";
>
> When the program is ready for distribution, I comment out the `***'
> line, and all the diagnostic stuff diasappears from the program.
Huh ? What does (***) do ?
Just grepped through the docs/camel and could not find any solution.
What kind of subtle magic do you apply there ? Don't get it....
Multiplication ? Typeglobbing ? Exponentials ? Prototyping ?
scrubbing my chin in confusion....
Joergen
--
To reply by email please remove _munged_ from address Thanks !
-------------------------------------------------------------------
"Everything is possible - even sometimes the impossible"
HOELDERLIN EXPRESS - "Touch the void"
------------------------------
Date: 12 Oct 1998 14:56:16 +0200
From: Jonathan Feinberg <jdf@pobox.com>
To: jwl@worldmusic.de (Joergen W. Lang)
Subject: Re: How do I use die?
Message-Id: <m367dq6irz.fsf@joshua.panix.com>
jwl@_munged_worldmusic.de (Joergen W. Lang) writes:
> Mark-Jason Dominus <mjd@op.net> wrote:
> > $ERR = '/tmp/program.err'; # ***
>
> Huh ? What does (***) do ?
Nothing. It's in a *comment*. It reminds the author which line to
comment out when he's done debugging.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 12 Oct 1998 10:28:57 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: How do I use die?
Message-Id: <6vt3n9$ce0$1@monet.op.net>
In article <1dgsfrc.ib31v49dmwxqN@host040-210.seicom.net>,
Joergen W. Lang <jwl@_munged_worldmusic.de> wrote:
>Mark-Jason Dominus <mjd@op.net> wrote:
>> $ERR = '/tmp/program.err'; # ***
>> When the program is ready for distribution, I comment out the `***'
>> line, and all the diagnostic stuff diasappears from the program.
>
>
>Huh ? What does (***) do ?
It shows people in the newsgroup which line I am talking about when I
say to comment out a certain line.
>Just grepped through the docs/camel and could not find any solution.
>What kind of subtle magic do you apply there ?
The magic is actually in the # symbol the precedes the ***.
:-)
------------------------------
Date: Mon, 12 Oct 1998 12:32:02 GMT
From: "Garry T. Williams" <garry@america.net>
Subject: Re: How to do a nslookup !
Message-Id: <3621F71A.F3CD534@america.net>
Patrick wrote:
>
> Hi,
>
> I have the following problem. I want to make a nslookup to check if
> there is an entry for some ip adresses. I already searched for some
> scripts but i haven't found one.
> I also downloaded a DNS Resolver but i wan't able to do a lookup.
>
> Couls someone help me ?
>
> As example: I want to look if there is a DNS Entry for 164.128.151.130
% nslookup 130.151.128.164.in-addr.arpa
But, of course, you're asking in the wrong group.
-Garry Williams
------------------------------
Date: 12 Oct 1998 13:25:24 GMT
From: wolph@merlin.albany.net (r j huntington)
Subject: Re: How to do a nslookup !
Message-Id: <6vt004$46g$2@news.monmouth.com>
: > As example: I want to look if there is a DNS Entry for 164.128.151.130
:
: % nslookup 130.151.128.164.in-addr.arpa
:
: But, of course, you're asking in the wrong group.
I think he wants to know how to make his perl script do it. It's an
interesting question. -rh-
------------------------------
Date: Mon, 12 Oct 1998 13:49:51 GMT
From: mfuhr@dimensional.com (Michael Fuhr)
Subject: Re: How to do a nslookup !
Message-Id: <6vt1dn$7tb@flatland.dimensional.com>
Patrick <ammann@ip-plus.net> writes:
> I have the following problem. I want to make a nslookup to check if
> there is an entry for some ip adresses. I already searched for some
> scripts but i haven't found one.
> I also downloaded a DNS Resolver but i wan't able to do a lookup.
Net::DNS will likely run only on Unix systems. I've been working on
modifying it to run under Win32 but I don't have such a system to
test with.
> Couls someone help me ?
>
> As example: I want to look if there is a DNS Entry for 164.128.151.130
Use the gethostbyaddr function -- see the perlfunc, perlipc, and Socket
manual pages for examples. This question has been asked numerous times
in the past, so you should be able to find some answers at Deja News:
http://www.dejanews.com/
Hope this helps.
--
Michael Fuhr
http://www.fuhr.net/~mfuhr/
------------------------------
Date: 12 Oct 1998 06:14:34 GMT
From: gebis@fee.ecn.purdue.edu (Michael J Gebis)
Subject: Re: I'm looking for someone who wants to write a complete perl-script (for free)
Message-Id: <6vs6oa$7ki@mozo.cc.purdue.edu>
bdispa@bigfoot.com (PsIoNnEkE) writes:
}I'm looking for one (or a few) persons who want to write a complete
}perl-script for my new web-project. The project ain't the one you know
}from everybody, no, it's very professional.
}Do you want to help me ? Mail me ASAP. The deadline is January 1st.
If you have any success, can you forward the respondant's e-mail
address to me too? I need somebody to wash my car, do laundry once a
week, and maybe do a little light yard work.
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: Mon, 12 Oct 1998 13:11:29 +0100
From: Kiril <work@despam.idea.co.uk>
Subject: Re: I'm looking for someone who wants to write a complete perl-script (for free)
Message-Id: <3621F1F1.EE782409@despam.idea.co.uk>
PsIoNnEkE wrote:
>
> Hi !
>
> I'm looking for one (or a few) persons who want to write a complete
> perl-script for my new web-project. The project ain't the one you know
> from everybody, no, it's very professional.
>
> What I need:
> I need 2 or 3 scripts that use the same resources. It's all for the
> same purpose: voting.
>
> Do you want to help me ? Mail me ASAP. The deadline is January 1st.
>
> Tnx...
Actually, you forgot to clarify whether this was trolling
or trawling (see recent threads), which IMHO is a must
before you get a satisfactory answer.
K
------------------------------
Date: Mon, 12 Oct 1998 14:10:06 +0200
From: "Avshi Avital" <avitala@macs.biu.ac.il>
Subject: inputing two arrays into a sub
Message-Id: <6vt2hv$r8m$1@news.netvision.net.il>
hi,
my problem is how to input two arrays into a sub, such that the sub can
distinguish one from the other.
of course, if i use: foo(@a,@b)
then @_ is equal to the concatenation of @a and @b, and that ain't much use.
the solution that i've worked out is this:
# input two arrays with they're length
# e.g- &foo($#first,@first, $#second,@second)
sub foo {
### declarations:
local @a=();
local @b=();
local $lenA=$_[0];
local $lenB=0;
local $i=0;
### begin:
# arrange input:
for ($i=1; $i<@_; $i++) {
if ($i<=$lenA+1) {
push(@a, $_[$i]);
} elsif ($i==$lenA+2) {
$lenB=$_[$i];
} else {
push(@b, $_[$i]);
}
}
at this point @a==@first, and @b==@second.
this works quite well, but 'the perl way' is kinda lost. so i wander if a
more eficient way exists.
thanx, Avshi
------------------------------
Date: 12 Oct 1998 15:21:45 +0200
From: Jonathan Feinberg <jdf@pobox.com>
To: "Avshi Avital" <avitala@macs.biu.ac.il>
Subject: Re: inputing two arrays into a sub
Message-Id: <m33e8t7w5y.fsf@joshua.panix.com>
"Avshi Avital" <avitala@macs.biu.ac.il> writes:
> my problem is how to input two arrays into a sub, such that the sub
> can distinguish one from the other.
You want to pass array references to your subroutine. You may either
explicitly create referencs at the calling end with the backslash
operator, or you may prototype your sub. See perlref and perlsub.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 12 Oct 1998 10:50:48 -0400
From: dblack@pilot.njin.net (David Alan Black)
Subject: Re: inputing two arrays into a sub
Message-Id: <6vt508$dkj$1@pilot.njin.net>
Hello -
"Avshi Avital" <avitala@macs.biu.ac.il> writes:
>hi,
>my problem is how to input two arrays into a sub, such that the sub can
>distinguish one from the other.
>of course, if i use: foo(@a,@b)
>then @_ is equal to the concatenation of @a and @b, and that ain't much use.
Pass references to the arrays:
sub asub {
my ($a1, $a2) = @_;
# now make a copy of the arrays' contents, or manipuate directly
}
&asub(\@arr1, \@arr2);
...
David Black
dblack@pilot.njin.net
------------------------------
Date: 12 Oct 1998 14:22:56 +0200
From: Michal Rutka <erhmiru@erh.ericsson.se>
To: jason.holland@dial.pipex.com
Subject: Re: Name from IP
Message-Id: <lahfxanf4v.fsf@erh.ericsson.se>
Jason Holland <jason.holland@dial.pipex.com> writes:
[...]
> Try something like this:
>
> my $address = "123.123.123.123"; # Example address
> my ( $a, $b, $c, $d ) = split( /\./, $address ); # Split into
> discrete values
> my $addr = pack( "C4", $a, $b, $c, $d ); # Pack into four
> byte binary format
> my $hostname = gethostbyaddr( $addr ); # Get hostname, more
> data available with this call
Or
my $hostname = (gethostbyaddr(inet_aton("123.123.123.123"),AF_INET))[0];
unless you like a lot of typing.
Michal
------------------------------
Date: Mon, 12 Oct 1998 14:27:53 GMT
From: dragnovich@my-dejanews.com
To: jason.holland@dial.pipex.com
Subject: Re: Name from IP
Message-Id: <6vt3l7$5kt$1@nnrp1.dejanews.com>
Hi there is an easy way:
$ip = $ENV{'REMOTE_HOST'};
$host = $ENV{'SERVER_NAME'};
Note: this will work ONLY if you run the cgi from a web page.
If you want to learn more, about Environment variables see you server
documentation or go to www.apache.org and search there.
Bye Bye!
In article <3620E86C.94EF6EBF@dial.pipex.com>,
Jason Holland <jason.holland@dial.pipex.com> wrote:
> Christian Koch wrote:
> >
> > How can I get the server- or domain-name of a IP with a perl-script or an
> > executable file??
> >
> > Christian
------------------------
Juan Carlos Lopez
QDesigns President & CEO
http://www.qdesigns.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 12 Oct 1998 13:20:20 GMT
From: wolph@merlin.albany.net (r j huntington)
Subject: Need help with time function
Message-Id: <6vsvmk$46g$1@news.monmouth.com>
Hi, I've just been given an assignment and I'm really lost as to
how to do this. I've done a little perl programming but this has
me baffled. Any help is gratefully appreciated.
I need to produce a script that records the user's IP address, the
query string, and the time in a log file. I have the first two, but
the third, recording the time, I'm find trickier.
The user comes in via a remote link on the web. OK so far. The problem
is that the line in the log representing the user must be removed from
the log after so many hours, i.e., the user is granted temporary access.
I'm totally confused as to how to record the time and then remove the
ones over a certain age. Thanks in advance for any help. -rh-
------------------------------
Date: 12 Oct 1998 13:59:21 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <6vt1vp$ljm$1@info.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 05 Oct 1998 13:50:28 GMT and ending at
11 Oct 1998 22:08:16 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: 230 (44.2% of all posters)
Articles: 332 (23.1% of all articles)
Volume generated: 542.4 kb (22.9% of total volume)
- headers: 227.5 kb (4,622 lines)
- bodies: 310.0 kb (10,066 lines)
- original: 239.9 kb (8,111 lines)
- signatures: 4.6 kb (135 lines)
Original Content Rating: 0.774
Averages
========
Posts per poster: 1.4
median: 1.0 post
mode: 1 post - 174 posters
s: 1.3 posts
Message size: 1673.0 bytes
- header: 701.7 bytes (13.9 lines)
- body: 956.3 bytes (30.3 lines)
- original: 740.0 bytes (24.4 lines)
- signature: 14.1 bytes (0.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
13 15.4 ( 10.7/ 4.7/ 1.8) "Commitman" <commitman@digitalnet.com.br>
6 13.5 ( 4.0/ 9.5/ 9.4) baillie@my-dejanews.com
5 6.0 ( 3.2/ 2.7/ 2.2) "-Paul Coleman" <Paul.Coleman@CoSeCo.com>
5 8.3 ( 3.8/ 3.8/ 0.8) WMWilson <m.v.wilson@erols.com>
5 12.5 ( 3.8/ 8.7/ 3.9) ekaull@my-dejanews.com
4 8.4 ( 3.0/ 4.8/ 2.9) "Michael D. Hofer" <featheredfrog@geocites.com>
4 3.7 ( 2.6/ 1.1/ 0.8) "Avshi Avital" <avitala@macs.biu.ac.il>
4 7.2 ( 2.5/ 4.7/ 3.5) murray-paul@usa.net (Paul Murray)
4 8.1 ( 3.1/ 4.9/ 4.6) Adrian Albin-Clark <adrian@pearl.demon.co.uk>
4 6.5 ( 2.8/ 3.7/ 3.7) Venu Sripada <vsripada@ca.oracle.com>
These posters accounted for 3.8% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
15.4 ( 10.7/ 4.7/ 1.8) 13 "Commitman" <commitman@digitalnet.com.br>
14.1 ( 0.7/ 13.5/ 13.0) 1 EBO <EBO@dannet.dk>
13.5 ( 4.0/ 9.5/ 9.4) 6 baillie@my-dejanews.com
12.5 ( 3.8/ 8.7/ 3.9) 5 ekaull@my-dejanews.com
12.2 ( 0.8/ 11.3/ 7.4) 1 "Charles Clancy" <clancytc@rose-hulman.edu>
8.4 ( 3.0/ 4.8/ 2.9) 4 "Michael D. Hofer" <featheredfrog@geocites.com>
8.3 ( 3.8/ 3.8/ 0.8) 5 WMWilson <m.v.wilson@erols.com>
8.1 ( 3.1/ 4.9/ 4.6) 4 Adrian Albin-Clark <adrian@pearl.demon.co.uk>
7.8 ( 2.3/ 5.5/ 4.8) 3 "John J. Alesse" <jja@inforonics.com>
7.2 ( 2.5/ 4.7/ 3.5) 4 murray-paul@usa.net (Paul Murray)
These posters accounted for 4.5% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 5.0 / 5.0) 3 Detlef Weitz <weitz@goya.informatik.rwth-aachen.de>
1.000 ( 3.7 / 3.7) 4 Venu Sripada <vsripada@ca.oracle.com>
1.000 ( 1.4 / 1.4) 3 Andrew Perrella <ap85@cornell.edu>
1.000 ( 0.5 / 0.5) 3 "AMIP" <sroque@man.amis.com>
0.998 ( 2.7 / 2.7) 3 "Sean Rietze" <seanr@rmci.net>
0.986 ( 9.4 / 9.5) 6 baillie@my-dejanews.com
0.933 ( 4.6 / 4.9) 4 Adrian Albin-Clark <adrian@pearl.demon.co.uk>
0.869 ( 4.8 / 5.5) 3 "John J. Alesse" <jja@inforonics.com>
0.816 ( 2.2 / 2.7) 5 "-Paul Coleman" <Paul.Coleman@CoSeCo.com>
0.812 ( 2.4 / 2.9) 3 elund@compuserve.com
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.695 ( 0.8 / 1.1) 4 "Avshi Avital" <avitala@macs.biu.ac.il>
0.656 ( 0.9 / 1.4) 3 mscongdon@hotmail.com (Michael Congdon)
0.589 ( 2.9 / 4.8) 4 "Michael D. Hofer" <featheredfrog@geocites.com>
0.548 ( 0.8 / 1.4) 3 pfeilgm@technomadic.org
0.500 ( 1.5 / 3.1) 3 "Rathnakar Yelandur" <r.r@att.net>
0.497 ( 1.8 / 3.7) 3 sholden@cs.usyd.edu.au
0.455 ( 3.9 / 8.7) 5 ekaull@my-dejanews.com
0.391 ( 1.8 / 4.7) 13 "Commitman" <commitman@digitalnet.com.br>
0.296 ( 0.6 / 2.1) 3 jmurphy@nospam.com2000.net
0.203 ( 0.8 / 3.8) 5 WMWilson <m.v.wilson@erols.com>
22 posters (9%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
5 "Sean Rietze" <seanr@rmci.net>
4 "Chris \"HTMLpro\" Alas" <rcpowerpro@geocities.com>
4 Nick Moraitakis <nick@malloc.org>
4 Ayanda Mabombo <9631917@ml.petech.ac.za>
3 Fred & Chris <horizons@hol.fr>
3 bavag@dds.nl (Buzz)
2 Simone Mura <simone@intesys.it>
2 WMWilson <m.v.wilson@erols.com>
2 Nat Guyton <nat@apart.net>
2 apply@imservice.com
------------------------------
Date: Mon, 12 Oct 1998 11:53:44 GMT
From: dvoon@my-dejanews.com
Subject: newbie question: regular expressions
Message-Id: <6vsqk7$rft$1@nnrp1.dejanews.com>
Below is to print all the words with a "t":
@x = qw(the truth is out there) ;
foreach $y (@x) {
if ($y =~ /[t]/) {
print $y, "\n";
}
}
That's fine. But, how to get it to print all the words without any "t"?
if ($y =~ /[^t]/) { # I tried the negation but it didnt work.
Thanks for any help.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 12 Oct 1998 12:36:36 GMT
From: "Garry T. Williams" <garry@america.net>
Subject: Re: newbie question: regular expressions
Message-Id: <3621F82D.7391F0C7@america.net>
unless ( $y =~ /t/ ) ...
-or-
if ( $y !~ /t/ ) ...
(The character class brackets are not necessary, if you are looking for
a single character.)
See perlre.
-Garry Williams
dvoon@my-dejanews.com wrote:
>
> Below is to print all the words with a "t":
>
> @x = qw(the truth is out there) ;
> foreach $y (@x) {
> if ($y =~ /[t]/) {
> print $y, "\n";
> }
> }
>
> That's fine. But, how to get it to print all the words without any "t"?
>
> if ($y =~ /[^t]/) { # I tried the negation but it didnt work.
>
> Thanks for any help.
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 12 Oct 1998 14:51:37 +0200
From: Eike Grote <eike.grote@theo.phy.uni-bayreuth.de>
Subject: Re: newbie question: regular expressions
Message-Id: <3621FB59.9AF27E1B@theo.phy.uni-bayreuth.de>
Hi,
dvoon@my-dejanews.com wrote:
>
> Below is to print all the words with a "t":
>
> @x = qw(the truth is out there) ;
> foreach $y (@x) {
> if ($y =~ /[t]/) {
> print $y, "\n";
> }
> }
>
> That's fine. But, how to get it to print all the words without any "t"?
>
> if ($y =~ /[^t]/) { # I tried the negation but it didnt work.
This matches words containing characters different from 't'; it will
only exclude 't', 'tt', 'ttt',...
To solve your problem you could negate the matching operator like this:
if ($y !~ /[t]/)
Bye, Eike
--
=======================================================================
>>--->> Eike Grote <eike.grote@theo.phy.uni-bayreuth.de> <<---<<
-----------------------------------------------------------------------
Home Page, Address, PGP,...: http://www.phy.uni-bayreuth.de/~btpa25/
-----------------------------------------------------------------------
PGP fingerprint: 1F F4 AB CF 1B 5F 4B 1D 75 A1 F9 C5 7B 3F 37 06
=======================================================================
------------------------------
Date: Mon, 12 Oct 1998 14:42:53 +0200
From: "Avshi Avital" <avitala@macs.biu.ac.il>
Subject: Re: newbie question: regular expressions
Message-Id: <6vt4ls$3gr$1@news.netvision.net.il>
dvoon@my-dejanews.com wrote in message <6vsqk7$rft$1@nnrp1.dejanews.com>...
>Below is to print all the words with a "t":
>
>@x = qw(the truth is out there) ;
>foreach $y (@x) {
> if ($y =~ /[t]/) {
> print $y, "\n";
> }
>}
you probebly mean:
@x = qw(the truth is out there) ;
foreach $y (@x) {
if ($y =~ /t/) {
print $y, "\n";
}
}
>That's fine. But, how to get it to print all the words without any "t"?
simple:
@x = qw(the truth is out there) ;
foreach $y (@x) {
if ($y !~ /t/) {
print $y, "\n";
}
}
btw, it's nicer this way:
@x = qw(the truth is out there) ;
foreach $y (@x) {
$y !~ /t/ && print $y, "\n";
}
Avshi.
------------------------------
Date: Mon, 12 Oct 1998 12:20:48 GMT
From: "Garry T. Williams" <garry@america.net>
Subject: Re: Newbie: using strict with filehandles
Message-Id: <3621F478.E549B7B5@america.net>
George Defenbaugh wrote:
>
> Worked great. Just what I needed. Thanks! Some of these concepts
> aren't in the Learning... book, and even the Programming book doesn't
> cover them well. I need to look at the Advanced book I guess.
>
> If you have a recommendation for another book to augment the ORA
> series, I'd appreciate the suggestion.
Actually, _Programming Perl_ describes FileHandle and strict in chapter
7. Also check perldoc.
-Garry Williams
------------------------------
Date: Mon, 12 Oct 1998 09:05:17 -0500
From: James Ludlow <ludlow@us.ibm.com>
Subject: Re: Newbie:parse into a hash table
Message-Id: <36220C9D.ACD8BFC4@us.ibm.com>
Tk Soh wrote:
>
> James Ludlow wrote:
> >
> > Yue Wang wrote:
> >
> > > can someone show me a simple way to parse this text file into hash table
> > > so that 22 is returned when print $table{row1, col3}
> >
> > Check the documentation for the split function. Also, you probably
> > don't really want to use $table{row1, col3}. If you insist on using
> > hashes, then I'd suggest $table{row1}{col3}.
> IN this case, 'list of list' should work better. More flexible if you
> have variable number of columns and rows, and more efficient.
I agree. If I were writing this, I would likely use a list of lists,
because I'd probably have to keep track of the column order in a list
anyway. But, that's why I said "if you insist on using hashes".
I don't, however, see how a list is more flexible than a hash when
dealing with a variable number of columns and rows.
--
James Ludlow (ludlow@us.ibm.com)
Disclaimer: This isn't technical support, and all opinions are my own.
------------------------------
Date: Mon, 12 Oct 1998 12:24:01 GMT
From: ruud.limbeck@tip.nl (Ruud Limbeck)
Subject: Perl freezes when using large HTML-forms
Message-Id: <3621f1bf.14156750@news.NL.net>
Dear all,
when using large HTML-forms (>100 inputfields) perl freezes after
pressing the submit-button. When removing (a lot of) input fields it's
working fine again. There is no strange code in the removed
input-fields.
The perl is running on a Windows NT 4.0 workstation. So, how can I
configure WindowsNT/Perl to handle large html-forms?
I already added in \winnt40\system32\config.nt the command:
shell=%systemroot%\system32\command.com /e:2048 /p in the hope to
gain more memory when running the perl.exe. I also created in this
directory a file called config.sys with the same parameters in it.
Any tip will be more than welcome !!!
Thanks,
Ruud Limbeck
------------------------------
Date: Mon, 12 Oct 1998 12:33:34 GMT
From: ruud.limbeck@tip.nl (Ruud Limbeck)
Subject: Perl freezes when using special characters in HTML
Message-Id: <3621f4e1.14959434@news.NL.net>
Dear all,
when using Perl on a Windows NT4.0 workstation, Perl freezes as soon
as it needs to read an ASCII-file containing a "%"-sign in the data.
When I change the data into something else (like a "^"-sign) the
reading of the contents of the files is ok...
So, why does Perl stop working when encountering a %-sign, and are
there any other characters I must not use?
Please help me.
Ruud Limbeck
Background info: I use Perl to:
- read the contents of a html-page
- It starts my own application that creates an ascii-file with
html-coding in it.
- it prints the contents of this ascii-file so the text eventualy is
printed to the browser.
- it deletes the temporary ascii-file.
------------------------------
Date: Mon, 12 Oct 1998 10:13:26 -0400
From: John Porter <jdporter@min.net>
Subject: Re: PERL in Business
Message-Id: <36220E86.A4A1E3D2@min.net>
madame philosophe wrote:
>
> John Porter has this very intriguing page you may wish to show your boss!
>
> Hope it helps your cause!
>
> http://www.min.net/~jdporter/cgi-bin/perl-stories.cgi
Thanks for the pitch.
However, everyone should be aware that this page is being developed
as a Perl Instititue initiative, and is very much un*** con********n.
Perl programmers are welcome to visit, but please don't send any
pointy-haired types there yet.
--
John "Many Jars" Porter
baby mother hospital scissors creature judgment butcher engineer
------------------------------
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 3952
**************************************
