[15704] in Perl-Users-Digest
Perl-Users Digest, Issue: 3117 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 22 06:06:00 2000
Date: Mon, 22 May 2000 03:05:19 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <958989919-v9-i3117@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 22 May 2000 Volume: 9 Number: 3117
Today's topics:
Re: [2nd post] Perl for Windows - Plz somebody help... <gellyfish@gellyfish.com>
Activestate perl <Colin@Chaplin.org.uk>
Re: Comparing variables in a conditional "if" statement <gellyfish@gellyfish.com>
Re: ctime.pl problem <gellyfish@gellyfish.com>
Re: Global variables to apply to multiple Perl scripts <thepoet1@arcormail.de>
Re: Global variables to apply to multiple Perl scripts <apietro@my-deja.com>
Got HOWTO advice? (Tic Toc)
Help with 500 Internal Server Error <please@no.spam>
Re: Help with Perl semantics <notacceptingspam@nowhere.can>
Re: Help with Perl semantics (Eric Bohlman)
Re: HTML in Perl Script ? <lancelotboyle@hotmail.com>
Re: Looking for a good editor... <nospam@devnull.com>
more pattern matching questions <nospam@devnull.com>
Re: more pattern matching questions (Eric Bohlman)
Need HOWTO advice? (Tic Toc)
Re: Newbie on Perl/CGI, which editor is the best on NT? <gchandra@lw1.vsnl.net.in>
Re: Ooops+ [Re: regexes *sigh* damn I hate these things <nospam@devnull.com>
Re: Pattern match ? <rick.delaney@home.com>
Re: Pattern match ? <nospam@devnull.com>
Re: Pattern match ? <phill@modulus.com.au>
Re: Pattern match ? <uackermann@orga.com>
Re: Pattern match ? <nospam@devnull.com>
Re: Perl and Win32 Common Dialogs - Is it possible? <gellyfish@gellyfish.com>
Perl/Unix conflict with ";" in rsh <m.abramowski@ic.ac.uk>
pl2exe missing from ActivePerl <r28629@email.sps.mot.com>
Re: Recommendations on a Perl/MySQL book or chapter? <gellyfish@gellyfish.com>
Re: Recommendations on a Perl/MySQL book or chapter? <dave@dave.org.uk>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 21 May 2000 18:08:41 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: [2nd post] Perl for Windows - Plz somebody help...
Message-Id: <8g956p$nu6$1@orpheus.gellyfish.com>
On Fri, 19 May 2000 23:23:10 GMT Lobo wrote:
> Hello there.
>
> I guess many people must ask and want this, so please if anybody can
> give me some information about...
Then if this was the case why cant you search in Deja news ?
>
> I want to install Perl on my computer. I'm currently running Windows
> 98 and these are my questions - things that I'm really worried about:
>
> 1) Wich one is the best webserver to run perl on windows (free, if
> possible)?
>
You will want to ask in the group comp.infosystems.www.servers.ms-windows about
this as this has nothing to do with Perl.
> 2) Do I HAVE to get ActiveState? I've heard a lot of criticism about
> ActiveState, so I'm really scared. Is there any other kind of Perl for
> Windows?
>
And what precisely is this criticism ? Unless you care to build the perl
yourself Activeperl is the only choice and I have experienced no more problems
with it than with 5.6.0 compiled on Unix ...
> 3) I've installed Perl Builder here, wich seems to have a Perl
> interpreter. How is that? If it really have a Perl interpreter, how
> can I update it - to Perl 5.0.0.6, for an example? If I install this
> ActiveState it will conflict with
> Perl Builder's interpreter?
I dont care.
/J\
--
No! No no no no no no! Well, yes.
--
fortune oscar homer
------------------------------
Date: Mon, 22 May 2000 10:03:09 +0100
From: "Colin Chaplin" <Colin@Chaplin.org.uk>
Subject: Activestate perl
Message-Id: <8gat5h$gas$1@pheidippides.axion.bt.co.uk>
I was moving an app of mine to a new server and grabbed the latest version
of activestate perl (613). (new server in question, NT4 SP5 Quad Xeon, 650MB
Ram)
My application didn't work, which I couldn't understand, and to help
debugging I put in this snippet of code:
print "T: $testy SH: $starthash FH $finhash<BR>";
if (($testy > $starthash) && ($testy < $finhash))
{
now these numbers in question were dates in numerical format e.g. 20000512
and when run via IIS it was telling me that no numbers were in the range
(when plainly, they were)
Tried everything and had somone double check the code, an eventally came up
with conclusion that perl is buggy. Installed the version that was on the
old machine (522), hit reload on the webpage, and it worked !!
Weird or what ? Has anyone seen this before ?
------------------------------
Date: 22 May 2000 08:12:59 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Comparing variables in a conditional "if" statement..PLEASE HELP!!
Message-Id: <8gamlr$88a$1@orpheus.gellyfish.com>
On Sat, 20 May 2000 23:25:20 -0700 Larry Rosler wrote:
>
> But in most operating systems you cannot lock a ile
> opened only for reading, nor would you want to.
>
Shouldn't that be 'cannot take out an exclusive lock' - although I assume you are
refering to :
Note that the emulation built with lockf(3)
doesn't provide shared locks, and it requires that
FILEHANDLE be open with write intent. These are
the semantics that lockf(3) implements. Most if
not all systems implement lockf(3) in terms of
fcntl(2) locking, though, so the differing
semantics shouldn't bite too many people.
from the perlfunc manpage.
/J\
--
Do I know what rhetorical means?
--
fortune oscar homer
------------------------------
Date: 22 May 2000 07:04:57 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: ctime.pl problem
Message-Id: <8gaim9$s1u$1@orpheus.gellyfish.com>
On Fri, 19 May 2000 11:40:24 -0700 Samay wrote:
> I am trying to print something on webpage via perlscript.
> And I get error/warning on the webpage along with other stuff..
>
> Prototype mismatch: sub main::ctime (;$) vs none
> at /usr/local/lib/perl5/ctime.pl line 50.
>
> I am using: 5.004_04 built for sun4-solaris
>
> How I can prevent this error coming to webpage..?? or do I need
> to update perl or ctime.pl??
>
I would take note of the comment in the top of the library file :
# This library is no longer being maintained, and is included for backward
# compatibility with Perl 4 programs which may require it.
#
# In particular, this should not be used as an example of modern Perl
# programming techniques.
#
# Suggested alternative: the POSIX ctime function
Although I have a suspiscion that you might have a non-standard ctime.pl as the
one I have doesnt have any prototyping (and why would it being a Perl 4 hangover)
and doesnt give that message whatever I do with it.
/J\
--
I like my beer cold...my TV loud...and my homosexuals flaming.
--
fortune oscar homer
------------------------------
Date: Sun, 21 May 2000 22:30:10 +0200
From: Christian Winter <thepoet1@arcormail.de>
Subject: Re: Global variables to apply to multiple Perl scripts
Message-Id: <i0h9g8.9c4.ln@usenet-autoren.de>
A Pietro <apietro@my-deja.com> schrob:
> So my scripts *can* be run on other machines, *but* the user will have to
> edit 6 or so scripts.
> Whats the best way round this?
Well, that depends. You could include a little perl script in your
distribution that does the changes, something like:
---------configureit.pl------------
#!/usr/bin/perl
my $answer;
my @scripts("s1.pl","s2.pl","s3.pl");
# such a block for every option:
print "Please enter path for blabla: ";
unless ( $answer ) {
$answer = <STDIN>;
}
foreach( @scripts ) {
open( IN, "<$_" ) or die $!;
open( OUT, ">$_.new ) or die $!;
while( <IN> ) {
if( /\$BLABLA_DIR/ ) {
print OUT '$BLABLA_DIR = "'.$a.'";\n";
} else {
print OUT $_;
}
}
close OUT;
close IN;
rename "$_.new" $_ or die $!;
}
-----------------------------------
HTH
Christian
------------------------------
Date: Mon, 22 May 2000 09:46:21 +0100
From: "A Pietro" <apietro@my-deja.com>
Subject: Re: Global variables to apply to multiple Perl scripts
Message-Id: <8gas6u$a53$1@sshuraac-i-1.production.compuserve.com>
I'll have to work through this...will this open each Perl script and replace
$INSTALL_DIR with a new value entered by the user at the keyboard?
I can't see where $a or $BLABLA come from at the moment.
Thanks for your help. Maybe I'll try this with a couple of test files.
AP
------------------------------
Date: Mon, 22 May 2000 05:53:52 GMT
From: tictoc@no_spam.com (Tic Toc)
Subject: Got HOWTO advice?
Message-Id: <3928cb01.334165325@news.xprs.net>
Post it in the Perl online forum at www.vincentwortham.com/discus
------------------------------
Date: Mon, 22 May 2000 08:19:45 GMT
From: "Ray Waters" <please@no.spam>
Subject: Help with 500 Internal Server Error
Message-Id: <B46W4.13542$S31.380862@newsread2.prod.itd.earthlink.net>
Hello,
This shouldn't be a problem, but arrgh, it is. I'm cutting my teeth on
CGI-Perl and so, for learning purposes, I'm trying the simplest exercise
first. I chose to use the venerable cgi-lib.pl in order to exercise
calling subroutines via 'require'. Easy, huh? That's what I thought, but
I've hit a snag - the "500 Internal Server Error" problem.
My Perl script is simple, just prints the environment variables, as
follows:
#!/usr/local/bin/perl
require cgi-lib.pl;
$pagename = "TEST";
&PrintHeader();
&HtmlTop($pagename);
&PrintEnv();
&HtmlBot();
Every time the script is run (from a simple HTML form) I get the "500
Internal Server Error" message.
If I use the following script (with the same simple HTML form) it works
as expected and prints the environment variables.
#!/usr/local/bin/perl
print "Content-type:text/html\n\n";
print <<EndOfHTML;
<html><head><title>Print Environment</title></head>
<body>
EndOfHTML
foreach $key (sort(keys %ENV)) {
print "$key = $ENV{$key}<br>\n";
}
print "</body></html>";
I have gone thru all sorts of exercises to find the cause of the "500"
error message including RTFM repeatedly, checking the FAQs, and any
other source on the Net I can find. No help. I have resolved the problem
down to the "require" statement. If I change the working script to
simply include the "require" statement the script fails with the "500"
error as follows:
#!/usr/local/bin/perl
require cgi-lib.pl;
print "Content-type:text/html\n\n";
print <<EndOfHTML;
<html><head><title>Print Environment</title></head>
<body>
EndOfHTML
foreach $key (sort(keys %ENV)) {
print "$key = $ENV{$key}<br>\n";
}
print "</body></html>";
In the above I have also tried changing the "require" statement to:
require ./cgi-lib.pl;
in case Perl wasn't looking in the current directory. I also have tried
to put the "require" in an "eval" to see if I could catch the error -
didn't work.
Here's the configuration I'm working with:
1. An ISP with FTP access only, no Telnet access.
2. I cannot view the server logs nor run from the command line.
3. The server is Sun Solaris running Apache.
4. I don't have the ability to exercise my scripts on a local system.
5. Both my script file and cgi-lib.pl are in the same cgi directory.
6. Both files have execute permissions.
At this point I'm bald as a billiard ball. If anyone has an idea as to
what the problem is the help would be greatly appreciated!
RW
P.S. - Please refrain from the "Use CGI.pm" response. I know about
CGI.pm and it isn't a solution, I'm trying to learn CGI-Perl.
Thankyouverymuch.
------------------------------
Date: Mon, 22 May 2000 04:33:39 GMT
From: "Jim Stout" <notacceptingspam@nowhere.can>
Subject: Re: Help with Perl semantics
Message-Id: <DM2W4.18668$T41.417657@newsread1.prod.itd.earthlink.net>
Jeff Zucker wrote in message <392889E6.9A92A7AE@vpservices.com>...
>Jim Stout wrote:
>>
>You have chopped the exrpession off in the middle, the full expression
>is:
>
> %SUBS = (
> # what you quoted here
> # many other constructs like what you quoted
> );
>
>In other words there is a hash %SUBS. One of the keys of the hash is
>"compare". The value for that key is the subroutine you showed.
>
>Clear as mud?
Actually clear as a bell. It looked like it referred to a hash but I
didn't know which. Thanks! Now I just need to figure out what the
<<'label' construct does...or more specifically how it works and I'll
have a little less problem with the PMS thing.
BTW...since the condition is really PMS the Tylenol is the wrong
prescription. I'll get some Pamperin tomorrow...
Jim
------------------------------
Date: 22 May 2000 07:55:20 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: Help with Perl semantics
Message-Id: <8gap58$fac$1@slb2.atl.mindspring.net>
Jim Stout (notacceptingspam@nowhere.can) wrote:
: Actually clear as a bell. It looked like it referred to a hash but I
: didn't know which. Thanks! Now I just need to figure out what the
: <<'label' construct does...or more specifically how it works and I'll
: have a little less problem with the PMS thing.
It's called a "here document" and it's described in the "quoting and
quote-like operators" section of perlop. It's a very useful technique
that every Perl programmer should get familiar with early on, although
this particular use of it is actually a fairly unusual one (it's not
often that one needs to store the *literal text*, for later evaluation,
of a subroutine declaration in a hash).
------------------------------
Date: Mon, 22 May 2000 06:31:12 +0100
From: "Lance Boyle" <lancelotboyle@hotmail.com>
Subject: Re: HTML in Perl Script ?
Message-Id: <8gags0$j9s$1@uranium.btinternet.com>
Thanks for the reply.
I am slowly getting into Perl but I keep leaving brackets out which doesn't
help.
------------------------------
Date: 22 May 2000 06:26:13 GMT
From: The WebDragon <nospam@devnull.com>
Subject: Re: Looking for a good editor...
Message-Id: <8gaju5$cdr$0@216.155.32.48>
In article <B54DC77C.B0B%john@digitalmx.com>, John Springer
<john@digitalmx.com> wrote:
| in article 8g8o5s$oma$2@news2.kornet.net, Padawan at
| perl@sigmainstitute.com
| wrote on 5/21/00 6:25 AM:
|
| > Good day,
| > I'm a Perl Padawan (beginner) and have tried a few of Perl editing and
| > testing programs (Perl Builder, Perl Studio, DZ Perl Editor), but I want
| > to
| > put the money down on a highly recommended editor. What do the Jedi
| > Masters
| > of Perl and Perl/CGI use?
| >
| > Thanks in advance...
| >
| This one uses BBEdit on a Macintosh.
| I've never seen anything on windoze yet that would convince me to switch.
I'll second the motion on BBEdit (although I use the freeware Lite version), as
I hardly even use a WordMangler err WordProcessor for anything nowadays, since
most of my interaction in general is via plaintext or html. I can't think of a
more useful text-processor, and I'm aware of several.
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: 22 May 2000 07:47:13 GMT
From: The WebDragon <nospam@devnull.com>
Subject: more pattern matching questions
Message-Id: <8gaom1$plj$0@216.155.32.48>
on a pattern match in a while loop or a foreach, does the match short-circuit to
$1 if I do something like
while (<SOMETHING>) {
$match = m|^([-\w\[\]\.]+)\.htm.?|;
print $match;
}
or do I have to do
while (<SOMETHING>) {
m|^([-\w\[\]\.]+)\.htm.?|;
print $1;
}
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: 22 May 2000 08:07:24 GMT
From: ebohlman@netcom.com (Eric Bohlman)
Subject: Re: more pattern matching questions
Message-Id: <8gaprs$fac$2@slb2.atl.mindspring.net>
The WebDragon (nospam@devnull.com) wrote:
: on a pattern match in a while loop or a foreach, does the match short-circuit to
: $1 if I do something like
:
: while (<SOMETHING>) {
: $match = m|^([-\w\[\]\.]+)\.htm.?|;
: print $match;
: }
In scalar context (like you have here), the m operator returns 1 if there
was a match and 0 if there wasn't. In list context, it returns a list of
parenthesis-grabbed matches; putting parens around $match in your second
line will force list context, and since there's only one set of parens in
your regex, that means the returned list will have either zero or one
members.
: or do I have to do
:
: while (<SOMETHING>) {
: m|^([-\w\[\]\.]+)\.htm.?|;
: print $1;
: }
That needs to be:
if (m|^([-\w\[\]\.]+)\.htm.?|) {
print $1;
}
since if the match fails, $1 will be left unchanged rather than set to an
empty string.
------------------------------
Date: Mon, 22 May 2000 05:55:10 GMT
From: tictoc@no_spam.com (Tic Toc)
Subject: Need HOWTO advice?
Message-Id: <3928cb7a.334286230@news.xprs.net>
Find it in the new Perl online forum at www.vincentwortham.com
------------------------------
Date: Thu, 18 May 2000 21:32:00 +0530
From: Govind Chandra <gchandra@lw1.vsnl.net.in>
Subject: Re: Newbie on Perl/CGI, which editor is the best on NT?
Message-Id: <958667067.931668225@news.vsnl.net.in>
Try 'Note Tab Light' it is free (search www.fileworld.com), it has a web site
of its own but I donot remember the URL. It is highly customisable and once you
do that for any given job like perl or java you can generate a lot of code
really fast.
govind
Cure wrote:
>Editplus is the best editor for win32 platform
>
>www.editplus.com
>
>Cantonese Boy wrote:
>
>> I have tried visual perl, but it is not a shareware.
>> Which perl/CGI editor is better?
>>
>> W
------------------------------
Date: 22 May 2000 07:01:04 GMT
From: The WebDragon <nospam@devnull.com>
Subject: Re: Ooops+ [Re: regexes *sigh* damn I hate these things]
Message-Id: <8galvg$cdr$3@216.155.32.48>
In article <8g9h6k$20cs@drn.newsguy.com>, Sue Spence <sue@pennine.com> wrote:
| >>> I need to extract the number AFTER the Rating: (1-10) and before the
| >>> </p>, which can be any number from 0 to 10 in .5 increments there may be
| >>> a 0, or an 8.5 or a 10 or a 5 or a 5.5 etc.
|
| Something on the order of
|
| if ($input =~ m|Rating: *\(1-10\) *([\d.]+)|)
| {
| $rating = "$1\n";
| }
|
| would be closer to what he asked for, and will work even if other text
| similar to "Rating: (1-10)" is added to the HTML he's picking through. So
| is the above "too fancy" or was yours "not quite fancy enough"?
there are some older reviews in the directories that have <b></b> tags
surrounding the rating, but for all new reviews this is exactly what was needed.
However, as usual, said 'client' changed what was desired, and now I have
additional things to parse the *same* .html file for, WHILE extracting the
rating. See my thread with the above and "updated" added to the front (similar
to how you added 'ooops' :)
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: Mon, 22 May 2000 04:40:14 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Pattern match ?
Message-Id: <3928BB66.5B0ABE2B@home.com>
[posted & mailed]
Lee wrote:
>
> how to delete all of alphabetic characters in that world.
^^^^^
I shall take this to mean that you'd like it to work in various
locales. :-)
s/[[:alpha:]]//g;# requires 5.6
s/[^\W\d_]//g;# works with older versions but is ugly
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: 22 May 2000 07:11:53 GMT
From: The WebDragon <nospam@devnull.com>
Subject: Re: Pattern match ?
Message-Id: <8gamjp$cdr$5@216.155.32.48>
In article <3928BB66.5B0ABE2B@home.com>, Rick Delaney <rick.delaney@home.com>
wrote:
| [:alpha:]
I've scoured SOME (but not all) of the docs that came with my version of
MacPerl, and cannot find these constructs listed (I would have expected them to
show up somewhere around the regex pages, but no luck..
can someone tell me which of the perl docs contain a listing of these sort of
constructs, and explanations of same?
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: Mon, 22 May 2000 17:21:53 +1000
From: Peter Hill <phill@modulus.com.au>
Subject: Re: Pattern match ?
Message-Id: <3928E011.16BE@modulus.com.au>
The WebDragon wrote:
>
> In article <3928BB66.5B0ABE2B@home.com>, Rick Delaney <rick.delaney@home.com>
> wrote:
>
> | [:alpha:]
>
> I've scoured SOME (but not all) of the docs that came with my version of
> MacPerl, and cannot find these constructs listed (I would have expected them to
> show up somewhere around the regex pages, but no luck..
>
> can someone tell me which of the perl docs contain a listing of these sort of
> constructs, and explanations of same?
Docs for perl 5.6 - not available on mac.
--
Peter Hill,
Modulus Pty. Ltd.,
http://www.modulus.com.au/
------------------------------
Date: Mon, 22 May 2000 09:29:05 +0200
From: Ulrich Ackermann <uackermann@orga.com>
Subject: Re: Pattern match ?
Message-Id: <3928E1C1.6FCC9249@orga.com>
The WebDragon wrote:
>
> In article <3928BB66.5B0ABE2B@home.com>, Rick Delaney <rick.delaney@home.com>
> wrote:
>
> | [:alpha:]
>
> I've scoured SOME (but not all) of the docs that came with my version of
> MacPerl, and cannot find these constructs listed (I would have expected them to
> show up somewhere around the regex pages, but no luck..
>
> can someone tell me which of the perl docs contain a listing of these sort of
> constructs, and explanations of same?
>
perldoc perlre (starting at line 235 approximatly with the header )
'The POSIX character class syntax' (version 5.6.0 only ??)
Ulrich
--
Ulrich Ackermann
ORGA Kartensysteme GmbH (SY-PEAT-STA)
Tel.:+49.5254.991-925
mailto:uackermann@orga.com
------------------------------
Date: 22 May 2000 08:11:01 GMT
From: The WebDragon <nospam@devnull.com>
Subject: Re: Pattern match ?
Message-Id: <8gaq2l$t1g$0@216.155.32.48>
In article <3928E011.16BE@modulus.com.au>, phill@modulus.com.au wrote:
| The WebDragon wrote:
| >
| > In article <3928BB66.5B0ABE2B@home.com>, Rick Delaney
| > <rick.delaney@home.com>
| > wrote:
| >
| > | [:alpha:]
| >
| > I've scoured SOME (but not all) of the docs that came with my version of
| > MacPerl, and cannot find these constructs listed (I would have expected
| > them to
| > show up somewhere around the regex pages, but no luck..
| >
| > can someone tell me which of the perl docs contain a listing of these
| > sort of
| > constructs, and explanations of same?
|
| Docs for perl 5.6 - not available on mac.
damn. I've scouted around but haven't found anything stating the current level
of readiness of a more recent port of perl to the Mac than 5.004 .. anyone know
anything ?
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: 22 May 2000 07:44:15 +0100
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Perl and Win32 Common Dialogs - Is it possible?
Message-Id: <8gakvv$2mb$1@orpheus.gellyfish.com>
On Sat, 20 May 2000 18:01:45 GMT The Evil Beaver wrote:
> Is there a way that I could use the Open and Save common dialogs from
> Windows in my Perl programs?
>
You should be able to do it with Win32::GUI or by calling functions from
commctrl.dll via Win32::API
/J\
--
I saw this movie about a bus that had to SPEED around a city, keeping
its SPEED over fifty, and if its SPEED dropped, it would explode! I
think it was called, 'The Bus That couldn't Slow Down.'
--
fortune oscar homer
------------------------------
Date: Mon, 22 May 2000 09:31:14 +0100
From: Michael Abramowski <m.abramowski@ic.ac.uk>
Subject: Perl/Unix conflict with ";" in rsh
Message-Id: <3928F051.D41CF8EF@ic.ac.uk>
Hi there!
I have posted this before, but maybe the subject didn't sound as if it
were Perl related:
I have a problem with a current script. The local machine is using
tcsh, the remote machine bash, and I need to refine a script written by
a more experienced former colleague such that a qsub process uses not
the user's remote home directory /home/fred as working directory (as
mentioned in the qsub manual), but /home/fred/tmp (Ultimately, I'll
create a dir with tmp/$$/ as name, so that each job will run in its own
directory).
Although
rsh -l username 192.168.0.2 'HOME=/home/username/tmp; env'
works fine from an interactive shell, I have trouble using a command
like that in my Perl script, because Perl interprets the ";" as line
end. Is there any way I can combine the three consecutive (print REQ
"rsh -l fred $ip...) lines into one? Because the way it currently works,
the new declaration of QSUB_WORKDIR only affects the line it is written
in. Later lines just assume the original home directory, so that my
output lands there (or not at all; in some versions of this script, it
doesn't even find the input file):
open REQ, "|qsub -x -eo -rs -r _$jobname-$filename -q $que" or die
"Oops couldn't run qsub !";
print REQ "cd \$QSUB_WORKDIR\n";
print REQ "rcp $filename.$ext fred\@$ip:tmp/\n";
print REQ "rsh -l fred $ip \'export
QSUB_WORKDIR=/home/fred/tmp/\'\n";
print REQ "rsh -l fred $ip \"$path$code\" $input $output\n";
print REQ "rsh -l fred $ip rm $filename.$ext\n";
print REQ "rcp fred\@$ip:$filename.* ./\n";
print REQ "rsh -l fred $ip rm $filename.\"*\"\n";
close REQ;
Is there any way to use multiple commands for an rsh at all? Even
writing \; won't work - it just gives a whole page of error messages.
Or should I post this to a Linux/UNIX newsgroup?
Thanks in advance,
Michael
------------------------------
Date: Mon, 22 May 2000 17:26:02 +0800
From: Tk Soh <r28629@email.sps.mot.com>
Subject: pl2exe missing from ActivePerl
Message-Id: <3928FD2A.437F4927@email.sps.mot.com>
I have been looking for the pl2exe utility which, per the FAQ, should be
bundled with the installation, but none of the distributions that I have
checked has it, this includes the latest build 613 as well as the older
522.
Can anyone please tell me where I can find it? TIA.
-TK
------------------------------
Date: Mon, 22 May 2000 08:39:26 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: Recommendations on a Perl/MySQL book or chapter?
Message-Id: <2n6W4.523$6T1.88753@news.dircon.co.uk>
On Sun, 21 May 2000 19:29:59 -0700, Makarand Kulkarni Wrote:
>
> George Reese
Splutter, splutter ...
/J\
------------------------------
Date: Mon, 22 May 2000 10:12:43 +0100
From: Dave Cross <dave@dave.org.uk>
Subject: Re: Recommendations on a Perl/MySQL book or chapter?
Message-Id: <veuhissn9o0fsv85m36o3sm82i23nsaj7l@4ax.com>
On Sun, 21 May 2000 19:29:59 -0700, Makarand Kulkarni
<makarand_kulkarni@My-Deja.com> wrote:
>> Any recommendations on a good book or even a chapter in a book
>> that covers MySQL and Perl as a front end?
>
>MySQL and mSQL (Nutshell Series)
> by Randy Jay Yarger, George Reese, Tim King
>Chapter : 10 is here
>http://www.oreilly.com/catalog/msql/chapter/ch10.html
Never thought I'd hear myself say this, but the New Riders book
suggested by Jeff is _much_ better than the O'Reilly one.
hth,
Dave...
--
<http://www.dave.org.uk> SMS: sms@dave.org.uk
yapc::Europe - London, 22 - 24 Sep <http://www.yapc.org/Europe/>
"There ain't half been some clever bastards" - Ian Dury [RIP]
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
Message-Id: <null>
Administrivia:
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V9 Issue 3117
**************************************
