[12063] in Perl-Users-Digest
Perl-Users Digest, Issue: 5663 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri May 14 13:07:14 1999
Date: Fri, 14 May 99 10:00:19 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 14 May 1999 Volume: 8 Number: 5663
Today's topics:
Re: "Text file busy" error <gonzalo@aller.com>
Re: Conditional search and replace within a text file <cassell@mail.cor.epa.gov>
Re: Creating a Win32::Process for a batch file and pass <collin.starkweather@colorado.edu>
error passing a CGI object to a function in a pm. <bwlang@genome.wi.mit.edu>
Re: FAQ 4.19: How do I remove consecutive pairs of char (Larry Rosler)
Re: FLOCK and Win 9x <bwlang@genome.wi.mit.edu>
Re: FLOCK and Win 9x <collin.starkweather@colorado.edu>
Re: indentionless here document ? (<<-) <dturley@pobox.com>
Re: japh tags <sto@storm.com>
Re: japh tags (Charles R. Thompson)
Re: password checking (Brian)
Re: read file assign variables mikecard@my-dejanews.com
Re: REGULAR EXPRESSION Problem 2 <fbart@sprynet.com>
SimNet - Perl proxy governor project (Charles R. Thompson)
Simple Q: How to print the string aaa*bbbccc? <tashbrook@edisonenterprises.com>
Re: Simple Q: How to print the string aaa*bbbccc? <dgris@moiraine.dimensional.com>
Re: Simple Q: How to print the string aaa*bbbccc? <e.h.bogart@larc.nasa.gov>
Re: using Exporter <jdporter@min.net>
Which book do you recommend? <mcti@my-dejanews.com>
Win32::MsgBox - Button combos? (Chris Miller)
Win32::Process question <collin.starkweather@colorado.edu>
XSub receiving reference to hash array. (Marc Sevigny)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 14 May 1999 17:37:53 +0100
From: Luis Gonzalo Aller Arias <gonzalo@aller.com>
Subject: Re: "Text file busy" error
Message-Id: <373C5161.CF8B85EE@aller.com>
"John S. Ware" wrote:
> in UNIX the text part of a program is the code (as opposed to data), I
> remember getting "text file busy" errors under UNIX System V if you
> tried to modify the file of a running program. I guess it is locked
> since you wouldn't want to change something while the OS is trying to
>
...
>
> >
> > Thanks, I will try closing my data files explicitly. However, given that
> > Perl is (in general) so good with error messages, you'd think it would tell
> > me that it is my data files that are busy, not the perl files.
> > I'm not very hopeful on this one, because I've hit the same problem a few
> > times with a form-to-email script that doesn't open data files.
> > My platform, BTW, is linux 2.0.34. We're running perl5 here, too.
> >
> > Tim
Hi all,
Adding
share modes = no
to smb.conf solved my problems.
--
________________________
Luis Gonzalo Aller Arias
http://gonzalo.aller.com
------------------------------
Date: Fri, 14 May 1999 09:51:40 -0700
From: "David L. Cassell" <cassell@mail.cor.epa.gov>
Subject: Re: Conditional search and replace within a text file
Message-Id: <373C549C.68D4F221@mail.cor.epa.gov>
Abelian ACS wrote:
>
> Tad McClellan explains it all:
>
> :Riley Tiber (revjack@radix.net) wrote:
>
> :: 1) Where can I find a definition of "wallclock" in this context?
>
> : perldoc Benchmark says:
>
> : "CPU seconds is, in UNIX terms, the user time
> : plus the system time of the process itself, as
> : opposed to the real (wallclock) time"
>
> ARGH. This is not in my Benchmark perldoc. I looked, honest! Thank you.
My PSI::ESP module tells me that.. umm.. you're using a Perl
older than 5.005 .
My 5.005_3 docs have it. My 5.004_04 (sun) don't. Ah, the
cruelties of life with people who actually update and improve
their documentation when you're not looking. :-)
> It sure seems like the "13 wallclock secs" took a lot longer than 13
> seconds, but I'll have to pay more attention to see.
It might have been a *little* more than 13 secs. Get a copy
of the latest Perl and read the caveats in the docs.
HTH,
David
--
David L. Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: Fri, 14 May 1999 09:41:50 -0600
From: Collin Starkweather <collin.starkweather@colorado.edu>
Subject: Re: Creating a Win32::Process for a batch file and passing parameters to it problem
Message-Id: <373C443E.3A5CD8FC@colorado.edu>
This is a multi-part message in MIME format.
--------------FAD6951654F7B15A57D333D6
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Your problem is due to the fact you are running a CGI script. Bear with
me through an example.
I created a test.pl as follows:
use Win32::Process;
use Win32;
use Cwd;
Win32::Process::Create(
$ProcessObj,
"test.bat",
"test.bat Hello World !",
0,
NORMAL_PRIORITY_CLASS,
cwd()
) || die Win32::FormatMessage( Win32::GetLastError() );
and a test.bat a pl2bated version of the following:
print "ARGV is @ARGV\n";
and received output
ARGV is Hello World !
I am using NT w/ActiveState 5.00502. The same example wouldn't work as
given in the form of a CGI script for whatever reason (I'm using IIS).
Your mileage with other web servers may vary.
As an alternative, I tried calling Perl on the batch file from a CGI
script a la
Win32::Process::Create(
$ProcessObj,
$^X,
$^X . " G:\\mydir\\test.bat Hello World !",
0,
NORMAL_PRIORITY_CLASS,
cwd()
) || die Win32::FormatMessage( Win32::GetLastError() );
$ProcessObj->Wait(INFINITE);
$ProcessObj->GetExitCode($status);
print $cgi->header;
print "<HTML><BODY>The exit code is $status.</HTML></BODY>\n";
where test.bat printed ARGV to file and it worked just fine.
Collin
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Collin Starkweather (303) 492-4784
University of Colorado collin.starkweather@colorado.edu
Department of Economics http://ucsu.colorado.edu/~olsonco
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
mabukguy@my-dejanews.com wrote:
>
> Hi, I'm trying to spawn a process(a .bat file) and pass a parameter to
> it on Win NT4.0 using the Win32 library. It works when I just spawn the
> process like so:
>
> Win32::Process::Create($ProcessObj,"D:\\temp\\cgi-bin\\myprog.bat,
> "",0,NORMAL_PRIORITY_CLASS,".") ||
> die ErrorReport();
>
> However when I try to pass parameters to myprog.bat as in:
>
> Win32::Process::Create($ProcessObj,"D:\\temp\\cgi-bin\\myprog.bat,
> "myprog.bat param",0,
> NORMAL_PRIORITY_CLASS, ".") ||
> die ErrorReport();
> it does not work. myprog.bat is actually a perl script that has been
> converted to a batch file using pl2bat.(This was because I tried to
> Create a myprog.pl process and that didn't work)
>
> The myprog.pl is a simple program that reads in the parameter list from
> the ARGV variable and logs it out to a file:
>
> open(LOGFILE,">/common/logfile.txt");
> print LOGFILE "Cmd line is @ARGV\n");
>
> If I turn myprog.pl into a .exe (change my pl to a C program) then that
> will probably work but I don't want to do that.
>
> Are there some subtleties about passing a parameter to a batch file
> using Win32::Process::Create that I'm not doing?
>
> Any help would be much appreciated.
> Thanks Adrian
>
> --== Sent via Deja.com http://www.deja.com/ ==--
> ---Share what you know. Learn what you don't.---
--------------FAD6951654F7B15A57D333D6
Content-Type: text/x-vcard; charset=us-ascii;
name="collin.starkweather.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Collin Starkweather
Content-Disposition: attachment;
filename="collin.starkweather.vcf"
begin:vcard
n:Starkweather;Collin
tel;work:(303) 492-4784
x-mozilla-html:FALSE
url:http://ucsu.colorado.edu/~olsonco
org:University of Colorado;Department of Economics
version:2.1
email;internet:collin.starkweather@colorado.edu
title:Research Assistant
adr;quoted-printable:;;University of Colorado=0D=0ACampus Box 0256;Boulder;Colorado;80309-0256;USA
fn:Collin Starkweather
end:vcard
--------------FAD6951654F7B15A57D333D6--
------------------------------
Date: Fri, 14 May 1999 11:29:12 -0400
From: "Bradley W. Langhorst" <bwlang@genome.wi.mit.edu>
Subject: error passing a CGI object to a function in a pm.
Message-Id: <373C4148.4E5DD59C@genome.wi.mit.edu>
I am able to pass the object to a function inside my main CGI without
error.
I create a query object via
(this is pseudocode)
use CGI qw(:standard :html3);
use project;
$q= new CGI;
i then pass the $q to my function
sub ask_project {
my ($q, $current,$callingCGI) = @_;
...
}
right before the first reference to the $q object i receive the
following error:
Can't call method "isaCGI" on unblessed reference at (eval 11) line1.
after which point the code successfully prints the appropriate HTML
I've been struggleing with this for days and none of the perl maestros
at
my lab know what the story is.
I've tried the following:
1) pass object as \$q and access it as $$q or $ {$q} -> same errors
2) pass object as \$q and access it as $q ->
Can't call method "start_html" on unblessed reference at
project.pm line 58.
and no HTML follows
3) pass object as \*$q and access as $q ->
Not a GLOB reference ... (before it calls the function)
4) pass object as $q and access as $$q ->
Can't call method "start_html" on unblessed reference at
project.pm line 58.
and no HTML follows
many thanks for your time.
if you want to see the actual source take a look at a previous posing
entitled
Can't call method "isaCGI" on unblessed reference at (eval 11)
line1.
to which i got no meaningful response (bad title i guess)
brad
------------------------------
Date: Fri, 14 May 1999 08:12:41 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: FAQ 4.19: How do I remove consecutive pairs of characters?
Message-Id: <MPG.11a5dd446f54f5f1989a63@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <373c1dd1@cs.colorado.edu> on 14 May 1999 06:57:53 -0700, Tom
Christiansen <perlfaq-suggestions@perl.com> says...
> (This excerpt from perlfaq4 - Data Manipulation
> ($Revision: 1.46 $, $Date: 1999/04/20 18:59:53 $)
> part of the standard set of documentation included with every
> valid Perl distribution, like the one on your system.
> See also http://language.perl.com/newdocs/pod/perlfaq4.html
> if your negligent system adminstrator has been remiss in his duties.)
>
> How do I remove consecutive pairs of characters?
>
> To turn `"abbcccd"' into `"abccd"':
>
> s/(.)\1/$1/g;
Isn't newline ("\n") a 'character'? .../gs;
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 14 May 1999 11:33:02 -0400
From: "Bradley W. Langhorst" <bwlang@genome.wi.mit.edu>
Subject: Re: FLOCK and Win 9x
Message-Id: <373C422E.BDC254EC@genome.wi.mit.edu>
you could try writing out a small lock file whenever youare writing to
the real file.
You would check for it's existence before writing and
be sure to delete it after writing
brad (langhorst)
Brad & Melissa Hart wrote:
> Hey All,
> I know that flock won't work in Win 9x (only works in NT, Unix...).
> Is there a preferred method for accomplishing the same thing? The
> application I am developing realistically shouldn't even need it, but I
> would prefer to have a more complete program.
> Thanks in advance for any help / advice.
> -Brad
>
> bmhart@mediaone.net
------------------------------
Date: Fri, 14 May 1999 09:47:27 -0600
From: Collin Starkweather <collin.starkweather@colorado.edu>
Subject: Re: FLOCK and Win 9x
Message-Id: <373C458F.DBD78B79@colorado.edu>
This is a multi-part message in MIME format.
--------------5D6E2706027C6F1E179E6CBE
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
I have sweated over this problem. The best method I can divine is to
follow as closely as you can the algorithm given in the Lockfile::Simple
module. I can send along a bit of sample code if it would help.
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Collin Starkweather (303) 492-4784
University of Colorado collin.starkweather@colorado.edu
Department of Economics http://ucsu.colorado.edu/~olsonco
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
"Bradley W. Langhorst" wrote:
>
> you could try writing out a small lock file whenever youare writing to
> the real file.
> You would check for it's existence before writing and
> be sure to delete it after writing
>
> brad (langhorst)
>
> Brad & Melissa Hart wrote:
>
> > Hey All,
> > I know that flock won't work in Win 9x (only works in NT, Unix...).
> > Is there a preferred method for accomplishing the same thing? The
> > application I am developing realistically shouldn't even need it, but I
> > would prefer to have a more complete program.
> > Thanks in advance for any help / advice.
> > -Brad
> >
> > bmhart@mediaone.net
--------------5D6E2706027C6F1E179E6CBE
Content-Type: text/x-vcard; charset=us-ascii;
name="collin.starkweather.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Collin Starkweather
Content-Disposition: attachment;
filename="collin.starkweather.vcf"
begin:vcard
n:Starkweather;Collin
tel;work:(303) 492-4784
x-mozilla-html:FALSE
url:http://ucsu.colorado.edu/~olsonco
org:University of Colorado;Department of Economics
version:2.1
email;internet:collin.starkweather@colorado.edu
title:Research Assistant
adr;quoted-printable:;;University of Colorado=0D=0ACampus Box 0256;Boulder;Colorado;80309-0256;USA
fn:Collin Starkweather
end:vcard
--------------5D6E2706027C6F1E179E6CBE--
------------------------------
Date: Fri, 14 May 1999 14:50:14 GMT
From: David Turley <dturley@pobox.com>
Subject: Re: indentionless here document ? (<<-)
Message-Id: <7hhd76$7tg$1@nnrp1.deja.com>
In article <7hhc0s$6v8$1@nnrp1.deja.com>,
renenyffenegger@my-dejanews.com wrote:
> Hi all
>
> Is there any feature in perl to remove tabs at the
> beginning of a line in a here document, similar
> to the <<-EOHD in a shell script.
Look at example 1.11 Indenting Here Documents in the Perl Cookbook.
--
David Turley
dturley@pobox.com
http://www.binary.net/dturley
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Fri, 14 May 1999 16:35:54 +0000
From: Scott Oglesby <sto@storm.com>
Subject: Re: japh tags
Message-Id: <373C50EA.F21DE107@storm.com>
Benjamin Franz wrote:
>
> In article <7hdbr3$b2u$1@nnrp1.deja.com>,
> <todd_b_smith@my-dejanews.com> wrote:
> >Let's get a thread going with people's tag lines that print "Just
> >Another Perl Hacker." I've seen lots, but now I want to see them all!
>
> $_='bfd59934ae3d4bde348887a3ae4587a311aeec44f26087a372';
> foreach(map{hex}m/(..)/g){my $n=257;
> while($_--){$n=($n*257)%251};print chr($n)}
>
> --
> my $name=reverse('Benjamin "Snowhare" Franz');my $a=0;
> $_='024e046b794c446f25423a6375477d6c14450a39447a07637e';
> s/(..)/push(@ARGV,hex($1))/eg;while($_=chop $name){
> $_=ord^shift;$_+=$a;$_%=108;print chr(($a=$_)+10)}
10 A$ = "JUST ANOTHER PERL HACKER"
20 PRINT A$
<run, duck, and hide>
"It's been a long road from A$ to $a."
------------------------------
Date: Fri, 14 May 1999 16:43:33 GMT
From: design@raincloud-studios.com (Charles R. Thompson)
Subject: Re: japh tags
Message-Id: <MPG.11a61e1510d146ff9896c4@news>
In article <373C50EA.F21DE107@storm.com>, Scott Oglesby says...
> 10 A$ = "JUST ANOTHER PERL HACKER"
> 20 PRINT A$
err..
5 CLS
30 GOTO 5
Gets that <BLINK> thing goin so Tom can run it through his proxy. :)
Sheesh. I can't even remember. Did basic have terminators on the end of
lines?
--
CT
------------------------------
Date: Thu, 13 May 1999 14:17:50 GMT
From: pontz@channel1.com (Brian)
Subject: Re: password checking
Message-Id: <373adeda.67093880@news1.channel1.com>
Ok Thanks ....But the nice indenting still didnt make it work.
Brian
On Thu, 13 May 1999 00:49:49 -0400, rjk@linguist.dartmouth.edu (Ronald
J Kimball) wrote:
><pontz@channel1.com> wrote:
>
>> Anyone see what is wron with this sub. What it is suppose to do is
>> check the password the user enters with the password in .htpassword
>> file.
>> sub check_login {
>> # clean up name first
>> $in{'name'} =~ y/a-zA-Z0-9/ /c;
>> $in{'name'} =~ s/\s//g;
>> my $lname=$in{'name'}; $lname =~ y/A-Z/a-z/;
>> if (! defined($in{'pass'})) { &print_password }
>> $pwdFile = new Apache::Htpasswd('.htpasswd');
>> -e ".htpasswd" || &print_error(".htpasswd file doesnt exist");
>> if ($pwdFile->htCheckPassord($lname, $in{'pass'})) {
>> next;
>> }
>> }
>
>I see at least three things wrong with this sub:
>
>The indenting is atrocious.
>
>You misspelled 'Password' in 'htCheckPassword'.
>
>You do a 'next' even though you don't appear to be in a loop.
>
>HTH!
>
>
>--
> _ / ' _ / - aka -
>( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
> / http://www.tiac.net/users/chipmunk/
> "It's funny 'cause it's true ... and vice versa."
------------------------------
Date: Fri, 14 May 1999 14:54:58 GMT
From: mikecard@my-dejanews.com
Subject: Re: read file assign variables
Message-Id: <7hhdg1$86u$1@nnrp1.deja.com>
hi
i changed the code as larry suggested and it worked great...then i
thought i'd get all fancy and create a hash and output all hashes as
formatted HTML. I had it working and then i broke it and i cannot
figure out how i broke it.
the script is:
#!/usr/bin/perl -w
my ($link, $description);
open (LINKS, "linkdata.txt") or die "can't open file\n";
until (eof LINKS) {
chomp ($link = <LINKS>);
chomp ($description = <LINKS>);
$link_list{$link} = $description;
}
close LINKS;
foreach $key (keys (%link_list)) {
print "<a href=\"http://www.$key\">$key</a>\n";
print "\ \;$link_list{$key}<br><br>\n";
}
#end
the "linkdata.txt is a text document like this:
mike.org
mikes place, come here if you want its cool
my.com
go here you'll be glad you did
when i run this i get this error:
Use of uninitialized value at links.cgi line 8, <LINKS> chunk 5.
<a href="http://www."></a>
Use of uninitialized value at links.cgi line 16.
<br><br>
then it outputs the entries in the text document as wanted:
<a href="http://www.my.com">my.com</a>
go here its cool<br><br>
<a href="http://www.firefighting.org">firefighting.org</a>
resource of fire departments, fundraising campaigns, and
more<br><br>
am i doing something stupid again?
mike cardeiro
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Fri, 14 May 1999 12:43:28 -0400
From: vepxistqaosani <fbart@sprynet.com>
To: Ryan Ngi <ryanngi@hotmail.com>
Subject: Re: REGULAR EXPRESSION Problem 2
Message-Id: <373C52B0.3C6CD662@sprynet.com>
Ryan Ngi wrote:
> <snip>
> -------------------------------------------
> $Var='a bat is on the rat, the rat is on the pig';
> $Var=~/(b.*rat)/;
> print $1;
> ------------------------------------------
> <snip>
?
Well, OK: (b.*?rat)
See the Camel book, pg. 63.
Fred
------------------------------
Date: Fri, 14 May 1999 16:26:24 GMT
From: design@raincloud-studios.com (Charles R. Thompson)
Subject: SimNet - Perl proxy governor project
Message-Id: <MPG.11a61a101f0538549896c2@news>
This has alot to do with Perl because it's a Perl solution for simulating
a real-world testing enviroment. I didn't want you guys to think I was
trying to go way off subject matter. :)
I recently caught a thread stating there's never anything very
interesting to talk about here with all the usual newbie suspect posts
(myself included). No new ideas to have fun with, etc. I thought up a
goofy little project that may be a total waste of time to some but I
can't stop thinking about it and don't have enough time to seriously work
on it. I know a few of you would raise an eyebrow and say "Hmm... that
could be fun". So here it is...
After Tom's thread on 'Diversity Compliance' and the resulting proxy
tweaks by Tom and Larry I started thinking about something I requested to
be added to the list involving calculating load times for pages.
Tom has provided a link which will 'check' your page load times. As a
developer, I work on a LAN and often 'manually' calculate these things. I
could probably roll my own easily using File:Find, LWP and/or some
snippets from the Cookbook.
Since I run off a cable modem and a really quick LAN, I can't help but
'fudge' on testing sites with slow connections. It's a tedious chore and
I'd have to keep paying for another ISP to do modem benchmarking. I think
there may be a more clever way...
I have some interest in creating a proxy with Perl on my LAN that would
'govern' the data flow to the browser, thus simulating connection speeds.
(14.4, 28.8, 33, 48, 56, ISDN)
I don't even know if this is possible, but it sure would be a kick to
see. Off the top of my head I would think a CGI based script using LWP to
'filter' the page with some sort of timing system might work, but now
that I say that I see that once a link to an image was provided, the
image would pop up instantly, so that's not the way to go. It needs to be
something that could work right in the stream and 'chug' out bits of data
in increments. I know there are a few things like this out there for
WinDoZe that somehow simulate this( where, I have no clue ) but I think
it might be possible to do this and more in Perl.
I have seen threads before mentioning a web server in Perl. Maybe a mod
of something like that would do it, although being able to do it with any
webserver would be slicker(and harder!).
Further into it, additions to the 'timing routine' could be some random
anomolies to simulate a traffic load, or a nice 'burst' where the pages
would load with an optimal connection, etc. (Anybody wanna do some chaos
programming in Perl? :) )
A little system like this could be beneficial to design houses who work
off LANs but don't want to have to deal with dialups. You can really
learn alot about designing pages where you need the most important
information comes up first. You may see sticking all your info in 2
tables takes forever to display at 28.8, etc.
Another thought involving a mod with Tom's proxy: No reason you couldn't
add the option to simulate different browser limitations by ignoring the
images but keeping the alt tag text, or killing the body color tags to
default settings, strip out the Netscape or IE extended attributes to
tags, or sticking a blank image in an area where a plug in wouldn't work.
Little things like that.
At the bottom of each page, you could insert the total load time for the
'connection speed' so you could interactively check sites for
compatibility and speed issues at the same time. All from your normal
working enviroment, which is the way it should be.
>From the onset, I would think perhaps processing of actual CGI scripts
for the site being tested would be 'forked' if that is the correct
terminology. That was one thought that has really tripped me up.
While I will be twiddling with this in my head as a newbie project, I
just thought I'd mention it in case others wanted to roll their own or
experiment. I think it would be interesting to see what comes out of it,
even if it's only discussion. I know you guys like to solve 'interesting
problems' and thought this could possibly be a challenging and decent one
involving a bit of skill to pull off.
Any thoughts? Is this something that is even possible?
--
Charles R. Thompson
RainCloud Studios
------------------------------
Date: Fri, 14 May 1999 09:08:49 -0700
From: "Tom Ashbrook" <tashbrook@edisonenterprises.com>
Subject: Simple Q: How to print the string aaa*bbbccc?
Message-Id: <xTX_2.25385$ny.1710164@typhoon-sf.snfc21.pbi.net>
I have tried double quotes, single quotes, and \ but I get an error saying
that I am missing a semicolon or an operator before *bbbccc.
It's soooo simple but i have a brain fart i guess.
Thanks,
Tom.
------------------------------
Date: 14 May 1999 10:13:25 -0600
From: Daniel Grisinger <dgris@moiraine.dimensional.com>
Subject: Re: Simple Q: How to print the string aaa*bbbccc?
Message-Id: <m3btfnr5ne.fsf@moiraine.dimensional.com>
"Tom Ashbrook" <tashbrook@edisonenterprises.com> writes:
> I have tried double quotes, single quotes, and \ but I get an error saying
> that I am missing a semicolon or an operator before *bbbccc.
Without seeing any code the best guess that I can give is that
you have an error on line 17.
> It's soooo simple but i have a brain fart i guess.
Check line 17, if that doesn't fix it you might want to try
posting some code.
dgris
--
Daniel Grisinger dgris@moiraine.dimensional.com
perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print
m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
------------------------------
Date: Fri, 14 May 1999 12:41:07 -0400
From: Ed Bogart <e.h.bogart@larc.nasa.gov>
Subject: Re: Simple Q: How to print the string aaa*bbbccc?
Message-Id: <373C5223.C1E1DAC1@larc.nasa.gov>
Tom Ashbrook wrote:
>
> I have tried double quotes, single quotes, and \ but I get an error saying
> that I am missing a semicolon or an operator before *bbbccc.
>
> It's soooo simple but i have a brain fart i guess.
>
> Thanks,
> Tom.
Well, I just tried
=================================
#!/usr/bin/perl -w
use strict;
print "aaa*bbbccc\n";
exit;
=================================
and it printed
aaa*bbbccc
So what's your problem again?
------------------------------
Date: Fri, 14 May 1999 15:33:09 GMT
From: John Porter <jdporter@min.net>
Subject: Re: using Exporter
Message-Id: <7hhfnl$9p0$1@nnrp1.deja.com>
In article <xWV_2.33001$134.350860@tor-nn1.netcom.ca>,
"Kevin Howe" <khowe@performance-net.com> wrote:
> How can get a module to see variables in the main:: package?
>
> ex:
>
> #!/usr/bin/perl
>
> %HASH = (
> VAR1 => "this",
> VAR2 => "that"
> );
>
> package Other;
> print %HASH;
You mean to say you didn't try %main::HASH ???
for ( keys %main::HASH ) {
print "$_ = $main::HASH{$_}\n";
}
--
John Porter
Put it on a plate, son. You'll enjoy it more.
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: Fri, 14 May 1999 16:39:52 GMT
From: Lacrosse_20 <mcti@my-dejanews.com>
Subject: Which book do you recommend?
Message-Id: <7hhjkn$d1t$1@nnrp1.deja.com>
Hey guys. I just posted this, but it isn't showing up in my list, so
I'm reposting. I am planning on buying a new "advanced" perl book, but
I don't know which book would give me the best instruction for my $.
The ones I'm looking at are Perl Cookbook; Tom Christiansen, et
al, Programming Perl, 2nd Edition (covers Perl 5.0); Larry Wall
(Editor), et al, Mastering Regular Expressions: Powerful Techniques for
Perl and Other Tools; Jeffrey E. F. Friedl, and Advanced Perl
Programming; Sriram Srinivasan. Which of these is the best? Maybe
there's one out there that I didn't list that's better than these...if
so, what is it? Thanks in advance for your input.
--== Sent via Deja.com http://www.deja.com/ ==--
---Share what you know. Learn what you don't.---
------------------------------
Date: 14 May 1999 15:15:27 GMT
From: cmiller@cv.hp.com (Chris Miller)
Subject: Win32::MsgBox - Button combos?
Message-Id: <7hhemf$4lu$1@hpcvnews.cv.hp.com>
Hello,
Win32::MsgBox looks like a great way to let the user make a
choice. I've looked everywhere for documentation, and the only thing
I can find is in the PRK "Programming with Perl Modules" book on page
264. They give a nice little example, but this box only comes up
with an "OK" button. I need a Yes/No choice. They list the icons
that can be displayed, but not the flags to make different button
configurations. Does anyone know? How can I get other button
combinations?
Thank you,
Chris Miller
cmiller@cv.hp.com
------------------------------
Date: Fri, 14 May 1999 09:07:44 -0600
From: Collin Starkweather <collin.starkweather@colorado.edu>
Subject: Win32::Process question
Message-Id: <373C3C40.898180C4@colorado.edu>
This is a multi-part message in MIME format.
--------------24457B7A0437249BCEADAB5C
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
With $ProcessObj a Win32::Process object, one can wait a specified
number of seconds for the process to die a la $ProcessObj->Wait(1000).
After the Wait, how does one tell whether the Wait timed out or whether
the process terminated; i.e., is there a method for determining whether
a process is still active?
I checked the exit code with GetExitCode prior to process termination,
and it was 259. Is this a way to tell? Is the exit code of a running
process 259 on Win9x systems as well? Is 259 part of the Win32 specs
and unlikely to change across machines and/or Windows versions?
Thanks in advance,
Collin
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Collin Starkweather (303) 492-4784
University of Colorado collin.starkweather@colorado.edu
Department of Economics http://ucsu.colorado.edu/~olsonco
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
--------------24457B7A0437249BCEADAB5C
Content-Type: text/x-vcard; charset=us-ascii;
name="collin.starkweather.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Card for Collin Starkweather
Content-Disposition: attachment;
filename="collin.starkweather.vcf"
begin:vcard
n:Starkweather;Collin
tel;work:(303) 492-4784
x-mozilla-html:FALSE
url:http://ucsu.colorado.edu/~olsonco
org:University of Colorado;Department of Economics
version:2.1
email;internet:collin.starkweather@colorado.edu
title:Research Assistant
adr;quoted-printable:;;University of Colorado=0D=0ACampus Box 0256;Boulder;Colorado;80309-0256;USA
fn:Collin Starkweather
end:vcard
--------------24457B7A0437249BCEADAB5C--
------------------------------
Date: Fri, 14 May 1999 08:00:40 -0800
From: sevigny@gis.net (Marc Sevigny)
Subject: XSub receiving reference to hash array.
Message-Id: <LLX_2.6523$me.2887693@WReNphoon4>
Hello,
I am trying unsuccessfully to declare an argument
in an XSUB as being a reference to a hash array.
I've tried various types in the typemap without
success. Each type I've tried gets rejected by
the type validation code in the XSUB. Does anyone
know what the type should be?
I.E., I'd like to call subroutine foo() with a reference
to an associative array to be filled in by the XSUB.
I've tried
foo(*assocArray) and
foo(\%assocArray)
and defined the XSUB as
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
MODULE = yaddayadda PACKAGE = foobar
int foo(arrayRef)
HV *arrayRef;
.
.
.
The validation code in the generated .c file that fails is
if (sv_isa(ST(0), "HVPtr))
arrayRef = (HV*)SvRV(ST(0));
else
croak("arrayRef is not of type HVPtr");
I need some enlightening...
Thanks,
Marc
-**** Posted from RemarQ, http://www.remarq.com/?c ****-
Search and Read Usenet Discussions in your Browser
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5663
**************************************
