[30706] in Perl-Users-Digest
Perl-Users Digest, Issue: 1951 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Oct 30 14:09:46 2008
Date: Thu, 30 Oct 2008 11:09:08 -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 Thu, 30 Oct 2008 Volume: 11 Number: 1951
Today's topics:
detecting NFS mount <lehmannmapson@cnm.de>
Re: detecting NFS mount <tim@burlyhost.com>
Re: detecting NFS mount <jurgenex@hotmail.com>
Re: Expect and Cisco FWSM-problem <josef.moellers@fujitsu-siemens.com>
Re: How to overwrite or mock -e for testing? <bik.mido@tiscalinet.it>
if ($line == $count++) <xiaoxia2005a@yahoo.com>
Re: if ($line == $count++) <peter@makholm.net>
Re: if ($line == $count++) <xiaoxia2005a@yahoo.com>
Re: if (/^$date\s+(.+)/) <rvtol+news@isolution.nl>
Re: if (/^$date\s+(.+)/) sln@netherlands.com
new CPAN modules on Thu Oct 30 2008 (Randal Schwartz)
OLE with outlook <manujsabarwal@gmail.com>
Re: OLE with outlook <jwtasgg@gmail.com>
Re: OLE with outlook <jwtasgg@gmail.com>
Re: Perl - Gnuplot Program Oct. 29, 2008 <jimsgibson@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 30 Oct 2008 15:07:28 +0100
From: Marten Lehmann <lehmannmapson@cnm.de>
Subject: detecting NFS mount
Message-Id: <6mttd4Filtu7U1@mid.individual.net>
Hello,
how can I verify if a certain directory is an NFS mount?
Background: I have a directory, which should be an NFS mount so I can
perform some backup operations on a remote server by simply putting
files in it. But the netfs-initscript might fail during startup so I
would make backups to the local harddisk if there is no NFS mount.
Regards,
Marten
------------------------------
Date: Thu, 30 Oct 2008 07:11:06 -0700
From: Tim Greer <tim@burlyhost.com>
Subject: Re: detecting NFS mount
Message-Id: <_fjOk.16092$o57.6235@newsfe02.iad>
Marten Lehmann wrote:
> Hello,
>
> how can I verify if a certain directory is an NFS mount?
>
> Background: I have a directory, which should be an NFS mount so I can
> perform some backup operations on a remote server by simply putting
> files in it. But the netfs-initscript might fail during startup so I
> would make backups to the local harddisk if there is no NFS mount.
So this is on topic for the Perl news group, can you offer up a portion
of the relevant code in question? It shouldn't be too difficult to
ensure the NFS partition is mounted somewhere in the script before it
begins its backup routine. Also, what is the platform? This could be
relevant to the different methods you can use to ensure it's mounted.
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Thu, 30 Oct 2008 08:46:14 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: detecting NFS mount
Message-Id: <bkljg4tkrvjsfjda25q0fqae5t08mt5qsk@4ax.com>
Marten Lehmann <lehmannmapson@cnm.de> wrote:
>how can I verify if a certain directory is an NFS mount?
>
>Background: I have a directory, which should be an NFS mount so I can
>perform some backup operations on a remote server by simply putting
>files in it. But the netfs-initscript might fail during startup so I
>would make backups to the local harddisk if there is no NFS mount.
There may be other ways, but I would do it exactly the same way as in
any other programming language by checking the mount table.
jue
------------------------------
Date: Thu, 30 Oct 2008 09:18:05 +0100
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: Expect and Cisco FWSM-problem
Message-Id: <gebqjr$m04$2@nntp.fujitsu-siemens.com>
tmo wrote:
> 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.
This has little or nothing to do with Perl.
If speed is a problem, you can use "send_slow()" instead of "send()" and
also insert "sleep()" calls between commands.
However, if the Cisco device prompts you for the next command, you
should "expect()" that prompt before commencing.
--
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: Thu, 30 Oct 2008 12:06:52 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: How to overwrite or mock -e for testing?
Message-Id: <775jg41r5voj8nt6s3h2105liq6nfonrj1@4ax.com>
On Mon, 27 Oct 2008 21:21:47 +0100, Helmut Wollmersdorfer
<helmut@wollmersdorfer.at> wrote:
>I tried to mock '-e'
>
>=== get_foo.t ===
>#!perl -T
>
>use strict;
>use warnings;
>
>my %file;
>
>use overload
> '-e' => sub {
> my ($name) = @_;
> print 'trying mocked -e',"\n";
> return exists $file{$name};
> };
Appears to work:
C:\temp>cat foo.pl
#!/usr/bin/perl
use strict;
use warnings;
my %file;
BEGIN {
no strict 'refs';
*{'CORE::GLOBAL::-e'} = sub {
my ($name) = @_;
warn "trying mocked -e\n";
return exists $file{$name};
};
}
use Test::More qw(no_plan);
$file{foo} = 1;
ok(-e $_, "file $_ exists") for qw/foo bar/;
__END__
C:\temp>perl foo.pl
ok 1 - file foo exists
not ok 2 - file bar exists
# Failed test 'file bar exists'
# at foo.pl line 20.
1..2
# Looks like you failed 1 test of 2.
HTH,
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 30 Oct 2008 09:07:38 -0700 (PDT)
From: April <xiaoxia2005a@yahoo.com>
Subject: if ($line == $count++)
Message-Id: <d70fcade-38dc-4d5c-be0b-4b5aba3dca86@t54g2000hsg.googlegroups.com>
looking at the following, if $line has values of 1, 2, 3, ... will the
if test ever tests true when $line equals 1? It seems it won't as
$count starts as 1 and then the test with $count++ (=2), but the
execution suggests otherwise ...
my $count = 1;
while(<IN>)
{
if ($line == $count++)
{
$deleted = $_;
next;
}
print OUT;
}
------------------------------
Date: Thu, 30 Oct 2008 17:13:18 +0100
From: Peter Makholm <peter@makholm.net>
Subject: Re: if ($line == $count++)
Message-Id: <87k5bqysbl.fsf@vps1.hacking.dk>
April <xiaoxia2005a@yahoo.com> writes:
> looking at the following, if $line has values of 1, 2, 3, ... will the
> if test ever tests true when $line equals 1? It seems it won't as
> $count starts as 1 and then the test with $count++ (=2), but the
> execution suggests otherwise ...
$i++ will return the value of $i before incrementing the value, so yes
$line will become equal $count. Read the 'Auto-increment and
Auto-decrement' section of 'perldoc perlop'.
(But instead of counting lines, you could use the magic variable
$. Read 'perldoc perlvar' for more information about this)
//Makholm
------------------------------
Date: Thu, 30 Oct 2008 09:23:12 -0700 (PDT)
From: April <xiaoxia2005a@yahoo.com>
Subject: Re: if ($line == $count++)
Message-Id: <3bf8b0d4-e056-48a9-bc95-97c40d574905@b1g2000hsg.googlegroups.com>
On Oct 30, 12:13=A0pm, Peter Makholm <pe...@makholm.net> wrote:
> April <xiaoxia20...@yahoo.com> writes:
> > looking at the following, if $line has values of 1, 2, 3, ... will the
> > if test ever tests true when $line equals 1? =A0It seems it won't as
> > $count starts as 1 and then the test with $count++ (=3D2), but the
> > execution suggests otherwise ...
>
> $i++ will return the value of $i before incrementing the value, so yes
> $line will become equal $count. Read the 'Auto-increment and
> Auto-decrement' section of 'perldoc perlop'.
>
> (But instead of counting lines, you could use the magic variable
> $. Read 'perldoc perlvar' for more information about this)
>
> //Makholm
Thanks Peter for your quick answer!
------------------------------
Date: Wed, 29 Oct 2008 22:39:12 +0100
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: if (/^$date\s+(.+)/)
Message-Id: <geap3r.1lc.1@news.isolution.nl>
April schreef:
> /^$date\s+(.+)/?
You probably need to change "$date" to "\Q$date\E".
See `perldoc -f quotemeta`.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Thu, 30 Oct 2008 06:57:24 GMT
From: sln@netherlands.com
Subject: Re: if (/^$date\s+(.+)/)
Message-Id: <8jlig4d4fdobpdhut2jr3kos96ldsncfqf@4ax.com>
On Tue, 28 Oct 2008 20:17:09 -0700 (PDT), April <xiaoxia2005a@yahoo.com> wrote:
>
> {
> printf "%2d. ", $count;
> print "$1\n";
> }
>
>what would be true for /^$date\s+(.+)/? \s+ matches one or more white
>spaces, and (.+) matches the rest?
Yes, is date variable? It is part of the regex.
What is the result if
$date = "12/25/2008";
$_ = "12/25/2008
is an important date
on the calendar.";
------------------------------
Date: Thu, 30 Oct 2008 04:42:22 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Thu Oct 30 2008
Message-Id: <K9JBqM.4FJ@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Acme-CPANAuthors-French-0.06
http://search.cpan.org/~saper/Acme-CPANAuthors-French-0.06/
We are French CPAN authors
----
Acme-Stardate-20081029.16083
http://search.cpan.org/~cfedde/Acme-Stardate-20081029.16083/
Provide a simple 'stardate' string
----
Apache2-ASP-2.00_11
http://search.cpan.org/~johnd/Apache2-ASP-2.00_11/
ASP for Perl, reloaded.
----
Apache2-ModSSL-0.07
http://search.cpan.org/~opi/Apache2-ModSSL-0.07/
a Perl Interface to mod_ssl functions
----
Astro-SIMBAD-Client-0.015
http://search.cpan.org/~wyant/Astro-SIMBAD-Client-0.015/
Fetch astronomical data from SIMBAD 4.
----
Bio-PrimerDesigner-0.02
http://search.cpan.org/~smckay/Bio-PrimerDesigner-0.02/
Design PCR Primers using primer3 and epcr
----
CGI-Lazy-1.01
http://search.cpan.org/~vayde/CGI-Lazy-1.01/
----
CGI-Session-Serialize-yaml-4.22
http://search.cpan.org/~rsavage/CGI-Session-Serialize-yaml-4.22/
serializer for CGI::Session
----
CGI-Session-Serialize-yaml-4.23
http://search.cpan.org/~rsavage/CGI-Session-Serialize-yaml-4.23/
serializer for CGI::Session
----
CPAN-Testers-ParseReport-0.0.15
http://search.cpan.org/~andk/CPAN-Testers-ParseReport-0.0.15/
parse reports to www.cpantesters.org from various sources
----
Catalyst-Plugin-SanitizeUrl-0.2.1
http://search.cpan.org/~shlomif/Catalyst-Plugin-SanitizeUrl-0.2.1/
Make Catalyst not ignore trailing slashes
----
ClearCase-Wrapper-MGi-0.07
http://search.cpan.org/~mgi/ClearCase-Wrapper-MGi-0.07/
Marc Girod's contributed cleartool wrapper functions
----
Config-JSON-1.3.0
http://search.cpan.org/~rizen/Config-JSON-1.3.0/
A JSON based config file system.
----
Data-Util-0.05
http://search.cpan.org/~gfuji/Data-Util-0.05/
A selection of utilities for data and data types
----
Device-Gsm-1.51
http://search.cpan.org/~cosimo/Device-Gsm-1.51/
Perl extension to interface GSM phones / modems
----
Distribution-Guess-BuildSystem-0.11
http://search.cpan.org/~bdfoy/Distribution-Guess-BuildSystem-0.11/
This is the description
----
Dynamic-Loader-1.02
http://search.cpan.org/~evaleto/Dynamic-Loader-1.02/
call a script without to know where is his location.
----
Dynamic-Loader-1.03
http://search.cpan.org/~evaleto/Dynamic-Loader-1.03/
call a script without to know where is his location.
----
Fey-0.15
http://search.cpan.org/~drolsky/Fey-0.15/
Better SQL Generation Through Perl
----
File-Path_2.06_07
http://search.cpan.org/~dland/File-Path_2.06_07/
Create or remove directory trees
----
Finance-QuoteDB-0.00_50
http://search.cpan.org/~ecocode/Finance-QuoteDB-0.00_50/
User database tools based on Finance::Quote
----
Finance-QuoteDB-0.00_51
http://search.cpan.org/~ecocode/Finance-QuoteDB-0.00_51/
User database tools based on Finance::Quote
----
KiokuDB-0.03
http://search.cpan.org/~nuffin/KiokuDB-0.03/
Object Graph storage engine
----
LCFG-Build-PkgSpec-0.0.25
http://search.cpan.org/~sjquinney/LCFG-Build-PkgSpec-0.0.25/
Object-oriented interface to LCFG build metadata
----
LCFG-Build-Tools-0.0.44
http://search.cpan.org/~sjquinney/LCFG-Build-Tools-0.0.44/
LCFG software release tools
----
Log-Log4perl-1.19
http://search.cpan.org/~mschilli/Log-Log4perl-1.19/
Log4j implementation for Perl
----
Module-Extract-Namespaces-0.14
http://search.cpan.org/~bdfoy/Module-Extract-Namespaces-0.14/
extract the package declarations from a module
----
Module-Extract-Use-0.12
http://search.cpan.org/~bdfoy/Module-Extract-Use-0.12/
Pull out the modules a module uses
----
Module-Extract-Use-0.13
http://search.cpan.org/~bdfoy/Module-Extract-Use-0.13/
Pull out the modules a module uses
----
Module-Install-DBICx-AutoDoc-0.01
http://search.cpan.org/~jmmills/Module-Install-DBICx-AutoDoc-0.01/
Use your Makefile to run DBICx::AutoDoc
----
MooseX-Types-Structured-0.03
http://search.cpan.org/~jjnapiork/MooseX-Types-Structured-0.03/
Structured Type Constraints for Moose
----
MyCPAN-Indexer-1.17_02
http://search.cpan.org/~bdfoy/MyCPAN-Indexer-1.17_02/
Index a Perl distribution
----
Nagios-Plugin-Simple-0.03
http://search.cpan.org/~mrdvt/Nagios-Plugin-Simple-0.03/
Simple and Minimalistic Nagios Plugin Package
----
Nagios-Plugin-Simple-0.04
http://search.cpan.org/~mrdvt/Nagios-Plugin-Simple-0.04/
Simple and Minimalistic Nagios Plugin Package
----
Net-ManageSieve-0.06
http://search.cpan.org/~ska/Net-ManageSieve-0.06/
ManageSieve Protocol Client
----
Net-RawIP-0.25
http://search.cpan.org/~saper/Net-RawIP-0.25/
Perl extension to manipulate raw IP packets with interface to libpcap
----
Object-Previous-1.1005
http://search.cpan.org/~jettero/Object-Previous-1.1005/
find the instance of the object that called your function
----
PDL-Graphics-PLplot-0.39
http://search.cpan.org/~dhunt/PDL-Graphics-PLplot-0.39/
Object-oriented interface from perl/PDL to the PLPLOT plotting library
----
POE-Component-Client-DNS-1.01
http://search.cpan.org/~rcaputo/POE-Component-Client-DNS-1.01/
non-blocking, concurrent DNS requests
----
Padre-Plugin-Pip-0.13
http://search.cpan.org/~adamk/Padre-Plugin-Pip-0.13/
A Padre plugin for the pip installer tool
----
Parse-Apache-ServerStatus-0.08
http://search.cpan.org/~bloonix/Parse-Apache-ServerStatus-0.08/
Simple module to parse apache's server-status.
----
Parse-Eyapp-1.123
http://search.cpan.org/~casiano/Parse-Eyapp-1.123/
Extensions for Parse::Yapp
----
Parse-Eyapp-1.124
http://search.cpan.org/~casiano/Parse-Eyapp-1.124/
Extensions for Parse::Yapp
----
PathTools-3.29
http://search.cpan.org/~smueller/PathTools-3.29/
----
Pg-Loader-0.12
http://search.cpan.org/~ioannis/Pg-Loader-0.12/
Perl extension for loading Postgres tables
----
Prima-1.27
http://search.cpan.org/~karasik/Prima-1.27/
a perl graphic toolkit
----
RDF-Redland-Model-ExifTool-0.07
http://search.cpan.org/~arnhemcr/RDF-Redland-Model-ExifTool-0.07/
extends RDF model to process Exif meta data
----
RingBuffer-0.01
http://search.cpan.org/~tbeste/RingBuffer-0.01/
Perl extension for creating a ring buffer of any size with any object as the ring data.
----
Sys-Statistics-Linux-0.43
http://search.cpan.org/~bloonix/Sys-Statistics-Linux-0.43/
Front-end module to collect system statistics
----
Time-Stats-0.4
http://search.cpan.org/~pmichaud/Time-Stats-0.4/
Easy timing info
----
URI-ParseSearchString-More-0.08
http://search.cpan.org/~oalders/URI-ParseSearchString-More-0.08/
Extract search strings from more referrers.
----
Ubigraph-0.01
http://search.cpan.org/~gaou/Ubigraph-0.01/
Perl extension for blah blah blah
----
Ubigraph-0.02
http://search.cpan.org/~gaou/Ubigraph-0.02/
Perl client of Ubigraph software
----
VUser-Google-Apps-0.1.1
http://search.cpan.org/~rsmith/VUser-Google-Apps-0.1.1/
VUser extension for managing Google Apps for your domain
----
Wiki-Toolkit-Formatter-Markdown-0.0.1
http://search.cpan.org/~perigrin/Wiki-Toolkit-Formatter-Markdown-0.0.1/
[One line description of module's purpose here]
----
constant-1.17
http://search.cpan.org/~saper/constant-1.17/
Perl pragma to declare constants
----
file_similars-1.5
http://search.cpan.org/~suntong/file_similars-1.5/
----
vuser-0.4.4
http://search.cpan.org/~rsmith/vuser-0.4.4/
Virtual user management utility
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Wed, 29 Oct 2008 17:00:14 -0700 (PDT)
From: Manni <manujsabarwal@gmail.com>
Subject: OLE with outlook
Message-Id: <76b0a04a-f266-42bd-b82b-35a2b4b8a7e5@b31g2000prf.googlegroups.com>
Hi,
I need to know how can I open Outlook in visible mode using Perl OLE.
Whenever I run the scrip the Process is created in background but I
need to see in explorer.. My intention here is to find launch time of
outlook using Perl Profiler...
Thanks
------------------------------
Date: Thu, 30 Oct 2008 08:01:29 -0700 (PDT)
From: JT <jwtasgg@gmail.com>
Subject: Re: OLE with outlook
Message-Id: <fe1c63d6-f859-40dd-9c8f-9a05793a2da6@c60g2000hsf.googlegroups.com>
On Oct 29, 8:00=A0pm, Manni <manujsabar...@gmail.com> wrote:
> Hi,
> I need to know how can I open Outlook in visible mode using Perl OLE.
> Whenever I run the scrip the Process is created in background but I
> need to see in explorer.. My intention here is to find launch time of
> outlook using Perl Profiler...
>
> Thanks
$excel->{Visible} =3D 1;
------------------------------
Date: Thu, 30 Oct 2008 08:03:53 -0700 (PDT)
From: JT <jwtasgg@gmail.com>
Subject: Re: OLE with outlook
Message-Id: <0fb0a30a-e43a-4a35-b7be-5a512c5ce2d5@l77g2000hse.googlegroups.com>
On Oct 30, 11:01=A0am, JT <jwta...@gmail.com> wrote:
> On Oct 29, 8:00=A0pm, Manni <manujsabar...@gmail.com> wrote:
>
> > Hi,
> > I need to know how can I open Outlook in visible mode using Perl OLE.
> > Whenever I run the scrip the Process is created in background but I
> > need to see in explorer.. My intention here is to find launch time of
> > outlook using Perl Profiler...
>
> > Thanks
>
> $excel->{Visible} =3D 1;
of course, you'd probably name the object "$word" not "$excel" :)
------------------------------
Date: Thu, 30 Oct 2008 11:04:49 -0700
From: Jim Gibson <jimsgibson@gmail.com>
Subject: Re: Perl - Gnuplot Program Oct. 29, 2008
Message-Id: <301020081104491635%jimsgibson@gmail.com>
In article <FfCdnTBie5N3rJXUnZ2dnUVZ_tCdnZ2d@earthlink.com>, E.D.G.
<edgrsprj@ix.netcom.com> wrote:
> The earthquake program uses the world map supplied with the Gnuplot
> download.
>
> Are other Gnuplot compatible files available like that map?
You probably won't find a repository of Gnuplot-ready maps. Gnuplot is
a plotting program, not a drawing or Geographical Information System
(GIS) program. However, since gnuplot data files are just lines with "X
Y" coordinates, they are easy to generate if you have a source for
vector maps. The U.S. Census bureau provides such data in their
TIGER/Line series <http://www.census.gov/geo/www/tiger/>
>
> Those of us doing the work are particularly interested in maps of things
> such as earthquake fault zones and city locations.
>
> Is there some type of program that can import a drawing such as a GIF file
> and reproduce its major structures in a Gnuplot compatible file?
Not likely. A GIF file is a rasterized image: a set of pixels, each
with its own color and intensity. Gnuplot works with (x,y) values that
define points and lines, commonly called "vector" data. While it is
possible to extract line data from a raster image, it is not easy.
>
> Gnuplot drawings are easy to create. And we will do that if necessary. But
> if files like that are already available then that would save some time.
>
> Something I suggested in the past is that commands be built into Gnuplot
> that enable it to import a picture file such as a GIF file and use it as the
> computer screen background instead of just having solid color backgrounds.
You are mistaking Gnuplot for a general-purpose drawing and
presentation program. It is not. It is a scientific plotting program
and Gnuplot users have little need for fancy graphics.
> 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. My Perl
> programs have always been fairly robust. They keep running even when they
> encounter problems such as with sharing files with other programs. However,
> with the original interactive Perl - Gnuplot link I developed, Gnuplot would
> crash on regular basis. The Perl - Gnuplot pipe changes everything.
> Gnuplot now keeps running almost no matter what happens. It never seems to
> crash regardless of how fast Perl sends it commands.
Did you try using the Gnuplot modules available on CPAN?
> 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.
I am using Perl to run and control Gnuplot under Windows XP and have
not encountered this problem. What code do you use to start Gnuplot?
--
Jim Gibson
------------------------------
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 1951
***************************************
