[24928] in Perl-Users-Digest
Perl-Users Digest, Issue: 7178 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Sep 26 06:06:37 2004
Date: Sun, 26 Sep 2004 03:05:10 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 26 Sep 2004 Volume: 10 Number: 7178
Today's topics:
Can't locate module despite 'use lib' <none@none.com>
Re: Can't locate module despite 'use lib' <uri@stemsystems.com>
Re: DBI::ODBC Remote Login to Server <matthew.garrish@sympatico.ca>
Re: few question about array (krakle)
Re: Help with my brute force method (krakle)
Re: Help with my brute force method <nobull@mail.com>
path delimiter in windows platform("/" could change to <end@dream.life>
Re: path delimiter in windows platform("/" could change <jurgenex@hotmail.com>
Re: path delimiter in windows platform("/" could change <1usa@llenroc.ude.invalid>
Re: path delimiter in windows platform("/" could change <end@dream.life>
Re: path delimiter in windows platform("/" could change <end@dream.life>
Re: Printing regex match <someone@example.com>
Re: Printing regex match <nobull@mail.com>
Re: Printing regex match <me@home.net>
processing command line arguments with backticks (miracle_ks)
Re: processing command line arguments with backticks <nobull@mail.com>
Re: Using C::Scan : How to ignore #includes ? <nospam-abuse@ilyaz.org>
Re: what's wrong in this Perl Regex expression? <end@dream.life>
Re: what's wrong in this Perl Regex expression? <end@dream.life>
Re: what's wrong in this Perl Regex expression? <nobull@mail.com>
Re: what's wrong in this Perl Regex expression? <nobull@mail.com>
Re: Win32::CtrlGUI <mikeflan@earthlink.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 25 Sep 2004 23:47:55 +0100
From: gunzip <none@none.com>
Subject: Can't locate module despite 'use lib'
Message-Id: <4155f59c$0$42251$ed2e19e4@ptn-nntp-reader04.plus.net>
As an experiment in module creation I have the following script, 'ex.pl':
#!/usr/bin/perl -wT
use strict;
use lib qw(/home/zarg/pl);
use Ex;
begin_now();
---------------------
Ex.pm is located in /home/zarg/pl with mode 644:
package Ex;
use Exporter;
@ISA = ("Exporter");
@EXPORT = qw(&begin_now);
use strict;
use CGI qw(:cgi);
sub begin_now {
print header, '<h1>Here goes</h1>';
}
1;
-------------------------
When accessing ex.pl via the browser I get the error:
"Can't locate Ex.pm in @INC (@INC contains: /home/zarg/pl ....
BEGIN failed
Why can't the script see my module when it has found the directory it lives in?
gunzip
------------------------------
Date: Sat, 25 Sep 2004 22:54:59 GMT
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Can't locate module despite 'use lib'
Message-Id: <x7ekkqrmdc.fsf@mail.sysarch.com>
>>>>> "g" == gunzip <none@none.com> writes:
g> begin_now();
g> Ex.pm is located in /home/zarg/pl with mode 644:
g> use strict;
g> use lib qw(/home/zarg/pl);
g> use Ex;
g> "Can't locate Ex.pm in @INC (@INC contains: /home/zarg/pl ....
g> BEGIN failed
g> Why can't the script see my module when it has found the directory
g> it lives in?
it didn't find the directory, it just listed it. that means use lib
worked. there are other permission problems such as 644 on /pl. web
servers commonly run as nobody so it can't scan the directory for
entries as it need x perms for that. try 666 permission and also check
the perm on your home dir which needs to be x (searchable) by others as
well.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: Sat, 25 Sep 2004 21:49:19 -0400
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: DBI::ODBC Remote Login to Server
Message-Id: <uep5d.36906$pA.2434554@news20.bellglobal.com>
"Fred Goldberg" <ackcomm@comcast.net> wrote in message
news:Xns956EB355A5514fredackcommcom@216.196.97.142...
> "Matt Garrish" <matthew.garrish@sympatico.ca> wrote in
> news:63L4d.27574$pA.1749387@news20.bellglobal.com:
>
>>
>> "Fred Goldberg" <ackcomm@JUNKcomcast.net> wrote in message
>> news:Xns956DD566777E8fredackcommcom@216.196.97.142...
>>> Novice - So no flames please.
>>>
>>> I have perl script that connects to our Win2000 Server which is
>>> running MS SQL Server. My data base handle statement is:
>>>
>>> my $dbh = DBI->connect('DBI:ODBC:DB_Name', 'DB_Login', 'DB_PWD') or
>>> die "Couldn't connect to database: " . DBI->errstr;
>>>
>>> The above works fine in the office from my networked PC. I would like
>>> to be able to run this program from home via the Internet. I know my
>>> server's IP address, user_login and user_password.
>>> 1) How can I modify my $dbh to accomodate this?
>>> 2) Do I need to configure "Data Sources (ODBC)" under my login on the
>>> remote server so it points to "DB_Name"?
>>>
>>
>> You need to configure a similarly named ODBC source on your home
>> computer pointing to the IP of the server with the db. You shouldn't
>> need to change the connection string at all.
>>
> Thanks for the reply. I tried to configure this server but it continually
> fails test. With this IP address, I can log into the server using Remote
> Desktop. I tried configuring ODBC using 3 different logins including
> Administrator. All failed. I also noted that the ODBC configurator does
> not
> send anything out to the net unless I preceed the IP address with a "//"
> which I do not use in the office.
>
> So, what is going on here. Is it possible to configue ODBC for a server
> that exists remotely on the Internet as an IP address rather than being
> part of a LAN?
>
I think you need to take this question to a group that deals with MS SQL
and/or ODBC at this point. I can only tell you (having connected to MS SQL
servers at work from home) that you shouldn't need to take any extra steps
when setting up the ODBC source. You might want to check with your database
administrator and see if he/she has set up IP blocking on the port to
prevent anyone from connecting to the SQL server from outside your office's
computers. But that's just a stab in the dark as to the source of the
problem...
Matt
------------------------------
Date: 25 Sep 2004 17:18:07 -0700
From: krakle@visto.com (krakle)
Subject: Re: few question about array
Message-Id: <237aaff8.0409251618.2e301b5f@posting.google.com>
spiritelllo@interfree.it (Andrea Spitaleri) wrote in message news:<4de1519a.0409250426.6ddf2f72@posting.google.com>...
> Hi I have few quick question about array:
> 1. reading a file as array, that below code works but I want be sure
> that it is correct that portion
> I am in doubt about the $numb[$countmol].
> open (IN,"in") || die "$!";
> @in=<IN>;
Declare please.
> clode IN;
Yea that seems about right........
... yadda yadda yadda lots of crappy code ...
Why do you declare only certain variables and not all?
> how is the code?
Wonderful. Right, Tad?
> and
Ok.
------------------------------
Date: 25 Sep 2004 17:12:01 -0700
From: krakle@visto.com (krakle)
Subject: Re: Help with my brute force method
Message-Id: <237aaff8.0409251612.d54c3e2@posting.google.com>
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote in message news:<cj4ava$a4t$1@mamenchi.zrz.TU-Berlin.DE>...
> Tad McClellan <tadmc@augustmail.com> wrote in comp.lang.perl.misc:
> > Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> wrote:
> > > krakle <krakle@visto.com> wrote in comp.lang.perl.misc:
> >
> >
> > >> close the opened file when you are done.. :)
> > >
> > > Why?
> >
> >
> > I can't think of a compelling reason in the context of a file
> > opened for _input_, as in this thread.
> >
> > But I _always_ have an explicit close() because it cost me
> > six and a half hours of debugging once. [1]
> >
> > The short version of the story: open()ed temp file for write,
> > chose OUT as the filehandle, days later, hundreds of lines of code later,
> > open()ed temp file for read, chose IN as the filehandle.
> >
> > Bug: missing some output data near the end
> >
> > Solution: add "close OUT" after writing temp file (flush buffer).
>
>
> [horror snipped]
>
> Ah, you're right. When dealing with named file handles open for
> writing you do have a point. Those are program-wide, and who
> knows what might happen. I might even close a global read-handle.
>
> Otherwise, lexical file handles close themselves when they go out of
> scope. Together with the rule of making scopes as small as possible,
> that takes care of it most of the time.
>
> Anno
Don't forget about mod_perl too... In my opinion it's proper to close
files that are opened...
------------------------------
Date: Sun, 26 Sep 2004 04:33:49 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: Help with my brute force method
Message-Id: <cj5db2$g1j$1@slavica.ukpost.com>
krakle wrote:
> anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote in message news:<cj4ava$a4t$1@mamenchi.zrz.TU-Berlin.DE>...
>>Ah, you're right. When dealing with named file handles open for
>>writing you do have a point. Those are program-wide, and who
>>knows what might happen. I might even close a global read-handle.
>>
>>Otherwise, lexical file handles close themselves when they go out of
>>scope. Together with the rule of making scopes as small as possible,
>>that takes care of it most of the time.
>
> Don't forget about mod_perl too... In my opinion it's proper to close
> files that are opened...
Like Anno said, you should use lexical file handles so that they get
closed even on abnormal termination.
------------------------------
Date: Sun, 26 Sep 2004 11:10:33 +0800
From: Alont <end@dream.life>
Subject: path delimiter in windows platform("/" could change to "\"?)
Message-Id: <41563101.225947687@130.133.1.4>
#!F:\Perl\bin\perl
$specified_folder = 'D:\Inetpub\wwwroot';
use File::Finder;
@files =
File::Finder->type('f')->name('*.html')->in($specified_folder);
foreach(@files)
{print $_, "\n";}
the result:
D:\Inetpub\wwwroot/article/layout/2004/csslayout/fourbox_touch.html
D:\Inetpub\wwwroot/article/layout/2004/csslayout/onebox.html
D:\Inetpub\wwwroot/article/layout/2004/3h2l.html
there are possible to change the "/" to "\" in windows platform? I
mean if there have a syntax switch to do this so I don't have to
replace every "/".
If this is a faq please tell me the perl document name, thank you.
--
Your fault as a Government is My failure as a Citizen.
------------------------------
Date: Sun, 26 Sep 2004 03:16:45 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: path delimiter in windows platform("/" could change to "\"?)
Message-Id: <xwq5d.5094$Cn.4991@trnddc04>
Alont wrote:
> #!F:\Perl\bin\perl
> $specified_folder = 'D:\Inetpub\wwwroot';
I suggest to use
$specified_folder = 'D:/Inetpub/wwwroot';
here.
> use File::Finder;
> @files =
> File::Finder->type('f')->name('*.html')->in($specified_folder);
> foreach(@files)
> {print $_, "\n";}
>
> the result:
> D:\Inetpub\wwwroot/article/layout/2004/csslayout/fourbox_touch.html
> D:\Inetpub\wwwroot/article/layout/2004/csslayout/onebox.html
> D:\Inetpub\wwwroot/article/layout/2004/3h2l.html
So?
> there are possible to change the "/" to "\" in windows platform? I
> mean if there have a syntax switch to do this so I don't have to
> replace every "/".
Why do you want to replace the forward slash with a backslash? Did you
encounter an _actual_ problem with forward slashes or do you just _perceive_
them as a problem?
jue
------------------------------
Date: 26 Sep 2004 03:26:48 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: path delimiter in windows platform("/" could change to "\"?)
Message-Id: <Xns956FEE82EEA70asu1cornelledu@132.236.56.8>
Alont <end@dream.life> wrote in news:41563101.225947687@130.133.1.4:
> #!F:\Perl\bin\perl
You are missing:
use strict;
use warnings;
> $specified_folder = 'D:\Inetpub\wwwroot';
Windows can deal with / just fine. In fact, I would recommend sticking with
/ rather than \.
> use File::Finder;
> @files =
> File::Finder->type('f')->name('*.html')->in($specified_folder);
> foreach(@files)
> {print $_, "\n";}
>
> the result:
> D:\Inetpub\wwwroot/article/layout/2004/csslayout/fourbox_touch.html
> D:\Inetpub\wwwroot/article/layout/2004/csslayout/onebox.html
> D:\Inetpub\wwwroot/article/layout/2004/3h2l.html
>
> there are possible to change the "/" to "\" in windows platform? I
> mean if there have a syntax switch to do this so I don't have to
> replace every "/".
> If this is a faq please tell me the perl document name, thank you.
--
A. Sinan Unur
1usa@llenroc.ude.invalid
(remove '.invalid' and reverse each component for email address)
------------------------------
Date: Sun, 26 Sep 2004 11:32:55 +0800
From: Alont <end@dream.life>
Subject: Re: path delimiter in windows platform("/" could change to "\"?)
Message-Id: <4157376e.227593312@130.133.1.4>
"Jürgen Exner" <jurgenex@hotmail.com>Wrote at Sun, 26 Sep 2004
03:16:45 GMT:
>Why do you want to replace the forward slash with a backslash? Did you
>encounter an _actual_ problem with forward slashes or do you just _perceive_
>them as a problem?
>
if the output string is "\", I can open the file by double-click the
path in Editplus, "/" can't let me do that easy thing.
--
Your fault as a Government is My failure as a Citizen.
------------------------------
Date: Sun, 26 Sep 2004 12:58:54 +0800
From: Alont <end@dream.life>
Subject: Re: path delimiter in windows platform("/" could change to "\"?)
Message-Id: <41584b6e.232712937@130.133.1.4>
"A. Sinan Unur" <1usa@llenroc.ude.invalid>Wrote at 26 Sep 2004
03:26:48 GMT:
>Windows can deal with / just fine. In fact, I would recommend sticking with
>/ rather than \.
notepad can't open
D:/Inetpub/wwwroot/article/layout/2004/csslayout/onebox_absolute.html
EditPlus also can't,the "common dialog" box can't deal with "/" path
--
Your fault as a Government is My failure as a Citizen.
------------------------------
Date: Sat, 25 Sep 2004 22:19:39 GMT
From: "John W. Krahn" <someone@example.com>
Subject: Re: Printing regex match
Message-Id: <%9m5d.155867$XP3.42973@edtnps84>
Dave wrote:
> In <cj3qja$qhi$1@mamenchi.zrz.TU-Berlin.DE>, anno4000@lublin.zrz.tu-
> berlin.de wrote
>
>>Dave <dave@home.net> wrote in comp.lang.perl.misc:
>>
>>>[...]
>
> First, my thanks to Anno, Eric and Gunnar for the replies. It seems I
> made the near-fatal mistake of typing off the top of my head without
> considering the extacting nature of criticism to which I'd be subjected
> for any mistakes I'd make. Seriously, I'm sure everyone who posts
> questions here appreciates the effort made to educate us dolts. ;-)
>
> Hopefully this abbreviated excerpt will meet with greater approval.
>
> #!/usr/bin/perl
> # remove extraneous, incorrectly-formatted and banner-style
> # signatures from mailing list emails
> use strict;
> use warnings;
>
> my $string =
> "--
> Unsubscribe info: http://somewebsite.com/ml/#unsubscribe-simple
> Problem reports: http://somewebsite.com/problems.html
> Documentation: http://somewebsite.com/docs.html
> FAQ: http://somewebsite.com/faq/
> ";
>
> my $pattern =
> "^[> \t]*--\\s?\n[> \t]*Unsubscribe info.*somewebsite\.com\/faq\/\$";
You are using a double quoted string which perl will interpolate. You should
print it out to see how interpolation affects the regular expression.
> if ( my ( @match ) = $string =~ /$pattern/smg ) {
> print "Unsubscribe footer matches! The match is:\n";
> print "-----------------------------------------\n";
> print "@match\n\n";
> } else {
> print "No match for 'unsubscribe footer' found.\n\n";
> }
John
--
use Perl;
program
fulfillment
------------------------------
Date: Sun, 26 Sep 2004 04:40:57 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: Printing regex match
Message-Id: <cj5doa$g20$1@slavica.ukpost.com>
John W. Krahn wrote:
> Dave wrote:
>
>> my $pattern = "^[> \t]*--\\s?\n[> \t]*Unsubscribe
>> info.*somewebsite\.com\/faq\/\$";
>
>
> You are using a double quoted string which perl will interpolate. You
> should print it out to see how interpolation affects the regular
> expression.
Or just use qr// (probably, or maybe '').
------------------------------
Date: Sun, 26 Sep 2004 05:36:04 GMT
From: Dave <me@home.net>
Subject: Re: Printing regex match
Message-Id: <MPG.1bbff5707ff6884f9896c0@news.easynews.com>
In <%9m5d.155867$XP3.42973@edtnps84>, someone@example.com wrote
> Dave wrote:
> > In <cj3qja$qhi$1@mamenchi.zrz.TU-Berlin.DE>, anno4000@lublin.zrz.tu-
> > berlin.de wrote
> >
> >>Dave <dave@home.net> wrote in comp.lang.perl.misc:
> >>
> >>>[...]
> >
> > Hopefully this abbreviated excerpt will meet with greater approval.
> > [...]
> > my $pattern =
> > "^[> \t]*--\\s?\n[> \t]*Unsubscribe info.*somewebsite\.com\/faq\/\$";
>
> You are using a double quoted string which perl will interpolate.
I knew that, really. [sigh]
> print it out to see how interpolation affects the regular expression.
It worked fine, of course, but hardly an excuse for not reading more
carefully or, in my case, habitually using double quotes to force
unecessary interpolation thereby inviting criticism from those who know
better. ;-)
Thanks again.
------------------------------
Date: 25 Sep 2004 22:59:54 -0700
From: miracle_ks@yahoo.com (miracle_ks)
Subject: processing command line arguments with backticks
Message-Id: <b55f8b09.0409252159.2954d705@posting.google.com>
Hi All,
I am trying to run a system command in my perl script, such that I
specify some command line options within the script and then take the
next argument from an input file and then the final argument again
within the script:
$command='/bin/somecommand -x -y -z';
$p1=2456;
foreach $item (@in_arr){
print OUT `$command $item $p1`;
}
When i run this, only last item from the input file is run properly
with $p1 argument. For all other items $p1 is not taken into
consideration.
Any help will be appreciated.
Regards
------------------------------
Date: Sun, 26 Sep 2004 09:25:00 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: processing command line arguments with backticks
Message-Id: <cj5uct$hjf$1@slavica.ukpost.com>
miracle_ks wrote:
> I am trying to run a system command in my perl script, such that I
> specify some command line options within the script and then take the
> next argument from an input file and then the final argument again
> within the script:
>
> $command='/bin/somecommand -x -y -z';
> $p1=2456;
> foreach $item (@in_arr){
> print OUT `$command $item $p1`;
> }
>
> When i run this, only last item from the input file is run properly
> with $p1 argument. For all other items $p1 is not taken into
> consideration.
>
> Any help will be appreciated.
You should try to construct a _minimal_ but _complete_ script to
illustrate your problem.
Random shot in the dark, you forgot to chomp() the data that you read
into @in_arr and that data also lacks a newline at EOF.
However if this were the case you'd expect to see errors about 2345 not
being found. Did you perhaps send STDERR somewhere you don't see it?
------------------------------
Date: Sun, 26 Sep 2004 07:06:25 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: Using C::Scan : How to ignore #includes ?
Message-Id: <cj5pph$19t9$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Abhinav
<matrix_calling@yahoo.dot.com>], who wrote in article <QXP4d.2$vx2.76@news.oracle.com>:
> > You did not explain why the headers are missing. Without headers,
> > what makes you think the prototypes make sense?
> I am checking the C File to ensure that all function definitions have
> proper documentation. I do this using doxygen (http://www.doxygen.org).
I still do not have a slightest idea what you want to achieve, and why
do you want to achieve it in the way you do it.
> I want to "skip" all the #defines, #includes, etc ..
> Hence,
>
> C:Scan should (for my case) ignore any preprocessor directives. (It would
> be as if I am removing these before running C::Scan on the file.
I have no idea what "ignore" means here. If you want a broken
pre-processor, write one, and set up C::Scan to use it. However, I'm
not sure that a C preprocessor is a completely trivial program (well,
probably to write one is trivial, but to *understand* what it must do
from the C standard may be a non-trivial task).
> > Sorry, I cannot understand what you are talking about...
>
> I do not need to check if prototypes are having comments, but doxygen
> apparently has no way to differentiate this, so I used C::Scan to get all
> the declarations. C::Scan returns declarations for prototypes as well as
> definitions*, and I see if it really is a prototype by iterating over the
> returned arrayref and checking whether it ends with a ';'.
This is still not a full enough description to understand what you
want to do. However, why not just redirect STDERR to /dev/null?
Yours,
Ilya
------------------------------
Date: Sun, 26 Sep 2004 08:33:23 +0800
From: Alont <end@dream.life>
Subject: Re: what's wrong in this Perl Regex expression?
Message-Id: <41610c3f.216537906@130.133.1.4>
Tad McClellan <tadmc@augustmail.com>Wrote at Sat, 25 Sep 2004 11:32:53
-0500:
>
>I don't believe you.
>
>Either you did not try that, or you did get some error information...
>
>If you don't give the correct symptoms, we can't give the correct cure.
>
>Please post your real code (use copy/paste, don't re-type it).
I have no motive for cheat people here, not everything you can suspect
on computer programming, what I posted really my real code. I've
solve the problem after the last post Mr. M.J. Lush wrote.
--
Your fault as a Government is My failure as a Citizen.
------------------------------
Date: Sun, 26 Sep 2004 09:11:19 +0800
From: Alont <end@dream.life>
Subject: Re: what's wrong in this Perl Regex expression?
Message-Id: <41661671.219147750@130.133.1.4>
Alont <end@dream.life>Wrote at Sun, 26 Sep 2004 08:33:23 +0800:
>not everything you can suspect
>on computer programming,
sorry, "suspect" should replace to "expect".
--
Your fault as a Government is My failure as a Citizen.
------------------------------
Date: Sun, 26 Sep 2004 04:45:14 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: what's wrong in this Perl Regex expression?
Message-Id: <cj5e0b$g20$2@slavica.ukpost.com>
Alont wrote:
> Alont <end@dream.life>Wrote at Sun, 26 Sep 2004 08:33:23 +0800:
>
>>not everything you can suspect
>>on computer programming,
>
> sorry, "suspect" should replace to "expect".
Why? It doesn't make any mode sense.
------------------------------
Date: Sun, 26 Sep 2004 04:49:26 +0100
From: Brian McCauley <nobull@mail.com>
Subject: Re: what's wrong in this Perl Regex expression?
Message-Id: <cj5e87$g20$3@slavica.ukpost.com>
Brian McCauley wrote:
>
>
> Alont wrote:
>
>> Alont <end@dream.life>Wrote at Sun, 26 Sep 2004 08:33:23 +0800:
>>
>>> not everything you can suspect
>>> on computer programming,
>>
>>
>> sorry, "suspect" should replace to "expect".
>
>
> Why? It doesn't make any mode sense.
Sorry, "mode" should read "more". :-)
(Should not pick up on other people's errors at 5am)
------------------------------
Date: Sat, 25 Sep 2004 22:14:38 GMT
From: Mike Flannigan <mikeflan@earthlink.net>
Subject: Re: Win32::CtrlGUI
Message-Id: <4155EE16.8F2486D1@earthlink.net>
"A. Sinan Unur" wrote:
> Googling did not help either. Hmmm ... I guess you could try compiling it
> yourself using the free VC7 compiler and the platform SDK. It worked like a
> charm in my case.
Yeah, I tried Google too.
There is a ton of stuff, but nothing about why it's not
on ActiveState.
In fact this site indicates it is (was) on ActiveState:
http://aspn.activestate.com/ASPN/Modules?module_name=W&order=name
Well I take that back. This site indicates the module is
not available on ANY platform:
http://ppm.activestate.com/BuildStatus/5.6-W.html
I guess that's the way to interpret that page.
> You could also give GuiTest a shot:
>
> use Win32::GuiTest qw(FindWindowLike SetForegroundWindow SendKeys);
>
> system('start notepad test.txt') == 0
> or die "system failed: $?";
>
> sleep 1;
>
> my $w = shift @{[ FindWindowLike(undef, '^test.txt - Notepad$') ]};
>
> SetForegroundWindow($w);
> SendKeys("$_~") for (1 .. 10);
>
> __END__
I think I will try GuiTest.
I sure appreciate the help.
Mike
------------------------------
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 7178
***************************************
