[25458] in Perl-Users-Digest
Perl-Users Digest, Issue: 7703 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jan 28 03:05:45 2005
Date: Fri, 28 Jan 2005 00:05:13 -0800 (PST)
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, 28 Jan 2005 Volume: 10 Number: 7703
Today's topics:
Re: [perl-python] 20050127 traverse a dir <jurgenex@hotmail.com>
Re: cookie related problem... <spamtrap@dot-app.org>
DBD:mysql doesn't read mysql option file /etc/my.cnf fi <crossin@istop.com>
Global symbol "%Config" requires explicit package at at <charlieskc@gmail.com>
Re: Global symbol "%Config" requires explicit package a <1usa@llenroc.ude.invalid>
Re: Global symbol "%Config" requires explicit package a <charlieskc@gmail.com>
Re: Global symbol "%Config" requires explicit package a <spamtrap@dot-app.org>
Re: htaccess rewriterule in combination with POST form <tadmc@augustmail.com>
Re: I will pay for perl help ioneabu@yahoo.com
Re: Looping Dir entires with space <tadmc@augustmail.com>
Missing first line when reading in .csv file (Dackle)
Re: Missing first line when reading in .csv file <jurgenex@hotmail.com>
Re: Missing first line when reading in .csv file ioneabu@yahoo.com
Re: Old tutorial - now corrected <tadmc@augustmail.com>
Re: Old tutorial - now corrected <tadmc@augustmail.com>
Re: Old tutorial - now corrected <tadmc@augustmail.com>
Re: Script dumps core....? Any suggestions... <see_sig@invalid>
using resources to reduce run-time gyanku@hotmail.com
using win32::api to "talk" to another program - need a <pauls@nospam.com>
Re: using win32::api to "talk" to another program - nee <1usa@llenroc.ude.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 28 Jan 2005 03:15:47 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: [perl-python] 20050127 traverse a dir
Message-Id: <D7iKd.1787$lg5.289@trnddc06>
Xah Lee wrote:
[...]
> [long rant about Perl modules snipped]
>
> # And because the way it is
> # written,
Yeah, indeed, you correctly identified the root of the problems.
If you would have written your Perl program in a normal way instead of in
your cryptic wretched style then you would not have had any of the issues
that you listed.
Even the best programming language in the world cannot stop a bad programmer
from writing poor code.
But like my old professor always used to say: No program is useless. It can
always be used as an example for how not to do things.
jue
------------------------------
Date: Fri, 28 Jan 2005 01:25:43 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: cookie related problem...
Message-Id: <6LqdnXR5ffN2R2TcRVn-gA@adelphia.com>
Tanja wrote:
> This script work normally, I don't have any Error message, but result is
> different from perl, and Internet Explorer.
> Perl result is without phone numbers
I got the same result from Perl as from any browser I tried - which is the
same result you're getting from Perl. I can't read the language, but it
appears that what I got was a page with links to a login form. So it seems
you need to go through a login process which sets a cookie; if the cookie
isn't sent you get links to the login form instead of real data.
What you need to do then, is simulate the login process that a browser would
follow. Fetch the login form, parse and submit it. Store the cookie that's
sent back, and then send that cookie to the server with each request after
that.
Fortunately, Perl has modules that effectively deal with things like this.
Unfortunately, you're getting well beyond what LWP::Simple can do. (It's
called Simple for a reason...)
Have a look at its big brothers:
WWW::Mechanize
LWP::UserAgent
WWW::Mechanize is really handy for scripted browsing "sessions" that are
made up of many individual requests. But it's a subclass of LWP::UserAgent,
so it's also useful to know about the methods it inherits from that.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Thu, 27 Jan 2005 22:19:17 -0500
From: JL <crossin@istop.com>
Subject: DBD:mysql doesn't read mysql option file /etc/my.cnf file
Message-Id: <41f9ac6f$1_2@127.0.0.1>
Platform: Linux Red Hat RHEL 3 (and red hat 9)
Installed MySQL from source. As a matter of fact, installed all LAMPS
from source, and the mysql socket file was arranged in a place other
than /tmp/mysql.sock. Let's say, /opt/mysql_root/sock/mysql.sock.
Installed DBI without any problem.
In /etc/my.cnf there are lines as
----- ----- -----
[client]
socket = /opt/mysql_root/sock/mysql.sock
...
[mysqld]
socket = /opt/mysql_root/sock/mysql.sock
...
----- ----- -----
The access rights issues to the directory was taken care off.
The problem came when installing DBD::mysql from source.
perl Makefile.Pl
make
make test => problem begins:
----- excerpt -----
...
...
... error: ..."can't connect to local mysql server through socket
/tmp/mysql.sock" ...
...
... [Error 2]
------ end ------
I have built everything from source, so there shouldn't be a problem of
"mysql server was built with binary and the others were built with
different packages, such as using the package from Linux o/s, etc."
And the mysqld was running while DBD installation was being progressed.
I didn't have problem with shell command line connecting to the server,
and code in PHP that connects to the server worked fine.
It seems that DBD::mysql doesn't (or doesn't have the intelligence to)
check /etc/my.cnf file when starting mysql client. I have tried
# ln -s /opt/mysql_root/sock/mysql.sock /tmp/mysql.sock
and the problem was solved. I prefer not to use this method.
Maybe rebuilding mysql with
"--with-unix-socket-path=/opt/mysql_root/sock/mysql.sock" will solve
the problem?
Or, setting shell variable
"MYSQL_UNIX_PORT=/opt/mysql_root/sock/mysql.sock" will do, too. So in
perl code, before we start db connection, we can set
$ENV{'MYSQL_UNIX_PORT'} = "/opt/mysql_root/sock/mysql.sock"?
I am trying to solve this problem at the system building phase, and to
avoid having to modify the original perl code, for example, from:
--
$dsn = "DBI:mysql:test";
$dbh = DBI->connect($dsn, $user, $password);
--
to
--
$dsn = "DBI:mysql:test;mysql_read_default_group=client;"
. "mysql_read_default_file=/usr/local/mysql/data/my.cnf";
$dbh = DBI->connect($dsn, $user, $password);
--
so that the old perl code can be ported to the newly installed system
without modification.
Appreciate your expertise
----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= East/West-Coast Server Farms - Total Privacy via Encryption =---
------------------------------
Date: 27 Jan 2005 20:33:36 -0800
From: "charlieskc@gmail.com" <charlieskc@gmail.com>
Subject: Global symbol "%Config" requires explicit package at at C:/Perl/lib/Time/Local .pm line 27.
Message-Id: <1106886816.520557.102160@z14g2000cwz.googlegroups.com>
Hi all,
I am try to test my perl script, with just a few line:
use Time::Local 'timelocal_nocheck'; {
# The 365th day of 1999
print scalar localtime timelocal_nocheck 0,0,0,365,0,99;
}
but when I compile, it prompts error that "Global symbol "%Config"
requires explicit package at at C:/Perl/lib/Time/Local.pm line 27."
in C:/Perl/lib/Time/Local.pm line 27: my $MaxInt = ((1<<(8 *
$Config{intsize} - 2))-1)*2 + 1;
I think I set something wrong in the environment setting, could you
please figure out why I have such error occur? many thanks!!!
Regards,
Charlie
------------------------------
Date: Fri, 28 Jan 2005 05:11:00 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: Global symbol "%Config" requires explicit package at at C:/Perl/lib/Time/Local .pm line 27.
Message-Id: <Xns95EC1E7D7E85asu1cornelledu@127.0.0.1>
"charlieskc@gmail.com" <charlieskc@gmail.com> wrote in
news:1106886816.520557.102160@z14g2000cwz.googlegroups.com:
> I am try to test my perl script, with just a few line:
>
> use Time::Local 'timelocal_nocheck'; {
> # The 365th day of 1999
> print scalar localtime timelocal_nocheck 0,0,0,365,0,99;
>
> }
That runs perfectly fine on my system. I don't think you posted the
complete script. Please read the posting guidelines for
comp.lang.perl.misc.
> but when I compile, it prompts error that "Global symbol "%Config"
> requires explicit package at at C:/Perl/lib/Time/Local.pm line 27."
>
> in C:/Perl/lib/Time/Local.pm line 27: my $MaxInt = ((1<<(8 *
> $Config{intsize} - 2))-1)*2 + 1;
>
> I think I set something wrong in the environment setting, could you
> please figure out why I have such error occur? many thanks!!!
I suspect you have a custom Config.pm in your @INC that is found before
the Perl Config.pm. Don't do that. But then, I am not a mindreader and
it is fairly difficult to correctly diagnose a problem without seeing
real code.
Sinan.
------------------------------
Date: 27 Jan 2005 22:00:24 -0800
From: "charlieskc@gmail.com" <charlieskc@gmail.com>
Subject: Re: Global symbol "%Config" requires explicit package at at C:/Perl/lib/Time/Local .pm line 27.
Message-Id: <1106892023.984030.10870@c13g2000cwb.googlegroups.com>
This is the complete script indeed. however I do have another script
called config.pm, but perl is case sensitive so I think it is different
from the Config.pm right?
------------------------------
Date: Fri, 28 Jan 2005 01:12:22 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Global symbol "%Config" requires explicit package at at C:/Perl/lib/Time/Local .pm line 27.
Message-Id: <Fr2dnUJvtstVSmTcRVn-sw@adelphia.com>
charlieskc@gmail.com wrote:
> This is the complete script indeed. however I do have another script
> called config.pm, but perl is case sensitive
Perl is case-sensitive, but the Windows file system is not.
If you do a 'use config' on a system with a case-insensitive file system,
then Config.pm will load and parse just fine. But, then Perl will look for
config->import(), and obviously it won't find it. So no functions or
constants get imported from the module.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Thu, 27 Jan 2005 20:38:02 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: htaccess rewriterule in combination with POST form
Message-Id: <slrncvj9ca.1nu.tadmc@magna.augustmail.com>
Bart van den Burg <bart@NOSPAM.tvreclames.nl> wrote:
> Hi
>
> I´m currently building a new page, and instead of
> http://.../page.pl?param1=val1¶m2=val2
> I'm using
> http://.../page/val1/val2
>
> then in .htaccess:
> RewriteEngine On
> RewriteRule ^page/(\d+)/(\d+)$ site.pl?page=page¶m1=$1¶m2=$2
that puts the parameters in the URL, as with a GET request.
> The problem however is, when i have a form like this:
><form action="page/val1/val2" method="post">
> i can't access param1 and param2 from my script anymore!
Right.
Because a POST request wants the parameters put somewhere else.
> Long story for a short question: What can I do, so that i can access those
> parameters again, but still making the form method="post"?
I dunno how to do it in htaccess, but you wouldn't expect someone
in the Perl newsgroup to know that anyway.
You might expect someone to know that in a newsgroup that is
somehow related to web stuff, such as:
comp.infosystems.www.authoring.cgi
comp.infosystems.www.servers.mac
comp.infosystems.www.servers.misc
comp.infosystems.www.servers.ms-windows
comp.infosystems.www.servers.unix
> (I'm not really sure whether this is due to Perl or not,
If you had chosen to use Python or Visual Basic instead of
Perl, you would have had the same problem with the setup
you describe above.
So, the "or not" part of your statement was correct. :-)
> but i hope you know
> the answer...)
Be very very careful doing that.
Knowingly making off-topic postings can use up all of your
coupons rather quickly.
Let's count this thread as "unknowingly". :-)
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 27 Jan 2005 21:37:44 -0800
From: ioneabu@yahoo.com
Subject: Re: I will pay for perl help
Message-Id: <1106890664.202497.316100@f14g2000cwb.googlegroups.com>
Lila Duncan wrote:
> Hi,
> I'm a newbie. I think perl is great and I'm busy getting together
> documentation and links so I can learn more about it.
> I installed ActivePerl on my Win XP computer.
> I recently wrote to the perl.beginners group about a problem I was
having
> but I got ignored. Maybe I wasn't advanced enough for them. :-)
> My reasons for wanting to learn perl are practical and commercial.
> I'd like to become a proficient buyer and seller on eBay.
> I read David A Karp's book "ebay Hacks" in which he recommends the
use of
> perlscripts for automating eBay searches. The example files he gives
don't
> seem to be working for me at present.
What happened when you tried his files that made you think that they
did not work?
Look at http://search.cpan.org/ and type in the word 'ebay' and search
for any relevent Perl modules. There are a few things that come up
that could be exactly what you need. Even if you pay someone else to
do the work, it might help to be as informed as possible about what
needs to be done. It might be trivially easy, maybe even worth
learning a little Perl. Good luck!
wana
>Maybe it's because the originals were
> written to be run on a unix-like system and I'm running win-xp.
> Anyway I've tried various modifications but so far I don't have
enough
> skill to overcome the problems.
> I'd be glad to pay for any advice or help on this subject. I can pay
by
> PayPal or other methods. Please email me if you're interested.
>
> My address is: LilaDuncan@XSPAMhotmail.co.uk
> Remove 'XSPAM' to mail me.
> --
> Lila Duncan
------------------------------
Date: Thu, 27 Jan 2005 21:00:03 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Looping Dir entires with space
Message-Id: <slrncvjalj.1nu.tadmc@magna.augustmail.com>
Eric Anderson <eric@afaik.us> wrote:
> I am developing a Perl CGI application that needs to work on both
> Windows and UNIX.
> while(defined($file=<$config_dir*>)) {
> This seems to work just fine. But if the variable $config_dir has a
> string with a space in it (e.g. '/Program Files/Foo Bar') then it
> doesn't seem to list the files correctly. The app seems to be reading
> each part of the path (split on the space) as it's own file.
Spliting on spaces is what globbing is _supposed_ to do.
> So my first thought is to change the code to the following:
[snip more glob()ing]
> So my question is how do I iterate through a list of files in a
> directory in such a way that will work on both UNIX and Windows and work
> when the path has a space and doesn't have a space.
Don't use globbing, dealing with quoting and backslashing
and whatnot just isn't worth it.
Use these instead:
perldoc -f opendir
perldoc -f readdir
perldoc -f closedir
> Also sometimes I
> will need to do stuff like:
>
> while(defined($file=<$config_dir/foo/bar/*>)) {
> print "$file\n";
> }
The equivalent (kinda) without globbing (untested):
my $dir = "$config_dir/temp/benchmarks";
opendir DIR, $dir or die "could not open '$dir' $!";
foreach my $file ( sort grep /^[^.]/, readdir DIR) {
print "$dir/$file\n";
}
closedir DIR;
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 27 Jan 2005 19:51:00 -0800
From: simon.dukes@gmail.com (Dackle)
Subject: Missing first line when reading in .csv file
Message-Id: <51f6bb21.0501271951.27e40033@posting.google.com>
I'm having a recurring problem reading in .csv files. The first line
in the file is always missing, and so when the code below executes,
$dt[0] will contain the second line, $dt[1] the third, and so on.
Usually I get around this by manually opening the .csv file in notepad
and inserting "DUMMY" and a carriage return, then resaving. Then when
the code executes, DUMMY is skipped, and $dt[0] containes the first
line, $dt[1] the second etc., which is how I want it. In general, this
manual process works fine, but I'd rather skip it if possible. Has
anyone encountered this problem before or knows why it is happening?
open SCORES, "C:/$filename.csv" or die "can't open file: $!";
while (<SCORES>) {
chomp;
@x=<SCORES>;
}
$n=@x+0; # Number of games
for $a (0..$n) {
@c=split(",",@x[$a]);
$dt[$a]=$c[0]; # Date
$vis[$a]=$c[3]; # Visitor
$hom[$a]=$c[6]; # Home
}
------------------------------
Date: Fri, 28 Jan 2005 04:11:46 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Missing first line when reading in .csv file
Message-Id: <6YiKd.3168$u45.111@trnddc08>
Dackle wrote:
> I'm having a recurring problem reading in .csv files.
Indeed.
Why don't you just use Text::CSV or Text::CSV::Simple rather then rolling
you own code?
jue
------------------------------
Date: 27 Jan 2005 20:49:07 -0800
From: ioneabu@yahoo.com
Subject: Re: Missing first line when reading in .csv file
Message-Id: <1106887747.098061.45790@c13g2000cwb.googlegroups.com>
Dackle wrote:
> I'm having a recurring problem reading in .csv files. The first line
> in the file is always missing, and so when the code below executes,
> $dt[0] will contain the second line, $dt[1] the third, and so on.
> Usually I get around this by manually opening the .csv file in
notepad
> and inserting "DUMMY" and a carriage return, then resaving. Then when
> the code executes, DUMMY is skipped, and $dt[0] containes the first
> line, $dt[1] the second etc., which is how I want it. In general,
this
> manual process works fine, but I'd rather skip it if possible. Has
> anyone encountered this problem before or knows why it is happening?
>
> open SCORES, "C:/$filename.csv" or die "can't open file: $!";
> while (<SCORES>) {
> chomp;
> @x=<SCORES>;
> }
hmm.. seems obvious enough...
the first line you have already moved the file pointer down one line.
It's as if you said: while ($_ = <SCORES>) { chomp $_ ...
now you are starting at the second line and then...
@x=<SCORES>; in scalar context, you have just sucked in the whole file
into @x starting at the second line. All you had to do was:
@x=<SCORES;
without the while.
> $n=@x+0; # Number of games
> for $a (0..$n) {
> @c=split(",",@x[$a]);
> $dt[$a]=$c[0]; # Date
> $vis[$a]=$c[3]; # Visitor
> $hom[$a]=$c[6]; # Home
> }
------------------------------
Date: Thu, 27 Jan 2005 20:14:55 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Old tutorial - now corrected
Message-Id: <slrncvj80v.1nu.tadmc@magna.augustmail.com>
binnyva@hotmail.com <binnyva@hotmail.com> wrote:
> we are programmers
I see that as a very presumptuous assertion.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 27 Jan 2005 20:19:00 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Old tutorial - now corrected
Message-Id: <slrncvj88k.1nu.tadmc@magna.augustmail.com>
binnyva@hotmail.com <binnyva@hotmail.com> wrote:
> if we
> see a lot of errors when we first run a new program, do
The objections where not to running a program, they
were to *releasing* the program out into The World.
> we scrape the project or do we correct it?
We run it and run it and run it while correcting it,
but we don't *release* it until it is "good enough".
> Thats what I
> am trying to do.
Your tutorial is not good enough to be released.
Please unrelease it until you get through a few more
debugging cycles.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 27 Jan 2005 21:05:52 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Old tutorial - now corrected
Message-Id: <slrncvjb0g.1nu.tadmc@magna.augustmail.com>
Alan J. Flavell <flavell@ph.gla.ac.uk> wrote:
> On Thu, 27 Jan 2005, brian d foy wrote:
>
>> Indeed, "functional" means something different than
>> "functioning" or "working". :)
>
> And "Functional Programming" has a rather specialised meaning.
> Not my cup of tea, though.
(I(did(not(like(it(either))))))
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Thu, 27 Jan 2005 21:25:09 -0500
From: Bob Walton <see_sig@invalid>
Subject: Re: Script dumps core....? Any suggestions...
Message-Id: <41f9a311$1_2@127.0.0.1>
Gancy wrote:
> Here is the snipet of the perl script, I have perl version v5.8.5 built
> for sun4-solaris. I have run this script on thousands of 'c','C++'
> headers and source files. Runs smoothly as my new ESTEEM car. But i
> have one surce file toke.c in my test case. soon this scripts hits this
> file at it dumps. I have tried and still trying to debug, but still no
> solutions. If anybody can help me with this would be of great
> appreciation. I can uploaded source file (toke.c) as well as core file
> frames(core), if needed.
>
Well, I don't know precisely why it's dumping core for you, but I
do have some suggestions:
> #!/usr/bin/perl
#let Perl give you all the help it can...
use strict;
use warnings;
>
> $np = qr{
> \(
> (?:
> (?>[^()]+ )
> |
> (??{ $np })
> )*
> \)
> }x;
>
> $funpat = qr/((\W)?(\*?\*?\w+)\s*($np))/;
> my $temp;
>
> open (FILE, "toke.c") || die "Cannot open file";
Include $! in the text of your die message so you can learn why
the open failed.
>
> while($temp = <FILE>)
> {
> $tstring.=$temp;
> }
The above loop has the effect of slurping the file opened on
filehandle FILE. This can be done better with the idiom:
{local $/;
$tstring=<FILE>;
}
>
> close FILE;
>
> get_fn_call($tstring);
>
> sub get_fn_call($){
> my ($cur_str) = @_;
> while( $cur_str =~ m/$funpat/g )
> {
Around here is probably where your troubles start. The use of a
"number variable" from a regexp match (as well as other related
global variables) should never extend past the next match -- even
(or maybe especially) if the next match is in a called function.
You should assign another variable to these, and then use that
variable. Like maybe:
my $four;
$four=$4;
if($four=~/^\(((.*\n*.*)*)\)$/){
my $one;
$one=$1;
get_fn_call($one);
}
Also, note that I checked to see if a match occurred before using
$1. One should *always* do that, as the results will probably
not be as you expected if the match fails.
> $4 =~ /^\(((.*\n*.*)*)\)$/;
> get_fn_call($1);
> }
> }
...
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= East/West-Coast Server Farms - Total Privacy via Encryption =---
------------------------------
Date: 27 Jan 2005 20:41:22 -0800
From: gyanku@hotmail.com
Subject: using resources to reduce run-time
Message-Id: <1106887282.494894.11780@c13g2000cwb.googlegroups.com>
Hi All:
I have loop in my perl program
foreach (@mytest)
{
system($cmd2);
}
The system($cmd) takes a long time. I have other machines available.
Can I login from the perl script and run the perl command on those
machine to reduce run time.
Please show me how todo that. How would I know where in the mytest list
I should log into the other machine.
How will when one task is finished another would start.
Some sketchy code fragment would help.
Thanks in advance.
-Mkesh
------------------------------
Date: Thu, 27 Jan 2005 20:00:18 -0800
From: "Paul S." <pauls@nospam.com>
Subject: using win32::api to "talk" to another program - need a little help!
Message-Id: <wcydndh5nMVJJWTcRVn-sQ@seanet.com>
Hi,
I want to use the Win32::API module to communicate with another program
running on my windows machine. I have the file handle # for the pther
program and have some sense that I need to use the PostMessage function
but I am little confused about the exact way to do it. Let's say the
message I want to transmit to the other process is:
plot v(out) return
(this is a valid command to type into the other programs GUI) the
"return" means I actually hit the return key after I had typed "plot
v(out)" into the GUI of the other software
How would I then do it?
Any help greatly appreciated?
Thanks!
Paul
------------------------------
Date: Fri, 28 Jan 2005 05:12:39 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: using win32::api to "talk" to another program - need a little help!
Message-Id: <Xns95EC22FD16F8asu1cornelledu@127.0.0.1>
"Paul S." <pauls@nospam.com> wrote in news:wcydndh5nMVJJWTcRVn-
sQ@seanet.com:
> Hi,
> I want to use the Win32::API module to communicate with another program
> running on my windows machine. I have the file handle # for the pther
> program and have some sense that I need to use the PostMessage function
No. (This is not the forum for me to try to explain the Windows 32 API).
> but I am little confused about the exact way to do it. Let's say the
> message I want to transmit to the other process is:
>
> plot v(out) return
http://search.cpan.org/~ctrondlp/Win32-GuiTest-1.50.2-
ad/guitest.pm#Functions
Sinan
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 7703
***************************************
