[8137] in Perl-Users-Digest
Perl-Users Digest, Issue: 1755 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jan 28 22:07:27 1998
Date: Wed, 28 Jan 98 19:00:25 -0800
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, 28 Jan 1998 Volume: 8 Number: 1755
Today's topics:
Re: -dates in perl- (John Moreno)
Re: [silliness] Camel and llama successfully cross-bred (Avram Grumer)
cgi file saving problem... (Quasimodo)
Re: Conversion to an array (Martien Verbruggen)
Re: Don't use signal handlers (was Re: Child processes) <zenin@best.com>
Re: Don't use signal handlers (was Re: Child processes) (Mike Heins)
Re: Don't use signal handlers (was Re: Child processes) <joseph@5sigma.com>
Re: email address (Martien Verbruggen)
Re: FAQ too big (Was: Re: PERL forking) <tchrist@mox.perl.com>
Re: Help with SORT (Gabor)
Re: If somebody has compiled Perl5.003 or 5.004 (Martien Verbruggen)
Re: is "reverse <>" of a list type? (Craig Berry)
Newbie question - UNIX to NT port <onyx01@globalnet.co.uk>
Re: Newbie question - UNIX to NT port <zenin@best.com>
Perl 5.0, IIS 4.0, and writing to files. <vallery@bvsd.k12.co.us>
Re: Perl CGI real-time database application <dagon@halcyon.com>
perl instructors kgj@unx.berkeley.edu
Re: perl on line documentation? <tchrist@mox.perl.com>
Re: perl on line documentation? (Richard Bellavance)
Re: perl on line documentation? (Gabor)
Perl Resource Kit (PRK) problem <rp10681@online-club.de>
Re: PERL5x4x4 fails on 'make' (Nathan V. Patwardhan)
Re: PGPLOT: Can fonts be preserved in postscript outpu (Martien Verbruggen)
Re: Regular expression help.... <ajh@rtk.com>
Re: replacement for ls command? (Richard Bellavance)
Re: Survival Of perl <bmelson@swbell.net>
Re: under what shell system(...) runs the unix command? (Andrew M. Langmead)
UNIX to Win: Script *Still* Won't Go (N.A.F. McNelly)
wraping *.pl ... <kbookan@watserv1.uwaterloo.ca>
Re: wraping *.pl ... (brian d foy)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 28 Jan 1998 19:08:44 -0500
From: phenix@interpath.com (John Moreno)
Subject: Re: -dates in perl-
Message-Id: <1d3krfp.1c7o22t1x0ml41N@roxboro0-034.dyn.interpath.net>
James <James@cydaps.co.uk> wrote:
> Hi,
>
> I have managed to get a perl script to detect the date in a textfile
> (written in seconds for ease instead of a normal format such as
> 31/01/98) and if the date is older than, or matches the date today then
> it deletes the line in the text file. The problem that I have is that
> each day an email is sent out to the user telling them about the latest
> news regarding our services, but what I want to be able to do is to
> place a line of text saying that their registration is due to expire on
> the ....... (whatever date) in a clear format, not in seconds!
>
> I can mange to do this for todays date, but how would I do it from a
> variable containing a date in seconds, ie 886008059 (which would become
> the 28/01/98)?
First off, the date in seconds is NOT platform independent.
Secondly look at the manual and faq and localtime.
--
John Moreno
------------------------------
Date: Wed, 28 Jan 1998 21:39:50 -0500
From: avram@interport.net (Avram Grumer)
Subject: Re: [silliness] Camel and llama successfully cross-bred!
Message-Id: <avram-2801982139510001@avram.port.net>
In article <6andmu$4o91@sapphire.mtt.net>, altheim@agc.bio.ns.ca (Brian
Altheim) wrote:
> It's true! See for yourself! I hate to contemplate what this
> means for O'Reilly's perl books in the future.
My first reaction when I heard about this a few days ago was "Now
O'Reilly's got something to put on the CD-ROM."
--
Avram Grumer | avram@interport.net | http://www.users.interport.net/~avram/
"My whole life is interactive, and that doesn't mean a lot
of it doesn't suck" -- Daniel Radosh
------------------------------
Date: Thu, 29 Jan 1998 05:24:02 GMT
From: mahubbar@mail.vt.edu (Quasimodo)
Subject: cgi file saving problem...
Message-Id: <6aop4a$jes@news1.infoave.net>
I'm very new to Perl, and to CGI in general, but I wrote a little
script that takes the data from a form, parses it, and is then
supposed to give it HTML headers and save it to an html file. I can
view the $string outputted, and it all works correctly, but it spits
out errors when it gets to the file saving part.
Here's the code that is supposed to name and write the file:
#---------
$unique = charname;
$char_file =
"http://www.geeksusa.com/mahubbar/characters/".$unique.".html";
open (DUMMY, ">$char_file");
print DUMMY $message;
close (DUMMY);
unlink($char_file);
#--------
This is mostly gleened from examples, so I'm probibly completely off
the mark here... anyway, please let me let me know what I'm doing
wrong :)
thanks,
mark hubbard
------------------------------
Date: 29 Jan 1998 02:08:38 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Conversion to an array
Message-Id: <6aoob6$kpe$1@comdyn.comdyn.com.au>
In article <6anu4r$nd2@shell.clark.net>,
hdiwan@shell.clark.net (Hasan Diwan) writes:
> Barring syntax errors, this foreach loop should do it:
Nope. It shouldn't. And those are some serious syntax errors.
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Begin at the beginning and go on till
Commercial Dynamics Pty. Ltd. | you come to the end; then stop.
NSW, Australia |
------------------------------
Date: 29 Jan 1998 00:54:42 GMT
From: Zenin <zenin@best.com>
Subject: Re: Don't use signal handlers (was Re: Child processes)
Message-Id: <886035582.810074@thrush.omix.com>
Chip Salzenberg <chip@mail.atlantic.net> wrote:
: You should not use signal handler subroutines in Perl programs you
: depend on. Perl doesn't do signals right, yet.
Perl does signals as perfectly as your OS can. Of course, on
a Solaris (and pretty much any other SysV derived joke) signals
are broken nearly to the point of useless, but then so is most
IPC and networking code so anyone using such systems should be
well adapted to creating work arounds and kluges already. :-)
Under FreeBSD, I can do almost anything I want that doesn't go
into deep recursive calls inside signal handles without ever a
problem. Under Solaris, I can do something as simple as just
setting a global and get a SEGV... :-/ I've taken to fifos and
select() calls for user control of running daemons when working
on SysV machines...
--
-Zenin
zenin@best.com
------------------------------
Date: 29 Jan 1998 01:53:25 GMT
From: mheins@prairienet.org (Mike Heins)
Subject: Re: Don't use signal handlers (was Re: Child processes)
Message-Id: <6aonel$evo$1@vixen.cso.uiuc.edu>
Zenin (zenin@best.com) wrote:
: Chip Salzenberg <chip@mail.atlantic.net> wrote:
: : You should not use signal handler subroutines in Perl programs you
: : depend on. Perl doesn't do signals right, yet.
:
: Perl does signals as perfectly as your OS can. Of course, on
: a Solaris (and pretty much any other SysV derived joke) signals
: are broken nearly to the point of useless, but then so is most
: IPC and networking code so anyone using such systems should be
: well adapted to creating work arounds and kluges already. :-)
:
: Under FreeBSD, I can do almost anything I want that doesn't go
: into deep recursive calls inside signal handles without ever a
: problem. Under Solaris, I can do something as simple as just
: setting a global and get a SEGV... :-/ I've taken to fifos and
: select() calls for user control of running daemons when working
: on SysV machines...
:
: --
: -Zenin
: zenin@best.com
As one of the lead perl-porters, I am sure Chip knows what he
is saying.
I have one of the applications Chip is talking about. It is a long-lived
process which cannot restart transparently. I use signals, but they do
cause problems from time to time. Usually the problems come on heavily
loaded machines which hit the inevitable race condition.
Oddly enough, I have found the libraries on BSD to be *less* signal-safe than
Linux and Solaris. They don't even pretend to be re-entrant. In particular,
I have trouble when a socket connect is interrupted by a signal --
and all I do is increment a global. I don't use signals at all on BSD.
Solaris signals are very bad unless you do things the rather lousy
SysV way. It definitely takes a different signal handler -- I use
different ones depending on the OS. But my application defaults to using
signals on Solaris, and not on BSD.
--
Regards,
Mike Heins
This post reflects the
opinion of my employer.
------------------------------
Date: Wed, 28 Jan 1998 19:23:20 -0700
From: "Joseph N. Hall" <joseph@5sigma.com>
Subject: Re: Don't use signal handlers (was Re: Child processes)
Message-Id: <34CFE7C5.EA43973A@5sigma.com>
I'm going to have to temper what I just said. It's pretty likely
that $SIG{CHLD} = sub { wait } is going to cause a problem if
your program is spawning and reaping children at a good clip
for a period of time. I can't remember seeing it happen before
since I've never had an application like that. But it will bite
you sooner or later.
You could avoid that particular problem with a double fork, or
if you are certain that your script will run only on SysV machines,
by setting setting $SIG{CHLD} to ignore. For a heavy-duty application
it would probably be best to code the spawning application in C or
C++ though. You could still write the server processes in Perl.
I am definitely looking forward to seeing signals working more
reliably in the future, though.
-joseph
Joseph N. Hall wrote:
>
> Not to dispute the truth of what you say, because it is true,
> but ...
>
> Well, signals do mostly work. I don't see what's wrong with using
> $SIG{CHLD} considering that it certainly will be fixed in the
> forseeable future. I can't remember when I saw $SIG{CHLD} =
> sub { wait } cause a problem.
>
> Besides, how much more suitable for mission critical applications
> is the rest of Perl, anyway? And when you get down to it, there
> is no substitute for installing signal handlers, so we just have
> to make the best of what's there now.
>
> Chip Salzenberg wrote:
> >
> > According to Michel Prevost <michel.prevost@cactuscom.ca_REMOVE_TO_MAIL>:
> > >For this, I've assigned a subroutine reference to $SIG{CHLD}.
> >
> > You should not use signal handler subroutines in Perl programs you
> > depend on. Perl doesn't do signals right, yet.
> >
> > ($SIG{__WARN__} and $SIG{__DIE__} are not really signal handlers, so
> > they're safe.)
--
Joseph N. Hall, prop., 5 Sigma Productions mailto:joseph@5sigma.com
Author, Effective Perl Programming . . . . . http://www.effectiveperl.com
Perl Training . . . . . . . . . . . . . . . http://www.perltraining.com
------------------------------
Date: 29 Jan 1998 00:57:15 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: email address
Message-Id: <6aok5b$k9q$2@comdyn.comdyn.com.au>
In article <34CF3C3C.41C6@meta3.com>,
Ken Holm <rets@meta3.com> writes:
> Following is a non-optimal function that returns true or false for an
> email passed to it. This certainly is not fool proof but works well
> enough to use:
[big snip]
really? And you posted this as a follow-up to my post? Check out this:
http://www.qz.to/~eli/faqs/addressing.html
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Advertising: The science of arresting
Commercial Dynamics Pty. Ltd. | the human intelligence long enough to
NSW, Australia | get money from it.
------------------------------
Date: 29 Jan 1998 00:02:32 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: FAQ too big (Was: Re: PERL forking)
Message-Id: <6aoguo$46j$1@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, aml@world.std.com (Andrew M. Langmead) writes:
:OK, so many Windows users don't realize that ...
:And these people would rather post to Usenet to find their answers
:rather than do _anything_ to get themselves out of this situation?
:Then can someone remind my why I spend my time here?
Excellent question. Notice I kill as much as I can related that
would appear related to POBs and KLBs.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
"It's later than you don't think." --Larry Wall
------------------------------
Date: 29 Jan 1998 01:33:26 GMT
From: gabor@vmunix.com (Gabor)
Subject: Re: Help with SORT
Message-Id: <slrn6cvmq4.5kq.gabor@vnode.vmunix.com>
In comp.lang.perl.misc, Dave Downin <downin@smarty.smart.net> wrote :
# Help! I'm trying to sort a list into sort of an index fashion. I have the
# following code which doesn't do the full job:
#
# #!/usr/bin/perl
#
# @list = (0,1,1.1,1.10,1.2,2.1);
@list = qw(0 1 1.1 1.10 1.2 2.1);
the rest is fine.
#
# @newlist = sort { $a <=> $b } @list;
#
# foreach $value (@newlist) {
# print "$value\n";
# }
#
# So I get:
# 0
# 1
# 1.1
# 1.1
# 1.2
# 2.1
#
# What I want is:
# 0
# 1
# 1.1
# 1.10
# 1.2
# 2.1
#
# --
# Dave Downin (dave@arlo.net)
# =============================================================================
# "And the faces of the comrades, Being blown out of the sky, Leaves you bitter
# with the feeling, That they didn't have to die" - Arlo Guthrie
# ArloNet - http://www.arlo.net/
# =============================================================================
------------------------------
Date: 29 Jan 1998 02:13:39 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: If somebody has compiled Perl5.003 or 5.004
Message-Id: <6aookj$kpe$2@comdyn.comdyn.com.au>
In article <34CEE695.5F58@club-internet.fr>,
STOCK Fridiric <bidouye@club-internet.fr> writes:
> Hello,
>
> If somebody has compiled Perl5.003 or Perl5.004 under SCO Unix R3.2V4.2,
> please let me know !!!
And then you will send them a check? :)
Seriously: are you having problems? What are the problems? Do you want
a binary? If so, why didn't you ask?
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | In a world without fences, who needs
Commercial Dynamics Pty. Ltd. | Gates?
NSW, Australia |
------------------------------
Date: 29 Jan 1998 02:47:24 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: is "reverse <>" of a list type?
Message-Id: <6aoqjs$f9f$2@marina.cinenet.net>
brian d foy (comdog@computerdog.com) wrote:
: In article <6amdv8$r9q$1@marina.cinenet.net>, cberry@cinenet.net (Craig Berry) posted:
: > You needn't even 'find out the index of the last element; use negative
: > indices as in my earlier post on this thread, essentially
: >
: > @lines = <>;
: > print @lines[-N .. -1];
:
: of course, on should ensure that there are that N lines to print
: or things will get kinda wierd. this involves knowing how many
: lines there are... :)
Yeah, well, you'd accept a desired tail length param, take the min of that
and scalar @lines, negate the result, and then use *that* as the left-hand
range value. If you weren't just cranking out an example, of course. :-)
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: 29 Jan 1998 00:16:06 GMT
From: "Richard Wilson" <onyx01@globalnet.co.uk>
Subject: Newbie question - UNIX to NT port
Message-Id: <01bd2c4b$0e33ff60$610d93c3@onyx>
Hello,
An easy question here! I've been asked if an application which uses ORACLE
RDBMS and Perl can be ported from a HP-UX platform to NT. I know the
migration of ORACLE will be reasonably straight forward, but not being an
NT person I'm unsure about Perl. Reading some of the mail on this news
site indicates Perl is available for NT. Does anyone have any experience
of porting from UNIX to NT, and where do I get Perl from (for NT)?
Any advice will be gratefully received!
Thanks
------------------------------
Date: 29 Jan 1998 00:56:21 GMT
From: Zenin <zenin@best.com>
Subject: Re: Newbie question - UNIX to NT port
Message-Id: <886035682.226504@thrush.omix.com>
Richard Wilson <onyx01@globalnet.co.uk> wrote:
: Does anyone have any experience
: of porting from UNIX to NT, and where do I get Perl from (for NT)?
http://www-personal.umich.edu/~gsar/perl5.00402-bindist04-bc.zip
--
-Zenin
zenin@best.com
------------------------------
Date: Wed, 28 Jan 1998 15:04:27 -0700
From: Jason Vallery <vallery@bvsd.k12.co.us>
Subject: Perl 5.0, IIS 4.0, and writing to files.
Message-Id: <Pine.GSO.3.96.980128145456.29464A-100000@bvsd.k12.co.us>
I have had great sucess thanks to the help of everyone on this group
actually getting Perl up and running with IIS. Now my probably is taking
an existing program and getting it to work on NT from Unix. I have user
perl for a while now and am rather familiar with it.. The NT thing has me
confused. When I try to open a file and print to it everything appears to
go well, but the files is empty..
I have tried this
open(FILE,"temp.txt");
print FILE "This is a file test\n";
Even trying to get a error message back by doing this.
sub print {
if (! open(LOG,">>$logfile")) {
print "Can't open the file\n";
exit;
}
print LOG "blah blah blah\n";
close (LOG);
}
With either of those it fails to work, or report the error message.
I have checked the file perms. and they see to be ok in both IIS and the
regualer perms..
Thanks in advance.
_____________________________________________
/ __________ Jason Ray Vallery \
| | ___)_ |
| | _____) vallery@bvsd.k12.co.us |
| | ______) guide4@bvsd.k12.co.us |
| | _______) vallery@usa.net |
| \_______) vallery_j@gems.colorado.edu |
\_____________________________________________/
------------------------------
Date: 28 Jan 1998 16:09:11 -0800
From: Mark Rafn <dagon@halcyon.com>
Subject: Re: Perl CGI real-time database application
Message-Id: <6aohb7$71t$1@halcyon.com>
[posted and CC'd. Followups set to comp.infosystems.www.authoring.cgi]
Sarah.Kamal@cgy.valmet.com arranged electrons in a pattern like this:
>The application has to display data from a UNIX server on a PC. I was
>thinking that I would write a perl cgi script for this and display with
>an html page of tables.
I like it. I use this approach a lot.
>The real problem is that the data on the page
>has to update continuously while the page is open and I'm not sure
>how a cgi script can run continuously.
Depends on what you mean by "continuously". It's pretty easy to ask a
browser to automatically reload a page every 60 seconds by putting <META
HTTP-EQUIV="refresh" CONTENT="60;URL="http://blahblah.com/fnord/data.cgi">.
You then use cookies or some other method to preserve state information
between requests. For smaller numbers of users, and smallish data
displays, this scales down to 10 seconds or so. Shorter than that
causes reading difficulty due to the blank screen during refresh.
For truly continuous updates in a web browser, Java is probably the best
solution.
--
Mark Rafn dagon@halcyon.com <http://www.halcyon.com/dagon/> !G
------------------------------
Date: Wed, 28 Jan 1998 19:11:43 -0600
From: kgj@unx.berkeley.edu
Subject: perl instructors
Message-Id: <886030857.537329673@dejanews.com>
UC Berkeley Extension is currently seeking qualified candidates to teach
one day Perl courses for the public and for in-company presentations.
Interested and qualified candidates may contact Karl Johnson,
kgj@unx.berkeley.edu
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: 29 Jan 1998 00:06:35 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: Re: perl on line documentation?
Message-Id: <6aoh6b$46j$2@csnews.cs.colorado.edu>
[courtesy cc of this posting sent to cited author via email]
In comp.lang.perl.misc, mwang@alhena.ibk.ml.com (Michael Wang) writes:
:Does perl has on line documentation? For example, if I
:want to find the syntax for truncate, seek, split? Thanks.
You are either trolling for abuse, or really need help in
a big way. Maybe both.
Every single Perl installation has documentation included with it
totaling over 1,000 printed pages if typeset.
man perl
man perlfunc
man perlfaq
man Socket
man IPC::Open3
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
Unix never says `please.' -- Rob Pike
------------------------------
Date: 28 Jan 1998 19:49:46 -0500
From: charlot@CAM.ORG (Richard Bellavance)
Subject: Re: perl on line documentation?
Message-Id: <6aojna$6js@stratus.CAM.ORG>
In article <6aoh6b$46j$2@csnews.cs.colorado.edu>,
Tom Christiansen <tchrist@mox.perl.com> wrote:
> [courtesy cc of this posting sent to cited author via email]
>
>In comp.lang.perl.misc, mwang@alhena.ibk.ml.com (Michael Wang) writes:
>:Does perl has on line documentation? For example, if I
>:want to find the syntax for truncate, seek, split? Thanks.
>
>You are either trolling for abuse, or really need help in
>a big way. Maybe both.
>
<g>
>Every single Perl installation has documentation included with it
>totaling over 1,000 printed pages if typeset.
>
> man perl
> man perlfunc
> man perlfaq
> man Socket
> man IPC::Open3
>
I just wanted to point out that if you're running Perl on a Win32 "OS",
you should use "perldoc" instead of "man" to access the documentation.
Richard, sometimes cursed to work on Windoze.
--
Richard Bellavance -- charlot@cam.org -- http://www.cam.org/~charlot/
"All along this path I tread / My heart betrays my weary head
With nothing but my love to save / From the cradle to the grave"
(Eric Clapton, "From the cradle")
------------------------------
Date: 29 Jan 1998 01:27:12 GMT
From: gabor@vmunix.com (Gabor)
Subject: Re: perl on line documentation?
Message-Id: <slrn6cvmee.5kq.gabor@vnode.vmunix.com>
In comp.lang.perl.misc, Michael Wang <mwang@alhena.ibk.ml.com> wrote :
# Does perl has on line documentation? For example, if I
# want to find the syntax for truncate, seek, split? Thanks.
perldoc -f func
------------------------------
Date: Thu, 29 Jan 1998 00:31:41 +0100
From: Frank <rp10681@online-club.de>
Subject: Perl Resource Kit (PRK) problem
Message-Id: <34CFBFDD.198AAB04@online-club.de>
Hi there,
I tried to run the setup-script of PRK (Linux 2.0.32). It terminates
with
Starting up Tk...hang on...
perl: can't load library 'libdb.so.2'
Hmm. Strange.
I recompiled perl version 5.004_04 with dynamic loading of all available
libraries enabled but that had no effect.
Using "perl -MCPAN -e shell" and trying to update some modules I mostly
get "perl: can't resolve symbol 'dowarn'" and after looking for some new
files at CPAN-site, perl dumps with:
perl: can't resolve symbol 'safemalloc'
Yes, I disabled the special malloc subroutine in the perl-configuration
as it's described on page 21 of the Util Guide... And, of course, I
build a shared libperl.so....
What's wrong? Any idea?
Thank you for answering any suggestions.
Frank
------------------------------
Date: 29 Jan 1998 02:33:55 GMT
From: nvp@shore.net (Nathan V. Patwardhan)
Subject: Re: PERL5x4x4 fails on 'make'
Message-Id: <6aopqj$5i8@fridge.shore.net>
G Dimitoglou (george@esa.nascom.nasa.gov) wrote:
: ar message snipped
: *** Error code 1
: make: Fatal error: Command failed for target `libperl.a'
When you ran Configure, did it announce an error anywhere? If you're
using Sun's CC, are you using the binutils in /usr/ccs/bin? Looks
like it couldn't find `ar` anywhere.
--
Nathan V. Patwardhan
------------------------------
Date: 29 Jan 1998 02:32:03 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: PGPLOT: Can fonts be preserved in postscript output?
Message-Id: <6aopn3$kpe$3@comdyn.comdyn.com.au>
In article <6anmdh$57u1@sapphire.mtt.net>,
altheim@agc.bio.ns.ca (Brian Altheim) writes:
> I've run into a small problem using pgplot. After my happy little program
Since the PGPLOT module is simply a perl wrapper around the pgplot
libraries, you migth want to investigate if this is something that is
generic to any pgplot stuff, or if it is somehting that maybe the perl
module hasn't implemented. The documentation of the module doesn't
seem to mention fonts at all, so it's unlikely users of the module
will know. Maybe you should try contacting the author?
(package status: Rdof, the d means that support can be requested from
the developer)
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | If it isn't broken, it doesn't have
Commercial Dynamics Pty. Ltd. | enough features yet.
NSW, Australia |
------------------------------
Date: Wed, 28 Jan 1998 17:40:16 -0800
From: "Aaron Harsh" <ajh@rtk.com>
Subject: Re: Regular expression help....
Message-Id: <6aomlq$rvv$1@brokaw.wa.com>
Kevin Miles wrote in message <34CFBA08.261D@erols.com>...
>Steel Viper wrote:
>> All I am trying to do is find the first 10 digit number that I
>> come to while reading a file, and then I want to replace it with
>> whatever number I desire (I'm changing serial numbers across a bunch of
>> files). I am having difficulty coming up with a
>> regular expression to do this. Thank you very much in advance.
> ...
>or , if you might have numbers with more than 10 digits
>
>$_ =~ s/\D+\d{10}\D+/WHATEVER/
This one acts a little funny -- it will change this:
"Serial #: 0123456789, Qty: 50"
into this:
"WHATEVER50"
and it won't match the serial number if it's at either the beginning or end
of the line. This should work:
s/(\D|^)\d{10}(\D|$)/$1WHATEVER$2/
Aaron Harsh
ajh@rtk.com
------------------------------
Date: 28 Jan 1998 19:44:21 -0500
From: charlot@CAM.ORG (Richard Bellavance)
Subject: Re: replacement for ls command?
Message-Id: <6aojd5$6h8@stratus.CAM.ORG>
In article <6ao9pb$lne$1@news.ml.com>,
Michael Wang <mwang@alhena.ibk.ml.com> wrote:
>>Is there an equivalent way of doing a Unix ls command? For example,
>> @found=`ls abc*/def*/some*.txt`;
>>
>>Without resorting to ``, or system, of course.
>
>I do not understand this. Is perl supposed to be a super set
>of C, ksh, or what? Otherwise why people constantly ask how do I
>do this and that in perl as I do in unix command, ksh, etc.
>
You know, many of those questions look like they come straight out of a
CS course assignement. Could be that some "creative" students are looking
for people to do their homework... I'm not saying this particular question
is one of those, but I've often wondered about it...
Richard.
--
Richard Bellavance -- charlot@cam.org -- http://www.cam.org/~charlot/
"All along this path I tread / My heart betrays my weary head
With nothing but my love to save / From the cradle to the grave"
(Eric Clapton, "From the cradle")
------------------------------
Date: Wed, 28 Jan 1998 19:03:15 -0600
From: Robert Melson <bmelson@swbell.net>
Subject: Re: Survival Of perl
Message-Id: <34CFD553.41C67EA6@swbell.net>
Frank wrote:
> BUT unless it remains TOP NOTCH with regard to the alternatives, the
> monster corporations will stomp on it and we'll all be eating crap in
> the bargain.
>
> Frank
And for *my* $0.02, I'd say it ain't necessarily so. Perl, I submit,
has succeeded *despite* the big corporations with their multi-eegabuck
development budgets. One has only to look at -- gawd help me! -- REXX
and the push it initially received from IBM and compare it's success
with that of Perl.
Perl will continue in use so long as its user community finds it useful
in solving the problems with which they are confronted and for which
it's the appropriate tool; the minute that stops being the case, or the
problems' complexity grows beyond Perl's capabilities, then Perl will
lose it's standing and its user community. IMHO, that doesn't appear
likely any time in the forseeable future, given the strength and
ingenuity of the user community (what I like to consider the Perl
Underground). Yes, Perl has warts and, yes, it doesn't lend itself to
every problem. One of the challenges of this profession is the
selection of the proper tool for the job at hand; more often than not,
Perl is the right tool, but on those occasions it isn't, you have the
responsibility of selecting that tool.
--
----------------------------------------------------------------------------
Bob Melson The right to be heard does not include
Rio Grande Microsolutions the right to be taken seriously
El Paso, TX bmelson@swbell.net Hubert Humphrey
----------------------------------------------------------------------------
------------------------------
Date: Thu, 29 Jan 1998 01:20:02 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: under what shell system(...) runs the unix command?
Message-Id: <EnIuDH.6nK@world.std.com>
mwang@alhena.ibk.ml.com (Michael Wang) writes:
>under what shell system(...) runs the unix command?
>ksh or sh or the shell that starts the perl? And where
>it is documented? Thanks.
The documentation for system() in the perlfunc man page references the
entry for exec(), and it says:
>If there is more than one argument in LIST, or if LIST is an array with
>more than one value, calls execvp(3) with the arguments in LIST. If
>there is only one scalar argument, the argument is checked for shell
>metacharacters, and if there are any, the entire argument is passed to
>the system's command shell for parsing (this is C</bin/sh -c> on Unix
>platforms, but varies on other platforms). If there are no shell
>metacharacters in the argument, it is split into words and passed
>directly to execvp(), which is more efficient.
So if you call system() with one argument, and the argument contains
shell metacharacters, perl calls the Bourne shell.
But notice, some systems now no longer have a true Bourne shell as
/bin/sh. Free Unix systems and Free Unix clones may have a shell like
BASH, and I've been told some systems make /bin/sh a link to the Korn
shell.
If you need a specific shell, you can always call it explicitly:
system('/bin/ksh', '-c', $args);
--
Andrew Langmead
------------------------------
Date: Wed, 28 Jan 1998 21:11:41 -0500
From: nmcnelly@bu.edu (N.A.F. McNelly)
Subject: UNIX to Win: Script *Still* Won't Go
Message-Id: <nmcnelly-2801982111410001@ppp-92-30.bu.edu>
In article <nmcnelly-2201982204270001@ppp-82-12.bu.edu>, nmcnelly@bu.edu
(N.A.F. McNelly) wrote:
> I am trying to help a friend install one of my scripts on
> a Windows 95 machine running Win32 perl. The number-crunching
> bit works just fine, but when it gets to graphics, it's useless.
> I've checked repeatedly, and he has the script in the same
> directory with the gifs, where it should be.
Thanks for all who gave advice, but Win still won't run it.
His new error message is:
Test1 error message - Can't call method "copy" without a package or reference
at c:\perl\datef\test1.pl line 15
Since this script uses GD.pm, could that be where the source of
where the error lies? The text that gave the above error message is:
#!/usr/local/bin/perl
use GD;
print "Enter The Desired Name of the Output File: ";
$name=<STDIN>;
$last=".gif";
$nme=$name . $last;
$file = 'C:/perl/datef/start.gif';
open (GIF, $file) || die "$file: $!";
$im = newFromGif GD::Image(GIF);
close GIF;
$fileb = 'C:/perl/datef/baktun.gif';
open (GIF, $fileb) || die "$fileb: $!";
$src = newFromGif GD::Image(GIF);
close GIF;
$im->copy($src,169,271,0,0,83,116);
open(OUT,">$nme") || die;
binmode (OUT);
print OUT $im->gif;
close(OUT);
print "\n";
print "There should now be a gif named ";
chop ($name);
print "$name";
print ".gif\n";
print "in the datef directory"
.................................................................
Nancy McNelly
http://www.halfmoon.org/
Rabbit in the Moon: Mayan Hieroglyphics and Architecture
------------------------------
Date: Thu, 29 Jan 1998 00:24:37 GMT
From: Koorus Bookan <kbookan@watserv1.uwaterloo.ca>
Subject: wraping *.pl ...
Message-Id: <34CFCC45.F3734474@watserv1.uwaterloo.ca>
I can't get Domino(or any other) server to run a batch file that has
"@echo off" in it.
Anyone knows why?
KB
------------------------------
Date: Wed, 28 Jan 1998 20:40:46 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: wraping *.pl ...
Message-Id: <comdog-ya02408000R2801982040460001@news.panix.com>
Keywords: from just another new york perl hacker
Please read this information on how to choose a good subject for a post:
<URL:http://www.perl.com/CPAN/authors/Dean_Roehrich/subjects.post>
In article <34CFCC45.F3734474@watserv1.uwaterloo.ca>, Koorus Bookan <kbookan@watserv1.uwaterloo.ca> posted:
> I can't get Domino(or any other) server to run a batch file that has
>"@echo off" in it.
>Anyone knows why?
maybe someone in a newsgroup devoted to Domino? not only is this
not a perl question, but "Perl" appears nowhere in the post. why
would you think that this was the place to post it?
>X-Mailer: Mozilla 4.04 [en] (WinNT; I)
ahhh... two clues...
--
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>
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.
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 1755
**************************************
