[8321] in Perl-Users-Digest
Perl-Users Digest, Issue: 1938 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Feb 20 05:07:50 1998
Date: Fri, 20 Feb 98 02:00:34 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 20 Feb 1998 Volume: 8 Number: 1938
Today's topics:
Re: Being Nice 2 Nice Beings [Was: Reading The FAQ's et twod@not.valid
Re: Being Nice 2 Nice Beings [Was: Reading The FAQ's et (Bart Lateur)
Re: Being Nice 2 Nice Beings [Was: Reading The FAQ's et <spt@cstr.ed.ac.uk>
Can I write sockets apps with Perl + Win 95? <chris@surewould.com>
Canonical absolute file paths; or, removing up (../) se <srivasta@datasync.com>
Embedded Perl in ISAPI application <mv@pdv-systeme.de>
eval, s//e, and uninitialized values: seeking $.02 (Jonathan Feinberg)
Glob Problems <machak@nas.nasa.gov>
Re: Happy with Perl? twod@not.valid
Re: Help - need telnet client in perl (Thor)
Re: Is perl and DBI good enough? (Martien Verbruggen)
Re: My first perl program, yippee! (Jonathan Feinberg)
Re: Newbie Question about Perl and Server Side Includes (Martien Verbruggen)
Perldebugger for Windows <wpwerbung@active.ch>
Re: Problem with pack() -- really print() adding CR in <standfast@mindspring.com>
Problem with pack() in perl 5.004_04? <standfast@mindspring.com>
Pure stupidity <grimoire@oaktree.net>
Re: Pure stupidity (Craig Berry)
Re: Pure stupidity twod@not.valid
Re: regexp question (Martien Verbruggen)
Searching for files in Perl and Win95 <ghooton@ihug.co.nz>
Re: The Young Man and the Beach (Mark Kramer)
Trend Line for Graphs? (Greg Wake)
Turning off -w for single third-party module ($^W...?) (Peter Scott)
Re: Using HTML Tags in forms (Content Type) (peter caffin)
Re: Verifying a URL? <mj@atmm.nl>
Re: Why is Tom Christiansen so rude? <torin@daft.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 20 Feb 1998 07:28:28 GMT
From: twod@not.valid
Subject: Re: Being Nice 2 Nice Beings [Was: Reading The FAQ's etc.: a teacher's perspective...]
Message-Id: <6cjbas$ii9$1@vnetnews.value.net>
Everyone knows RTFM means 'Realtime Traffic Flow Measurement' but I fail to
see the significance .... :)
I wish people would stop trying to rewrite history by changing the expansion
of the letter F. It is, and always has been, 'Fucking' - apologies to those
offended or shocked by the use of a word that is in most modern dictionaries
(of any repute) and could I suggest that they use the alternate 'RTCM' (Read
The Copulating Manual) acronym instead.
The RTFM acronym has always been a put down to those who have not read the
documentation before attempting to do something and then asking a question.
Long may it remain so.
IAP
------------------------------
Date: Fri, 20 Feb 1998 08:55:20 GMT
From: bart.mediamind@tornado.be (Bart Lateur)
Subject: Re: Being Nice 2 Nice Beings [Was: Reading The FAQ's etc.: a teacher's perspective...]
Message-Id: <34f1445d.4580909@news.tornado.be>
twod@not.valid wrote:
>I wish people would stop trying to rewrite history by changing the expansion
>of the letter F. It is, and always has been, 'Fucking' - apologies to those
>offended or shocked by the use of a word that is in most modern dictionaries
>(of any repute) and could I suggest that they use the alternate 'RTCM' (Read
>The Copulating Manual) acronym instead.
Why not create a censored version. Something like
RT*M
Bart.
-
'D*mn!', said Carrot, a difficult linguistic feat.
-- Terry Pratchett, "Feet of Clay"
------------------------------
Date: 20 Feb 1998 09:36:33 +0000
From: Richard Caley <spt@cstr.ed.ac.uk>
Subject: Re: Being Nice 2 Nice Beings [Was: Reading The FAQ's etc.: a teacher's perspective...]
Message-Id: <eyhsopeobxa.fsf@liddell.cstr.ed.ac.uk>
In article <34f1445d.4580909@news.tornado.be>, Bart Lateur (bl) writes:
bl> Why not create a censored version. Something like
bl> RT*M
Read The Thoroughly Tested, Terrificly Typeset, .... Manual
Well, I suppose if the FSF can have infinite recursive aronyms, it's
in the spirit of perl to have and infinite itterative one.
--
Mail me as rjc not spt@cstr.ed.ac.uk _O_
|<
------------------------------
Date: Thu, 19 Feb 1998 23:59:00 -0500
From: Chris <chris@surewould.com>
Subject: Can I write sockets apps with Perl + Win 95?
Message-Id: <34ED0D94.EE2D0BF4@surewould.com>
About 4 years ago (pre-Win95) I got into writing Winsock apps. That was
about the same time I first used Perl, and remember hoping that it would
be as easy to write sockets code with Perl under Windows 3.1 as under
Unix. But of course it wasn't.
It's much later now, and I'd like to revisit this concept. I'm doing
some sockets stuff now under Win95 and it's all in Java, which (although
much better than C/C++) is becoming cumbersome. Can today's Perl tackle
this?
Thanks,
Chris
------------------------------
Date: 19 Feb 1998 23:35:28 -0600
From: Manoj Srivastava <srivasta@datasync.com>
Subject: Canonical absolute file paths; or, removing up (../) segments
Message-Id: <87g1le3kkg.fsf@tiamat.datasync.com>
Hi,
I need to convert a user entered file name to an absolute file
name. I can do that by checking if the file name is not absolute, and
prepending the current working directory to the relative path name,
and manually removing components as needed (a working script is
appended).
This seems quite .. kludgey. Is there a better method doing
this? I can live with this script, but I was hoping for a command
line implementation.
Thanks in advance for any help.
manoj
looking forward to something like
perl -we 'print join("/", reverse map ($_ ne ".." reverse
split ("/". chop(`pwd`) > "/" . $ARGV[0])));'
(I don't know how to ignore the next element in the map, short of
using a higher scoped variable. Bleargh)
The following works.
_______________________________cut__here______________________________
#! /usr/bin/perl -w
use strict;
use diagnostics;
my $pathsep = '/';
my $thisdir; chop($thisdir = `pwd`);
sub get_abs_path {
my $pathname = shift;
my $retpath = "";
$pathname =~ s/\s+//og;
return $pathname if $pathname =~ m|^/|o;
my @components = split ($pathsep, $thisdir . $pathsep . $pathname);
while (@components) {
my $segment = pop @components;
if ($segment =~ m/^\.\.$/o) { pop @components; next; }
elsif ($segment =~ m/^\.$/o) { next; }
else {
$retpath = $segment . $pathsep . $retpath if $retpath;
$retpath = $segment unless $retpath;
}
}
return $retpath;
}
print "pathname = ", &get_abs_path (shift), "\n";
__END__
# sample output
__> perl -w ~/respath.pl /home/srivasta/junk
pathname = /home/srivasta/junk
__> perl -w ~/respath.pl ../srivasta/junk
pathname = /home/srivasta/junk
__> perl -w ~/respath.pl ./junk
pathname = /home/srivasta/junk
__> perl -w ~/respath.pl ./lib/emacs/../X11/app-defaults/Xfm.ad
pathname = /home/srivasta/lib/X11/app-defaults/Xfm.ad
--
What we do not understand we do not possess. Goethe
Manoj Srivastava <srivasta@acm.org> <http://www.datasync.com/%7Esrivasta/>
Key C7261095 fingerprint = CB D9 F4 12 68 07 E4 05 CC 2D 27 12 1D F5 E8 6E
------------------------------
Date: Fri, 20 Feb 1998 08:58:14 +0100
From: "Martin Vorlaender" <mv@pdv-systeme.de>
Subject: Embedded Perl in ISAPI application
Message-Id: <6cjd39$k5j$1@tpl-news.bs.tpl.net>
Hi!
I'm in the process of writing an ISAPI extension to embed a Perl interpreter
[1].
Problem is, the ISAPI standard requires me to read input and write output via
functions. The perlembed page doesn't contain information about redirecting
stdin/stdout/stderr to functions in my program. How do I do that?
Thanks in advance for any hints,
Martin
[1] because I'm tired of adding an interface command procedure for every perl
script I want the Purveyor VMS webserver to execute.
--
| Martin Vorlaender VMS & WNT programmer
OpenVMS -- | work: mv@pdv-systeme.de
Where do you want | http://www.pdv-systeme.de/users/martinv/
to BE today? | home: martin@radiogaga.harz.de
------------------------------
Date: Fri, 20 Feb 1998 01:23:10 -0500
From: jdf@pobox.com (Jonathan Feinberg)
Subject: eval, s//e, and uninitialized values: seeking $.02
Message-Id: <MPG.f56eb598027aad0989714@news.concentric.net>
#!/usr/bin/perl -w
$|=1;
$func = 'foo';
eval "sub $func {print qq#hello, walter\n#}";
&foo;
$funk = 'bar';
$random = 'quux';
$random =~ s/.*/"sub $funk {print qq#hello, yourself\n#}"/ee;
&bar;
__END__
produces the following output:
--------------------------------
hello, walter
Use of uninitialized value at test.pl line 10.
hello, yourself
--------------------------------
I'm guessing that this has to do with the difference between compile-time and
run-time evaluation. I'd welcome some more precise insight from anyone who's
got it to spare.
--
#!/usr/bin/perl -w -- Just another Perl hacker,
(open 0),$_=<0>,s,.*-+ ,,,chop;for(split?@*?){($$_++or$}=$_,y,
y \,y,<STDIN>,,eval"sub $_ {print'$}'}"),y,} \,},>STDOUT,,&$_}
# Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: Thu, 19 Feb 1998 17:42:27 -0800
From: Dan Machak <machak@nas.nasa.gov>
Subject: Glob Problems
Message-Id: <34ECDF83.CD338B47@nas.nasa.gov>
Hello,
I'm having a problem with the Glob function. I have a script that uses
glob, and it works fine when run from the shell. However, when its
called from a C++ program using fork() and execl(), the glob function
does not work, even though the rest of the script appears to run fine.
Any ideas on what could be different between running it from the shell
and using fork() and execl()?
I'm running this on IRIX 6.2.
TIA
Dan Machak
--
<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
<> Dan Machak <> machak@nas.nasa.gov <>
<> MS T27A-1 <> 650-604-2388 (VOICE) <>
<> NASA Ames Research Center <> 650-604-3957 (FAX) <>
<> Moffett Field, CA 94035-1000 <> <>
<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
------------------------------
Date: 20 Feb 1998 07:52:42 GMT
From: twod@not.valid
Subject: Re: Happy with Perl?
Message-Id: <6cjcoa$ii9$3@vnetnews.value.net>
: > if i wrote a program in perl which backed up $100 million worth of dealing
: > information, and that program failed because of a bug in the perl source,
: > my company would not be able to sue anyone, and other than perlclinic
Systems written in any language need to be tested thoroughly before being
placed into production. A bug in PERL is as likely or as unlikely as a bug in
any other language that you care to code in.
Regardless of the language, if your testing is fully comprehensive you will
find that bug before you go into production. If your testing is not fully
comprehensive then you run the risk of hitting a bug in any language. If you
choose to comprimise testing by employing lawyers, then that's an odd way to
do business if you have any professional pride.
IAP
------------------------------
Date: Fri, 20 Feb 1998 05:59:05 GMT
From: thor_denne_del_kan_slettes@post4.tele.dk (Thor)
Subject: Re: Help - need telnet client in perl
Message-Id: <34ed1b57.251890@news.inet.tele.dk>
On Fri, 06 Feb 1998 14:26:35 +0200, Bekman Stanislav
<sbekman@iil.intel.com> wrote:
>Richard Karon wrote:
>> Does anyone have a telnet client in perl that allows both interactive
>> and batch modes?
>perl -MCPAN -e shell
>install Net::Telnet
>
>see also the article about it in the last TPJ...(The Perl Journal)
While I am looking for TPJ I'd like to know if anyone can tell me
where to find Net:: - I have been searching, but I haven't found it
yet.
Yours
Thor
------------------------------
Date: 20 Feb 1998 05:01:15 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Is perl and DBI good enough?
Message-Id: <6cj2mr$85$1@comdyn.comdyn.com.au>
In article <34EC5C90.9C09C0C1@paranormal.o.se>,
Jonas Liljegren <jonas@paranormal.o.se> writes:
> I continue here a discussion from the dbi-users mailinglist and
> comp.lang.perl.modules
>
>
> I wrote:
>
> Is it realistic to use perl with DBI for a large project for a big
> company? Should we use java servlets CGI instead of perl CGI?
Reading your email, I get the feeling that you might be fighting a
lost battle. I have had to deal with managers like that. People who
have no understanding of the Internet and its culture will never 'get
it'. People who believe that a high version number makes the software
reliable will never believe that a beta classification on software is
not necessarily bad. People who would rather trust Microsoft support
than the support of a group of people who have consistently kept up
the perl community for years, are just utterly lost to any reason.
People who are prepared to invest a lot of money in a language that
itself hasn't really crystallised yet, and believe that that is less
of a risk than investing in a language that is being used by the
people who _know_ all over the world, deserve everything that is
coming to them.
I am not arguing that Perl is better than Java. For some tasks Java
probably is better than Perl. I am arguing against the blind
assumptions that are being made by your managers.
Hype over content.
Whenever I had to deal with that attitude, I turned around, and left.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | That's not a lie, it's a terminological
Commercial Dynamics Pty. Ltd. | inexactitude.
NSW, Australia |
------------------------------
Date: Fri, 20 Feb 1998 01:23:52 -0500
From: jdf@pobox.com (Jonathan Feinberg)
Subject: Re: My first perl program, yippee!
Message-Id: <MPG.f56eb82afb6e960989715@news.concentric.net>
matt.pryor@dial.pipex.com said...
: This is a multi-part message in MIME format.
No! *thwap* Bad!
: Anyone who wants to use this is
: more than welcome, of course :-)
:
: Matt
*The* Matt?
Well, on to your code:
: IyFjOlxwZXJsXGJpblxwZXJsLmV4ZQ0KDQppZiAoISRFTlZ7UVVFUllfU1RSSU5HfSkgeyAN
You really should remember -w.
: CgkkbmFtZT08U1RESU4+Ow0KCWNob21wICRuYW1lOw0KCSRuYW1lID1+IHMvIC8lMjAvZzsN
: CgkkRU5We1FVRVJZX1NUUklOR309ImRhdGFiYXNlPWRhdGFiYXNlLnR4dCZmaWVsZHM9NyZm
Good, you're using modules, but what about "use strict;"?
: aWVsZDE9JHtuYW1lfSZmaWVsZDQ9c3Vzc2V4JnNlbnM9MiZkaXNwbD0xLDMsNCI7DQoJJEVO
: VntSRVFVRVNUX01FVEhPRH09IkdFVCI7DQp9DQoNCg0KJHdlYm1hc3RlciA9ICJtYXR0LnBy
: eW9yXEBkaWFsLnBpcGV4LmNvbSI7DQpwcmludCAiQ29udGVudC10eXBlOiB0ZXh0L2h0bWwi
Why don't you just use "printf?"
: LCJcblxuIjsNCg0KDQoNCiZjaGVja3ZhcmlhYmxlcyAoKTsNCiZwYXJzZV9kYXRhZmlsZSAo
If you're going to autoflush your sockets, remember to spit out "\015\012"
after all output.
: KTsNCg0KcHJpbnQgPDxFbmRfT2ZfSGVhZGVyOw0KPEhUTUw+DQo8SEVBRD48VElUTEU+U2Vh
: cmNoIFJlc3VsdHM8L1RJVExFPjwvSEVBRD4NCjxCT0RZIEJHQ09MT1I9I0ZGRkZGRj4NCjxG
Ha, ha. Clever hack!
All in all, a tremendous first effort.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: 20 Feb 1998 05:06:40 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Newbie Question about Perl and Server Side Includes
Message-Id: <6cj310$85$2@comdyn.comdyn.com.au>
In article <01bd3db0$e17f59c0$ee02e0a9@itpla>,
"Phil Anderson" <PAnderson@AMCTheatres.com> writes:
> I am new to programming PERL and am having problems getting a Server Side
> Include to function correctly.
Oh, oh..
> My PERL script generates all the HTML and sends it to the browser, but the
> server doesn't seem to recognize the <!--#include file="x.html"--> tag. By
> that I mean it doesn't do the include, I see the tag as a comment in the
> HTML source.
Right. I was afraid of that. This has nothing, nothing whatsoever, to
do with perl. Check your server's documentation on how to configure it
to do those SSI thingies. If you can't read documentation for some
reason, and want someone else to do it for you, you might try one
of the comp.infosystems.www.* groups. That's where they talk about
this sort of stuff.
[Followup set]
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | In the fight between you and the world,
Commercial Dynamics Pty. Ltd. | back the world - Franz Kafka
NSW, Australia |
------------------------------
Date: Fri, 20 Feb 1998 09:54:53 +0100
From: Weisshaupt & Partner AG <wpwerbung@active.ch>
Subject: Perldebugger for Windows
Message-Id: <34ED44DD.844FBA33@active.ch>
I'm looking for a Perldebugger running under Windows 95 or NT.
Does somebody know where I can get one?
Sorry if this question was aked alread, it's my first time in this
group.
Daniel
------------------------------
Date: Thu, 19 Feb 1998 23:47:01 -0800
From: David Watson <standfast@mindspring.com>
Subject: Re: Problem with pack() -- really print() adding CR in NT.
Message-Id: <34ED34F5.367A3EFA@mindspring.com>
OK, following up my own posting I see more about what's happening.
It isn't the pack(), it's the "print" that's writing the results to the
output file.
How interesting! Print has prepended a '0D' or carriage return to every
'0A' or line feed that it puts out.
Obviously I will go work around that now.
It worked fine on Unix, but I imagine print wasn't really intended for
writing random binary data, so here in the CRLF world, it works
differently. Hmm.
Cheers,
-David.
David Watson wrote:
>
> I'm having trouble with packing a network byte-order long value on NT
> 4.0... it's occasionally returning with more than 4 bytes! This code
> worked in Unix in an older version of Perl.
>
> The line from the code I'm porting is:
>
> $Header[13+$i*3] = pack("N",$RecordLocalID[$i]);
>
> This is in a loop run about 150 times. Starting around the 10th time,
> the pack seems to set $Header[foo] to 5 bytes worth of stuff... but not
> every time. arrgh.
>
> Any thoughts?
>
> Thanks,
> -David.
------------------------------
Date: Thu, 19 Feb 1998 22:30:08 -0800
From: David Watson <standfast@mindspring.com>
Subject: Problem with pack() in perl 5.004_04?
Message-Id: <34ED22EF.51740F97@mindspring.com>
I'm having trouble with packing a network byte-order long value on NT
4.0... it's occasionally returning with more than 4 bytes! This code
worked in Unix in an older version of Perl.
The line from the code I'm porting is:
$Header[13+$i*3] = pack("N",$RecordLocalID[$i]);
This is in a loop run about 150 times. Starting around the 10th time,
the pack seems to set $Header[foo] to 5 bytes worth of stuff... but not
every time. arrgh.
Any thoughts?
Thanks,
-David.
------------------------------
Date: Fri, 20 Feb 1998 02:10:08 -0500
From: Grimoire <grimoire@oaktree.net>
Subject: Pure stupidity
Message-Id: <Pine.LNX.3.95.980220015910.25979A-100000@harmony.oaktree.net>
I am TRYING to teach myself perl. Most of the concepts I haven't had a
problem with. Though, I thought I would try to test myself and try to
write something off the fly. Regex's seem to be my angst. The extremely
easy code that follows seems to be causing me problems.
THE OUTPUT:
--- ------
[grimoire@harmony ~/perl]$ perl pwgrep
Who are you looking for? grimoire
[grimoire@harmony ~/perl]$
THE CODE:
--- ----
#!/usr/bin/perl
$pw = '/etc/passwd';
print "Who are you looking for? ";
chomp($a = <>);
open(PW, $pw) || die "cannot open $pw: $!";
while(<PW>){
if($pw =~ /\$a/i){
print $_;
}
}
Please forgive my stupidity.
-------------------------------------------------------------------------
Neutering is nifty
-------------------------------------------------------------------------
------------------------------
Date: 20 Feb 1998 07:39:56 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Pure stupidity
Message-Id: <6cjc0c$fki$1@marina.cinenet.net>
Your only 'stupidity' was in your choice of subject text. 'Problem
searching on variable pattern' or something similar would be a better
choice; 'Pure stupidity' says nothing useful about the content of the
message.
Grimoire (grimoire@oaktree.net) wrote:
: #!/usr/bin/perl
Where's your -w ?
: $pw = '/etc/passwd';
: print "Who are you looking for? ";
: chomp($a = <>);
: open(PW, $pw) || die "cannot open $pw: $!";
: while(<PW>){
: if($pw =~ /\$a/i){
^
What were you trying to accomplish with the marked backslash? In its
absence, your code would work, since the contents of $a would be used as
the search pattern. (You'd probably want to actually use /\Q$a\E/ to
guard against regex metacharacters in the pattern.) With the backslash,
your patten is "A literal dollar sign '$' followed by 'a'.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: 20 Feb 1998 07:43:23 GMT
From: twod@not.valid
Subject: Re: Pure stupidity
Message-Id: <6cjc6r$ii9$2@vnetnews.value.net>
Grimoire (grimoire@oaktree.net) wrote:
: if($pw =~ /\$a/i){
^^^ ^
#1 #2
#1 $pw is the string '/etc/passwd', I think you mean $_
#2 The '\' escapes the '$', which is not what you want.
Use 'if($_ =~ /$a/i){' or 'if(/$a/i){'
IAP
------------------------------
Date: 20 Feb 1998 05:42:43 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: regexp question
Message-Id: <6cj54j$gn$1@comdyn.comdyn.com.au>
In article <34ecbbc4.244241891@news.spacestar.com>,
rasta@spacestar.com (Rasta Kyle) writes:
> Second question is .....I understand the first line but what is the
> & in this expression? Is it litterally an "&" or does it represent a
> variable I cannot find in the camel book or the O'Reilly book
> on Regular Expressions? Please reply to
> rasta@spacestar.net and the group....thank you.in advance.
A literal &
I suspect that that fullname thing is coming from the gcos field from
a passwd file entry, right?
An ampersand in the gcos field in a passwd file stands for the login
name of that user.
see the man page for passwd(4)
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au |
Commercial Dynamics Pty. Ltd. | Curiouser and curiouser, said Alice.
NSW, Australia |
------------------------------
Date: 20 Feb 1998 09:01:26 GMT
From: Gordon Hooton <ghooton@ihug.co.nz>
Subject: Searching for files in Perl and Win95
Message-Id: <6cjgp6$3q$1@newsource.ihug.co.nz>
My apologies if this is in a FAQ, but I have read all the
documentation available and searched the web before posting.
I am trying to use Perl Scripts to find files that match a user inputed
CGI form. I have installed Perl (activeware port) and HTTPd server on my
Win95 system. All works ok in Perl except that none of the scripts I have
tried will return valid information on file contents - in subdirectories off
the root they always return nothing found (yes there in information in the
<META Name="Keywords"....> tag.
I have tried Simple Search (Matts) , Intermediate Search and scripts
from the freeware Win95 Perl archive, but they all exhibit the same
behaviour, they will find a file in root but not in
any subdirectories off it.
I have replaced the unix "/" with the Win95 equivalent "\\" but still
no joy.
Can anybody suggest where I am going wrong. Thanks
------------------------------
Date: Fri, 20 Feb 1998 08:31:04 GMT
From: c28f62@world.std.com (Mark Kramer)
Subject: Re: The Young Man and the Beach
Message-Id: <Eoo4zs.ACI@world.std.com>
In article <m3wweu9y6f.fsf@windlord.Stanford.EDU>,
Russ Allbery <rra@stanford.edu> wrote:
>Having you start complaining about the tone of an allegory and about how
>Tom was answering questions I'll note *you weren't answering*
I'll point this out again since you seem not to want to notice: there
was no question being answered by "the young man", nor was Tom
answering the questions being asked in many of the articles where he
complained about the software people were using to post. He simply
wanted to flame based on OS.
>and how Tom
>was helping people *you weren't helping* strikes me as hypocritical.
For you to whine that I did not answer questions that Tom didn't doesn't
strike me as hypocritical, no, not at all. Let's forget for the moment that
I wasn't replying to anyone who was asking questions and Tom was, why
not?
>> Are you seriously contending that every article posted to this
>> discussion group must be an answer to a perl question?
>
>No, but it'd be kind of nice if they were about Perl, wouldn't it?
Sure. Tell me the relevance to perl in The Young Man, and then tell me
why I am wrong to reply to it if Tom wasn't wrong to post it.
>I'm going to go post about Perl now.
Feel free. Don't use signals. They don't work.
>... but I really
>would rather you stopped. And will be stopping now myself.
Why does it seem that people claiming the high ground while complaining
about things being off topic always promise to stop posting off-topic
things themselves ... right after they post this one last off-topic
article?
------------------------------
Date: Fri, 20 Feb 1998 07:01:44 GMT
From: greg@geographe.com.au (Greg Wake)
Subject: Trend Line for Graphs?
Message-Id: <34ed292b.254907121@192.168.3.61>
I've recently downloaded a couple of graphing modules based on the GD
extensions for Perl.
The 2 that I have found and used are great! One does lots of
different types of graphs but perhaps do not look at that great. The
other only does bar graphs but produces nice 3D formatting. Using
both of these you can get a great balance for whatever type of data
you want to Graph. (GIFGraph & Graph)
However, some graphs that I am particularly interested in would be
greatly enhanced if I could have the graph automatically include
a trend line. Anyone know of another graphing module that supports
this function?? Or alternatively, anyone know how I can get either
one of the 2 above modules to plot a trend line??
Any help greatly appreciated.
------------------------------------------------------------------------
Greg Wake | Phone: +61 97 911 915
Systems Manager |
Geographe Replacement Parts | Fax: +61 97 911 916
P.O. Box 350 |
BUNBURY 6231 | E-Mail: greg@geographe.com.au
Western Australia |
-----------------------------------------------------------------------
------------------------------
Date: 20 Feb 1998 00:45:58 GMT
From: pse@euclid.jpl.nasa.gov (Peter Scott)
Subject: Turning off -w for single third-party module ($^W...?)
Message-Id: <6cijo7$am0@netline.jpl.nasa.gov>
Hi there. My scripts that use File::Find and call finddepth work,
but print:
Use of uninitialized value at /usr/local/perl/lib/Cwd.pm line 176.
It's conceivable this has something to do with traversing AFS - but
I don't want to modify a core module in any case so I haven't looked
too deeply at it. Since this only appears with the fine -w option,
I would like warnings to be suppressed for Cwd (which is used by
File::Find), but for them to remain enabled for my far more humble code.
I bet this has something to do with $^W, but my best guess:
{
local $^W = 0;
use File::Find;
}
doesn't make any difference. I'm probably missing fundamental about
run-time vs compile-time here, although I continue to read that section
of the Panther book. Any ideas?
--
This is news. This is your | Peter Scott, NASA/JPL/Caltech
brain on news. Any questions? | (pse@euclid.jpl.nasa.gov)
Disclaimer: These comments are the personal opinions of the author, and
have not been adopted, authorized, ratified, or approved by JPL.
------------------------------
Date: Fri, 20 Feb 1998 06:23:37 GMT
From: nospam_synic@omen.net.au (peter caffin)
Subject: Re: Using HTML Tags in forms (Content Type)
Message-Id: <34ed20de.26063786@news.omen.net.au>
JesusDLG did cunningly address to comp.lang.perl.misc..
:I need that my users receive an email like a WebPage. Something like a I
:fill a field named message with some HTML code and my user receive an email
:in HTML format.
However, your users will hate you for doing it to them.
Email = Text.
Usenet = text.
WWW = HTML.
The twain don't meet without heaps of flames [1]
--
[1] Okay, yes, you _can_ have text on the WWW ;).
--: _ ___ _ _ _
_oo__ |_|_ |__ _ | | _ |_|_' _ mailto:synic@omen.net.au
//`'\_ | (/_|(/_| .|. |_(_|| | || | http://www.omen.net.au/~synic
/
------------------------------
Date: Fri, 20 Feb 1998 09:19:00 +0100
From: "M.J. Pieters" <mj@atmm.nl>
Subject: Re: Verifying a URL?
Message-Id: <6cje81$fvv$1@news.worldonline.nl>
Abigail wrote in message <6cim75$633$7@client3.news.psi.net>...
>Stewart Eastham (sme@planetpod.com) wrote on 1633 September 1993 in
><URL: news:34EC8411.9E4B115@planetpod.com>:
[ SNIP stuff that can be found in FAQ's... ]
>
>Abigail
>--
>perl -wleprint -eqq-@{[ -eqw\\- -eJust -eanother -ePerl -eHacker -e\\-]}-
41%
perl -wleprint -eqq-@{[ -eqw\\- -eJust -eanother -ePerl -eHacker -e\\-]}-
Missing ].
Hmm...... Prolly my shell then eh? ;)
M.J. Pieters, Web Developer
| Audax Tros MultiMedia http://www.atmm.nl
| Tel: +31-35-6254545 Fax: +31-35-6254555
| mailto:mj@atmm.nl http://www.atmm.nl/~mj
------------------------------------------
------------------------------
Date: 19 Feb 1998 23:12:23 -0800
From: "Darren/Torin/Who Ever..." <torin@daft.com>
Subject: Re: Why is Tom Christiansen so rude?
Message-Id: <87oh02kaw8.fsf@perv.daft.com>
Andreas Karrer, in an immanent manifestation of deity, wrote:
>>Rich Grise <lovegod@earthling.net> writes:
>>>I've heard, "There are two notable things that have come from Berkeley in
>>>this century. LSD and Unix. We do not believe this to be a coincidence."
>
>And LSD wasn't discovered at Berkeley, but was first synthesized by
>Albert Hofmann, in 1938, at Sandoz (now part of Novartis), in Basel,
>Switzerland.
If you take "come from" as popularized by, then this works. It's
similar to the idea that X-Mosaic popularized the Web. Before it, the
Web was one of many interesting hypertext data-sharing systems.
Darren
- --
<torin@daft.com> <http://www.daft.com/~torin> <torin@debian.org> <torin@io.com>
Darren Stalder/2608 Second Ave, @282/Seattle, WA 98121-1212/USA/+1-800-921-4996
@ Sysadmin, webweaver, postmaster for hire. C/Perl/CGI programmer and tutor. @
@ Make a little hot-tub in your soul. @
Version: 2.6.3
Charset: noconv
Comment: Processed by Mailcrypt 3.4, an Emacs/PGP interface
iQCVAwUBNO0szI4wrq++1Ls5AQHo4QP+PQhsxMpAI6GX/ZPQTksSwVQV38WkRgyb
Y63XmwNhWdYPtutDYVnOSZKJyhL+bhydB7J5zIcoViuJD1YkiU0OjtmklLAXbLab
Fr3SEPBcJ+n3Ve0vrbMmHSuU84mFS3OG2dRLMPuXjw5KMQkPV9Rhf8t1BcZAHj3O
M6aiwShdu7k=
=XI0t
-----END PGP SIGNATURE-----
------------------------------
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 1938
**************************************
