[11971] in Perl-Users-Digest
Perl-Users Digest, Issue: 5570 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed May 5 13:07:21 1999
Date: Wed, 5 May 99 10:00:28 -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 Wed, 5 May 1999 Volume: 8 Number: 5570
Today's topics:
"Safe" recursive delete? <upsetter@ziplink.net>
Re: array shuffling <jdf@pobox.com>
Re: ASP & PERL <cmcurtin@interhack.net>
Re: Declaration Help Please!! mriedel@neuearbeit.de
Re: Finding x^y? <upsetter@ziplink.net>
Generate matching strings from regex ? <fbart@sprynet.com>
Generating method call from a string simon@whitestar99.demon.co.uk
Re: global var disappearing, reappearing <sugalskd@netserve.ous.edu>
Re: having problems getting this script to work... <gellyfish@gellyfish.com>
Re: Help <vvb@ibm.net>
Re: HTML-code in textarea jajacek@my-dejanews.com
Re: I can not use cgi in my Hypermart account. <kperrier@blkbox.com>
Re: I can not use cgi in my Hypermart account. (Tad McClellan)
Re: Java and Perl <sf@tellux.de>
Re: Java and Perl <sb@sdm.de>
Re: Making executables from .pl files? <agjemmes@extremeonline.com>
Re: mkdir on NT <cook@mediaone.net>
Re: Ms Access database <gellyfish@gellyfish.com>
Re: Newsfeed and Local Weather <cmcurtin@interhack.net>
Oops. mriedel@neuearbeit.de
Re: Perl 5: The Complete Reference, Martin Brown <aqumsieh@matrox.com>
Re: Perl 5: The Complete Reference, Martin Brown <uri@sysarch.com>
Re: Perl 5: The Complete Reference, Martin Brown <emschwar@rmi.net>
Re: Perl 5: The Complete Reference, Martin Brown <cassell@mail.cor.epa.gov>
Re: Perl in the workplace <uri@sysarch.com>
Re: Perl in the workplace <upsetter@ziplink.net>
print<<EOF <a4565992@ethome.net.tw>
Re: print<<EOF <design@raincloud-studios.com>
Re: print<<EOF (Bart Lateur)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 05 May 1999 16:56:17 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: "Safe" recursive delete?
Message-Id: <RK_X2.696$9L5.252657@news.shore.net>
Hi Folks;
Is there a way to safely do a recursive delete while using the -T switch?
Perl won't let me do a
system("rm -r $mydir")
even if I've untainted $mydir first.
I tried using "File::Find" but got basically the same result (this is of
course adapted from the Perl Cookbook):
sub zap {
# removes a given file or directory
my $name;
if ( $File::Find::name =~ /^([\w\.\/\\-]+)$/ ) {
$name = $1;
} else {
die "Strange file name: $File::Find::name";
}
if (!-l and -d _) {
rmdir ($name) or die "Could not remove $name: $!";
} else {
unlink ($name) or die "Could not unlink $name: $!";
}
}
finddepth \&zap, $second;
# $second has been untainted previously
I did a search on DejaNews which seemed to indicate that this is a
not-unknown problem with File::Find, but I couldn't find any alternatives
offered. Perlsec doesn't have anything to say on the subject of
File::Find.
Is there a way around this or am I SOL?
TIA,
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: 05 May 1999 12:13:03 -0400
From: Jonathan Feinberg <jdf@pobox.com>
To: tvn007@my-dejanews.com
Subject: Re: array shuffling
Message-Id: <m3lnf35wc0.fsf@joshua.panix.com>
tvn007@my-dejanews.com writes:
> Would some one help me with this problem ?
Your TA?
> I have to set of inputs:
[snip]
Perhaps if you show us the section of your program that's not working
as you think it should, we'll know where to begin helping you.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 05 May 1999 12:18:03 -0400
From: Matt Curtin <cmcurtin@interhack.net>
Subject: Re: ASP & PERL
Message-Id: <xlxk8un8p8k.fsf@gold.cis.ohio-state.edu>
>>>>> On Tue, 4 May 1999 09:16:50 -0500,
"Billy Cravens" <bcravens@isccomputers.com> said:
Billy> (Practical Extraction and Reporting Language)
Don't be silly.
The man page tells you what Perl really stands for:
Perl actually stands for Pathologically Eclectic Rubbish
Lister, but don't tell anyone I said that.
:-)
--
Matt Curtin cmcurtin@interhack.net http://www.interhack.net/people/cmcurtin/
------------------------------
Date: 05 May 1999 18:36:32 +0200
From: mriedel@neuearbeit.de
Subject: Re: Declaration Help Please!!
Message-Id: <lzk8un79tb.fsf@linux_sexi.neuearbeit.de>
#! /usr/bin/perl
%addresses=('Information' => 'someone@host.com',
'Technical support' => 'another@host.com');
$dept=$addresses{$ARGV[0]}; # replace $ARGV[0] by e.g. $FromCGI{'dept'}
print "mailto:$dept\n";
------------------------------
Date: Wed, 05 May 1999 16:41:18 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: Finding x^y?
Message-Id: <Ow_X2.693$9L5.252657@news.shore.net>
JWefler <wef@wwa.comx> wrote:
: Oh, my humblest apologies my most righteous sire...
: I guess I should have made this more clear, since you are obviously
: suffering from some kind of brain dysfunction or psychological
: disorder... Take the "x" off of the end of my e-mail address and shove
: it up your tightly wound arsehole!
Boy, you're really going to get a lot of people falling over themselves to
help you when you ask as nicely as this! Did it ever occur to you to look
in the perl documentaion for what the exponentiation operator is? Hint: it
ain't '^'.
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: Wed, 05 May 1999 12:19:17 -0400
From: vepxistqaosani <fbart@sprynet.com>
Subject: Generate matching strings from regex ?
Message-Id: <37306F85.A3F9BB6E@sprynet.com>
As a new user, I find that regexen are occasionally (well, always)
difficult to read. It would be helpful to have a script that could take
a regex as input and produce a matching string.
So, if the input is
/(.*)\d\s\w(.*)/
some possible outputs are
"any0 Xany"
"any7\tbany"
etc.
Now, this would probably be an excellent exercise for me, but why
reinvent the wheel? Anybody know of something like this, or shall I roll
my own?
And where's the best place to look for Perl scripts? I've looked in the
cookbook and cpan.org.
Fred
$_="ustJay notherAay ewNay erlPay ackerHay";s/(\w+?)(\w)ay/$2$1/g;print;
------------------------------
Date: Wed, 05 May 1999 16:33:00 GMT
From: simon@whitestar99.demon.co.uk
Subject: Generating method call from a string
Message-Id: <7gprrs$pcj$1@nnrp1.dejanews.com>
Hi,
I have done similar to this in the past but never when classes were involved
and now I am playing with classes I am having trouble implementing the
following.
I have a class which is v.basic and is pretty much a copy of one from the
perltoot man page with the AUTOLOAD function.
If I have a field, say 'type' which with the AUTOLOAD function is accessed:
$item->type (get)
$item->type($value) (set)
What I want to do is set a variable to 'type' and then call the method using
the variable, i.e.
my $variable = 'type';
my $method = "$item->$variable";
my $result = $$method;
Obviously the above is wrong but I am having trouble trying to work out the
correct syntax.
Any help would be appreciated.
Simon
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 5 May 1999 16:51:01 GMT
From: Dan Sugalski <sugalskd@netserve.ous.edu>
Subject: Re: global var disappearing, reappearing
Message-Id: <7gpstl$1td$1@news.NERO.NET>
Otis Gospodnetic <otis@my-dejanews.com> wrote:
: In article <7gnuif$c7l$2@news.NERO.NET>,
: Dan Sugalski <sugalskd@netserve.ous.edu> wrote:
:> Otis Gospodnetic <otis@my-dejanews.com> wrote:
:> [Snip]
:> : sub getID
:> : {
:> : return (shift @ids);
:> : }
:>
:> Bad, Bad programmer! <thwack> No biscuit for you! You're not locking @ids
:> before accessing it. (Plus it's global data, which is usually bad
:> regardless of how you created it. But that's a separate issue) You must,
:> must, *must* use lock() on anything that two threads may access
:> simultaneously.
:>
:> Any time a perl variable may get modified, you must lock() it first,
:> before a write *or* a read. (And remember, $a = 1; print $a; modifies $a
:> *twice*, once on the assignment and once when perl promotes $a from an
:> integer to a string) Otherwise you're just asking for trouble.
:>
:> Hopefully 5.005_04 and 5.006 will be a little kinder on readers, but as of
:> now, it's possible to catch a variable in a half-built state. Perl ops
:> are *not* atomic.
: Ah, actually I did have this: use attr qw(lock) right there at the beginning
: of that subroutine, I just didn't have it in the post. But that doesn't solve
: the original 'problem'/weird behaviour...
Fair enough. There's a more subtle, insidious update that's not
coordinated with lock, though. You start with this:
my $tMax = 2;
in the main thread. However, you've got this:
print "Thread $tn of ", $tMax, " working on $id\n";
in the child threads. What's the big deal? $tMax starts out as an integer.
Using it in a string context requires that perl promote it from plain
integer to a string, thus changing it. Currently perl doesn't synchronize
access to a variable's guts in any way, nor does it update flags and such
in any particular order. What's likely happened is that one thread's
marked it as being promoted to a string before installing the string
itself, and the other's gone to read it and seen the string buffer pointer
is NULL, and thus equivalent to undef.
Yes, this can reasonably be described as a bug. :) I'll see about putting
together a patch, but it will be a) a performance hit, and b) a bit tricky
in 5.005_0x. (Should hopefully be easier in 5.006, but that's a ways off
anyway)
In the mean time, lock all variables shared across threads, including ones
that are used read-only. Alternately you can pre-promote your numbers by
using them in string context (undef = "$foo";), but that's both nasty and
profoundly unsupported, counting on an implementation quirk that isn't
guaranteed in future releases.
Dan
------------------------------
Date: 5 May 1999 17:18:40 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: having problems getting this script to work...
Message-Id: <37306f60@newsread3.dircon.co.uk>
Marko R. Riedel <mriedel@neuearbeit.de> wrote:
>
> #! /usr/bin/perl
> #
>
Why have you posted the same piece of code in response to three
separate posts in the thread ? Wierd.
/J\
------------------------------
Date: Wed, 5 May 1999 18:04:03 +0200
From: "Vincent Vanbiervliet" <vvb@ibm.net>
Subject: Re: Help
Message-Id: <37305cc6@news.uk.ibm.net>
XX <barnauld@online.fr> wrote in message news:37306A93.BBD8B827@online.fr...
> How can i do a perl script that launch an another perl script when a
> specify files is created in a specified folder ?
> Please
>
I suspect you don't have problems launching one script called from another
script, but that you don't know how to trigger it...
You should make a program that runs in a loop, and checks every 5 secs or
something for the directory if any files are created there. If there is, you
delete it (otherwise you keep triggering the loop) and do whatever you have
to do.
I didn't see a 'do forever' equivalent, but what works is this:
while (1) [
# check for your file;
# if it's there, run your script
# sleep 5
}
I know this works in certain batch languages (meaning: although the program
runs all the time, it doesn't take too much CPU and so), but I'm not sure
for Perl (doing a very simple test didn't show any problems though).
Vincent Vanbiervliet
http://learn.ibm.be
------------------------------
Date: Wed, 05 May 1999 14:50:46 GMT
From: jajacek@my-dejanews.com
Subject: Re: HTML-code in textarea
Message-Id: <7gpls4$jha$1@nnrp1.dejanews.com>
In article <7gplck$j0f$1@nnrp1.dejanews.com>,
dzuy@my-dejanews.com wrote:
> In article <7gpkr6$if6$1@nnrp1.dejanews.com>,
> jajacek@my-dejanews.com wrote:
> > A user must put HTML-code in textarea field. This code will be a part of
> > HTML-page. How can I this easy make? And how can I validate this input?
> >
> > Perl-module, applet?
> >
> > Jacek
> >
> > -----------== Posted via Deja News, The Discussion Network ==----------
> > http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
> >
>
> I wrote a module that parses HTML form. If anyone is interested, let
> me know. If I get lots of response, I'll consider making public.
>
> Dzuy
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
>
but how I can made this EASY FOR USER!
Jacek
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 05 May 1999 10:31:17 -0500
From: Kent Perrier <kperrier@blkbox.com>
Subject: Re: I can not use cgi in my Hypermart account.
Message-Id: <ysihfpra5yy.fsf@blkbox.com>
austin95002887@yahoo.com (Austin Ming) writes:
> I can not use cgi in my Hypermart account.
>
Maybe you should call Hypermat's technical support?
Kent
------------------------------
Date: Wed, 5 May 1999 07:02:05 -0400
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: I can not use cgi in my Hypermart account.
Message-Id: <df8pg7.jn5.ln@magna.metronet.com>
Austin Ming (austin95002887@yahoo.com) wrote:
: I can not use cgi in my Hypermart account.
I cannot get my teenage to act responsibly.
Neither have anything to do with Perl.
You have landed in the wrong newsgroup.
There is a newsgroup dedicated to discussing CGI issues:
comp.infosystems.www.authoring.cgi
: file: html.pl
Your Perl looks OK (except you forgot to enable warnings with -w).
So you do not have a Perl problem.
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 05 May 1999 17:51:21 +0200
From: Sebastian Frankfurt <sf@tellux.de>
Subject: Re: Java and Perl
Message-Id: <373068F9.544C9E8A@tellux.de>
Philippe Emeriau wrote:
>
> does anyone know if it's possible to "link" a Java program with Perl ?
> A simple example is a Perl programmer who can use an API, and this API
> is implemented with Java.
> This programmer does not know at all that he is using in fact Java ;-)
>
> This kind of situation already exists for C and C++ and is named XS
> stubs.
Well, you have the possibility to write a kind of wrapper in C using
the JNI (Java Native Interface) to be connected to Java API and using
XS to be connected to perl ;-)
You need C-functions that call the Java-API and you need other
C-functions
that will be called from your Perl-Code. That's all.
I don't know, how to use Java-API from Perl directly (without the
C-Wrapper)
cu,
Sebastian Frankfurt
------------------------------
Date: 5 May 1999 16:08:25 GMT
From: Steffen Beyer <sb@sdm.de>
Subject: Re: Java and Perl
Message-Id: <7gpqdp$lui$1@solti3.sdm.de>
[Mailed && Posted]
In comp.lang.perl.misc,
Philippe Emeriau <Philippe.Emeriau@sophia.siemens-scg.com> wrote:
> does anyone know if it's possible to "link" a Java program with Perl ?
> A simple example is a Perl programmer who can use an API, and this API
> is implemented with Java.
> This programmer does not know at all that he is using in fact Java ;-)
> This kind of situation already exists for C and C++ and is named XS
> stubs.
> Thanks in advance for any help !
> Please reply also to my email account in addition to the newsgroup ...
There's JavaPerl (short: JPL) written by Larry Wall himself, first
published on the Perl Resource Kit (Unix edition) by O'Reilly.
As Larry Wall works for O'Reilly now, you should be able to find out
more via software@oreilly.com.
Hope this helps!
Yours,
--
Steffen Beyer <sb@engelschall.com>
http://www.engelschall.com/u/sb/whoami/
http://www.engelschall.com/u/sb/download/
http://www.perl.com/CPAN/authors/id/STBEY/
http://www.oreilly.de/catalog/perlmodger/bnp/
------------------------------
Date: Wed, 5 May 1999 18:45:00 +0200
From: "Asbjorn Gjemmestad" <agjemmes@extremeonline.com>
Subject: Re: Making executables from .pl files?
Message-Id: <ky_X2.288$cV4.1365@news1.online.no>
It seems like I'm not the one with the attitude problem...
When selling a commercial product, would you want other people to mess with,
change, and possibly redistribute your product? Me and my partner have
developet a neat copy protection system which contacts our server, and thus
people won't be able to do anything about it if the code is pre-compiled.
Also, it makes installation a lot easier as you just upload the file to your
server (without worrying about perl location), and do all the configuration
through a web form.
It's a matter of user friendliness. Not all people are smart enoguh to
develop their own programming language, and many webmasters want to use Perl
without even knowing how to set the path correctly.
>And what if you want to send someone a program that uses Windows, but
>they don't have it?
if you want to send someone a windows program, you'll obviously need windows
to run it. But for a Perl program, all you need is a pre-compiled file (i.e.
a 500 kb file created by perl2exe). Quite a difference, don't you think?
(after all, windoze can be quite a bitch - quite unlike Perl).
>And what if you want to send someone a program that uses Tk, but
>they don't have it?
Then you send them a pre-compiled file with whatever's needed from Tk
compiled into it.
Asbjorn
"The only truth is that everything is a lie."
Tom Christiansen skrev i meldingen <37302931@cs.colorado.edu>...
> [courtesy cc of this posting sent to cited author via email]
>
>In comp.lang.perl.misc,
> smnayeem@my-dejanews.com writes:
>:But say what if i want to send a copy of my file to someone who doesnt
have
>:perl installed. With the present way of distributing i have to go to every
>:place and install perl (or have them install it) before my program can be
of
>:any use. isnt that like making it cause too much of an overhead?
>
>And what if you want to send someone a program that uses X11, but
>they don't have it?
>
>And what if you want to send someone a program that uses Tk, but
>they don't have it?
>
>And what if you want to send someone a program that uses Oracle, but
>they don't have it?
>
>And what if you want to send someone a program that uses Windows, but
>they don't have it?
>
>Eh?
>
>--tom
>--
>"Patriotism is an arbitrary veneration of real estate above principles."
------------------------------
Date: Wed, 05 May 1999 11:43:35 -0400
From: edgar <cook@mediaone.net>
Subject: Re: mkdir on NT
Message-Id: <37306727.6EA71E12@mediaone.net>
> open(NEWDIR,"|mkdir $newdir") || print &Error('Sorry, cannot make directory');
> print NEWDIR $newdir;
> close(NEWDIR);
> chmod(0777,"$newdir");
>
> #####
>
> Is the pipeline in the open command the problem?
>
> Any help would be great !!
I just tried the following on a win98 PC.
#! perl -w
use strict;
my $dir;
my $file_dir = "d:/cookie/test_dir";
mkdir ($file_dir, 0777) || die "Can't make $file_dir: $!";;
opendir (DIR, $file_dir ) || die "Can't open $file_dir: $!";
while ($file_dir = readdir DIR) {
print "\$file_dir: $file_dir\n";
}
I found a usefull tutorial for win32 platforms at
http://www.netcat.co.uk/rob/perl/win32perltut.html
hope this helps
-cookie
------------------------------
Date: 5 May 1999 16:03:56 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Ms Access database
Message-Id: <37305ddc@newsread3.dircon.co.uk>
Marco Vlemmings <marcov@ctrl-v.nl> wrote:
> hi all,
>
> I have a question about Ms Access. I want to write a perl script which
> makes a '.mdb' file. Why would i make a '.mdb' file, because i don't
> have a Window NT webserver but a Unix webserver. I want to know the
> content of a 'mdb' file.Can someone help me?
>
I would check this thread out on comp.databes.ms-access:
<http://www.dejanews.com/[ST_rn=ps]/getdoc.xp?AN=471727945>
Then redesign your program to use some other database.
/J\
--
Jonathan Stowe <jns@gellyfish.com>
------------------------------
Date: 05 May 1999 12:24:16 -0400
From: Matt Curtin <cmcurtin@interhack.net>
Subject: Re: Newsfeed and Local Weather
Message-Id: <xlxiua78oy7.fsf@gold.cis.ohio-state.edu>
>>>>> On 4 May 1999 15:59:30 -0700,
Tom Christiansen <tchrist@mox.perl.com> said:
Tom> Here is one sentence:
Tom> I heard that you live next to Susan St. James, who told me to
Tom> call early, but you weren't home yet.
Tom> Here are two sentences:
Tom> I heard that you live next to Susan St. James, who told me
Tom> to call early, thought you would be home already.
Of course one always could resolve ambiguity with simple, easy to
parse syntax:
(I heard that you live next to Susan St. James (who told me to
call early) but you weren't home yet.)
Oh, wait, I'm in the wrong newsgroup. :-)
--
Matt Curtin cmcurtin@interhack.net http://www.interhack.net/people/cmcurtin/
------------------------------
Date: 05 May 1999 18:03:18 +0200
From: mriedel@neuearbeit.de
Subject: Oops.
Message-Id: <lzlnf37bcp.fsf_-_@linux_sexi.neuearbeit.de>
Sorry about those multiple posts. I spent the afternoon customizing my
=2Egnus file after having used Netscape Messenger for a couple of
months. Wasn=B4t sure if my posts were getting through.
Marko R. Riedel
------------------------------
Date: Wed, 5 May 1999 10:36:12 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: Re: Perl 5: The Complete Reference, Martin Brown
Message-Id: <x3yr9ova8ir.fsf@tigre.matrox.com>
vepxistqaosani@my-dejanews.com writes:
>
> Some chapters from this book are available at
> http://www.books.mcgraw-hill.com/betabooks/brown/index.html
>
> It'll be in the bookstores in June; does anyone have any advance word about
> it?
Well, I think Uri has said more than enough, and I strongly agree with
what he says. I also found another mistake (and I wasn't even looking
for them ;-)
Excerpt from chapter four:
*************
The /d modifier deletes the characters matching SEARCHLIST but does
not delete the characters specified in REPLACEMENT LIST. For example:
$string = 'the cat sat on the mat.';
$string =~ tr/a-z/b/d;
print "$string\n";
Deletes any characters from ?a-z? but not ?b?, giving a resultant string of:
a a a.
*************
End of excerpt.
Of course, the author's explanation of what the /d modifier for tr///
does is completely WRONG. $string will not contain 'a a a.' but rather
' b b b.'.
Based on what I saw of the book, I wouldn't recommend it at all.
This is actually a shame, since I really liked 'C: The Complete
Reference' and 'C++: The Complete Reference'.
Hey, maybe *I* should write a book on Perl. Everybody seems to be
doing it and I bet I can do better than many of them ;-)
Ala
------------------------------
Date: 05 May 1999 11:26:15 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Perl 5: The Complete Reference, Martin Brown
Message-Id: <x74slrzgfc.fsf@home.sysarch.com>
>>>>> "RLS" == Randal L Schwartz <merlyn@stonehenge.com> writes:
>>>>> "vepxistqaosani" == vepxistqaosani
<vepxistqaosani@my-dejanews.com> writes: vepxistqaosani> Randal, at the
Boston tutorial last week, you said that you did technical
vepxistqaosani> reviews of new Perl books -- is this one of them?
RLS> Nope. Wasn't asked.
i did it for you and saved you a flame job! it sucks.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 05 May 1999 10:11:04 -0600
From: Eric The Read <emschwar@rmi.net>
Subject: Re: Perl 5: The Complete Reference, Martin Brown
Message-Id: <xkfn1zjmr8n.fsf@valdemar.col.hp.com>
tadmc@metronet.com (Tad McClellan) writes:
> It isn't even English!
>
> I thought you weren't supposed to use a preposition to
> end a sentence with.
<quote veracity="slightly munged" source="winston churchill">
That is the sort of arrant pedantry up with which I shall not put!
</quote>
Just because Mrs. Grundy told you not to do that in elementary school,
that doesn't mean she knew what she was talking about. :^)
> This one head me ROTFL:
>
> <quote>
> Anonymous Subroutines
<snip>
> </quote>
I'm thinking this would be a great book to give to people as an example
of what NOT to do when progrmaming Perl.
> Quite a piece of work there...
It takes talent to screw up that badly. :^)
-=Eric
------------------------------
Date: Wed, 05 May 1999 09:48:38 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
Subject: Re: Perl 5: The Complete Reference, Martin Brown
Message-Id: <37307666.37A5218C@mail.cor.epa.gov>
Damian Conway wrote:
>
> tadmc@metronet.com (Tad McClellan) grammar-flames:
>
> > It isn't even English!
> > I thought you weren't supposed to use a preposition to
> > end a sentence with.
>
> Tad's right on the money with his other criticisms--such blatant and
> foolish mistakes are unpardonable in a professionally published book.
> But it's a disservice to propagate (even in jest) the myth of never
> ending on a preposition.
>
> That most authoritative of English grammarians, H.W. Fowler, campaigns
> vigorously against this "cherished superstition", insisting that "the
> legitimacy of the prepositional ending in literary English must be
> uncompromisingly maintained."
>
> Of course, deliberately constructed dissonances such as:
>
> "...use a preposition to end a sentence with."
>
> clearly are bad English, but there's absolutely nothing wrong with:
>
> "...expecting to assign the return value to."
>
> If only he or his publisher had been able to spell "to" correctly ;-)
And don't overlok this construction:
"I live in the land Down Under."
Isn't that ending a sentence with *two* prepositions? :-)
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior Computing Specialist phone: (541) 754-4468
mathematical statistician fax: (541) 754-4716
------------------------------
Date: 05 May 1999 11:23:33 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Perl in the workplace
Message-Id: <x790b3zgju.fsf@home.sysarch.com>
>>>>> "s" == sstarre <sstarre@my-dejanews.com> writes:
s> Thanks so much for the replies. I tried to plead the case again
s> with some of your suggestions, and I got my answer. I'm
s> dismissed. They're letting me work through 30-June and then they
s> said it's bon voyage to me and my non-conformist attitude.
s> On to greener pastures I hope :) I have a few weeks to find a
s> Perl-friendly workplace..
sara,
this will be good for you. being a perl hacker in a mis vb dungeon must
suck. let them rot in their own hell. there are plenty of perl openings
around. search the web sites, perl journal's job listings, etc. i don't
know how mobile you are but if you get away from florida you will find
even more opportunities.
they are giving you almost 2 months and with the hot web market you
should do fine. good luck.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Wed, 05 May 1999 16:47:10 GMT
From: Scratchie <upsetter@ziplink.net>
Subject: Re: Perl in the workplace
Message-Id: <iC_X2.694$9L5.252657@news.shore.net>
abrinson@my-dejanews.com wrote:
: Perhaps you shold point out that it is easier to get support for Perl than ANY
: Micro$oft product. And cheaper too! Not to mention Perl is open and Y2K
: compliant and .....
Not to mention the fact that perl "support" (whether from this ng or a
paid consultant) is likely to actually help you fix your problem, as
opposed to telling you that the only way to get it to work is to use MS
products for everything.
--Art
--
--------------------------------------------------------------------------
National Ska & Reggae Calendar
http://www.agitators.com/calendar/
--------------------------------------------------------------------------
------------------------------
Date: Thu, 06 May 1999 00:19:41 +0800
From: Liao Yen Feng <a4565992@ethome.net.tw>
Subject: print<<EOF
Message-Id: <37306F9D.4EA3E7C4@ethome.net.tw>
HI All~
i write some code on Unix
like this
print <<'TEST';
if ($a eq "test") {
print $a;
}
TEST
on unix i can see
--
if ($a eq "test") {
print $a;
}
--
But On windows mode..(Winperl)
Get error "EOF in string at Document line 1"
Some one can teach me...how to do is best way...
Jeff Liao 5/6 from Taiwan
------------------------------
Date: Wed, 05 May 1999 16:36:32 GMT
From: "Charles R. Thompson" <design@raincloud-studios.com>
Subject: Re: print<<EOF
Message-Id: <ks_X2.1717$iu1.1371@news.rdc1.tn.home.com>
> print <<'TEST';
> if ($a eq "test") {
> print $a;
> }
> TEST
I may be wrong about this, but I think 'TEST' and TEST are two different
things. I can only hazard the guess that Windows has some sort of
problem with single quotes.
What happens when you remove the ' ' from your first TEST?
CT
------------------------------
Date: Wed, 05 May 1999 16:51:12 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: print<<EOF
Message-Id: <3730765a.8150210@news.skynet.be>
Liao Yen Feng wrote:
> i write some code on Unix
> like this
...
> on unix i can see
...
> But On windows mode..(Winperl)
> Get error "EOF in string at Document line 1"
You may have been hit by the "Windows Perl Here Doc Bug". It's in the
ActiveState FAQ. It happens if your clsoing delimiter is on the last
line of the script. Try adding another (empty?) line following it. That
should fix it.
HTH,
Bart.
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5570
**************************************
