[15942] in Perl-Users-Digest
Perl-Users Digest, Issue: 3355 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 14 18:06:39 2000
Date: Wed, 14 Jun 2000 15:06:01 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <961020358-v9-i3355@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 14 Jun 2000 Volume: 9 Number: 3355
Today's topics:
[ RexExp ] => /^[^(abc)]/ ? <TheEx0rcist@fanclub.org>
Re: [ RexExp ] => /^[^(abc)]/ ? <bg@skypoint.com>
Re: [ RexExp ] => /^[^(abc)]/ ? <lauren_smith13@hotmail.com>
Re: [ RexExp ] => /^[^(abc)]/ ? <sariq@texas.net>
Re: [ RexExp ] => /^[^(abc)]/ ? <jamesht@idt.net>
Re: [ RexExp ] => /^[^(abc)]/ ? (Craig Berry)
Re: [Q] clarifications on [@array_name] + some MIME::Li <sweeheng@usa.net>
Re: [Q] clarifications on [@array_name] + some MIME::Li <eryq@zeegee.com>
Re: [Q] clarifications on [@array_name] + some MIME::Li <eryq@zeegee.com>
Re: [Q] clarifications on [@array_name] + some MIME::Li mitiste@charlie.iit.edu
[Q] Perl implemented in Java? <ajmas@bigfoot.com>
Re: [Q] Perl implemented in Java? <rootbeer@redcat.com>
A Computer Programmers Profile <jenniferbNOjeSPAM@oreilly.com.invalid>
Re: A Computer Programmers Profile <care227@attglobal.net>
Re: A Computer Programmers Profile <shawnball@uswest.net>
Re: A Computer Programmers Profile (Marcel Grunauer)
Re: A Question? Net::Ping not returning anything? tiny <rootbeer@redcat.com>
Re: A Question? Net::Ping not returning anything? tiny <rootbeer@redcat.com>
Re: A Question? Net::Ping not returning anything? tiny <tfm@sei.cmu.edu>
Re: accessing file with samba <argel@email.sn.com>
Active Perl <fromnews@pagepool.co.uk>
Re: Active Perl <tschilbach@aodinc.com>
Re: Active Perl (Peter L. Berghold)
Re: Active Perl <r.meEEEtcalfNOSPAM@exXXX.acCCC.ukKKK>
Re: Active Perl <care227@attglobal.net>
Re: Active Perl <fromnews@pagepool.co.uk>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 14 Jun 2000 20:36:40 +0200
From: "TheEx0rcist" <TheEx0rcist@fanclub.org>
Subject: [ RexExp ] => /^[^(abc)]/ ?
Message-Id: <8i8j9u$qet$1@news5.isdnet.net>
I want to match "everything but the string beginning with 'abc'".
Here is what I tried :
/^[^(abc)]/ and print "ok"
Unfortunately it matches anything that begins with a character other than a,
b and c.
Any ideas from regexp experts (Larry Rosler?) would be greatly, greatly,
appreciated!
Thank in advance!
------------------------------
Date: Wed, 14 Jun 2000 13:47:22 -0500
From: "Barry Grupe" <bg@skypoint.com>
Subject: Re: [ RexExp ] => /^[^(abc)]/ ?
Message-Id: <8i8ju7$ptk$1@shadow.skypoint.net>
"TheEx0rcist" <TheEx0rcist@fanclub.org> wrote in message
news:8i8j9u$qet$1@news5.isdnet.net...
> I want to match "everything but the string beginning with 'abc'".
> Here is what I tried :
>
> /^[^(abc)]/ and print "ok"
/^abc/ is all you need
------------------------------
Date: Wed, 14 Jun 2000 12:03:59 -0700
From: "Lauren Smith" <lauren_smith13@hotmail.com>
Subject: Re: [ RexExp ] => /^[^(abc)]/ ?
Message-Id: <8i8ku2$ltf$1@brokaw.wa.com>
TheEx0rcist <TheEx0rcist@fanclub.org> wrote in message
news:8i8j9u$qet$1@news5.isdnet.net...
> I want to match "everything but the string beginning with 'abc'".
> Here is what I tried :
>
> /^[^(abc)]/ and print "ok"
>
> Unfortunately it matches anything that begins with a character other than
a,
> b and c.
That's because the characters are in a character class. Use a zero-width
negative lookahead.
/^(?!abc)/ and print "ok";
#!perl -w
$str = "abcdef";
$str2 = "defabc";
print $str if ($str =~ /^(?!abc)/);
print $str2 if ($str2 =~ /^(?!abc)/);
Results:
defabc
Lauren
------------------------------
Date: Wed, 14 Jun 2000 14:22:19 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: [ RexExp ] => /^[^(abc)]/ ?
Message-Id: <3947DB6B.A420852C@texas.net>
Lauren Smith wrote:
>
> TheEx0rcist <TheEx0rcist@fanclub.org> wrote in message
> news:8i8j9u$qet$1@news5.isdnet.net...
> > I want to match "everything but the string beginning with 'abc'".
> > Here is what I tried :
> >
> > /^[^(abc)]/ and print "ok"
> >
> > Unfortunately it matches anything that begins with a character other than
> a,
> > b and c.
>
> That's because the characters are in a character class. Use a zero-width
> negative lookahead.
>
> /^(?!abc)/ and print "ok";
I'd think that
!/^abc/ and print "ok";
would be faster.
- Tom
------------------------------
Date: Wed, 14 Jun 2000 15:30:47 -0700
From: James Tolley <jamesht@idt.net>
Subject: Re: [ RexExp ] => /^[^(abc)]/ ?
Message-Id: <39480797.E102E8CC@idt.net>
TheEx0rcist wrote:
>
> I want to match "everything but the string beginning with 'abc'".
If I'm understanding you correctly:
/^(?!abc)/
hth,
James
------------------------------
Date: Wed, 14 Jun 2000 21:55:10 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: [ RexExp ] => /^[^(abc)]/ ?
Message-Id: <skfvpugvis432@corp.supernews.com>
Tom Briles (sariq@texas.net) wrote:
: I'd think that
:
: !/^abc/ and print "ok";
:
: would be faster.
And one of
/^abc/ or print "ok";
print "ok" unless /^abc/;
might be clearer.
--
| Craig Berry - http://www.cinenet.net/users/cberry/home.html
--*-- "Beauty and strength, leaping laughter and delicious
| languor, force and fire, are of us." - Liber AL II:20
------------------------------
Date: Thu, 15 Jun 2000 00:21:18 +0800
From: "Swee Heng" <sweeheng@usa.net>
Subject: Re: [Q] clarifications on [@array_name] + some MIME::Lite
Message-Id: <8i8b2i$fnp$1@violet.singnet.com.sg>
> I have been trying to debug a problem with an email program,
> (using MIME::Lite), and the only thing left for me to check is the
> proper creation of a list of recepients. I don't have much knowledge
> about Perl, but I thought the following process was fine:
> - open a file where all the recipient addresses are listed one/line;
> - feed an array with each line, if it matches the proper format, i.e.
> while ($line = <MYFILE>)
> # ....... other things
> if ($line =~ m/^.*@.*/)
> {
> @recipient = (@recipient,$line);
> # ........ other things
> - use the array created above, as follows:
> $mime = new MIME::Lite(From => $whatever_sender,
> To => [@recipient],
MIME::Lite seems to expect a string of the form:
userA@domainA.org, userB@domainB.org, ...
Note the , and space. Hence changing that line to:
To => (join ', ', @recipient),
should work. At least, it did for me. OTOH,
To => (join ',', @recipient),
seems to fail.
> On the sdame note - I started reading Chapter 4 of Programming
> Perl, but I don't think I quite got the grasp of the [@whatever_array]
> thing - would anybody care to explain the mechanism of "unrevaling"
You are making an anonymous array out of @whatever_array. See "perldoc
perlref" for more info.
> the list into the MIME::Lite ... To=> portion? Am I really getting a
> comma delimited list the way the MIME::Lite expects it?
No. Use join() as demonstrated above.
> Can I get rid of reference in some way?
De-reference it. See "perldoc perlref".
> P.S. somebody was kind enough to suggest me some improvements (e.g.
> using push, instead of @recipient = (@recipient,$line)), and I
> appreciate such advises, but my main focus right now is figuring out
> why only the first in a llist gets the message. Thx.
I think now you can move on to using push(). :o)
Swee Heng
------------------------------
Date: Wed, 14 Jun 2000 14:07:06 -0400
From: Eryq <eryq@zeegee.com>
Subject: Re: [Q] clarifications on [@array_name] + some MIME::Lite
Message-Id: <3947C9CA.2E921B48@zeegee.com>
mitiste@charlie.iit.edu wrote:
> $mime = new MIME::Lite(From => $whatever_sender,
> To => [@recipient],
Not what you want. You need to supply the 'To' field exactly as it
is meant to appear in the outgoing message, which for you means a
comma-separated list of recipients:
To => join(', ', @recipient)
This is true for all the standard mail header fields: the string
you give them is the string that gets used in the message.
An array ref means multiple occurrences of the field.
I suspect that MIME::Lite would benefit from a "high-level"
field like this:
ToAddrs => [@addrlist]
but currently this does not exist, since the syntax above
is easy enough to generate.
Eryq
------------------------------
Date: Wed, 14 Jun 2000 14:09:26 -0400
From: Eryq <eryq@zeegee.com>
Subject: Re: [Q] clarifications on [@array_name] + some MIME::Lite
Message-Id: <3947CA56.5B680B65@zeegee.com>
Swee Heng wrote:
> Note the , and space. Hence changing that line to:
> To => (join ', ', @recipient),
> should work. At least, it did for me. OTOH,
> To => (join ',', @recipient),
> seems to fail.
Hmmm... sounds like a bug. I'd better fix that.
Eryq
------------------------------
Date: Wed, 14 Jun 2000 16:37:12 -0500
From: mitiste@charlie.iit.edu
Subject: Re: [Q] clarifications on [@array_name] + some MIME::Lite
Message-Id: <6eufksg8sup1vof4dh8ui5236hev16qrtk@4ax.com>
On Wed, 14 Jun 2000 14:07:06 -0400, Eryq <eryq@zeegee.com> wrote:
>mitiste@charlie.iit.edu wrote:
>
>> $mime = new MIME::Lite(From => $whatever_sender,
>> To => [@recipient],
>
>Not what you want. You need to supply the 'To' field exactly as it
>is meant to appear in the outgoing message, which for you means a
>comma-separated list of recipients:
>
> To => join(', ', @recipient)
>
>This is true for all the standard mail header fields: the string
>you give them is the string that gets used in the message.
>An array ref means multiple occurrences of the field.
>
>I suspect that MIME::Lite would benefit from a "high-level"
>field like this:
>
> ToAddrs => [@addrlist]
>
>but currently this does not exist, since the syntax above
>is easy enough to generate.
>
>Eryq
Swee Heng and Eryq - thanks to both - it worked. One
minor observation, though. I used to have it when it worked with the
[@whatever] option - I have no idea why it stopped (I thought
initially that it was a different version of Perl I was running on an
NT box, vs. Linux, but it wasn't!), but then I lost the NT (4.0) box
altogether, moved to 2000 (just for the sake of it), and it stopped
working in 2000 also. So - I had to finally appeal for some help - and
I got it!
As a side note, though (as I am being stubborn): do you see this being
possible (or why - as I know it was!):
- NT 4.0 - Activestate Perl 5.005_03 - the email portion worked with
the [@whatever] concept;
- Linux with Perl 5.005_03 - [@whatever] failed
- W2K with same Perl as NT4.0 - [@whatever] failed?
Thanks again for your help,
Stef
------------------------------
Date: Wed, 14 Jun 2000 15:29:15 GMT
From: Andre-John Mas <ajmas@bigfoot.com>
Subject: [Q] Perl implemented in Java?
Message-Id: <8i88bj$db$1@nnrp1.deja.com>
Hi,
Could anyone tell me whether a version Perl has been implemented
in Java. The reason being, that I am looking for a scripting
language that can run on machines using a java only system. Currently
the only candidate I have found is JPython, though I tend to prefer
a JPerl if such a beast exists.
Andre
--
http://www.bigfoot.com/~ajmas/
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 14 Jun 2000 10:45:39 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: [Q] Perl implemented in Java?
Message-Id: <Pine.GSO.4.10.10006141043440.5301-100000@user2.teleport.com>
On Wed, 14 Jun 2000, Andre-John Mas wrote:
> Could anyone tell me whether a version Perl has been implemented
> in Java.
It would be possible, but very difficult and probably quite slow. For
example, Perl's regular expressions compile into quite efficient codes -
but nothing like that would be possible in Java. (But if someone
disagrees, I'd be glad to be proven wrong. :-)
But I know of no beast such as you describe. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 14 Jun 2000 15:13:55 -0700
From: Employer <jenniferbNOjeSPAM@oreilly.com.invalid>
Subject: A Computer Programmers Profile
Message-Id: <073055cc.658194f0@usw-ex0106-048.remarq.com>
Hello. I am looking to create a "computer programmers profile". I am
looking to find out:
Where do computer programmers "hang out" on the Internet?
What websites do they visit?
What magazines do they read?
How old are they generally?
I am looking for this information in the interest to be able to find
computer programmers for employment when I need them. They have been
hard to find (the good ones anyway), and I am trying to find them!!
Thanks for your help.
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Wed, 14 Jun 2000 17:41:48 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: A Computer Programmers Profile
Message-Id: <3947FC1C.A5C231CB@attglobal.net>
Employer (whose email address is jenniferbje@oreilly.com) wrote:
>
(...)
>
> I am looking for this information in the interest to be able to find
> computer programmers for employment when I need them. They have been
> hard to find (the good ones anyway), and I am trying to find them!!
>
Perhaps you should start in a newsgroup dedicated to newusers.
Here you will learn all sorts of things about USENET, like manners
and what to post where. Here, for example, you have found a
technical discussion newsgroup. Your question is soooo close to
being a job posting, which is reserved for groups with the word
"jobs" in the title. Please be respectfull and try to remain
on topic in the future.
------------------------------
Date: Wed, 14 Jun 2000 17:10:02 -0700
From: "Ferk Da Jerk" <shawnball@uswest.net>
Subject: Re: A Computer Programmers Profile
Message-Id: <c7T15.1283$li3.28065@news.uswest.net>
Hey I am Andrew and I guess I call my self a computer programmer. I'm only
14, and so far in my life I have not found a programmer under the age of 16
except me. I started at the age 10. I made websites with HTML. Over 4
years I have learned HTML, JavaScript, Style Sheets, Perl/CGI, and C.
Currently I'm still learning more C, C++, JAVA, and comming up I will learn
ASP. All I really do on the Internet and computer is make programs. I
ussually never go to chat rooms, but I'm always in the Newsgroups. This one
is probably my favorite. My favorite website probably is my own
(http://blacknwhite.virtualave.net/), even though it's not done. My
favorite search engines are Google, TechCrawler, and Yahoo. Like I said I
never in chat rooms, but I have almost all Instant messagers. My favorite
TV show is probably ZDTV, the computer channel. I like to read Tech
magazines. Other than programming I love to watch and invest in the stock
market. Programming is alot of math stuff and before I learned any
programming language I was awesome in math. So when I started programming a
lot of the stuff was pretty easy to me. And now as I go on into Algebra 2
it is super easy. I learned a lot of the stuff from programming. My
favorite books are probably reference books, programming and electronics.
If your looking for a great worker I can do it and I need much money. At
least $15 per hour.
Employer <jenniferbNOjeSPAM@oreilly.com.invalid> wrote in message
news:073055cc.658194f0@usw-ex0106-048.remarq.com...
> Hello. I am looking to create a "computer programmers profile". I am
> looking to find out:
>
> Where do computer programmers "hang out" on the Internet?
> What websites do they visit?
> What magazines do they read?
> How old are they generally?
>
> I am looking for this information in the interest to be able to find
> computer programmers for employment when I need them. They have been
> hard to find (the good ones anyway), and I am trying to find them!!
>
> Thanks for your help.
>
>
> * Sent from RemarQ http://www.remarq.com The Internet's Discussion Network
*
> The fastest and easiest way to search and participate in Usenet - Free!
>
------------------------------
Date: Wed, 14 Jun 2000 21:47:50 GMT
From: marcel@codewerk.com (Marcel Grunauer)
Subject: Re: A Computer Programmers Profile
Message-Id: <slrn8kfvmf.6no.marcel@codewerk.com>
On Wed, 14 Jun 2000 15:13:55 -0700, Employer
<jenniferbNOjeSPAM@oreilly.com.invalid> wrote:
>Hello. I am looking to create a "computer programmers profile". I am
>looking to find out:
Sure, jennifer.
>Where do computer programmers "hang out" on the Internet?
Mostly in front of their screens, I suppose.
>What websites do they visit?
*mumble* porn *mumble*
>What magazines do they read?
Oh, I like Hello magazine. And "Good Housekeeping". Not so sure about
"Florida Architecture", though.
>How old are they generally?
Generally, they are between 4 and 95 years old. And they are all the
same, look the same, have the same interests, read the same magazines
etc. What a boring bunch!
>I am looking for this information in the interest to be able to find
>computer programmers for employment when I need them. They have been
>hard to find (the good ones anyway), and I am trying to find them!!
You're on the right track; don't give up! I'm not a computer programmer,
but if you ever need help with your fingernails, let me know!
>Thanks for your help.
HTH. HAND.
--
Marcel
sub AUTOLOAD{($_=$AUTOLOAD)=~s;^.*::;;;y;_; ;;print} Just_Another_Perl_Hacker();
------------------------------
Date: Wed, 14 Jun 2000 09:58:34 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: A Question? Net::Ping not returning anything? tiny sample program.
Message-Id: <Pine.GSO.4.10.10006140954430.5301-100000@user2.teleport.com>
On Wed, 14 Jun 2000, Robert Chalmers wrote:
> I'm trying to figure why the following code doesn't return anything?
> No errors, nothing.
That's what it's supposed to do if the ping didn't succeed.
> The ip is the machine it's running on. ??
The ping that you're doing won't succeed if the remote machine (or in this
case, the same machine) doesn't support the udp echo service. This should
be made more clear in the module's docs, but it's in there.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 14 Jun 2000 10:14:43 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: A Question? Net::Ping not returning anything? tiny sample program.
Message-Id: <Pine.GSO.4.10.10006141013440.5301-100000@user2.teleport.com>
On Wed, 14 Jun 2000, Ted Marz wrote:
> It seems (at least on a RedHat 6.2 system with perl 5.5.3 and an
> augmented libwww (not from the rpm distribution) that a "dot" notation
> ip address does not resolve.
Sounds like a bug in the RedHat distribution of Perl. Wouldn't be the
first! But I don't _think_ it was the problem in this case.
Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 14 Jun 2000 13:21:52 -0400
From: Ted Marz <tfm@sei.cmu.edu>
Subject: Re: A Question? Net::Ping not returning anything? tiny sample program.
Message-Id: <3947BF30.BAA60C88@sei.cmu.edu>
Yes, the documentation is pretty bad.
I also just figured out that I didn't have the echo service running on
the machines I was trying to Ping with the default Net::Ping. I had
some interesting behavior.
The Ping appeared to complete, but the recv() call actually returned
undef, which wasn't examined by the module code. The module then went
and tried to interpret the response (normally a sockaddr_in value), and,
since it was undef, the call to
unpack_sockaddr_in generated a runtime error (bad length in the unpack)
and the script failed.
The ping_udp and ping_tcp (at least) scripts really ought to do better
return value checking. Remember, just because select() says that there
is something there doesn't mean that there is REALLY something there in
all cases.
Ted Marz
Tom Phoenix wrote:
>
> On Wed, 14 Jun 2000, Robert Chalmers wrote:
>
> > I'm trying to figure why the following code doesn't return anything?
> > No errors, nothing.
>
> That's what it's supposed to do if the ping didn't succeed.
>
> > The ip is the machine it's running on. ??
>
> The ping that you're doing won't succeed if the remote machine (or in this
> case, the same machine) doesn't support the udp echo service. This should
> be made more clear in the module's docs, but it's in there.
>
> Cheers!
>
> --
> Tom Phoenix Perl Training and Hacking Esperanto
> Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Wed, 14 Jun 2000 16:41:30 -0500
From: "Russell J. LeBar" <argel@email.sn.com>
Subject: Re: accessing file with samba
Message-Id: <#gne8jk1$GA.324@cpmsnbbsa07>
I would think there is a chance that Perl would be high-level enough to be
calling standard OS file routines (in other words, it might be able to
handle UNC names -- just remember to escape all your backslashes).
Creating a mapped drive would also work. Just be careful in your script to
both create the mapped drive and then remove it when done (useful if you are
running the script via 'at' or some other service).
"Trevor Sky Garside" <trevor@trevorsky.com> wrote in message
news:zOB15.70$C02.55429@news.pacbell.net...
> "Paula Jakobs" <pjakobs@wt.net> wrote in message
> news:3946BB2A.26991561@wt.net...
> > I'm running a script from our NT machine that needs to access a file on
> > our linux machine. I have Samba set-up to do sharing on the directory
> > where the file is located, and I can get to it fine from windows
> > explorer. I'm having problems figuring out how to access it from the
> > perl script.
> >
> > The windows path to the file is:
> >
> > \\Www\RRS\data\1050-1104001.txt
> >
>
>
> I do not know any way to handle this directly in Perl (does anybody
else?),
> but I can suggest a possible solution: map your "Www" samba share into a
> drive letter and reference the file as if it were local.
>
> --Trevor
>
>
------------------------------
Date: Wed, 14 Jun 2000 19:05:19 +0100
From: "James" <fromnews@pagepool.co.uk>
Subject: Active Perl
Message-Id: <8i8hhf$nve$1@gxsn.com>
When I use the active perl to open a .pl file it exits the MS-DOS program
without leaving a split second to read the output of the program. How can
this be delt with?
James Boulter
james@thoughtfortheday.org
http://www.thoughtfortheday.org - An inspirational and topical thought to
start your day.
------------------------------
Date: Wed, 14 Jun 2000 13:22:59 -0500
From: "Timothy H. Schilbach" <tschilbach@aodinc.com>
Subject: Re: Active Perl
Message-Id: <8i8ii1$jjd$1@news.chatlink.com>
Hello,
Go to your command prompt (dos window) and run the program from there,
this will allow you to see everything. I suggest using some error checking.
perl -cw yourperlfile
Thats it, make sure you in the directory of the .pl file your trying to use.
--
Timothy H. Schilbach
Alpha Omega Design Inc.
tschilbach@aodinc.com
1-877-263-7094
Visit our website at www.aodinc.com
"James" <fromnews@pagepool.co.uk> wrote in message
news:8i8hhf$nve$1@gxsn.com...
> When I use the active perl to open a .pl file it exits the MS-DOS program
> without leaving a split second to read the output of the program. How can
> this be delt with?
>
>
> James Boulter
> james@thoughtfortheday.org
> http://www.thoughtfortheday.org - An inspirational and topical thought to
> start your day.
>
>
------------------------------
Date: Wed, 14 Jun 2000 18:44:58 GMT
From: peter@berghold.net (Peter L. Berghold)
Subject: Re: Active Perl
Message-Id: <slrn8kfhf6.pb9.peter@ptboat.berghold.net>
On Wed, 14 Jun 2000 19:05:19 +0100, concerning discussion about Active Perl
James formed electrons and spake thusly:
*]When I use the active perl to open a .pl file it exits the MS-DOS program
*]without leaving a split second to read the output of the program. How can
*]this be delt with?
*]
open(STDOUT,">somefile");
open(STDERR,">>somefile");
That should do ya....
--
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
Peter L. Berghold http://www.berghold.net
Peter@Berghold.Net Linux Bigot at Large
"Linux renders ships... Windows NT renders ships useless..."
------------------------------
Date: Wed, 14 Jun 2000 21:36:21 +0100
From: "Robert Metcalf" <r.meEEEtcalfNOSPAM@exXXX.acCCC.ukKKK>
Subject: Re: Active Perl
Message-Id: <8i8q8c$amdd$1@athena.ex.ac.uk>
I always set it's properties so that close on exit is false
"James" <fromnews@pagepool.co.uk> wrote in message
news:8i8hhf$nve$1@gxsn.com...
> When I use the active perl to open a .pl file it exits the MS-DOS program
> without leaving a split second to read the output of the program. How can
> this be delt with?
>
>
> James Boulter
> james@thoughtfortheday.org
> http://www.thoughtfortheday.org - An inspirational and topical thought to
> start your day.
>
>
------------------------------
Date: Wed, 14 Jun 2000 16:45:19 -0400
From: Drew Simonis <care227@attglobal.net>
Subject: Re: Active Perl
Message-Id: <3947EEDF.980904F7@attglobal.net>
Robert Metcalf wrote:
>
> I always set it's properties so that close on exit is false
> "James" <fromnews@pagepool.co.uk> wrote in message
> news:8i8hhf$nve$1@gxsn.com...
> > When I use the active perl to open a .pl file it exits the MS-DOS program
> > without leaving a split second to read the output of the program. How can
> > this be delt with?
> >
This... is... Jeopardy!
------------------------------
Date: Wed, 14 Jun 2000 22:05:21 +0100
From: "James" <fromnews@pagepool.co.uk>
Subject: Re: Active Perl
Message-Id: <8i8s30$1ga$1@gxsn.com>
Thankyou to all of you who gave a sensible answer.
"James" <fromnews@pagepool.co.uk> wrote in message
news:8i8hhf$nve$1@gxsn.com...
> When I use the active perl to open a .pl file it exits the MS-DOS program
> without leaving a split second to read the output of the program. How can
> this be delt with?
>
>
> James Boulter
> james@thoughtfortheday.org
> http://www.thoughtfortheday.org - An inspirational and topical thought to
> start your day.
>
>
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 3355
**************************************
