[9842] in Perl-Users-Digest
Perl-Users Digest, Issue: 3435 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Aug 13 04:07:15 1998
Date: Thu, 13 Aug 98 01:00:29 -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 Thu, 13 Aug 1998 Volume: 8 Number: 3435
Today's topics:
Re: $SIG{ALRM} question <maryesme@mail.localaccess.com>
A glob - Problem (or a map ??) (Frank Zimmermann)
Re: Analyzing HTTP traffic? <erict@cc.wwu.edu>
Re: Analyzing HTTP traffic? paydirt@freemail.yeehaa.com
bhuston's JAPHs (Bill Huston )
Re: bhuston's JAPHs (brian d foy)
Re: Calculate Date in Perl ngong@my-dejanews.com
Re: checking if files exist <tchrist@mox.perl.com>
Re: dates in excess of 2037 (A Problem???) (Martin Vorlaender)
Re: floating point number precision? (GEMINI)
Re: hiding user input (Patrick Timmins)
Re: how to (Andre L.)
Re: how to (Andre L.)
Re: I'm new but know what I need. (Scott Willsey)
Net::FTP problem. (Kou Sato)
Re: ODBC, Perl, Unix and Macs (William Burrow)
Perl and catching alarms <riddles@ipe.nl>
Perl Conference 2.0 Perl Monger Happenings (brian d foy)
Re: Perl script interaction with external application paydirt@freemail.yeehaa.com
Re: run external program from perl paydirt@freemail.yeehaa.com
Re: socket: read on close filehandle ??? (Martien Verbruggen)
Strange problem with PERLGLOB.EXE remiraz@my-dejanews.com
Re: What's the difference? (Mark-Jason Dominus)
Re: Win NT Formmail and opening temporary files (Ethan H. Poole)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 12 Aug 1998 22:33:36 -0700
From: Mark Lybrand <maryesme@mail.localaccess.com>
Subject: Re: $SIG{ALRM} question
Message-Id: <35D27AAF.BF1@mail.localaccess.com>
> (You do recognize, of course, that the subroutine is anonymous,
> and we are using a reference to it, right? We are not calling
> it; we are assigning the reference to $SIG{ALRM}.)
Yeah, that reference thing was my actual problem. I was under the
mistaken assumption that the sub was returning some value, when what is
really happening is that a reference to the anonymous sub is assigned to
the alarm signal (the old alarm signal being shipped off to $oldsig).
When the alarm goes off, the sub runs. At that point $msg gets set and
$SIG{ALRM} gets its old value back (so as to leave everything in its
pristine state).
Thanks for the response. Luckily, RJDsys@world.std.com helped me with
this by email last night. Your post did remind me of my poor
netiquette, as I had failed to post the summary of my query for the rest
of the group (I pray the NG gods take pity on my soul).
Thanks again.
Mark :)
------------------------------
Date: Thu, 13 Aug 1998 07:03:46 GMT
From: fz@hlsv.de (Frank Zimmermann)
Subject: A glob - Problem (or a map ??)
Message-Id: <35d28c99.4413426@172.16.254.11>
I want to get a file list of all (*.foo|*.bar) files in the current
directory. (Working with linux/bash)
I used
@filelist = map{ glob($_)} "*.foo", "*.bar";
But now it happens that some filenames have one or more
space(s) in it: "firstpart__seconpart.foo"
This gave me 2 nonsense entrys resp..
"firstpart"
"secondpart.foo"
How can I solve this problem?
Frank.
--
fz@hlsv.de
--
Frank Zimmermann
HLSV / ZV4
Tel : 0511 8073 - 795
email: fz@hlsv.de
------------------------------
Date: Wed, 12 Aug 1998 23:17:50 -0700
From: Eric Turner <erict@cc.wwu.edu>
Subject: Re: Analyzing HTTP traffic?
Message-Id: <35D2850E.4C991BCB@cc.wwu.edu>
wayne.pierce@usa.net wrote:
>
> I've got a slight problem and would like to know if Perl can help with it.
>
> What I have to do is scan all HTTP traffic on our network at the firewall
> (running BSD) and create log files for each domain. In the log file for that
> domain it will have all the hosts that went there, total number of accesses,
> etc. (I haven't been told the full details yet).
>
> My main question, before I even start to try and write anything, is if there
> is a way for Perl to intercept the HTTP traffic. Because of the box this is
> on I don't have the ability to modify anything so it would all have to be
> done via the Perl script. Perl would need to intercept the HTTP traffic,
> analyze it, then pass it back to the firewall (without changing the host IP
> info).
>
> If anyone has any pointers or ideas on how this could be done I would be most
> grateful.
>
> Thanks for any help,
>
> Cpl Pierce, Wayne A. Network Engineer Marine Corps Air Station Miramar
If you're running Apache it creates a detailed log file in
httpd/logs/access_log (I have Apache running on Linux and my access_log
is located in the /var/lib/httpd/logs/ directory) which should be
sufficient for your purposes.
Eric Turner
--
erict@cc.wwu.edu
------------------------------
Date: Thu, 13 Aug 1998 00:16:29 -0700
From: paydirt@freemail.yeehaa.com
Subject: Re: Analyzing HTTP traffic?
Message-Id: <35D292CD.2043BA56@freemail.yeehaa.com>
wayne.pierce@usa.net wrote:
> I've got a slight problem and would like to know if Perl can help with it.
>
> What I have to do is scan all HTTP traffic on our network at the firewall
> (running BSD) and create log files for each domain. In the log file for that
> domain it will have all the hosts that went there, total number of accesses,
> etc. (I haven't been told the full details yet).
>
> My main question, before I even start to try and write anything, is if there
> is a way for Perl to intercept the HTTP traffic. Because of the box this is
> on I don't have the ability to modify anything so it would all have to be
> done via the Perl script. Perl would need to intercept the HTTP traffic,
> analyze it, then pass it back to the firewall (without changing the host IP
> info).
>
I don't think it would be possible for Perl to intercept traffic. For that to
work, Perl would have to establish a listening connection on the port 80 which
normally your webserver software uses. Since it is already being used by your
webserver software, Perl will not listen on it.
>
>
>
> If anyone has any pointers or ideas on how this could be done I would be most
> grateful.
Correct me if I am wrong, but isn't this what syslog is for? BSD should have
that. Also, your webserver should have a whole bunch of logging options.
~Prime
------------------------------
Date: 13 Aug 1998 04:01:40 GMT
From: bhuston@zeus.anet-chi.com (Bill Huston )
Subject: bhuston's JAPHs
Message-Id: <6qtof4$lp6$1@news1.anet.com>
bhuston's JAPHs. See if you can figure out how they work...
I'll put your name on my web page if you can... email: bhuston@eden.com
Randall can't play! (but glad your're still free! -- & thanks
for signing my tattered Camel in Chi-town!)
1) pretty easy:
for(unpack(C25,unpack(u15,'9`!],29X)/4E%5DT]G!HU/5"6`E%(0E`]D`#_'
))){$a-=$_-74;print chr $a}
2) My favorite: (Bonus: Is it a closure??)
@_='9!A0!!EE!.0X8!$4;4W`"%P))\'1)"2D13#0``';sub a{$a=shift,return
sub{print unpack(u,$a)^shift}}&{&a}("Larry Wall is genius!!!!!")
--
Bill Huston, US Congressional Candidate, 10th District of Illinois
http://www.eden.com/~bhuston (bookmark here! mu is moving soon)
"If you can't say 'fuck', you can't say 'fuck the government!'"
-- Lenny Bruce
------------------------------
Date: Thu, 13 Aug 1998 02:33:03 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: bhuston's JAPHs
Message-Id: <comdog-ya02408000R1308980233030001@news.panix.com>
Keywords: from just another new york perl hacker
In article <6qtof4$lp6$1@news1.anet.com>, bhuston@zeus.anet-chi.com (Bill Huston ) posted:
>bhuston's JAPHs. See if you can figure out how they work...
>2) My favorite: (Bonus: Is it a closure??)
>
>@_='9!A0!!EE!.0X8!$4;4W`"%P))\'1)"2D13#0``';sub a{$a=shift,return
>sub{print unpack(u,$a)^shift}}&{&a}("Larry Wall is genius!!!!!")
it's basically
print unpack(u, '9!A0!!EE!.0X8!$4;4W`"%P))\'1)"2D13#0``') ^
"Larry Wall is genius!!!!!";
if you want a closure use lexical variables...
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Conference Quiz Show <URL:http://tpj.com/tpj/quiz-show>
------------------------------
Date: Thu, 13 Aug 1998 07:42:45 GMT
From: ngong@my-dejanews.com
Subject: Re: Calculate Date in Perl
Message-Id: <6qu5dl$5g6$1@nnrp1.dejanews.com>
I wanna know how I can calculate a new date, given an initial date and an
offset which may be positive or negative in days, in order to answer
questions like "today plus 90 days -- what date gives that ?, by using CGI.pm
and POSIX like your suggestion following :
> Use CGI.pm and POSIX this way:
> #!/path/to/perl/or/whatever -w
> use CGI qw(:standard);
> use POSIX 'strftime';
> print("Content-type: text/html\n\n");
> print("<html>\n");
> print("<head>\n");
> print("<title>This is a test</title>\n");
> print("</head>\n");
> print("<body>\n");
> $format =3D '%d %B %Y';
> $current_time =3D strftime($format,localtime);
> print "The day is ", $current_time, ".";
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 13 Aug 1998 04:22:13 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: checking if files exist
Message-Id: <6qtpll$1ca$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc,
sitaram@diac.com (Sitaram Chamarty) writes:
:That'll only tell you if the dir has no subdirs, nothing to do
:with files existing in it...
UG. At some point, my brain changed what my eyes saw as 'files'
into 'directories'.
--tom
--
"A journey of a thousand miles continues with the second step." --Larry Wall
------------------------------
Date: Thu, 13 Aug 1998 07:07:53 +0200
From: martin@RADIOGAGA.HARZ.DE (Martin Vorlaender)
Subject: Re: dates in excess of 2037 (A Problem???)
Message-Id: <35d274a9.524144494f47414741@radiogaga.harz.de>
Lloyd Zusman (ljz@asfast.com) wrote:
: Just out of curiosity, do you know their rationale for choosing
: 17-nov-1858 as the beginning of the epoch?
It has to do with Julian day counting. The Julian base day is 1-JAN-4713
B.C. (or so...), so numbers are getting quite large in our days.
17-NOV-1858 is Julian day 2,450,000 , and was chosen for convenience, AFAIK.
cu,
Martin
--
| Martin Vorlaender | VMS & WNT programmer
OpenVMS: Where do you | work: mv@pdv-systeme.de
want to BE today? | http://www.pdv-systeme.de/users/martinv/
| home: martin@radiogaga.harz.de
------------------------------
Date: 13 Aug 1998 05:55:14 GMT
From: dennis@info4.csie.nctu.edu.tw (GEMINI)
Subject: Re: floating point number precision?
Message-Id: <6qtv42$rl3$1@netnews.csie.NCTU.edu.tw>
Dermot McKay (MCKAYD@aplbt1.agw.bt.co.uk) wrote:
: In article <6qrqsm$kpe$1@netnews.csie.NCTU.edu.tw>, dennis@info4.csie.nctu.edu.tw (GEMINI) wrote:
: >hi all,
: > I need to do calculation using floating point number in my perl
: >program. Execept for Math::BigFloat module,
: >do I have any option to decide the precision of the floating point number?
: >such as the float or double for C, or the
: >REAL*4, REAL*8, and REAL*16 for fortran?
: >
: >thanks.
:
:
: printf "%.3f added to %.3f equals %.3f\n", $num1, $num2, ($num1+$num2);
:
: you can use this type of format.
:
what I concern is not the matter of output precision,
but the precision of internal arithmetical operations.
I'd like to use more precise floating point number
to reduce the truncation errors during arithmetic.
with a 64-bit architecture, if it can provide 128bit floating point
number by 2 words, it will have much more precision.
------------------------------
Date: Thu, 13 Aug 1998 04:14:46 GMT
From: ptimmins@netserv.unmc.edu (Patrick Timmins)
Subject: Re: hiding user input
Message-Id: <6qtp7m$lqr$1@nnrp1.dejanews.com>
In article <35d21e06.0@news2.lightlink.com>,
schissel@adore.lightlink.com (Eric Schissel) wrote:
> Miguel Cruz (mnc@diana.law.yale.edu) wrote:
[snip]
> >I don't understand this logic. I can not think of very many (okay, some,
> >save your fingers) "public" things in the United States which do not depend
> >entirely or in part on private technology and infrastructure. Does private
> >contaminate public?
>
> Curiously, private industry in the US is at least, if not more, dependent
> on publicly-funded R&D. And are the roads "private"? To my mind you have
> your finger on a very important, rarely-realized point- but you have it
> exactly backwards.
>
> Ob Perl: this same thread (on hiding user input) recently started,
> continued, and ended on the MacPerl list- without a hint of the rancor
> that seems to have hit it here...
>
> -Eric Schissel
>
> --
> schissel@lightlink.com
> http://www.lightlink.com/schissel ICQ#7279016
> standard disclaimer
>
This has nothing to do with Perl, plus it's a load of communist crap.
What, so you think that just because the government takes your money and
then tells you how it will be spent that this means *they* are the
source of it? Ha Ha Ha! Your indoctrination is coming along fine, isn't
it comrade?
I suppose there is government construction company that builds all the
roads, and not a patchwork of large and small private contractors that
do the work? And the Air Force builds all of their own jets and weaponry
too, don't they!
Listen, just because some God-less nut says "Ooh! Ooh! I'm an intellectual!
If we can just run things according to my plan, all the pain and
suffering in the world will cease to exist! Let's start by killing all of
the non-intellectuals who don't agree with us!" doesn't make it true.
Likewise, just because the government takes your money and spends it in
support of say, some art endowment, that doesn't make them the artist.
But I'm sure I'm wasting my breath. You're probably so far in, that you
actually believe you are nothing without the state.
Good luck in your struggle.
Patrick Timmins
U. Nebraska Medical Center
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Wed, 12 Aug 1998 23:53:58 -0500
From: alecler@cam.org (Andre L.)
Subject: Re: how to
Message-Id: <alecler-1208982353580001@dialup-800.hip.cam.org>
In article <alecler-1208982350260001@dialup-800.hip.cam.org>,
alecler@cam.org (Andre L.) wrote:
> $s =~ s/(..)(?!$)/$1:/gi;
Shoot! Who needs an /i here?
A.L.
------------------------------
Date: Wed, 12 Aug 1998 23:50:26 -0500
From: alecler@cam.org (Andre L.)
Subject: Re: how to
Message-Id: <alecler-1208982350260001@dialup-800.hip.cam.org>
In article <35D23831.EB869767@lfc.edu>, ritter@lfc.edu wrote:
[...]
> I am new to perl, and I can't seem to figure out a way to get perl to
> take the array element, and insert a colon every two characters.
>
> Here is an example of what I have, and what I want perl to do with it:
>
> someArray[1] = 008894fg7t44
>
> I want perl to change it to:
>
> someArray[1] = 00:88:94:fg:7t:44
^(check your syntax)
An opportunity for a negative lookahead assertion, maybe?
$s = '008894fg7t44';
$s =~ s/(..)(?!$)/$1:/gi;
print "$s\n";
Andre
------------------------------
Date: Thu, 13 Aug 1998 06:39:31 GMT
From: hangtown_nospam@thelostweb.com (Scott Willsey)
Subject: Re: I'm new but know what I need.
Message-Id: <35d789f7.5683021@news.calweb.com>
On Mon, 10 Aug 1998 18:01:32 +1200, Dominic
<bblue@customerofihug.co.nz> wrote:
>
>It's a TV site, looking at how the Internet
>could be transforming TV.
>
You mean like how I get my TV listings online now, instead of having
to buy TV guide??
Scott
.................................................
Please edit the email address to reply
------------------------------
Date: 13 Aug 1998 07:31:01 GMT
From: k-sato@res.otaru-uc.ac.jp (Kou Sato)
Subject: Net::FTP problem.
Message-Id: <6qu4nl$81i$1@asahi.ipc.otaru-uc.ac.jp>
Hi. I love perl, but I have a problem these days with Net::FTP of
libnet-1.0605 with perl-5.00501.
ftp->login and ftp->cd works fine, but ftp->dir or ftp->ls
fails with the following message:
Can't locate object method "new" via package
"Net::FTP::A" at /usr/local/lib/perl5/5.00501/i386-freebsd/IO/Socket.pm
line 253.
though it worked with perl5.00404 and libnet-1.0605.
I reinstalled perl5.00404 and the modules, but the same thing happens
(of course, the directory in the message was different).
Another change of (or in?. I don't know the proper preposition, sorry)
condition I can think of is that I upgraded the OS from FreeBSD 2.1.0
to 2.2.6 before I installed perl.
What caused this? Could someone help me?
Thank you.
-
Koh Sato
------------------------------
Date: 13 Aug 1998 02:39:33 GMT
From: aa126@NOSPAM.fan.nb.ca (William Burrow)
Subject: Re: ODBC, Perl, Unix and Macs
Message-Id: <slrn6t4kf5.c8.aa126@fan1.fan.nb.ca>
On Wed, 12 Aug 1998 15:30:16 GMT,
Tim Haynes <thaynes@openlinksw.co.uk> wrote:
>You're more right than wrong here.
>The Perl CPAN archive has several database interfaces, some for native access
>like Postgresql, Oracle, etc, and one or two for ODBC, in particular DBI/DBD,
>or Win32::ODBC. These are add-ins to the regular Perl distribution, and still
>require an ODBC driver.
Could you clarify further? If you have a Win32 box, and Win32::ODBC with
Perl, could you say deal with an ODBC DB like Access with no further ado,
or does something else need to be purchased or found and loaded onto the
machine?
--
William Burrow, VE9WIL -- New Brunswick, Canada o
Copyright 1998 William Burrow ~ /\
~ ()>()
------------------------------
Date: Thu, 13 Aug 1998 06:52:40 GMT
From: Mark Wormgoor <riddles@ipe.nl>
Subject: Perl and catching alarms
Message-Id: <6qu2fo$1cc$1@nnrp1.dejanews.com>
Hi,
Could somebody please tell me what's wrong in the following eval{}? I'm using
this in Perl 5.004 but it won't catch the alarm. The progam dies with 'Alarm
clock' and that's it.... The eval I used is almost exactly the one described
in the perlipc docs...
----------------------------------------------------------------------------
eval {
local $SIG{ALRM} = sub {die "Connect failed"};
alarm 10;
$remote = IO::Socket::INET->new(Proto =>"tcp",
PeerAddr=> "www.domain.com",
PeerPort=> "80");
alarm 0;
close($remote);
};
if ($@ && ($@ =~ /failed/)) {
print "Connect failed!\n";
} else
print "Connected succesfully!\n";
};
Kind regards,
Mark Wormgoor
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Wed, 12 Aug 1998 17:10:21 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Perl Conference 2.0 Perl Monger Happenings
Message-Id: <comdog-ya02408000R1208981710210001@news.panix.com>
Keywords: from just another new york perl hacker
Perl Conference 2.0 Perl Monger Happenings
<URL:http://www.pm.org/ora_conf.html>
---------------------------------------------------------------------
Monday, August 17
---------------------------------------------------------------------
Monday Night With Randal Schwartz
7ish p.m. - ? a.m.
We've arranged to have the Monday Night With
Randal at the Tied House Brewery and Cafe (65 N.
San Pedro St) at 7ish pm. Make your way to the
patio in back or mention my name to the staff.
there should also be some Perl Mongers signs to
guide you to the right spot.
How to get there from the hotel
So there is no confusion - this is a Buy Your Own
Food and Drinks sort of thing, although they are
going to force us to put it all on one bill due to
the large number of people. showing up with small
bills and change would be appreciated. :)
---------------------------------------------------------------------
Tuesday, August 18
---------------------------------------------------------------------
Perl Mongers Birds of a Feather
7 - 8 p.m.
Location TBA at the conference.
SanFrancisco.pm Birds of a Feather
8 - 9 p.m.
Location TBA at the conference.
Fireside Chat With Jon Orwant
8:15 p.m. - 10 p.m.
An evening with Jon Orwant, publisher of The Perl
Journal and host of the Perl Conference Quiz Show.
Meet in the front of the hotel lobby then follow
the crowd.
---------------------------------------------------------------------
Wednesday, August 19
---------------------------------------------------------------------
MacPerl: Power and Ease Book Signing
Lunch time in the lunch area
Perl Mongers will host a MacPerl: Power and Ease
book signing with authors Chris Nandor (Boston.pm)
and Vicki Brown (SanFrancisco.pm), and MacPerl
creator Matthias Neeracher, Wednesday during the
lunch break. Look for the Perl Mongers signs and
the stack of MacPerl books.
This directly follows the MacPerl Q&A at 11:15.
There is also a MacPerl BOF at 8p.m. that evening.
MacPerl: Power and Ease will be available from
Perl Mongers throughout the conference. MacPerl:
Power and Ease is published by Prime Time
Freeware.
The Perl Quiz Show (co-sponsored by Perl Mongers)
4:30 p.m.
Location TBA at the conference.
"At the upcoming O'Reilly Perl Conference four
teams of up to three people will pit their
cerebrocomputational cortices against one another
in a Battle Royal. At the end of the hour, the
entire conference will know who has packed their
brains with useless Perl and Internet trivia, and
who's been getting real work done instead."
MacPerl Birds of a Feather
8 - 9 p.m.
Location TBA at the conference.
This isn't really a Perl Mongers event, but it's
sponsored by Chris Nandor (founder of Boston.pm)
and Vicki Brown (SanFrancisco.pm) with a special
guest appearance by Matthias Neeracher. They'll be
answering questions about MacPerl and talking
about Chris & Vicki's book, MacPerl: Power and
Ease published by Prime Time Freeware.
Social Hour With Chip Salzenberg
9 p.m. - 10 p.m.
An evening with Chip Salzenberg - Executive
Director of The Perl Institute. Chip was the
primary contributor and release manager for
perl5.004. Meet in the front of the hotel lobby
between 9 and 9:15 pm.
---------------------------------------------------------------------
* Note: the front of the hotel lobby is the
entrance on the green (you should see a park
across the one-way street. this is roughly the
west side of the building.
---------------------------------------------------------------------
--
brian d foy <comdog@computerdog.com>
Perl Monger.
------------------------------
Date: Thu, 13 Aug 1998 00:08:28 -0700
From: paydirt@freemail.yeehaa.com
Subject: Re: Perl script interaction with external application
Message-Id: <35D290EB.AEECC9F9@freemail.yeehaa.com>
Not really a Perl specialty, but Perl can help. You need to look into a
programming language called Expect. Expect is not hard to use at all,
and best of all it is Perl friendly. You can call an Expect program from
a Perl program, and pass information back and forth between the two. I
have used Expect before, and trust me, that is the language you need for
the task you are working on.
~Prime
Marco Goncalves wrote:
> Hello all,
>
> I have a question that I would really appreciate some help:
>
> Is it possible for a Perl script to interact directly (not using
> something like a telnet/socket) with an external application (like a
> Cobol program running on a Dos/Netware environment)?
>
> The Perl script would call the app and interact with it like a user
> would do it. A user that calls the application interacts with it
> making numbered choices. Example: the user would press 1, then press
> 3, input some info and then the application would return some data.
> The goal is for the perl script act as a user and return the returned
> data (by the app) for the browser that is accessing the Perl script.
>
> Is there some way of doing this only using plain Perl or there is
> some module that does it? This Perl script is supposed to run on
> Windows NT.
>
> If someone can help me clarify this subject I would be very thankful.
>
> (Please send answer with a copy to my address)
>
> Regards,
>
> Marco Goncalves
> marco@infnet.com.br
>
------------------------------
Date: Thu, 13 Aug 1998 00:11:29 -0700
From: paydirt@freemail.yeehaa.com
Subject: Re: run external program from perl
Message-Id: <35D291A1.4C16F34B@freemail.yeehaa.com>
I don't know how well this would fit your situation, but there was
another post similar to yours. I would recommend the same thing. Look
into a language called Expect. It is not hard to learn, and it works
well with existing applications, and Perl too.
~Prime
Steve . wrote:
> I have a UNIX perl program, where if something is true, it runs a
> program called "export" on the drive. How do you go about running
> programs outside of the perl program, let it do it's thing, and then
> return to do something else? Thanks.
>
> Steve
>
------------------------------
Date: 13 Aug 1998 04:11:02 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: socket: read on close filehandle ???
Message-Id: <6qtp0m$87o$1@nswpull.telstra.net>
In article <35CF4843.155EFE19@shifted-bytes.de>,
Michael Agbaglo <byteshifter@shifted-bytes.de> writes:
> This is a multi-part message in MIME format.
> --------------6212C57626F51740D94A619D
Please, don't do this. Usenet is a plain text medium.
> Read on closed filehandle <S> at ./x line 8.
> $S = IO::Socket::INET->new('localhost:25') or die "can't connect to socket";
>
> print while(<S>);
hint: S != $S
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | "In a world without fences,
Commercial Dynamics Pty. Ltd. | who needs Gates?"
NSW, Australia |
------------------------------
Date: Thu, 13 Aug 1998 06:35:56 GMT
From: remiraz@my-dejanews.com
Subject: Strange problem with PERLGLOB.EXE
Message-Id: <6qu1gc$ac$1@nnrp1.dejanews.com>
Hi all,
We're experiencing a strange problem with perlglob.exe under windows 95. On
some of our computers, using perglobl.exe causes the floppy disk to spin.
This is really annoying and takes adds a lot of time to program execution.
Anyone else experienced this problem. Got a solution (apart from dumping
Windows 95 :) ?
Thanks in advance,
David Kalnins
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 13 Aug 1998 01:01:24 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: What's the difference?
Message-Id: <6qtrv4$bq5$1@monet.op.net>
In article <35D2493F.C7EFDD43@shaw.wave.ca>,
Rick Delaney <rick.delaney@shaw.wave.ca> wrote:
>Is there a way of getting \w or \s in such a pattern without putting the
>pattern in a variable?
s/${\quotemeta '\w'}/Please pass the barf bags/g;
------------------------------
Date: 13 Aug 1998 06:56:46 GMT
From: ehp@gte.net (Ethan H. Poole)
Subject: Re: Win NT Formmail and opening temporary files
Message-Id: <6qu2ne$g26$1@news-1.news.gte.net>
In article <peaceml-1208981858390001@207-172-119-146.s146.tnt2.brd.erols.com>,
peaceml@erols.nospam.com says...
>
>I'm kind of new at this so forgive me if I'm asking for something that
>has been rehashed to death. I'm using Matt Wright's formmail.pl file with
>some modifications to make it work with softmail instead of Windmail. I
>can run this once with success. However if I do not unlink the temporary
>file nor manually delete the temporary file, I can not run again. It just
>hangs. I have eliminated execution of softmail.exe so all the send_mail
>portion of formmail.pl file does is create $tempfile and it still fails.
>I have limited the problem to the following line:
>
>Open(MAIL,">$tempfile") || die ("Cannot open $tempfile - Check Directory
>Permissions : $!");
>
>If the file already exists, the open appears to hang. If I test for
>existance of $tempfile and attempt to unlink it before the open, that also
>hangs. The NT system I am using is using NTFS. I've tried chmod, and
>SetAttributes to no avail. Do I have to set the file permissions in the
>formmail.pl file using Win32::FileSecurity? Any
>answers/help/explainations/directions/etc. would be appreciated.
I'm assuming you are using IIS as your web server, though the suggestion would
remain the same for any other web server:
Ask your system administrator to set "CHANGE" file permissions for the
Anonymous Web User (e.g. IUSR_xxx) for your cgi-bin directory and all
subdirectories. Most likely you have only read permissions which denies you
the write to create new or modify existing files.
Followups set to: microsoft.public.inetserver.iis
--
Ethan H. Poole | Website Design and Hosting,
| CGI Programming (Perl & C)..
========Personal========= | ============================
* ehp @ gte . net * | --Interact2Day--
http://home1.gte.net/ehp/ | http://www.interact2day.com/
------------------------------
Date: 12 Jul 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 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3435
**************************************
