[30705] in Perl-Users-Digest
Perl-Users Digest, Issue: 1950 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 29 16:09:45 2008
Date: Wed, 29 Oct 2008 13:09:10 -0700 (PDT)
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, 29 Oct 2008 Volume: 11 Number: 1950
Today's topics:
ANNOUNCE: AFS Perl API 2.6.0 released <nog@MPA-Garching.MPG.DE>
Re: crisis Perl <Juha.Laiho@iki.fi>
Expect and Cisco FWSM-problem <Tommy.Mogensen@gmail.com>
Re: if (/^$date\s+(.+)/) <xiaoxia2005a@yahoo.com>
Re: if (/^$date\s+(.+)/) <josef.moellers@fujitsu-siemens.com>
Re: if (/^$date\s+(.+)/) <xiaoxia2005a@yahoo.com>
Re: if (/^$date\s+(.+)/) <glennj@ncf.ca>
Re: if (/^$date\s+(.+)/) <jurgenex@hotmail.com>
Re: if (/^$date\s+(.+)/) <xiaoxia2005a@yahoo.com>
Re: if (/^$date\s+(.+)/) <xiaoxia2005a@yahoo.com>
Re: if (/^$date\s+(.+)/) <glennj@ncf.ca>
Re: if (/^$date\s+(.+)/) <jurgenex@hotmail.com>
Re: if (/^$date\s+(.+)/) <xiaoxia2005a@yahoo.com>
Re: Perl - Gnuplot Program Oct. 29, 2008 <bugbear@trim_papermule.co.uk_trim>
Re: Perl - Gnuplot Program Oct. 29, 2008 <edgrsprj@ix.netcom.com>
Re: Windows(tm) & pipes & Gnuplot - was [Re: Perl - Gn <edgrsprj@ix.netcom.com>
Windows(tm) & pipes & Gnuplot - was [Re: Perl - Gnuplo <rowlett@atlascomm.net>
Re: Windows(tm) & pipes & Gnuplot - was [Re: Perl - Gn <RedGrittyBrick@spamweary.invalid>
Re: Windows(tm) & pipes & Gnuplot - was [Re: Perl - Gn <rowlett@atlascomm.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 29 Oct 2008 11:29:03 GMT
From: Norbert Gruener <nog@MPA-Garching.MPG.DE>
Subject: ANNOUNCE: AFS Perl API 2.6.0 released
Message-Id: <K9I7xp.1Cpx@zorch.sf-bay.org>
AFS Perl API Version 2.6.0
I am pleased to announce the AFS Perl API 2.6.0 release
The AFS module bundle is a dynamically loadable extension to
Perl. It gives the AFS user and administrator access to many of
the AFS programming APIs, allowing you to make these calls
directly from Perl, rather then processing the output of a
command. The AFS module bundle is a thin layer above the low-level
AFS APIs.
This release is mostly to please the Perl community
- have a clean version numbering system
- detect automated CPAN testings
Where To Get It
The version 2.6.0 is now available at
http://www.MPA-Garching.MPG.de/~nog/perl/AFS-2.6.0.tar.gz
http://www.cpan.org/authors/id/N/NO/NOG/AFS-2.6.0.tar.gz
This release should work on all UNIX/Linux platforms which have
AFS API interfaces and the appropriate C compilation environment.
MD5SUM
c4cb3967bf2ee51b595dda6ab03c855e AFS-2.6.0.tar.gz
User Visible Changes in this Release
- compiles now with Perl 5.10.0
- HTML documentation updated in order to include proper cross-references
- removed "version 1" documentation
- removed "version 1" examples
For more information about the current state of the AFS Perl API,
check my "AFS Perl API Kwiki" site at:
http://www.mpa-garching.mpg.de/kwiki/nog/afsperl/
Share and Enjoy!
Norbert
--
------------------------------
Date: Wed, 29 Oct 2008 17:22:03 GMT
From: Juha Laiho <Juha.Laiho@iki.fi>
Subject: Re: crisis Perl
Message-Id: <gea5u1$d54$2@ichaos2.ichaos-int>
Charlton Wilbur <cwilbur@chromatico.net> said:
>>>>>> "cc" == cartercc <cartercc@gmail.com> writes:
>
> cc> How do you deal with a manager who tells you to leave a script
> cc> alone, when you know good and well that it's such poorly written
> cc> code that it will be extremely hard to maintain, and perhaps
> cc> will be buggy as well? Getting another job isn't an option, and
> cc> firing the manager isn't an option, either.
>
>Educate the manager. Keeping shoddy code in production is a gamble:
>you're gambling that the cost of fixing the code *now* is higher than
>the cost of fixing it when it breaks or when there's a crisis.
Further, making modifications to a clean code base is cheaper than
making the same modifications to a degraded code base.
The common term for this is "design debt"; see articles at
http://jamesshore.com/Articles/Business/Software%20Profitability%20Newsletter/Design%20Debt.html
http://www.ri.fi/web/en/technology-and-research/design-debt
As far as the code does what it is intended to do now, it is, stirctly
speaking, not a technical issue (which, I guess, would make it belong to
your domain), but instead it is an economic issue (and as such belongs
to your managers domain). What you could do would be to try and see
whether your manager understands the "debt" aspect of the situation
his decision is creating, and how much of this debt he is willing
to carry (and also pay the running interest for -- in more laborious
changes to the code).
--
Wolf a.k.a. Juha Laiho Espoo, Finland
(GC 3.0) GIT d- s+: a C++ ULSH++++$ P++@ L+++ E- W+$@ N++ !K w !O !M V
PS(+) PE Y+ PGP(+) t- 5 !X R !tv b+ !DI D G e+ h---- r+++ y++++
"...cancel my subscription to the resurrection!" (Jim Morrison)
------------------------------
Date: Wed, 29 Oct 2008 10:37:14 -0700 (PDT)
From: tmo <Tommy.Mogensen@gmail.com>
Subject: Expect and Cisco FWSM-problem
Message-Id: <856cfd47-1982-4420-b8cc-7dd73d82ebcb@79g2000hsk.googlegroups.com>
Hi
We update fwsm acl's by editing textfiles (partial automatically)
(with 'clear configure access-list <>' in the top and 'access-list
commit' in the bottom)and then ssh to the fwsm and tftp'ing the ACL's.
However scripting this process with Expect.pm has caused the active
fwsm
to partially freeze on the management access (normal traffic ok)
(Configuration update in progress by another process....) with no
recover except forced failover and reload. The problem has not occured
when doing it manually:
copy tftp run
tftp-server
filename
wr
...which is what the expect-script also does...only quicker of course,
which may be the problem.
The problem does not occur every time and seems (but not always) to be
worst if the ACLs are 200kb+ . The ssh tftp-session is scriptet with
perl-expect ver. 1.15-5 on a debian etch with a standard openssh. The
FWSMs are running ver. 3.1.12 - older versions causes other management
problems and since this is a production setup we try to avoid using
the newest available OS'es unless we know there is a fix for this
problem. There are abount 25k lines of ACL and 300 servers directly
connected behind the firewall.
Has anyone seen anything similar? Any ideas for a workaround? And what
is best practice for acl updates (~ 55 same security level interfaces
in single mode). Noone has been able to tell us a way to do this in
ADSM/security manager.
Thanks
Tommy, Denmark
------------------------------
Date: Wed, 29 Oct 2008 04:50:53 -0700 (PDT)
From: April <xiaoxia2005a@yahoo.com>
Subject: Re: if (/^$date\s+(.+)/)
Message-Id: <98d4aecc-3750-44f3-9e6c-46bb98095128@d1g2000hsg.googlegroups.com>
On Oct 29, 1:58=A0am, Tim Greer <t...@burlyhost.com> wrote:
> April wrote:
>
> > =A0 =A0 =A0 =A0 =A0 =A0 {
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 printf "%2d. ", $count;
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 print "$1\n";
> > =A0 =A0 =A0 =A0 =A0 =A0 }
>
> ^^^^^^^^^^
>
> Is the above supposed to relate to your question?
>
> > what would be true for /^$date\s+(.+)/? =A0\s+ matches one or more whit=
e
> > spaces, and (.+) matches the rest?
>
> .+ matches anything (one or more characters) after the start of the line
> ^ and whatever $date is, one or more white spaces and then captures
> whatever follows it. =A0You might want to be more specific if you want to
> match up to the end of the line $ or include new lines, or only match
> up to a certain length or character, etc. =A0So, yes and no, depending.
> --
> Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
> Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
> and Custom Hosting. =A024/7 support, 30 day guarantee, secure servers.
> Industry's most experienced staff! -- Web Hosting With Muscle!
thanks Tim .. then what would be true here, something started with
$date exists?
------------------------------
Date: Wed, 29 Oct 2008 13:39:48 +0100
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: if (/^$date\s+(.+)/)
Message-Id: <ge9lik$isu$2@nntp.fujitsu-siemens.com>
Tim Greer wrote:
> April wrote:
>
>> {
>> printf "%2d. ", $count;
>> print "$1\n";
>> }
>
> ^^^^^^^^^^
>
> Is the above supposed to relate to your question?
It's probably cut and pasted from the assignment sheet.
--
These are my personal views and not those of Fujitsu Siemens Computers!
Josef Möllers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize (T. Pratchett)
Company Details: http://www.fujitsu-siemens.com/imprint.html
------------------------------
Date: Wed, 29 Oct 2008 07:05:41 -0700 (PDT)
From: April <xiaoxia2005a@yahoo.com>
Subject: Re: if (/^$date\s+(.+)/)
Message-Id: <435a6387-b551-41e1-8cd1-94ad977a88f4@v30g2000hsa.googlegroups.com>
On Oct 29, 8:39=A0am, Josef Moellers <josef.moell...@fujitsu-
siemens.com> wrote:
> Tim Greer wrote:
> > April wrote:
>
> >> =A0 =A0 =A0 =A0 =A0 =A0 {
> >> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 printf "%2d. ", $count;
> >> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 print "$1\n";
> >> =A0 =A0 =A0 =A0 =A0 =A0 }
>
> > ^^^^^^^^^^
>
> > Is the above supposed to relate to your question?
>
> It's probably cut and pasted from the assignment sheet.
>
> --
> These are my personal views and not those of Fujitsu Siemens Computers!
> Josef M=F6llers (Pinguinpfleger bei FSC)
> =A0 =A0 =A0 =A0 If failure had no penalty success would not be a prize (T=
. =A0Pratchett)
> Company Details:http://www.fujitsu-siemens.com/imprint.html
yes, that is the block to be executed, depending on the if test
result ..
------------------------------
Date: 29 Oct 2008 14:38:29 GMT
From: Glenn Jackman <glennj@ncf.ca>
Subject: Re: if (/^$date\s+(.+)/)
Message-Id: <slrngggtb5.dl.glennj@smeagol.ncf.ca>
At 2008-10-28 11:17PM, "April" wrote:
> if (/^$date\s+(.+)/)
> {
> printf "%2d. ", $count;
> print "$1\n";
> }
>
> what would be true for /^$date\s+(.+)/?
That depends on the current line ($_) and the value of $date.
You need to provide more info if you expect to receive any help.
--
Glenn Jackman
Write a wise saying and your name will live forever. -- Anonymous
------------------------------
Date: Wed, 29 Oct 2008 08:59:38 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: if (/^$date\s+(.+)/)
Message-Id: <dr1hg4hf1hqt4lfrmks1ekerd7018phaqn@4ax.com>
April <xiaoxia2005a@yahoo.com> wrote:
>
> {
> printf "%2d. ", $count;
> print "$1\n";
> }
???
>what would be true for /^$date\s+(.+)/? \
You question is confusing. Did you mean to ask: Which strings are
matched by that RE?
Answer to that question:
Any string, that
- starts with
- whatever is matched by the RE stored in $date
and then
>\s+ matches one or more white
-has at least one white space
>spaces, and (.+) matches the rest?
- and then at least one other character
jue
------------------------------
Date: Wed, 29 Oct 2008 09:03:06 -0700 (PDT)
From: April <xiaoxia2005a@yahoo.com>
Subject: Re: if (/^$date\s+(.+)/)
Message-Id: <4a5d7c54-b4d9-4b2b-ab34-544a293578c5@17g2000hsk.googlegroups.com>
On Oct 29, 10:38=A0am, Glenn Jackman <gle...@ncf.ca> wrote:
> At 2008-10-28 11:17PM, "April" wrote:
>
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0if (/^$date\s+(.+)/)
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0{
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0printf "%2d. ", $count;
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0print "$1\n";
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0}
>
> > =A0what would be true for /^$date\s+(.+)/?
>
> That depends on the current line ($_) and the value of $date.
>
> You need to provide more info if you expect to receive any help. =A0
>
> --
> Glenn Jackman
> =A0 =A0 Write a wise saying and your name will live forever. -- Anonymous
I'm looking for the meaning of that test, not an actual answer in the
program context.
------------------------------
Date: Wed, 29 Oct 2008 09:06:21 -0700 (PDT)
From: April <xiaoxia2005a@yahoo.com>
Subject: Re: if (/^$date\s+(.+)/)
Message-Id: <8650e537-b86f-4fa5-9278-1fb2f44c42e2@t65g2000hsf.googlegroups.com>
On Oct 29, 11:59=A0am, J=FCrgen Exner <jurge...@hotmail.com> wrote:
> April <xiaoxia20...@yahoo.com> wrote:
>
> > =A0 =A0 =A0 =A0 =A0 =A0{
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0printf "%2d. ", $count;
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0print "$1\n";
> > =A0 =A0 =A0 =A0 =A0 =A0}
>
> ???
>
> >what would be true for /^$date\s+(.+)/? =A0\
>
> You question is confusing. Did you mean to ask: Which strings are
> matched by that RE?
>
> Answer to that question:
> Any string, that
> - starts with
> - whatever is matched by the RE stored in $date
> and then
>
> >\s+ matches one or more white
>
> -has at least one white space
>
> >spaces, and (.+) matches the rest?
>
> - and then at least one other character
>
> jue
my question should be restated as what makes the if test true, if (/^
$date\s+(.+)/)?
------------------------------
Date: 29 Oct 2008 16:29:22 GMT
From: Glenn Jackman <glennj@ncf.ca>
Subject: Re: if (/^$date\s+(.+)/)
Message-Id: <slrnggh3r3.dl.glennj@smeagol.ncf.ca>
At 2008-10-29 12:03PM, "April" wrote:
> On Oct 29, 10:38 am, Glenn Jackman <gle...@ncf.ca> wrote:
> > At 2008-10-28 11:17PM, "April" wrote:
> >
> > > if (/^$date\s+(.+)/)
> > > {
> > > printf "%2d. ", $count;
> > > print "$1\n";
> > > }
> >
> > > what would be true for /^$date\s+(.+)/?
> >
> > That depends on the current line ($_) and the value of $date.
> >
> > You need to provide more info if you expect to receive any help.
>
> I'm looking for the meaning of that test, not an actual answer in the
> program context.
The // operator performs a regex comparison against the named string, or
$_ if no explicit string is mentioned.
See 'perldoc perlrequick' to start: http://perldoc.perl.org/perlrequick.html
--
Glenn Jackman
Write a wise saying and your name will live forever. -- Anonymous
------------------------------
Date: Wed, 29 Oct 2008 09:46:14 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: if (/^$date\s+(.+)/)
Message-Id: <9m4hg4t5am1m3c4815mkvtod7a6o1n8lkk@4ax.com>
April <xiaoxia2005a@yahoo.com> wrote:
if (/^$date\s+(.+)/)
>my question should be restated as what makes the if test true, if (/^
>$date\s+(.+)/)?
Ok, that is easy. The condition is true if and only if the regular
expression /^$date\s+(.+)/ matches the text content of $_.
jue
------------------------------
Date: Wed, 29 Oct 2008 11:56:32 -0700 (PDT)
From: April <xiaoxia2005a@yahoo.com>
Subject: Re: if (/^$date\s+(.+)/)
Message-Id: <50f6238d-cf55-4512-9a12-b110bb93f9f0@p59g2000hsd.googlegroups.com>
On Oct 29, 12:46=A0pm, J=FCrgen Exner <jurge...@hotmail.com> wrote:
> April <xiaoxia20...@yahoo.com> wrote:
>
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 if (/^$date\s+(.+)/)
>
> >my question should be restated as what makes the if test true, if (/^
> >$date\s+(.+)/)?
>
> Ok, that is easy. The condition is true if and only if =A0the regular
> expression /^$date\s+(.+)/ matches the text content of $_.
>
> jue
k thank you Jue and everyone I think with this and the explanation of
the re/pattern, I'm all set and thanks again.
------------------------------
Date: Wed, 29 Oct 2008 11:33:00 +0000
From: bugbear <bugbear@trim_papermule.co.uk_trim>
Subject: Re: Perl - Gnuplot Program Oct. 29, 2008
Message-Id: <eN-dndKEloFw1JXUnZ2dnUVZ8tSdnZ2d@posted.plusnet>
E.D.G. wrote:
> PERL - GNUPLOT PROGRAM
>
> An earthquake forecasting and triggering research computer program under
> development for quite a few years is now up and running.
You've been working on this since 1996, according to USENET archives.
Slow progress, huh?
BugBear
------------------------------
Date: Wed, 29 Oct 2008 06:52:17 -0500
From: "E.D.G." <edgrsprj@ix.netcom.com>
Subject: Re: Perl - Gnuplot Program Oct. 29, 2008
Message-Id: <pNSdnXm7Qd7o05XUnZ2dnUVZ_sninZ2d@earthlink.com>
"bugbear" <bugbear@trim_papermule.co.uk_trim> wrote in message
news:eN-dndKEloFw1JXUnZ2dnUVZ8tSdnZ2d@posted.plusnet...
> You've been working on this since 1996, according to USENET archives.
>
> Slow progress, huh?
The effort actually dates back to around 1990. Newsgroup notes probably
first got posted around 1996.
However, I believe that this is the first program of its type in history.
The gravity - earthquake triggering effect equations etc. being used have
never been tried before as far as I can tell. So if you think of the effort
in those terms, it didn't take so long.
------------------------------
Date: Wed, 29 Oct 2008 12:25:52 -0500
From: "E.D.G." <edgrsprj@ix.netcom.com>
Subject: Re: Windows(tm) & pipes & Gnuplot - was [Re: Perl - Gnuplot Program Oct. 29, 2008]
Message-Id: <78mdnSB6kv05AZXUnZ2dnUVZ_oPinZ2d@earthlink.com>
"Richard Owlett" <rowlett@atlascomm.net> wrote in message
news:b6adnRifLqjBFZXUnZ2dnUVZ_q_inZ2d@supernews.com...
>
> In another forum (comp.lang.tcl) I asked a question whose solution would
> seem to be pipes. I gathered the the impression that that Windows was not
> very "pipe friendly". Or would this be more a difference between Tcl and
> Perl? Is there a particularly good link for "pipes with Windows",
> particularly WinXP? I'm retired so have time to learn more languages, but
> would prefer at moment to stay with Tcl/Tk.
This is the type of code that I used in Perl. It appears to work quite
well.
if ($gnuplot ne 'ready'){;
print 'Initializing Gnuplot', "\n";
system 'start pgnuplot.exe Startup.gnu';
sleep 4;
$gnuplot = 'ready';
};
open gnuplot, '|\pgnuplot.exe';
use FileHandle;
gnuplot->autoflush(1);
print gnuplot 'sin(x)', "\n";
pause 3;
close gnuplot;
Those routines have to be executed in the same directory as pgnuplot.exe.
Or, the system and open statements have to be modified to point to the right
directory.
That first group of commands appears to be necessary for a slower computer
so that there will not be a timing error when Gnuplot tries to load.
Startup.gnu is just a simple file that exits after a few seconds.
------------------------------
Date: Wed, 29 Oct 2008 11:00:43 -0500
From: Richard Owlett <rowlett@atlascomm.net>
Subject: Windows(tm) & pipes & Gnuplot - was [Re: Perl - Gnuplot Program Oct. 29, 2008]
Message-Id: <b6adnRifLqjBFZXUnZ2dnUVZ_q_inZ2d@supernews.com>
E.D.G. wrote:
> [SNIP]
>
> It also took a very long time to learn how to send commands from Perl to
> Gnuplot using a "pipe." But, the effort was definitely worthwhile.
> [SNIP]
> There was one problem with the pipe. And I had to develop a way around it.
>
> On my newer Windows Vista computer the Perl - Gnuplot pipe starts and
> runs fine every time. But on an older and slower Windows XP computer,
> the first time during a session when Perl was instructed to initiate the
> pipe, Gnuplot took too long to load. Perl kept running. But one of the
> programs generated an error message saying that Gnuplot was not ready.
> And some manual steps had to be taken to get it running again.
>
> There might be a way within Windows to deal with timing problems like
> that. But the procedure that I developed is to have Perl start a simple
> Gnuplot program running using the "system" command the first time
> Gnuplot loads. After a few seconds the Gnuplot software is in the
> computer memory and the program exits. Perl then creates the Gnuplot
> pipe. With that procedure Gnuplot loads and runs every time without a
> problem.
>
In another forum (comp.lang.tcl) I asked a question whose solution would
seem to be pipes. I gathered the the impression that that Windows was
not very "pipe friendly". Or would this be more a difference between Tcl
and Perl? Is there a particularly good link for "pipes with Windows",
particularly WinXP? I'm retired so have time to learn more languages,
but would prefer at moment to stay with Tcl/Tk.
TIA
------------------------------
Date: Wed, 29 Oct 2008 16:10:03 +0000
From: RedGrittyBrick <RedGrittyBrick@spamweary.invalid>
Subject: Re: Windows(tm) & pipes & Gnuplot - was [Re: Perl - Gnuplot Program Oct. 29, 2008]
Message-Id: <49088ae2$0$10536$db0fefd9@news.zen.co.uk>
Richard Owlett wrote:
>
> In another forum (comp.lang.tcl) I asked a question whose solution would
> seem to be pipes. I gathered the the impression that that Windows was
> not very "pipe friendly". Or would this be more a difference between Tcl
> and Perl? Is there a particularly good link for "pipes with Windows",
> particularly WinXP?
http://en.wikipedia.org/wiki/Pipeline_(software)
> I'm retired so have time to learn more languages,
> but would prefer at moment to stay with Tcl/Tk.
>
Followup set to comp.lang.tcl accordingly.
--
RGB
------------------------------
Date: Wed, 29 Oct 2008 13:32:15 -0500
From: Richard Owlett <rowlett@atlascomm.net>
Subject: Re: Windows(tm) & pipes & Gnuplot - was [Re: Perl - Gnuplot Program Oct. 29, 2008]
Message-Id: <KLednRepkr58NpXUnZ2dnUVZ_umdnZ2d@supernews.com>
E.D.G. wrote:
> "Richard Owlett" <rowlett@atlascomm.net> wrote in message
> news:b6adnRifLqjBFZXUnZ2dnUVZ_q_inZ2d@supernews.com...
>
>>
>> In another forum (comp.lang.tcl) I asked a question whose solution
>> would seem to be pipes. I gathered the the impression that that
>> Windows was not very "pipe friendly". Or would this be more a
>> difference between Tcl and Perl? Is there a particularly good link for
>> "pipes with Windows", particularly WinXP? I'm retired so have time to
>> learn more languages, but would prefer at moment to stay with Tcl/Tk.
>
>
> This is the type of code that I used in Perl. It appears to work quite
> well.
>
> if ($gnuplot ne 'ready'){;
> print 'Initializing Gnuplot', "\n";
> system 'start pgnuplot.exe Startup.gnu';
> sleep 4;
> $gnuplot = 'ready';
> };
>
> open gnuplot, '|\pgnuplot.exe';
> use FileHandle;
> gnuplot->autoflush(1);
> print gnuplot 'sin(x)', "\n";
> pause 3;
> close gnuplot;
>
> Those routines have to be executed in the same directory as
> pgnuplot.exe. Or, the system and open statements have to be modified to
> point to the right directory.
>
> That first group of commands appears to be necessary for a slower
> computer so that there will not be a timing error when Gnuplot tries to
> load.
>
> Startup.gnu is just a simple file that exits after a few seconds.
>
Thank you. Looks like it would be worthwhile for me to actively
investigate Perl.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V11 Issue 1950
***************************************
