ActiveState recently released the Tkx module on CPAN; Tkx works in a
similar fashion to Python's Tkinter or the existing Tcl::Tk module. Tkx
provides a clean interface into scripting Tk from Perl, and should
support MSAA version 1 at least. Tkx also allows you to use themed Tk
widgets; an examp
The line "This code works fine when I run it as a stand alone program" leads me
to believe it is a permission issue. Integrated Windows Authentication does
not work well when your script needs to access a third system (in this case the
domain controller). Try switching to basic authentication
I am running into a problem, when I execute a
simple script to add a computer to an AD when I do it through a cgi
script.This is the code that I am running:my $strBase = "OU=iLab
- iLab Gatekeeper,OU=InfrApps - Infrastructure Managed
Apps,OU=Applications,OU=US-DC1,DC=resdm50,DC=ilab,DC=sieme
Hi list,
The recent post about GTK on Win32 got me thinking of using that library in
Perl applications intended for Win32. I'd like to do a GUI in perl but such
that it is accessible to WIndows screen reader programs. That's because I
have to use one myself.
While the Win32::GUI package does
David wrote:
>I thought this was working, but my logs just showed a case where it seems
>not to do what I want.
>Why does:
>$OK_body=($body=~/library\s*?card\D*?(\d{7})\D/i) ;
>Not become true when $body contains:
>Library Card: 0240742
>Just possibly there's some dodgy html or something in the o
[EMAIL PROTECTED] wrote:
> I thought this was working, but my logs just showed a case where it
> seems not to do what I want.
> Why does:
> $OK_body=($body=~/library\s*?card\D*?(\d{7})\D/i) ;
> Not become true when $body contains:
> Library Card: 0240742
>
> Just possibly there's some dodgy html
Title: gtk2
I'm new to gtk and (not too experienced at Perl either!). I'm taking a stab at porting NagiosWatch so it will run under Windows. The big problem was I couldn't find gtk1 .dlls so I switched it to gtk2. It went well and I have a working version. What I'm trying to solve at the mo
David Budd wrote:
> I thought this was working, but my logs just showed a case where it seems not
> to do what I want.
> Why does:
> $OK_body=($body=~/library\s*?card\D*?(\d{7})\D/i) ;
What's the last \D for ? '\s*?' should just be '\s*' - same with \D*?.
> Not become true when $body contains:
Perhaps you need to change the final \D to \D* since it is possible that
there is nothing after the 7 digits. Or perhaps omit the last \D completely.
Your code works with;
$body='Library Card: 0240742 '; # has a character after the 7 digits
but fails with;
$body='Library Card: 0240742';
The string $body ("Library Card: 0240740") does not end in \D ("not a
number"). You might want to add a * to that if you want to make sure it
matches strings that _do_ end in \D (ie. \n or \r\n or whatever stuff comes
behind the "ID") and those that end in the ID itself.
- Original Message
Title: Regex
David Budd wrote, on Tue 9/20/2005 10:57:
: I thought this was working, but my logs just showed a case
where it seems not to do what I want.: Why does::
$OK_body=($body=~/library\s*?card\D*?(\d{7})\D/i) ;: Not become true when
$body contains:: Library Card: 0240742
Probably b
Here is another example by searching for the actual program-name in the
process-list:
use Win32::OLE qw(in);
use Win32::OLE::Variant;
# Find all PIDs, program-names, and executable paths for all running
processes.
for my $Process (sort{lc($a->{Name}) cmp lc($b->{Name})} in
($WMI->Instance
I thought this was working, but my logs just showed a case where it seems not
to do what I want.
Why does:
$OK_body=($body=~/library\s*?card\D*?(\d{7})\D/i) ;
Not become true when $body contains:
Library Card: 0240742
Just possibly there's some dodgy html or something in the original that doen't
Title: Message
my @jim=`tasklist`;
now parse jim and find with you're looking for.
ALternatively:
my @jim=`tasklist|find "whatyou'relookingfor"`;
Jim will likely contain only one entry now, the thing you're looking
for.
:)
John
-Original Message-From:
[EMAIL PROTECTED]
Darrell Snedecor wrote:
> How do I use Perl to check for the existence of a running program in
> Windows?
You could use WMI or Win32::PerfLib or Win32::Process::Info depending
on what you really need. The latter is probably your easiest choice.
--
,-/- __ _ _ $Bill Luebkert
Here is one way by searching for a window-name in the variable $Program:
# Check for another instance of this program.
use Win32::GUI;
my $Desktop = GUI::GetDesktopWindow();
my $Window = GUI::GetWindow($Desktop, GW_CHILD);
my $Nbr = 0;
# $Program= ($HostName eq 'ma
How do I use Perl to
check for the existence of a running program in Windows?
Best Regards
Darrell Snedecor
Director
Harrisburg Project
800-635-5274
618-253-8504
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To
17 matches
Mail list logo
