[7500] in Perl-Users-Digest
Perl-Users Digest, Issue: 1126 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Oct 4 15:17:48 1997
Date: Sat, 4 Oct 97 12:00:34 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 4 Oct 1997 Volume: 8 Number: 1126
Today's topics:
Re: associative arrays prob <rootbeer@teleport.com>
Downright Wierd Error (Q) <hill@pacificnet.net>
Re: Downright Wierd Error (Q) (Tad McClellan)
flock server (was: Re: Multiple Simultaneous prints???) <rootbeer@teleport.com>
Re: Help -- Perl5 with IIS on NT4 <Jan.Krynicky@st.mff.cuni.cz>
Re: Help: Regular Expression Substitution kai@webexpert.net
Re: How to Send a webform response to a email address? <Jan.Krynicky@st.mff.cuni.cz>
Re: How to use string contents as string name <mission@bellsouth.net>
Re: Include gif without <image src= <rootbeer@teleport.com>
Method not allowed? (Dean Mao)
Re: Need Help for Perl with MS Access Database <Jan.Krynicky@st.mff.cuni.cz>
Perl 5.003: sleep interfering with alarm signal <sassoj@rpi.edu>
Re: Perl 5.003: sleep interfering with alarm signal <no_nick@ix.netcom.com>
Re: Sending files with sendmail <Jan.Krynicky@st.mff.cuni.cz>
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Syntax on assignment and undef <rootbeer@teleport.com>
Wanted: XML, RDF, WebDAV modules for Perl 5 <fleck@informatik.uni-bonn.de>
Re: Why isn't this code working? <rootbeer@teleport.com>
Re: Why isn't this code working? (Tad McClellan)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 4 Oct 1997 08:58:04 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Lutz Albers <lutz@muc.de>
Subject: Re: associative arrays prob
Message-Id: <Pine.GSO.3.96.971004085244.3525G-100000@usertest.teleport.com>
On Fri, 3 Oct 1997, Lutz Albers wrote:
> In article
> <Pine.GSO.3.96.971002072824.24335I-100000@usertest.teleport.com>, Tom
> Phoenix <rootbeer@teleport.com> wrote:
>
> >> for ($x=1; $x<=6; $x++)
> >
> >The more perlish way is like this.
> >
> > for $x (1..6) { ... }
> I'm not sure, if this is a good advice :-) If your right boundary is
> large, then you'll have a (not so :-) small problem.
It wasn't large, it was 6. :-) In general, a for(each) loop is the better
answer when either there are known to be fewer than around 1000 elements,
or when iterating over a list which already exists in memory. (Note that
iterating over the indices of a list is a different matter! :-) I say
"around 1000" because (in my experience) it's essentially no trouble for
Perl to malloc the memory needed to produce a list 1..1000. YMMV.
So you're right that when the range is large, the original method is
preferred. Thanks for pointing that out!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Sat, 04 Oct 1997 09:54:04 +0000
From: Hill <hill@pacificnet.net>
Subject: Downright Wierd Error (Q)
Message-Id: <3436123C.3F5BF0AE@pacificnet.net>
I'm a semi-newbee, but this one has me baffled.
Why in the world is one line of the HTML generated commented out?
Output: (Notice that the second form tag is commented/garbled.)
This problem is popping up in other scripts of mine as well... a line will be
turned into a comment.
If anyone has ANY thoughts on why it is happening, could you drop me a clue at Torched@hotmail.com
Thank you!
Output:
<html>
<body bgcolor="#FFFFFF" text="#000000">
<BLOCKQUOTE><P>
<H2>Add/Remove Catagories</H2>
<HR WIDTH=50% ALIGN=LEFT>
<H3>Current Catagories:</H3>
<B>
NASA, Fractal, Textures, </B>
<HR WIDTH=50% ALIGN=LEFT>
<FORM ACTION="catagory_remove.pl" METHOD=POST>
<H3>Remove Catagory:</H3>
<select name="catagory">
<option value="NASA">NASA
<option value="Fractal">Fractal
<option value="Textures">Textures
</select>
<INPUT TYPE="submit" VALUE="Remove">
</FORM><P>
<HR WIDTH=50% ALIGN=LEFT>
<!--M ACTION="catagory_add.pl" METHOD=PO-->
<H3>Add Catagory:</H3>
<INPUT TYPE="text" NAME="catagory" VALUE="" SIZE="20" MAXLENGTH="20"><BR>
<INPUT TYPE="submit" VALUE="Add">
</FORM><P>
<HR WIDTH=50% ALIGN=LEFT>
</BLOCKQUOTE>
</body></html>
------------------
The source code is:
#!/usr/local/bin/perl -w
# Quickie Script for addiing or subtracting Catagories,
# Passes to: catagory_add.pl and catagory_remove.pl
print <<EOF;
Content-type: text/html
<html>
<body bgcolor="#FFFFFF" text="#000000">
<BLOCKQUOTE><P>
EOF
open(CATAGORIES, "../global_data/catagories.form");
while(<CATAGORIES>) {
s/\n//isg;
push @catagories, $_;
}
close(CATAGORIES);
print <<EOF;
<H2>Add/Remove Catagories</H2>
<HR WIDTH=50% ALIGN=LEFT>
<H3>Current Catagories:</H3>
<B>
EOF
foreach $_ (@catagories) {
print "$_, ";
}
print <<EOF;
</B>
<HR WIDTH=50% ALIGN=LEFT>
<FORM ACTION="catagory_remove.pl" METHOD=POST>
<H3>Remove Catagory:</H3>
<select name="catagory">
EOF
foreach $_ (@catagories) {
print "<option value=\"$_\">$_\n";
}
print <<EOF;
</select>
<INPUT TYPE="submit" VALUE="Remove">
</FORM><P>
<HR WIDTH=50% ALIGN=LEFT>
<FORM ACTION="catagory_add.pl" METHOD=POST>
<H3>Add Catagory:</H3>
<INPUT TYPE="text" NAME="catagory" VALUE="" SIZE="20" MAXLENGTH="20"><BR>
<INPUT TYPE="submit" VALUE="Add">
</FORM><P>
<HR WIDTH=50% ALIGN=LEFT>
</BLOCKQUOTE>
</body></html>
EOF
------------------------------
Date: Sat, 4 Oct 1997 13:00:23 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Downright Wierd Error (Q)
Message-Id: <n70616.eg1.ln@localhost>
Hill (hill@pacificnet.net) wrote:
: I'm a semi-newbee, but this one has me baffled.
Me too (the baffled part ;-)
: Why in the world is one line of the HTML generated commented out?
It does not do that for me.
Are we missing some of the real code here?
: Output: (Notice that the second form tag is commented/garbled.)
I do not get that output.
: This problem is popping up in other scripts of mine as well... a line will be
: turned into a comment.
That is baffling alright.
: If anyone has ANY thoughts on why it is happening, could you drop me a clue at Torched@hotmail.com
Since I cannot duplicate the problem, I am afraid I cannot help fix it.
Does it do that when you run it from the command line?
Maybe your server is mucking about with your output?
[ snip ]
: The source code is:
: #!/usr/local/bin/perl -w
: # Quickie Script for addiing or subtracting Catagories,
: # Passes to: catagory_add.pl and catagory_remove.pl
: print <<EOF;
: Content-type: text/html
: <html>
: <body bgcolor="#FFFFFF" text="#000000">
: <BLOCKQUOTE><P>
: EOF
: open(CATAGORIES, "../global_data/catagories.form");
: while(<CATAGORIES>) {
: s/\n//isg;
You should not use regex modifiers that have no effect. It will make
maintenance harder.
s///i has no effect, because there are not any letters in the pattern.
s///s has no effect, because there is no dot in the pattern.
s///g has no effect, because you are only reading in one line at
a time anyway.
s/\n//; # this should produce identical output in all cases
# unless you modify $/, which I don't see you doing anywhere...
chomp; # this too should produce identical output in all cases
# unless you are on a non-Unix 'puter
# this form will also be much more clear to a maintainer...
[ snip ]
: foreach $_ (@catagories) {
: print "<option value=\"$_\">$_\n";
If you want to help the maintenance programmer even more, then consider
using alternative string delimiters to avoid that backwacking:
print qq(<option value="$_">$_\n);
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 4 Oct 1997 09:09:18 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Wolfgang Viechtbauer <wviecht@rs6000.cmp.ilstu.edu>
Subject: flock server (was: Re: Multiple Simultaneous prints???)
Message-Id: <Pine.GSO.3.96.971004085929.3525H-100000@usertest.teleport.com>
On Thu, 2 Oct 1997, Wolfgang Viechtbauer wrote:
> What should you do if you cannot use the flock() command, because you
> are running your scripts on Windows NT or Windows 95?
...or on some other machine which doesn't support flock? First, complain -
loudly and often - to your vendor. Or install Linux. :-)
If you don't install Linux, the next step would be to write a small flock
server. It would run continuously, arbitrating requests among processes,
running as root on systems which support that concept. Nothing too fancy,
probably no more than a couple of pages of code. (But it should probably
be written with taint checking turned on, for security reasons.)
Now, you could write a simple Perl module which would implement a
replacement flock() command, overriding the built-in one. Again, nothing
too fancy here, another page or two of code.
Finally, you'd write some docs and post the module and server to CPAN, so
that folks around the world could use what you've done and be ever
grateful to you.
Of course, you yourself may not have the time and skills needed to do all
of these steps. But maybe there's somebody out there reading this message
who would like to make this happen and has the time and skills to work on
it. Any takers?
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Sat, 04 Oct 1997 19:12:54 -0700
From: Jan Krynicky <Jan.Krynicky@st.mff.cuni.cz>
To: David Lam <dlam@kdn0.attnet.or.jp>
Subject: Re: Help -- Perl5 with IIS on NT4
Message-Id: <3436F7A6.69ED@st.mff.cuni.cz>
David Lam wrote:
>
> Perl5 with IIS 2.0 on NT4 cannot retrieve filenames in a directory
> (functions as glob, opendir, readdir, while <*.*> {} all do not work). Can
> anybody give me an idea of fixing this problem?
What do you mean by "do not work".
Are they giving you errors?
Do they return nothing?
Or what?
Does it work from command line?
What version of perl do you use? ( Perl5 is not too informative. )
1)
You may be in a completely different directory try :
use Cwd;
print getcwd;
are you where you thought you are?
2)
Check permissions !
(sorry this is just a too often cause.)
Jenda
------------------------------
Date: Sat, 04 Oct 1997 13:23:30 -0600
From: kai@webexpert.net
To: mike@stok.co.uk
Subject: Re: Help: Regular Expression Substitution
Message-Id: <875988995.8473@dejanews.com>
Mike,
Yes! That answer and link was really helpful. I just wished I had seen
it before I plunged hours of work, testing and revising into reinventing
the wheel. And when I couldn't understand what Jeffery Friedl was trying
to do with that awfully complex expression, I bought his book, which is
also really helpful.
However, like all learning experiences, it also raises more questions:
1) Why didn't putting a (g) at the end of the regular expression parse
out all comments. Why did I have to resort to using a while loop?
2) Mr. Friedl, on page 169, talks about positive and negative-lookahead
and how that's used because we can't match 2 characters at once. So I
can't write an expression like [^(\*\/)] to signify "not end of comment"?
3) Anyone have any thoughts of how to parse out comments in PERL?!? :-P
Comments are started with #, unless if # are within quotes or regular
expression delimiters... unfortunately, those delimiters can be ANYTHING
as long as the regular expression starts with m, s, y, tr,... anything
ELSE?! This becomes especially strange if I can't say: $CurLine =~
/=~\s*[smy(tr)]?(.)/; $delimiter =$1; # or is it $2?!? but if beginning
delimiter is {, isn't the end delimiter }?!?
I'm going so nuts over trying to do all this... ugh.
In article <60lt7q$ib9@news-central.tiac.net>,
mike@stok.co.uk (Mike Stok) wrote:
> >Please help, and cc a copy to my e-mail at kai@webexpert.net.
> >Thank you.
> >4) /*comment1*/ print "Hello World!\n"; /*comment2*/ print "Hello Again!\n";
> >
> >and the code I intended to use was:
> >
> >$Curline =~ s/^([^"\n]*(".*")*[^"\n]*)\/\*[^(\*\/)\n]*\*\//$1/g;
>
> You might try the solution suggested in the FAQ at
>
>
http://www.perl.com/CPAN-local/doc/manual/html/pod/perlfaq6/How_do_I_use_a_regul
ar_expresio.html
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Sat, 04 Oct 1997 19:30:02 -0700
From: Jan Krynicky <Jan.Krynicky@st.mff.cuni.cz>
To: kk@magi.com
Subject: Re: How to Send a webform response to a email address?
Message-Id: <3436FBAA.2976@st.mff.cuni.cz>
Kerry Keogan wrote:
>
> Can anyone suggest a way that to pipe a webform resopnse to a email
> address on another server.
>
> I would also like test run this perl script locally(off line) and email
> myself when I fillout and submit the web form. Can this be done? I use
> Netscape Fasttrack web server. Do I require a email server software?
>
> KK
1) use a commandlie based sendmail
open MAIL,"| sendmail parameters that I do not remember";
print MAIL "This is the mail.\n";
print MAIL ".\n";
close MAIL;
sendmail should be on any Unix system. For Windows you will have to
go get one.
see : http://www.microsoft.com/ntserver/tools/IClient.htm#mailclient
2) use a perl module based on socket()s
say Mail::Sender : http://www.chipnet.cz/depot/perl.htm
HTH, Jenda
------------------------------
Date: Sat, 04 Oct 1997 12:29:18 -0500
From: Daniel <mission@bellsouth.net>
Subject: Re: How to use string contents as string name
Message-Id: <34367CEE.1480@bellsouth.net>
Mike,
Thanks very much for the help!
The machine must be on perl4, because I tried the double $$ thing just
for the heck of it. The glob will do nicely!
Take care
Daniel
------------------------------
Date: Sat, 4 Oct 1997 08:51:49 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Tim Sawyer <sawyer@ibm.net>
Subject: Re: Include gif without <image src=
Message-Id: <Pine.GSO.3.96.971004085017.3525F-100000@usertest.teleport.com>
On Fri, 3 Oct 1997, Tim Sawyer wrote:
> Isn't there a way, with mime types or something, to 'imbed' the gif data
> in html without using the <image> tag? Or can the <image> tag be faked
> into accepting gif data from STDIN?
If there is a way to do this, the HTML docs and FAQs should tell about it.
If you can't find an answer there, the folks in a newsgroup about HTML
should be able to give you a better and more complete answer than we can
here. Good luck!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Sat, 04 Oct 1997 18:30:08 GMT
From: deanmao2@hotmail.com (Dean Mao)
Subject: Method not allowed?
Message-Id: <34378b25.50841734@news.gatech.edu>
Hi, I'm a newbie to perl & html interaction and ran into a problem when I
tried to use a form to execute my perl script. It showed the following
error:
Method Not Allowed
The requested method POST is not allowed for the URL /cgi-bin/mine.pl
What the heck does this mean? I used Steven Brenner's cgi-lib.pl to make
the form into a nice hash array and executed it in the beginning of my
perl script (mine.pl). It doesn't seem like netscape even reached my perl
script yet... I just got that dumb error. I'm running Apache 1.2.4 on my
personal Linux server if that helps.
------------------------------
Date: Sat, 04 Oct 1997 19:55:06 -0700
From: Jan Krynicky <Jan.Krynicky@st.mff.cuni.cz>
To: Robert Ferenc <R-O-B@t-online.de>
Subject: Re: Need Help for Perl with MS Access Database
Message-Id: <3437018A.451E@st.mff.cuni.cz>
Robert Ferenc wrote:
>
> hi all!
> i have following problem: i wanna create a database for the internet in
> perl. but it must also be available for an MS access database. i heard
> that exists a c program that could help. please give me some information
> where i can get it or mail me!
> thanx rob
>
> R-O-B@t-online.de
Create the database in MS Access, set up a ODBC DSN for it and
use Win32::ODBC or OLE+ADODB to access it from perl.
Now in more detail:
1) You shouldn't have problems with creating the database.
On to the next.
2) open "Control Panel" ([Start]/Settings/Control Panel)
open ODBC
select SYSTEM DSN tab
add new DSN - fill in the name, type, browse for the .mdb file,...
OK
3) Re: Win32::ODBC - get it from ftp://ftp.roth.net/pub/ntperl/odbc.zip
and read it's docs.
Re: ADODB - This should be installed with MS IIS, Visual Basic and
other
M$ products. Try to find help there.
use OLE;
$Conn = CreateObject OLE "ADODB.Connection" or die "OLE Not connected :
$!";
$Conn->Open("MyDSN") ;
$RS = $Conn->Execute("SELECT * FROM MyTable");
if ($RS) {
while(! $RS->EOF) {
print $RS->Fields(0)->value;
...
$RS->MoveNext;
}
} else {
die "Select failed!";
}
$Conn->Close;
You have to know the basics of SQL here.
See : http://w3.one.net/~jhoffman/sqltut.htm
HTH, Jenda
------------------------------
Date: Sat, 04 Oct 1997 14:01:48 -0400
From: John Sasso <sassoj@rpi.edu>
Subject: Perl 5.003: sleep interfering with alarm signal
Message-Id: <3436848C.41C6@rpi.edu>
Under Linux 2.0.18 (RedHat 4.0), using Perl 5.003, I wrote some code
(shown below) to open and read from a pipe. The program is supposed to
run for $TIME seconds OR until some status check returns false (-1).
The status checking takes place at a frequency of every $STIME seconds.
I am noticing that the sleep() call I have in the while loop is
interfering with the alarm signal I set up. Now what happens is that
the program runs for longer than $TIME secs (and will stop only when the
status check returns false, which can only be during within the $TIME
duration). I know in Steven's UNIX Programming book, he mentions that
different OS's can produce different behavior w.r.t. sleep & alarm.
So my question is: what can I do to the code below to correct the
problem and still maintain the functionality?
--john
#!/usr/bin/perl
#######################
$TIME=3600;
$STIME=10;
sub handler {
my($sig) = @_;
kill 'INT',$pid;
close(PIPE);
exit 0;
}
sub status_check {
.. Code to do some status checking ..
}
$SIG{'ALRM'} = 'handler';
$pid = open(PIPE,"/usr/local/bin/some_program |");
alarm($TIME);
# Do status checking of something every $STIME secs.
while (1) {
$s = &status_check();
if ($s < 0) {
kill 'INT', $pid;
close(PIPE);
exit 0;
}
sleep($STIME);
}
exit 0;
------------------------------
Date: Sat, 04 Oct 1997 14:36:46 -0400
From: Douglas Lewis <no_nick@ix.netcom.com>
To: John Sasso <sassoj@rpi.edu>
Subject: Re: Perl 5.003: sleep interfering with alarm signal
Message-Id: <34368CBE.6AC1@ix.netcom.com>
John Sasso wrote:
[snip problem about sleep/alarm]
sleep and alarm use the same signal in many unix os's
> So my question is: what can I do to the code below to correct the
> problem and still maintain the functionality?
[code snipped]
try using select instead of sleep
doug
------------------------------
Date: Sat, 04 Oct 1997 20:09:42 -0700
From: Jan Krynicky <Jan.Krynicky@st.mff.cuni.cz>
To: ECSSPEAR@livjm.ac.uk
Subject: Re: Sending files with sendmail
Message-Id: <343704F6.2CCB@st.mff.cuni.cz>
ECSSPEAR@livjm.ac.uk wrote:
>
> I am using a simple perl script through a web interface to enable people
> to have files e-mailed to them. Is it possible to have the files
> e-mailed as attachments just as they would if they were sent with any
> modern e-mail program (as opposed to sending them uuencoded in the mail
> message)?
>
> Simon Pearce
> Webmaster
> ScoutNet UK
It depends on the sendmail program you use.
Scan its docs, maybe you will find a way.
You may also consider using some module
say : Mail::Sender : http://www.chipnet.cz/depot/perl.htm
Jenda
------------------------------
Date: 4 Oct 1997 17:59:25 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <61605t$r8r$1@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 27 Sep 1997 09:01:34 GMT and ending at
04 Oct 1997 06:46:58 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 is the ratio of the original content volume
to the total body volume.
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
Excluded Posters
================
perlfaq-suggestions@mox.perl.com
Totals
======
Total number of posters: 411
Total number of articles: 936 (368 with cutlined signatures)
Total number of threads: 349
Total volume generated: 1565.1 kb
- headers: 634.0 kb (12,962 lines)
- bodies: 840.7 kb (27,165 lines)
- original: 596.6 kb (19,952 lines)
- signatures: 88.0 kb (2,010 lines)
Original Content Rating: 0.7097
Averages
========
Number of posts per poster: 2.28
median: 1 post
mode: 1 post - 286 posters
s: 5.46 posts
Number of posts per thread: 2.68
median: 2 posts
mode: 1 post - 118 threads
s: 2.42 posts
Message size: 1712.2 bytes
- header: 693.7 bytes (13.8 lines)
- body: 919.7 bytes (29.0 lines)
- original: 652.7 bytes (21.3 lines)
- signature: 96.3 bytes (2.1 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
89 154.7 ( 75.2/ 60.8/ 41.8) Tom Phoenix <rootbeer@teleport.com>
33 52.7 ( 22.4/ 23.7/ 14.5) brian d foy <comdog@computerdog.com>
32 54.8 ( 22.0/ 32.8/ 19.2) Doug Seay <seay@absyss.fr>
29 42.1 ( 18.1/ 17.8/ 10.0) Jeremy D. Zawodny <zawodny@hou.moc.com>
23 41.9 ( 13.8/ 28.1/ 16.5) Tad McClellan <tadmc@flash.net>
19 39.0 ( 11.3/ 27.7/ 19.9) Ben Reser <ben@reser.org>
18 29.2 ( 13.1/ 12.3/ 8.5) Martien Verbruggen <mgjv@mali.comdyn.com.au>
16 22.5 ( 9.5/ 12.2/ 7.5) Tom Grydeland <Tom.Grydeland@phys.uit.no>
13 18.0 ( 9.4/ 8.6/ 5.1) Benjamin Holzman <bholzman@earthlink.net>
9 13.2 ( 5.5/ 7.7/ 6.7) Jeff Gostin <jgostin@shell2.ba.best.com>
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
154.7 ( 75.2/ 60.8/ 41.8) 89 Tom Phoenix <rootbeer@teleport.com>
54.8 ( 22.0/ 32.8/ 19.2) 32 Doug Seay <seay@absyss.fr>
52.7 ( 22.4/ 23.7/ 14.5) 33 brian d foy <comdog@computerdog.com>
42.1 ( 18.1/ 17.8/ 10.0) 29 Jeremy D. Zawodny <zawodny@hou.moc.com>
41.9 ( 13.8/ 28.1/ 16.5) 23 Tad McClellan <tadmc@flash.net>
39.0 ( 11.3/ 27.7/ 19.9) 19 Ben Reser <ben@reser.org>
29.2 ( 13.1/ 12.3/ 8.5) 18 Martien Verbruggen <mgjv@mali.comdyn.com.au>
22.5 ( 9.5/ 12.2/ 7.5) 16 Tom Grydeland <Tom.Grydeland@phys.uit.no>
20.5 ( 4.9/ 12.8/ 8.5) 9 Mike Stok <mike@stok.co.uk>
18.0 ( 9.4/ 8.6/ 5.1) 13 Benjamin Holzman <bholzman@earthlink.net>
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
------ -------------- ----- -------
1.0000 0.9 / 0.9 5 Mick Farmer <mick@picus.dcs.bbk.ac.uk>
0.9857 4.9 / 4.9 5 orwant@media.mit.edu
0.9808 2.0 / 2.0 5 Brandon S. Allbery KF8NH; to reply, change "void" to "kf8nh" <bsa@void.apk.net>
0.8775 5.9 / 6.7 5 Grey Cloak <spamtrap@greycloak.access.one.net>
0.8625 6.7 / 7.7 9 Jeff Gostin <jgostin@shell2.ba.best.com>
0.8215 7.8 / 9.5 7 Sriram Srinivasan <sriram@weblogic.com>
0.8196 5.4 / 6.6 8 Andrew M. Langmead <aml@world.std.com>
0.8091 5.8 / 7.2 8 Matthew Cravit <mcravit@best.com>
0.7673 3.6 / 4.6 5 TechMaster Pinyan <jefpin@bergen.org>
0.7161 19.9 / 27.7 19 Ben Reser <ben@reser.org>
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
------ -------------- ----- -------
0.5819 4.2 / 7.2 6 Ken Williams <ken@forum.swarthmore.edu>
0.5666 1.5 / 2.7 6 Bart Lateur <bart.mediamind@tornado.be>
0.5621 10.0 / 17.8 29 Jeremy D. Zawodny <zawodny@hou.moc.com>
0.5376 4.5 / 8.4 8 Randal Schwartz <merlyn@stonehenge.com>
0.5215 1.9 / 3.6 6 Eike Grote <eike.grote@theo.phy.uni-bayreuth.de>
0.4759 1.7 / 3.5 8 chip@pobox.com
0.4404 1.6 / 3.7 5 Jason Gloudon <jgloudon@bbn.com>
0.4053 2.4 / 5.8 6 Ilya Zakharevich <ilya@math.ohio-state.edu>
0.3906 2.7 / 7.0 6 abigail@fnx.com
0.3792 2.4 / 6.4 5 "Creede Lambard" <creede@worldnet.att.net>
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
29 Newbie ques: How to concatenate two strings?
18 New Perl syntax idea
12 Perl4 is *not* Y2K (was Re: Y2K)
11 Generating bit patterns "00000000" .. "11111111"
9 sysread() question
9 Many CGI/PERL forms don't work with Lynx?
8 Die and the Web
8 Advanced Perl Programming - Error p. 91???
8 accessing permissions (rwx)
8 chopping second to last char?
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
52.6 ( 20.8/ 30.6/ 19.2) 29 Newbie ques: How to concatenate two strings?
30.9 ( 13.1/ 16.2/ 9.5) 18 New Perl syntax idea
23.6 ( 10.0/ 11.9/ 7.9) 12 Perl4 is *not* Y2K (was Re: Y2K)
22.8 ( 3.1/ 19.7/ 6.9) 5 PROOF: VB FASTER THAN PERL, C, C++
19.5 ( 2.1/ 17.2/ 13.7) 3 E-card script error
17.8 ( 6.7/ 9.5/ 6.7) 9 sysread() question
16.6 ( 5.7/ 10.2/ 6.7) 8 Die and the Web
16.4 ( 1.6/ 14.6/ 12.7) 2 Perl pack templates ARE crippled (Was: Perl <=> C Server)
16.4 ( 1.3/ 1.8/ 0.7) 2 [Q] multi-dim hash -> DB?
15.8 ( 8.0/ 6.8/ 4.1) 11 Generating bit patterns "00000000" .. "11111111"
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
10 comp.lang.perl
9 comp.lang.perl.modules
5 alt.fan.e-t-b
5 comp.lang.tcl
4 comp.unix.shell
4 comp.sys.hp.hpux
4 de.comp.lang.perl
3 comp.databases.oracle.misc
3 comp.infosystems.www.authoring.misc
3 comp.sys.sun.admin
Top 10 Crossposters
===================
Articles Address
-------- -------
26 ASMAsoft <ASMAsoft@svtus.com>
5 Tom Phoenix <rootbeer@teleport.com>
3 mouse@sirca.usyd.edu.au
3 Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
3 Floyd Pierce <floydp@_REMOVE_xnet.com>
3 Mazda Hewitt <Mazda.Hewitt@bbsrc.ac.uk>
2 "L. F. Sheldon, Jr." <lsheldon@creighton.edu>
2 brian d foy <comdog@computerdog.com>
2 Benjamin Holzman <bholzman@earthlink.net>
2 "Roger Cooper" <rogerco@ozemail.com.au>
------------------------------
Date: Sat, 4 Oct 1997 08:44:20 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: "M.J.T. Guy" <mjtg@cus.cam.ac.uk>
Subject: Re: Syntax on assignment and undef
Message-Id: <Pine.GSO.3.96.971004083815.3525E-100000@usertest.teleport.com>
On 3 Oct 1997, M.J.T. Guy wrote:
> Tom Phoenix <rootbeer@teleport.com> wrote:
> >On 29 Sep 1997, Jason Gloudon wrote:
> >
> >> Interesting sideline here.
> >> This compiles and does absolutely nothing.
> >>
> >> () = (1,23);
> >
> >What would you want it to do?
>
> Well, I use the string "() = " to substitute for the "array"
> keyword (or is it "list" ?) which inexplicably seems to have been
> omitted from Perl.
Okay, that's a good reason. But I have to ask, if that keyword existed in
Perl, what would you want it to do? :-)
Maybe you're meaning that it would supply a list context where the context
would be otherwise void (or perhaps scalar). But I'm still in the dark
about what Jason's example would have done, if anything. AFAICS, it
_should_ compile and do absolutely nothing.
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: 4 Oct 1997 18:01:44 GMT
From: Markus Fleck <fleck@informatik.uni-bonn.de>
Subject: Wanted: XML, RDF, WebDAV modules for Perl 5
Message-Id: <6160a8$u2a@news.rhrz.uni-bonn.de>
Hi!
Is anybody working on modules for W3C's
XML (Extended Markup Language, more flexible HTML replacement)
RDF (Resource Description Framework, Metadata for web files)
WebDAV (Distributed Authoring & Versioning protocol for the web)?
I want to write a groupware application with Perl (something like
Lotus Notes, only lots simpler and web-based), and it would
probably be a good idea to base that thing on (more or less)
standardized protocols.
I understand that all of the above formats and protocols have not
been finalized yet, but maybe someone has started an implementation
that they want to share. I really don't want to write an implementation
of WebDAV all on my own - WebDAV is just a bit too big for that.
Yours,
Markus.
--
//////////////////////////////////////////////////////////////////////////
So is Sun thinking about Microsoft? Apparently. [...] Now does this mean
they're feeling some pressure on overpriced workstations? Potentially.
-William Gates, http://www.news.com/SpecialFeatures/0,5,14704,00.html
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
------------------------------
Date: Sat, 4 Oct 1997 08:36:52 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Andrew Collington <avert@dial.pipex.com>
Subject: Re: Why isn't this code working?
Message-Id: <Pine.GSO.3.96.971004083029.3525D-100000@usertest.teleport.com>
On Fri, 3 Oct 1997, Andrew Collington wrote:
> $shortfilename=s/$directory//;
If you're trying to strip the directory name from a filename, this may or
may not work. There are better ways to do this (I'd use File::Basename,
but you could use substr and index), but it's worth considering what
happens if $directory contains regexp metacharacters. 'lost+found' is a
not-uncommon directory name, although it's not a likely one for you to be
working with here.
> open(FP,$filename);
Even when your script is "just an example" (and perhaps especially in that
case!) you should _always_ check of the return value after opening a
file.
> $file=~s/<[^>]*>/ /gs;
Although that will replace some HTML tags with spaces, it will also make
mistakes, since valid tags may have angle brackets inside. If none of your
tags have angle brackets inside, though, that should do what I think you
want.
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
Ask me about Perl trainings!
------------------------------
Date: Sat, 4 Oct 1997 12:42:56 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Why isn't this code working?
Message-Id: <07v516.ee1.ln@localhost>
Tom Phoenix (rootbeer@teleport.com) wrote:
: On Fri, 3 Oct 1997, Andrew Collington wrote:
: > $file=~s/<[^>]*>/ /gs;
: Although that will replace some HTML tags with spaces, it will also make
: mistakes, since valid tags may have angle brackets inside. If none of your
: tags have angle brackets inside, though, that should do what I think you
: want.
Except I would caution against using modifiers that have no effect.
A maintainer will waste time considering the implications of that 's'
modifier.
The implications of the 's' above is that the modifier has no effect.
Adding stuff that has no effect is bad practice.
The 's' modifier *only* has an effect if there is a dot in the regex.
There is no dot in that regex.
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 1126
**************************************
