[7021] in Perl-Users-Digest
Perl-Users Digest, Issue: 646 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 23 17:07:13 1997
Date: Mon, 23 Jun 97 14:00:25 -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, 23 Jun 1997 Volume: 8 Number: 646
Today's topics:
ANNOUNCE: Mac::Apps::PBar <pudge@pobox.com>
Re: blank lines (Bob Wilkinson)
can one check external ports ? <treeves@hacprxy2.es.hac.com>
Re: distributed objects in perl <dean@tbone.biol.sc.edu>
Re: get end of string (easy question) (Tad McClellan)
Re: get end of string (easy question) (M.J.T. Guy)
Re: Help with Arrays? (Greg Bacon)
Re: IO module? Which Perl? (Neil Briscoe)
Re: make perl talk with java (Alligator Descartes)
Re: mkdir (Bob Wilkinson)
PERL IPC: How to convert simple single port accept to u (Jeremy Mathers)
Re: question about sorting a hash inbetween two delimet <friedman@uci.edu>
Re: read serial port perl5 help? <bking@dimensional.com>
reading a data file? <weekend_warrior@mindless.com>
Running/building Perl 5 for msdos (mark l)
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
testing-ignore (Fractture)
Re: Unexpected -X filetest behavior <merlyn@stonehenge.com>
Re: Use Perl in C <rootbeer@teleport.com>
XS, hxaving #define's of other than type double <jheck@merck.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 23 Jun 1997 14:42:58 GMT
From: Chris Nandor <pudge@pobox.com>
Subject: ANNOUNCE: Mac::Apps::PBar
Message-Id: <5om21i$fdb$1@nadine.teleport.com>
Making its rounds to CPAN ...
#============================
This is PBar.pm 1.0, a Perl interface to Progress Bar, an Apple
Event-capable progress bar utility. PBar.pm was written by Alan Fry and
Chris Nandor.
REQUIREMENTS:
*MacPerl 5.1.1+ (5.1.3 recommended) is REQUIRED for fixed
AppleEvents library.
*Progress Bar 1.0.1.
To install it, just drop the file PBar.pm in the directory
lib:Mac:Apps. Carefully look over the pod documentation that is
included
in the Anarchie.pm file. You can view it with Shuck (which accompanies
MacPerl) or with the pod2x translators in the MacPerl pod directory.
This archive can always be obtained from:
http://pudge.net/macperl/
http://perl.com/CPAN/authors/id/CNANDOR/
http://perl.com/CPAN/modules/by-module/Mac/
The file is a tarred, gzipped file. Use Stuffit Expander or a
similar program to get at the archive.
I think that is about it. Let me know how things work out, and any
bugs, typos, suggestions, or anything else.
--
Chris Nandor pudge@pobox.com
http://pudge.net/
%PGPKey=('B76E72AD',[1024,'08 24 09 0B CE 73 CA 10 1F F7 7F 13 81 80 B6
B6'])
------------------------------
Date: Fri, 20 Jun 1997 16:36:48 +0100
From: b.wilkinson@pindar.co.uk (Bob Wilkinson)
Subject: Re: blank lines
Message-Id: <b.wilkinson-2006971636480001@ip57-york.pindar.co.uk>
In article <EBKL3t.6yA@seas.ucla.edu>, trit@olympic.seas.ucla.edu (Tri Duy
Tram) wrote:
> I was wondering how can I do a regular expression that will only
> catch blank lines? I have text like:
>
> blah blah blah . . . .
> blah blah . . . .
>
> more blahs blah . . .
>
> I tried $var !~ /a-z/ || $var !~ /A-Z/ || $var /0-9/
> but that doesn't seem to work. Any help will be appreciated.
Hello,
A non-space type character is \S. A space-type character is \s.
To find a blank-line
if (/^\s*$/) # i.e. line consists of a number (possibly 0) space-type chars
or
unless (/\S/) # i.e. line doesn't contain a non space-type char.
I'm surprised that this isn't documented in "perldoc perlre", the FAQ or the
camel :-)
Bob
--
Do what thou wilt shall be the whole of the law.
------------------------------
Date: Thu, 19 Jun 1997 09:37:04 -0700
From: Tony Reeves <treeves@hacprxy2.es.hac.com>
Subject: can one check external ports ?
Message-Id: <33A96030.6C75@hacprxy2.es.hac.com>
I have an assignment to check all our ip addresses for web servers.
is there an easy way to use perl to go out and check known IP addresses
for ports 80, 8080, 81 and etc?
please respond by email to:
treeves@hacprxy2.es.hac.com
since I don't read this group often..
--
---
Tony Reeves
N7SF - areeves@goodnet.com, tony@toners.com - HF: 14.242Mhz or 7.239Mhz
Homepage: http://www.toners.com - http://www.goodnet.com/~areeves
The secret to imortality: 4A 65 73 75 73
------------------------------
Date: 23 Jun 1997 15:51:08 -0400
From: Dean Pentcheff <dean@tbone.biol.sc.edu>
To: German Cancio Melia <gcancio@mail.cern.ch>
Subject: Re: distributed objects in perl
Message-Id: <m1en9trtcj.fsf@nauplius.psc.sc.edu>
[Courtesy cc sent...]
German Cancio Melia <gcancio@mail.cern.ch> writes:
> Hello,
> Is anybody here who has already tried to access perl 5 object from outside
> a perl script (eg. from tcl?)??
...
Have you heard of Perl::Tk? It's an interface to the Tk extension
from within Perl. Check it out via:
<URL:http://www.perl.com/perl>
Look for the full modules list at:
<URL:http://www.perl.org/CPAN/modules/00modlist.long.html>
>From that site, use the CPAN archive of software and find the Tk
package within it.
Good luck!
-Dean
--
N. Dean Pentcheff <pentcheff@acm.org> WWW: http://tbone.biol.sc.edu/~dean/
Biological Sciences, Univ. of South Carolina, Columbia SC 29208 (803-777-3936)
PGP ID=768/22A1A015 Keyprint=2D 53 87 53 72 4A F2 83 A0 BF CB C0 D1 0E 76 C0
Get PGP keys and information with the command: "finger dean@tbone.biol.sc.edu"
------------------------------
Date: Mon, 23 Jun 1997 06:09:14 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: get end of string (easy question)
Message-Id: <qgllo5.2l.ln@localhost>
Cathy Huang (cathyh@cs.berkeley.edu) wrote:
: Say
: $IMAGE = http://www.women.com/guide/guide/gifs/nav.7.gif
: This is wrong:
: ---------------------
: if ($IMAGE =~ /\/(.*?)$/i)
: {
: $END = $+;
: }
: -----------------------
: $END = /www.women.com/guide/guide/gifs/nav.7.gif
: ------------------------
: How can I get $END = nav.7.gif? I just want to get the string between
: the last / and the end of the line.
$end = $1 if $image =~ m#.*/(.*)#; # upper case variable names are yucky
--
Tad McClellan SGML Consulting
Tag And Document Consulting Perl programming
tadmc@flash.net
------------------------------
Date: 23 Jun 1997 11:06:04 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: get end of string (easy question)
Message-Id: <5ollas$5pn@lyra.csx.cam.ac.uk>
Fredrik Lindberg <flg@vhojd.skovde.se> wrote:
>
>What we want is to actually use a greedy match until we find the
>last /, and then capture the remaining string.
>
>$IMAGE =~ m<.*/(.*)$>
>
>This will slurp up the whole string, batcktrack to the last /
>and the slurp up the rest of the string, capturing the data.
That should work, but better is to say explicitly "I want a string which
doesn't contain any slashes" like this
$IMAGE =~ m</([^/]*)$>;
That way you're not making any assumptions about how exactly the
greediness works.
Mike Guy
------------------------------
Date: 21 Jun 1997 18:22:21 GMT
From: gbacon@cs.uah.edu (Greg Bacon)
Subject: Re: Help with Arrays?
Message-Id: <5oh64t$mjb$1@info.uah.edu>
[You would have gotten a courtesy copy of this post, but you chose to muck
with your Reply-To: header. This isn't going to keep you from getting
UCE, and it inconveniences people who are trying to help you.]
In article <866856252.28185@dejanews.com>,
Maelstrom <maelstrom@deathsdoor.com> writes:
: Hi. I'm learning Perl and am confused by the structure of Arrays. I've
: checked the FAQ and still can't find the answer. At the moment I have an
: array called $FORM. One of it's fields is called 'Comments' which contains
: a string. As my understanding is I should be able to access each
: character in that string by $Comment[1] $Comment[2] and so on.
Hmm.. sounds like you haven't read the perldata(1) manpage.
: What I'm trying to do in the snippet of code is to print each character
: individually rather than the whole string. Can anyone see what I'm doing
: wrong here? I keep getting the error
: *The server can not locate the file specified
: When I was using the commented out line everything worked fine.
:
: if $FORM('Comments')
: {
: # print MAIL "$FORM{'Comments'}\n\n"; <-- was using this
: $count = '1';
: foreach $count ($Comments)
: {
: print MAIL "$Comments[$count]";
: }
: }
Well.. the first glaring problem I see is that you posted to machines
all over the world without even doing an *inkling* of work for yourself.
If you had tried to compile this snippet (with 5.004), you'd have gotten
syntax error at test.pl line 3, near "if $FORM"
syntax error at test.pl line 11, near "}"
test.pl had compilation errors.
You've told the world, "hey, I haven't read perlsyn(1) or perldata(1).
I didn't even bother to try executing my own code. Why don't you
readers of comp.lang.perl.misc just give me an answer for free? I don't
feel like doing it myself."
One of the biggest misunderstandings that really bites people when they
try to carry over from C to Perl is that they don't realize a "string" in
C is just an *array* of char. If you try
$str = "Hello, world!\n";
$str[0] = 'h';
it's not going to do what you expect.
If you want the equivalent of C's str[n] = 'c', you can incant either
$str = "Hello, world!\n";
@str = split //, $str;
$str[0] = 'h';
$str = join '', @str;
or
$str = "Hello, world!\n";
substr($str, 0, 1) = 'h';
My crystal ball shows you have a lot of Fine Manual reading in your future.
Greg
--
open(G,"|gzip -dc");$_=<<EOF;s/[0-9a-f]+/print G pack("h*",$&)/eg
f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084
d2ac158c84c4ece4d22d1000118a8d5491000000
EOF
------------------------------
Date: 23 Jun 1997 18:43:21 GMT
From: neilb@zetnet.co.uk (Neil Briscoe)
Subject: Re: IO module? Which Perl?
Message-Id: <memo.19970623194320.35857D@skep.compulink.co.uk.cix.co.uk>
In article <5ok4cl$62a@news.csus.edu>, rand@mictlan.sfsu.edu
(Hank Lee) wrote:
> Pardon me for asking, but which version of perl has the IO
module
> bundled with it? I was trying to install the CPAN module,
but it
> requires Net::FTP to function. The libnet package requires
the IO
> module. I was not able to run the Makefile.PL simply because
the
> system that I am on lacks the IO module. I believe we're
running
> Perl 5.003. Thanks in advance for any help!
>
Well, perl 5_003_01.tar.gz has IO version 1.08 bundled, but the
latest version is IO 1.15.
You can get all of this from the CPAN, but if you want an
easier ftp site to navigate, then you can get the relevant
version of perl from :-
ftp://anorak.fourthnet.co.uk/pub/perl
And you can get IO 1.15 from :-
ftp://anorak.fourthnet.co.uk/pub/perl/modules
I trust this helps.
Regards
Neil
------------------------------
Date: 22 Jun 1997 19:28:09 -0700
From: descarte@hermetica.com (Alligator Descartes)
Subject: Re: make perl talk with java
Message-Id: <5okmvp$mg2@nerfherder.hermetica.com>
In article <33AD8D5D.19C5@www-mail.huji.ac.il>,
Ophir Yoktan <ophir@www-mail.huji.ac.il> wrote:
>Ophir Yoktan wrote:
>>
>> does anybody know a java class or perl package that will enable easy
>> communication (through socket) between a java program and a perl script.
>I've got some answears but they were all about how to execute a perl cgi
>script from java. what i need is just how to convert perl data type to
>java & vice versa. it's easy for strings but is there a simple way to
>pass more complicated data from java in a pear readable format?
I am planning to release Java classes that wrap perl in a fortnight or so.
These classes, plus native library, embed a perl interpreter within the
JVM and allow you to not only execute perl scripts within Java, but program
perl's internals, including datatype manipulation, seamlessly.
>Ophir Yoktan
A.
--
Alligator Descartes |
descarte@hermetica.com | "The reverse side also has a reverse side"
http://www.hermetica.com | -- Zen saying
------------------------------
Date: Fri, 20 Jun 1997 16:51:45 +0100
From: b.wilkinson@pindar.co.uk (Bob Wilkinson)
Subject: Re: mkdir
Message-Id: <b.wilkinson-2006971651450001@ip57-york.pindar.co.uk>
In article
<Pine.SOL.3.95.970618101844.8528A-100000@sgs-server.stanford.edu>, Mehmet
Demirkol <demirkol@sgs-server.Stanford.EDU> wrote:
> I am working on a perl script for a web page, and I need to create a
> directory. I used the following line. When I run the script by "perl
> filename" on the unix command, it works fine, when it's referenced by the
> html file, it doesn't.
>
> mkdir("$dirname", 0777) || die "Cannot mkdir $dirname";
>
> How can I create a directory and edit a file in that directory?
>
> Thanks,
>
> Mehmet
Hello,
You've read the FAQ from
ftp://sunsite.doc.ic.ac.uk/packages/CPAN/doc/FAQs/cgi/perl-cgi-faq.html
Bob
--
Do what thou wilt shall be the whole of the law.
------------------------------
Date: Sat, 21 Jun 1997 15:55:27 GMT
From: pynq@midway.uchicago.edu (Jeremy Mathers)
Subject: PERL IPC: How to convert simple single port accept to use select?
Message-Id: <EC4uwF.C0r@midway.uchicago.edu>
I am using Perl 4 and am a Perl lightweight (I've used it for quite a while,
but not extensively).
I have a telnet server that is just the one given in the book (Page 344 of
the Camel book) with a modification to run my program when the connection is
made. It works fine, but I would like to enhance it so that it listens on
two ports (i.e., a simple version of inetd). (That is, rather than just run
separate programs).
I looked at the inetd example; it is horridly complex and not worth the
trouble to learn. Is there a simple way to just take what I've got and make
the few changes necessary?
************************************************************************
The Zapruder film was a snuff film.
- pynq@quads.uchicago.edu, who is still costing the net
hundreds, if not thousands, of dollars, every time he posts -
************************************************************************
rwvpf wpnrrj ibf ijrfer
------------------------------
Date: 23 Jun 1997 07:58:47 GMT
From: "Eric D. Friedman" <friedman@uci.edu>
Subject: Re: question about sorting a hash inbetween two delimeters and not the whole file
Message-Id: <5olabn$fpf@news.service.uci.edu>
[mailed, posted]
In article <33adec08.26452469@news.tamu.edu>,
Shane 'Fishman' Sherman <fishman@vvm.com> wrote:
<Okay..heres my question. I have a file that has is in the form of:
<
<<!--Alabama-->
<
<<a href="http://www.blah.com/lakes/name_of_lake1.html">
<name_of_lake1</a>
<
<<a href="http://www.blah.com/lakes/name_of_lake2.html">
<name_of_lake2</a>
<
<<!--Alabama>
If this is HTML, you need to end that comment tag with a --> `>' by
itself won't do.
<this goes through all the states. The hash is in the form
<$lake{$name}=$URL
This data structure doesn't seem to have a mechanism for distinguishing
the lakes of one state from those of another. That is, if I say
$lake{'Arrowhead'} = 'whatever';
and
$lake{'Oswego'} = 'blah';
How do you know that Arrowhead is in California and Oswego is in New
York? If I were trying to organize this data, I'd probably use a
hash of hashes (see the perldsc man page) that looked something like
this:
#!/dcs/bin/perl5 -w
use strict;
my %country =
(
California =>
{
'Arrowhead' => 'foo',
'Elsinore' => 'bar',
},
'New York' =>
{
'Finger Lakes' => 'foo',
},
);
foreach my $state (sort keys %country)
{
my $lakes = $country{$state};
print "$state\n";
# Could use this to write out your datafile too:
# print "<!-- $state -->\n";
foreach my $lake (sort keys %$lakes)
{
print "$lake: $lakes->{$lake}\n";
}
# print "<!-- /$state -->\n";
}
# add a new lake to new york
$country{'New York'}->{'Ontario'} = 'blah';
# sort and print again
Two comments:
1) read perldsc;
2) next time, post some code instead of expecting people to intuit
the (in this case, very fuzzy) relationship between your data and
the desired output.
<---Fishman's Bass Fishing World(http://www.vvm.com/~fishman)
Hey, why not spare your web sever the burden of getting two hits
every time someone asks for your page with out includng a trailing
slash on directories by putting it inyour sig line? Your real URL
is http://www.vvm.com/~fishman/ Think about it: a client has
no way of knowing that your server doesn't have a file or script
called fishman, so it makes the request, fails, and tries again
using fishman/ as a directory. Just because your browser hides
this from you doesn't mean the load on your server isn't there!
Good luck,
Eric
--
Eric D. Friedman
friedman@uci.edu
------------------------------
Date: Sat, 21 Jun 1997 12:26:38 -0600
From: bob king <bking@dimensional.com>
Subject: Re: read serial port perl5 help?
Message-Id: <33AC1CDE.78B36091@dimensional.com>
Bob Mariotti wrote:
>
> We are attempting to read from a native serial port that has no getty
> running on it. However, the read seems to hang. When we use sysread
> there is no hang but no data received, so we suspect the sysread is
> simply bypassing a wait situation.
> When we do 'cat /dev/ttyx' we receive the data but we must cancel the
> shell to see it. Therefore one would assume the port is looking for
> some end of line sequence.
> I have noticed that others too are experiencing similar problems and a
> search of the FAQ's do not seem to turn up anything.
>
> Can someone please advise as to what might be causing this hang? We
> are stumped on this one.
>
> TIA
Wish i could help. I am attempting something similar. The doc tells
me to send '>H' to the device and expect a 448 string of ascii chars
plus header '&CR&' and cr/lf in return. So i expect 453/454 chars
depending on whether perl substitutes the unix record terminator.
Instead
i get 447/448, the leading chars seem to be the ones dropped.
>From an exchange here earlier this week i am using '$|=1;' to ensure
a flush, and then the open,printf,close,open,read sequence i saw in
the article.
Using 'cat '>H'>/dev/cua0;cat /dev/cua0 gives me similar results so
i think the problem is more system (Linux) than perl. Still i'm
hoping perl provides the way out.
By way of confession i am using 'stty speed 2400 cs8 -parenb
-crtscts </dev/cua0' which at least causes perl to return something.
Without it the script just hangs.
If this ever works i'll post the solution. Im the meantime any
suggestions
are appreciated
Thanks,
------------------------------
Date: Mon, 23 Jun 1997 16:26:01 -0400
From: Brandon <weekend_warrior@mindless.com>
Subject: reading a data file?
Message-Id: <33AEDBD9.8CDFF235@mindless.com>
Hi I'm looking to make this script of mine a little more bareable.
I have tried, for days, to make this into a data file called by the
script. No luck!
What I need the script to do is read a data file with the information of
the users in a format like:
1234 = someone@somewhere.com
4321 = someonelse@somewhere.com
or
1234
someone@somewhere.com
4321
someonelse@somewhere.com
and return only the email address as $id depending on the input.
Is this possible?
I have the script working but it is going to have MANY users and I don't
like the idea of the main script being edited every time a user is
added.
Pleas help...any suggestions woudl be great!
Here is what the section in question looks like now.
# Snippet of code needed to be changed #
sub check_id {
if ($CONFIG{'recipient'} eq '1234') {
$id = 'info@cois.on.ca';
}
if ($CONFIG{'recipient'} eq '4321') {
$id = 'support@cois.on.ca';
}
else {
&error('bad_id');
}
}
# end of snippet #
Thank You in advance..
Brandon.
--
___________________________________
Out the modem, through the firewall, off the router, over the T1...
Nothing but NET.
_________________________
http://www.cois.on.ca/~rythum
------------------------------
Date: Sat, 21 Jun 1997 15:14:03 -0500
From: mlinvle@inlink.com (mark l)
Subject: Running/building Perl 5 for msdos
Message-Id: <ew6rq#nf8GA.122@news2.inlink.com>
I've had Perl 4.036 for a while now and have had little luck getting it to run as a .bat
file. I've discovered the local library has the latest O'Rielly book for version 5. I
downloaded the binaries, but I don't understand some of the error messages I'm
getting.
Here's the file:
/@REM/=(qq!
@bigperl -S %0.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
/@goto/ end !) if 0 ;
print "Hello, world\n";
/@REM/=(qq!
:end !) if 0 ;
Here's the error messages:
Literal @REM now requires backslash at hello5.bat line 1, within pattern
Literal @bigperl now requires backslash at hello5.bat line 1, within string
Literal @goto now requires backslash at hello5.bat line 1, within string
Execution of hello5.bat aborted due to compilation errors.
Are there any updates to the FAQS for Perl 5 for msdos? I guess I'm not
understanding how to properly use Perl under msdos.
Thanks...
--
mark
mlinvle@inlink.com
home page: http://www.inlink.com/~mlinvle/index.htm
-------------------------------------------------------------------------
"I seek not to know the answers,
but to understand the questions."
--Kwai Chang Caine
-------------------------------------------------------------------------
------------------------------
Date: 21 Jun 1997 18:24:57 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <5oh69p$mjb$2@info.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 14 Jun 1997 09:04:09 GMT and ending at
21 Jun 1997 06:23:54 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" e-mail address and name.
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Find the NewsScan junkyard at http://www.cs.uah.edu/~gbacon/clpm/
Excluded Posters
================
perlfaq-suggestions@mox.perl.com
Totals
======
Total number of posters: 431
Total number of articles: 860 (259 with cutlined signatures)
Total number of threads: 364
Total volume generated: 1491.9 kb
- headers: 561.6 kb
- bodies: 862.4 kb (602.6 kb original)
- signatures: 66.0 kb (1542 lines)
Averages
========
Number of posts per poster: 2.0
Number of posts per thread: 2.4
Message size: 1776.4 bytes
- header: 668.8 bytes
- body: 1026.8 bytes (717.5 bytes original)
- signature: 78.6 bytes (1.8 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
39 70.3 ( 22.0/ 36.1/ 23.1) Mike Stok <mike@stok.co.uk>
30 59.7 ( 25.6/ 34.1/ 22.6) Tom Phoenix <rootbeer@teleport.com>
23 31.5 ( 14.0/ 17.5/ 14.3) Nathan V. Patwardhan <nvp@shore.net>
17 27.6 ( 10.3/ 17.3/ 10.0) Tad McClellan <tadmc@flash.net>
15 21.6 ( 8.7/ 12.9/ 8.3) M.J.T. Guy <mjtg@cus.cam.ac.uk>
14 32.6 ( 11.2/ 21.3/ 9.0) perlprogrammer@hotmail.com
13 21.5 ( 9.2/ 12.3/ 4.5) Simon Fairey <sfairey@metrica.co.uk>
10 14.3 ( 5.8/ 8.4/ 4.2) rroberts@gowebway.com
10 18.2 ( 6.9/ 11.2/ 6.4) Douglas Seay <seay@absyss.fr>
10 19.5 ( 6.4/ 10.3/ 6.6) Russ Allbery <rra@stanford.edu>
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
70.3 ( 22.0/ 36.1/ 23.1) 39 Mike Stok <mike@stok.co.uk>
59.7 ( 25.6/ 34.1/ 22.6) 30 Tom Phoenix <rootbeer@teleport.com>
32.6 ( 11.2/ 21.3/ 9.0) 14 perlprogrammer@hotmail.com
31.5 ( 14.0/ 17.5/ 14.3) 23 Nathan V. Patwardhan <nvp@shore.net>
27.6 ( 10.3/ 17.3/ 10.0) 17 Tad McClellan <tadmc@flash.net>
26.5 ( 1.7/ 24.9/ 11.0) 3 John Tobey <jtobey@user1.channel1.com>
21.6 ( 8.7/ 12.9/ 8.3) 15 M.J.T. Guy <mjtg@cus.cam.ac.uk>
21.5 ( 9.2/ 12.3/ 4.5) 13 Simon Fairey <sfairey@metrica.co.uk>
19.5 ( 6.4/ 10.3/ 6.6) 10 Russ Allbery <rra@stanford.edu>
19.1 ( 7.3/ 11.8/ 2.4) 10 Larry D'Anna <ldanna@ix.netcom.com>
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
13 appending two files into one?
12 HELP: How to limit the length of contents in guestbook script?
10 Can't find *** in @INC ....Help Please
10 LOG base 10 operator
10 Logical XOR
10 Sorting Associative Array? (Urgent)
9 What does "UNIX" stand for..
8 Script to verify email addresses?
8 Sending e-mail using Perl for NT - don't wanna... gotta
8 a perl mode in emacs that does a better job with quotes?
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
25.5 ( 9.1/ 16.1/ 8.0) 12 HELP: How to limit the length of contents in guestbook script?
20.5 ( 6.2/ 13.9/ 8.7) 10 Can't find *** in @INC ....Help Please
19.3 ( 5.8/ 12.3/ 9.6) 8 Script to verify email addresses?
18.8 ( 4.2/ 14.0/ 6.2) 7 Help w/ Data Structures
18.8 ( 6.8/ 11.0/ 4.6) 10 Logical XOR
18.1 ( 10.2/ 7.3/ 3.0) 9 What does "UNIX" stand for..
17.7 ( 3.1/ 14.4/ 8.4) 4 mod_perl or fastcgi install, liberl.so help..
16.1 ( 5.1/ 11.0/ 8.9) 8 Sending e-mail using Perl for NT - don't wanna... gotta
15.3 ( 7.2/ 7.4/ 5.7) 10 Sorting Associative Array? (Urgent)
14.3 ( 2.8/ 11.4/ 8.3) 4 Sorry another regex question - parsing HTML anchors??? Interesting though...
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
24 comp.lang.perl.modules
13 comp.lang.perl
13 comp.unix.programmer
11 comp.lang.javascript
11 comp.lang.c++
10 comp.lang.tcl
9 comp.databases
8 comp.emacs
8 comp.unix.advocacy
8 comp.sys.amiga.advocacy
Top 10 Crossposters
===================
Articles Address
-------- -------
24 Eddie Brown <eddie@cs.odu.edu>
24 Don Yuniskis <dgy@rtd.com>
24 Kaz Kylheku <kaz@vision.crest.nt.com>
24 Jim Seymour <jimsun!jseymour@medar.com>
21 Eric Levenez <levenez@club-internet.fr>
21 Johnny <jpoon@iastate.edu>
11 "Chizl" <chizl@nospam.com>
6 Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
6 sweeney@cinteractive.com
5 Scott R. Ehrlich <sehrlich@shore.net>
------------------------------
Date: Mon, 23 Jun 1997 18:32:06 GMT
From: rroberts@gowebway.com (Fractture)
Subject: testing-ignore
Message-Id: <33aec11b.4575242@206.139.152.37X>
fasdgd
------------------------------
Date: 23 Jun 1997 07:19:54 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: Russ Allbery <rra@stanford.edu>
Subject: Re: Unexpected -X filetest behavior
Message-Id: <8c9101csfp.fsf@gadget.cscaper.com>
>>>>> "Russ" == Russ Allbery <rra@stanford.edu> writes:
Russ> no junk <no.junk@mail.thank.you> writes:
>> There is no $ARGV[0] but (-e $ARGV[0]) returns a 1. (-s $ARGV[0])
>> returns the size of the current directory. Perlfunc says if the
>> argument is omitted, $_ is tested. But when I print out $_, I get
>> nothing (or at least nothing that will print). Is this a default -X
>> behavior question, something to do with $ARGV[0], or ...?
Russ> Here are my results with the same script:
Russ> windlord:~> ./test.prog
Russ> $ARGV[0] is:
Russ> $_ is:
Russ> -e $ARGV[0] returns:
Russ> -s $ARGV[0] returns:
Russ> -z $ARGV[0] returns:
Russ> File '' not found.
Russ> windlord:~> perl -v
Russ> This is perl, version 5.004_01
Russ> My guess is that you're using too old of a version of Perl. Try
Russ> upgrading to the latest release (currently 5.004_01), available
Russ> from CPAN.
In the olden days, the One True Unix (V7) interpreted the pathname "" as
the current directory, so it (a) exists, and (b) has the same size as
whatever you'd get from testing ".".
Someone in the Not Invented Here department of the System V Standards
Committee decided that "" should simply be an invalid pathname,
breaking a decade's worth of code that had presumed that. (It may
have even been the same person that changed AF_INET arbitrarily from 2
to 1, but I'll save that rant for another day.)
So, any Unix conforming to the time-immorial standard of <"" means
"."> will get a size for -s "". And any Unix (here, I use the term
loosely) that conforms to the System V Interface Definition will note
that "" just plain doesn't exist.
System V. It's just not Unix, in the same way that VHS can be only
loosely considered "video tape". :-)
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,495.69 collected, $182,159.85 spent; just 435 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
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@ora.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: Mon, 23 Jun 1997 13:11:12 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Howard Yen <howard.yen@mci2000.com>
Subject: Re: Use Perl in C
Message-Id: <Pine.GSO.3.96.970623130945.24136B-100000@kelly.teleport.com>
On Mon, 23 Jun 1997, Howard Yen wrote:
> Newsgroups: comp.lang.perl.modules, comp.lang.perl, comp.lang.perl.misc
You don't need to use the obsolete comp.lang.perl when you have
c.l.p.misc, and this isn't about modules so there's no need to crosspost
there.
> Can someone show me exactly how I can embed a perl sub that uses the
> libwww pacakage?
What part of perlembed(1) is giving you troubles? 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/
------------------------------
Date: Mon, 23 Jun 1997 14:41:46 -0400
From: "James J. Heck" <jheck@merck.com>
Subject: XS, hxaving #define's of other than type double
Message-Id: <33AEC36A.167E@merck.com>
Is there a way to have a #define in a header file other than of type
double?
For example I have the following line:
#define ATOM_NULL (ATOM *) NULL
Where the ATOM struct is define above it.
I run into problems when the compiler starts to eval the function
double
constant(name, arg).....
which XS uses to translate the #define statments. Obviously the
#defines of mine are of a different type than double.
Any ideas would be greatly appreicated. Please send any mail responses
to jheck@acm.org.
TIA,
James
--------------------
James J. Heck
jheck@acm.org
http://www.bucknell.edu/~jheck
The contents of this message express only the sender's opinion.
This message does not necessarily reflect the policy or views of
my employer, Merck & Co., Inc. All responsibility for the statements
made in this Usenet posting resides solely and completely with the
sender.
------------------------------
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 646
*************************************
