GuiTest and Locked Screen
I have a simple Win32::GuiTest example where I find a Notepad window, print its handle and title and then send some keys to it. When I open Notepad and the run the script I see... 4915356: Untitled - Notepad Notepad pops up on top of other windows and Testing 123 shows up in Notepad as expected. Here's the problem. I need this to work with the screen locked. When I lock the screen and give it time to run, I still get the handle and window title but no keys get sent to Notepad. It seems like it never get set as the foreground window since it's not on top after I unlock the screen. I tried SetForegroundWindow, SetActiveWindow and SetFocus but none seems to make it the current window. Any suggestions? # use warnings; use strict; use Win32::GuiTest qw(SetFocus SetActiveWindow FindWindowLike SetForegroundWindow SendKeys GetWindowText); sleep 15; #Give me time to lock the screen my ($winid)=FindWindowLike(0, Notepad); print $winid: , GetWindowText($winid), \n; #SetForegroundWindow($wind); #SetActiveWindow($winid); SetFocus($winid); sleep 3; SendKeys(Testing 123~); ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Checking for Available Port
I thought of something like that but would rather implement it using some kind
of Perl socket routine. I'll be using this on Windows and different flavors of
Unix and the output format of netstat differs.
-Original Message-
From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Brian
Raven
Sent: Monday, November 01, 2010 5:07 AM
To: perl-win32-users@listserv.ActiveState.com
Subject: RE: Checking for Available Port
Edwards, Mark (CXO) wrote:
I'm writing a simple port listener script using
$local=IO::Socket::INET-new(Proto=tcp,
LocalPort=$port,
Listen=1,
Reuse=1,) or die Can't open listening port: $!\n;
Everything works fine except I want to check to see if the port is
available before I try to open it. In some cases, if the machine is
already listening on a port, the script dies as expected. In other
cases the script runs but isn't really listening. Sometimes it takes
over a LISTENING port. I want to check for LISTENING or ESTABLISHED
ports.
Use something like `netstat -na`. For example:
sub tcp_port_state {
my $port_to_check = shift;
foreach (`netstat -na`) {
next unless /tcp/i;
my ($proto, $local, $remote, $state) = split;
my ($ip, $port) = split /:/, $local;
if ($port == $port_to_check) {
return $state;
}
}
return NOT IN USE;
}
HTH
--
Brian Raven
Please consider the environment before printing this e-mail.
This e-mail may contain confidential and/or privileged information. If you are
not the intended recipient or have received this e-mail in error, please advise
the sender immediately by reply e-mail and delete this message and any
attachments without retaining a copy.
Any unauthorised copying, disclosure or distribution of the material in this
e-mail is strictly forbidden.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Checking for Available Port
I'm writing a simple port listener script using $local=IO::Socket::INET-new(Proto=tcp, LocalPort=$port, Listen=1, Reuse=1,) or die Can't open listening port: $!\n; Everything works fine except I want to check to see if the port is available before I try to open it. In some cases, if the machine is already listening on a port, the script dies as expected. In other cases the script runs but isn't really listening. Sometimes it takes over a LISTENING port. I want to check for LISTENING or ESTABLISHED ports. Thanks. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Embedding Win32 App in TK
Is it possible to embed a Windows application (GUI or console) in a Perl/TK window? Something like opening a cmd console in a TK script that will accept input and display output. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Backticks and IIS6.0
Thanks to all who relied. It turned out to be a permissions issue. I'm running anonymous IIS has a domain user rather that the default iis_machinename. When I added the domain user to the local admin group it worked. Since that's a really bad idea I have to go through the local security policy to make it work. Mark Edwards HP Services Technical Solutions Group Voice: (719) 592-5363 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Edwards, Mark (CXO) Sent: Wednesday, November 15, 2006 11:03 PM To: perl-win32-users@listserv.ActiveState.com Subject: Backticks and IIS6.0 I'm moving from Windows 2000 (IIS 5) to Windows Server 2003 (IIS6). I'm unable to capture the output of a program using backticks in a CGI script. I tried v5.6.1 build 631 and v5.8.8 build 819 with the same results. Below is a trivial CGI script as an example. use CGI ':standard'; print header(); print end_html; html headtitleTest/title/head body pre end_html print `ping localhost`; print brError: $!br\n; print end_html; /pre /body /html end_html ; Under IIS5 it displays the output of ping as expected and no error ($!). Under IIS6 there is no output except for Error: Bad file descriptor. Mark Edwards HP Services Email: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Backticks and IIS6.0
I'm moving from Windows 2000 (IIS 5) to Windows Server 2003 (IIS6). I'm unable to capture the output of a program using backticks in a CGI script. I tried v5.6.1 build 631 and v5.8.8 build 819 with the same results. Below is a trivial CGI script as an example. use CGI ':standard'; print header(); print end_html; html headtitleTest/title/head body pre end_html print `ping localhost`; print brError: $!br\n; print end_html; /pre /body /html end_html ; Under IIS5 it displays the output of ping as expected and no error ($!). Under IIS6 there is no output except for Error: Bad file descriptor. Mark Edwards HP Services Email: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Hash return value
The each function requires a hash as an argument. I would think that a
subroutine that returns a hash could be used as the argument, but it
doesn't work. Why? Is my syntax wrong or is that just the way Larry
made it?
use warnings;
use strict;
my ($key, $value, %hash) ;
# Using hash for function argument works
%hash=mkhash();
while (($key, $value)= each( %hash ))
{
print($key = $value\n);
}
# Using subroutine that returns a hash doesn't work
while (($key, $value)= each( mkhash() ))
{
print($key = $value\n);
}
sub mkhash
{
my %hash=('one'=1, 'two'=2, 'three'=3);
return %hash;
}
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
EggExp Question
Is there a regular expression to indicate a string you're looking for and one you're not looking for? Example: You want to find all the Smiths in a list but not Smith, John. So if you read each record from the list, the pseudo code would be something like: $phone_book_entry=~m/^Smith.+?not(John)/ $phone_book_entry=~m/^Smith, [^J][^o][^h][^n]/ works but can be cumbersome for long strings. Also if you don't know that , is always between the last and first name (Smith Jr., John) and use .*?, it breaks. Is there a real re that will do this? Thanks Mark Edwards HP Services Technical Solutions Group http://www.hp.com/Hewlett-Packard Company CXO01-3/N13 301 Rockrimmon Blvd. South Colorado Springs, CO 80919-2398 Voice: (719) 592-5363 Email: [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: UNC Share
Title: Message
-Original Message-From: Robert E. Bray
[mailto:[EMAIL PROTECTED]]
On
a Win32 system, creating a UNC share to a file is very simple. But, how would
one create the share to just the directory share?
my
call to the file is
open (F,
'//server_name/share_name/file_name') ||die 'failed to open file
$!';
I've tried various permutations on
this to no avail. Suggestions?
Not
sure I understand. If you mean "create" the share, use
Win32::NetShareAdd. If you just wnat to open it, use
...
opendir(DIR,"//server/share") or die("Can't
open\n");
while($dir=readdir(DIR)){
print("$dir\n");}closedir(DIR);
RE: Win32::AdminMisc
Make sure you have permissions to the share and remember to use \\ for each \. Even better, use / as in Win32::AdminMisc::GetDriveGeometry(//server/share). The documentation on CPAN says you need a trailing / at the end of a UNC name but it seems to work without it. -Original Message- From: steve silvers [mailto:[EMAIL PROTECTED]] Sent: Monday, January 06, 2003 2:47 PM To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: RE: Win32::AdminMisc Importance: Low I have checked this out. But still not working. If I use @Geometry = Win32::AdminMisc::GetDriveGeometry(c:\); this will work. but @Geometry = Win32::AdminMisc::GetDriveGeometry(\\server\c$); and many different variations don't work! any suggestions. Thanks in advance. Steve From: Gibb, Thomas A [EMAIL PROTECTED] To: steve silvers [EMAIL PROTECTED], [EMAIL PROTECTED] Subject: RE: Win32::AdminMisc Date: Mon, 6 Jan 2003 13:09:10 -0800 Yes it will, refer to Dave Roth's site (http://www.roth.net/ http://www.roth.net/ ) for detailed information and POD descriptive document. Extensive information in the Administrators Handbook and well worth the expense. It covers everything. If it doesn't then an additional module would be Win32::Lanman HTH Tom Gibb -Original Message- From: steve silvers [mailto:[EMAIL PROTECTED]] Sent: Monday, January 06, 2003 12:58 PM To: [EMAIL PROTECTED] Subject: Win32::AdminMisc Does anyone know if this module will let you get the data from remote machines, and if yes how do you specify this? server\drive Thanks in advance. Steve _ The new MSN 8: smart spam protection and 2 months FREE* http://join.msn.com/?page=features/junkmail http://join.msn.com/?page=features/junkmail ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs http://listserv.ActiveState.com/mailman/mysubs _ MSN 8 with e-mail virus protection service: 2 months FREE* http://join.msn.com/?page=features/virus ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: perl-win32-users - Best way to return a path to a file ?
Title: Message Try File::Basename and you won't have to reinvent the wheel. -Original Message-From: Neil [mailto:[EMAIL PROTECTED]] Sent: Wednesday, December 04, 2002 9:48 AMTo: [EMAIL PROTECTED]Subject: perl-win32-users - Best way to return a path to a file ?Importance: Low Hi, I have just started to code up a subroutine to return the path only from a complete path to a file. This must the the 3rd time in two months as I have mislaid the routine on my HD and searching for it would probably take longer than the coding. When writing this routine, I always seem to take the long way roundand this got my curiosity going and wondering what other solutions people have come up with that are more elegant and obvious than my own. I find many times that looking at someone elses code can provide an "aha" moment that last far beyong the snippet involved. If anyone cares to share their code for this - that would be cool. If not - thats cool too. I am gonna head back to the editor and throw it together - again ;-) and I'll post it later so we can flame it in a public display of humiliation ;-) Neil
RE: thread limit in fork?
I'm *really* confused now. I've read topic after topic on this list saying that fork doesn't work on Windows. I've tried some trivial examples and it work. Other's have written that it works in some case but not all. One note said that a program worked most of the time but occasionally gets all forked up. What's the official word on 5.6.1 (build 633). -Original Message- From: Jan Dubois [mailto:[EMAIL PROTECTED]] Sent: Monday, November 25, 2002 16:45 PM To: prefab Cc: [EMAIL PROTECTED] Subject: Re: thread limit in fork? Importance: Low On Mon, 25 Nov 2002 15:09:26 -0800 (PST), prefab [EMAIL PROTECTED] wrote: Does anyone know where this limit comes from and if it is possible to configure a higher number of threads? Yes, there is a limit of 64 *concurrent* threads in Perl on Windows. The limit comes from using the WaitForMultipleObjects() API for the implementation of the wait() function. It would be possible to do better by e.g. chaining multiple blocks of 64 handles together using event semaphores, but somebody has to actually do it. It is not as easy as just changing a constant and recompiling the sources. Patches welcome! :) Note that you must use wait/waitpid to reap your forked children. Otherwise the slots in the thread table won't become available again for new threads. Cheers, -Jan ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: what does exit(n) give you
Be careful how you use errorlevel in the DOS world. You have to think of the errorlevel as a fence. If the fence is 4 feet high any you can jump 2 feet, your going to hit the fence. In other words, if the errorlevel is 4, it is also 3, 2, 1, and 0. The difference is whether you use if errorlevel or if %errorlevel%. errorlevel by itself is a threshold whereas %errorlevel% is the exact value as shown below. H:\perl -e exit (4) # Generates an errorlevel of 4 H:\echo %errorlevel%# Echos 4 4 H:\if errorlevel==3 echo yes # Tests the threshold up to 4 yes H:\if %errorlevel%==3 echo yes # Tests the exact value of errorlevel. # doesn't echo no -Original Message- From: Norris, Joseph [mailto:[EMAIL PROTECTED]] Sent: Friday, November 15, 2002 17:30 PM To: 'Peter Guzis'; Perl Win32 Users (E-mail) Subject: RE: what does exit(n) give you Importance: Low Thanks this is just what I needed. -Original Message- From: Peter Guzis [mailto:[EMAIL PROTECTED]] Sent: Friday, November 15, 2002 4:21 PM To: Perl Win32 Users (E-mail) Subject: RE: what does exit(n) give you test.bat @echo off test.pl echo Returned %ERRORLEVEL% --- test.pl --- exit 123; Peter Guzis Web Administrator, Sr. ENCAD, Inc. - A Kodak Company email: [EMAIL PROTECTED] www.encad.com -Original Message- From: Norris, Joseph [mailto:[EMAIL PROTECTED]] Sent: Friday, November 15, 2002 4:16 PM To: Perl Win32 Users (E-mail) Subject: what does exit(n) give you hello, in unix world the exit(n) returns the number in to a variable. Is this the same in the dos/windows world? If so what is the variable and how can I examine it in dos batch file or in perl. Thanks. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: what does exit(n) give you
The last line of my previous post should have been # Doesn't echo yes. Sorry to make a confusing Microsoft thing more confusing. -Original Message- From: Edwards, Mark (CXO) Sent: Monday, November 18, 2002 7:10 AM To: Peter Guzis; Perl Win32 Users (E-mail) Subject: RE: what does exit(n) give you Importance: Low Be careful how you use errorlevel in the DOS world. You have to think of the errorlevel as a fence. If the fence is 4 feet high any you can jump 2 feet, your going to hit the fence. In other words, if the errorlevel is 4, it is also 3, 2, 1, and 0. The difference is whether you use if errorlevel or if %errorlevel%. errorlevel by itself is a threshold whereas %errorlevel% is the exact value as shown below. H:\perl -e exit (4) # Generates an errorlevel of 4 H:\echo %errorlevel%# Echos 4 4 H:\if errorlevel==3 echo yes # Tests the threshold up to 4 yes H:\if %errorlevel%==3 echo yes # Tests the exact value of errorlevel. # doesn't echo no -Original Message- From: Norris, Joseph [mailto:[EMAIL PROTECTED]] Sent: Friday, November 15, 2002 17:30 PM To: 'Peter Guzis'; Perl Win32 Users (E-mail) Subject: RE: what does exit(n) give you Importance: Low Thanks this is just what I needed. -Original Message- From: Peter Guzis [mailto:[EMAIL PROTECTED]] Sent: Friday, November 15, 2002 4:21 PM To: Perl Win32 Users (E-mail) Subject: RE: what does exit(n) give you test.bat @echo off test.pl echo Returned %ERRORLEVEL% --- test.pl --- exit 123; Peter Guzis Web Administrator, Sr. ENCAD, Inc. - A Kodak Company email: [EMAIL PROTECTED] www.encad.com -Original Message- From: Norris, Joseph [mailto:[EMAIL PROTECTED]] Sent: Friday, November 15, 2002 4:16 PM To: Perl Win32 Users (E-mail) Subject: what does exit(n) give you hello, in unix world the exit(n) returns the number in to a variable. Is this the same in the dos/windows world? If so what is the variable and how can I examine it in dos batch file or in perl. Thanks. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Finding the OS type
Title: Message This will return the os and if it's windows will give you the version. $os=($^O eq 'MSWin32')?`ver`:$^O; -Original Message-From: Vladimir Hernandez [mailto:[EMAIL PROTECTED]] Sent: Monday, November 18, 2002 13:30 PMTo: Perl-Win32-UsersSubject: RE: Finding the OS typeImportance: Low ... But I think he wants to know the OS of the machine he's connecting TO, not the one of the machine he's running the script in, which is what you'll get with this variable, if i'm not mistaken. I don't have an answer to his question tough, and would like to know also! VH -Original Message-From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of PrashanthSent: Monday, November 18, 2002 16:03To: John Drabinowicz; Perl-Win32-UsersSubject: Re: Finding the OS type The $^O variable contains an indication of the name of the operating system (not its release number) that your perl binary was built for. - Original Message - From: John Drabinowicz To: Perl-Win32-Users Sent: Tuesday, November 19, 2002 1:06 AM Subject: Finding the OS type Hi Gang, so far I have been programming for Win32 (Cygwin) with Perl... I need to rsh to other machines such as Linux, Solaris, and HP/UX as well as Win32. Because Win32 is in the mix, I need to find out what type of OS I am connecting to in order to use the corrrect commands i.e. Registry commands or configuration files. I need to read the correct information from either and translate things correctly for OS independent operation. Can anyone give me the correct incantations to find the OS type? Is there any such thing? Thanks, John D.
RE: Perl TK List?
Send mail to [EMAIL PROTECTED] with the following command in the body of your email message: subscribe ptk -Original Message- From: Scott Purcell [mailto:spurcell;vertisinc.com] Sent: Friday, November 15, 2002 8:01 AM To: [EMAIL PROTECTED] Subject: Perl TK List? Importance: Low Hello, I am doing a simple interface and I ran into a problem with a widget method. Is there an appropriate list to post a question on perl/TK? Thanks, Scott Purcell | Developer | VERTIS | 555 Washington Ave. 4th Floor | St. Louis, MO 63101 | T 314.588.0720 | F 314.588.0735 | [EMAIL PROTECTED] | http://www.vertisinc.com Vertis is a global powerhouse for integrated marketing and advertising solutions that seamlessly combine advertising, direct marketing, media, imaging and progressive technology. Vertis' products and services include: consumer and media research, media planning and placement, creative services, digital media production, targetable insert programs, fully integrated direct marketing programs, circulation-building newspaper products and eMarketing. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: CGI on iis5 question
Have your die statement print a message. In IIS 5 the current working
directory is NOT the script directory but the root of the web. Let's
say your main script and tester.pl are in cgi-bin, as in
http://webserver/cgi-bin/main.pl
your open statement should be
open(inf, cgi-bin/tester.pl) or die $!;
I'm guessing the script is die'ing because it can't find the file. Die
$! Will tell you what the problem is.
-Original Message-
From: Mike Kalinovich [mailto:mike.kalinovich;inquent.com]
Sent: Thursday, October 17, 2002 19:10 PM
To: Perl-Win32-Users
Subject: CGI on iis5 question
Importance: Low
Hello,
Very simple script, opens a file, reads it into an array, and then it
should display it to the browser. But it's not, and I'm at a loss
why. It works command line fine. But not via the web. Using ActiveState
build 633 (perl -v = v5.6.1)
IIS5 entries are:
.cgid:\perl\bin\perl.exe %s %s
.pld:\perl\bin\perl.exe %s %s
What am I missing ?
No errors are reported via the web. Any tips would be good.
Mike Kalinovich
*** insert code ***
#!/usr/bin/perl
print Content-type:text/html\n\n;
open(inf,tester.pl) or die;
@ary = inf;
print file is opened and dumped into array\n;
foreach $line (@ary) {
chomp $line;
print $line\n;
}
close(inf)
___
Perl-Win32-Users mailing list [EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Perl and Strange File Names
I can't test it on W2K but readdir worked on XP with ActiverPerl build 633. It's not pure Perl but you can try ... @files=`dir /b/a`; -Original Message- From: Carlo7 [mailto:[EMAIL PROTECTED]] Sent: Wednesday, October 02, 2002 11:04 AM To: [EMAIL PROTECTED] Subject: Perl and Strange File Names Importance: Low Hello I Need to print file listings on win32 (w2000). When I glob or readdir i miss files with strange names like !=MyDir=! .message ..cvs etc. Is there a way I can get at these weird file names? Perl doesn't seem to want to list them ... TIA Karl ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
System call from Tk
I'm writing a Perl/Tk app where I need to capture the output of a console program. When I use `command` or a pipe, a cmd window pops up. Is there any way to prevent it? TIA Mark Edwards Compaq Global Services Customer Solutions and Support Center Compaq Computer Corporation 301 Rockrimmon Blvd. South Mailstop CXO1-03/N13 Colorado Springs, CO 80919-2398 Voice: (719) 592-5363 Pager: (719) 279-2702 Fax: (719) 592-5870 Email: [EMAIL PROTECTED] ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: New Win32 help format
Active has a module called ActivePerl-HTML that will generate the TOC in HTML format. The newest version of PPM updates the HTML help when a new module is installed or removed. It would be nice if the Win32 help was updated too. Not sure if there's a way to do it. -Original Message- From: ryddler [mailto:[EMAIL PROTECTED]] Sent: Thursday, December 13, 2001 10:17 AM To: [EMAIL PROTECTED] Subject: New Win32 help format Hello perl-win32-users, This is an excerpt from the Activestate change logs for build 630: changelog The style and content of the included online documentation has been extensively revised. On Windows, all the documentation is now provided in fully searchable HTML Help format. Documentation in conventional HTML format continues to be included only for Unix platforms, and can also be downloaded separately. /changelog The new HTML help format is great, and even allows you to browse through OLE type libraries looking for constants and functions! *BUT* My questions are... 1. Where can the downloaded separately conventional HTML help be downloaded? The changelog makes no mention of an URL, nor does the Activestate web site provide any clues that I can find. 2. Can I add to the new HTML help? Can installed modules be inserted? Or do I have to look in one place for the core documentation and another for user installed modules? -- Best regards, ryddler [EMAIL PROTECTED] http://www.cu-online.com/~ryddler/conquest ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: Getting Perl to fill in requested data for a dos program
I'm not sure you can do it from Perl after the DOS exe starts. You can do it when you first start the program with piping or redirection if the program uses STDIN. If there is only one line of input required use system(echo John Doe | prog.exe). If, for example, you need to enter name, age and favorite color use redirection from a file. The Perl script can create prog_input.txt containing: John Doe 25 red Then use system(prog.exe prog_input.txt). This won't work of the program uses console IO. Not pure Perl but it may do what you want. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Friday, December 07, 2001 12:12 PM To: [EMAIL PROTECTED] Subject: Getting Perl to fill in requested data for a dos program Hi, I'm trying to get perl to give input to a dos program. Here's a description of what I want it to do: 1. I want to have perl kick off a dos program that doesn't accept command line parameters. 2. The Dos program, that perl will have started, will then prompt the user for input like Enter Name: 3. I want Perl to fill in what the program is asking for on the screen, and then send a carriage return. Any ideas? Thanks in advance, Jeff ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
List Problems??
I'm on 4 Active State mailing lists and haven't received any mail in about 2 days. Is Active State having problems? Mark Edwards System Network Operations FutureSourcingTM Compaq Computer Corporation ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
Perl/Tk problem
I have a script that displays text in a Text widget. I want to be able to highlight a portion of the text, Ctrl-C and Ctrl-V it to another window. That's easy, works fine. Unfortunately, the text in the Text widget can also be altered. If I use -state=disabled, then it can't be changed but I also can't highlight it. Is there some other property like -edit=no? Mark Edwards ITO Support Specialist V FutureSourcingSM COMPAQ Global Services Phone: (719) 592-5363 Fax: (719)592-5870 Pager: (719) 279-2702 Email: [EMAIL PROTECTED] Compaq Computer Corp. 301 Rockrimmon Blvd. South Mail Stop: CXO01-3-N13 Colorado Springs, CO 80919-2398 ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
RE: Perl/Tk problem
Well that was easy. Thanks. -Original Message- From: Dunnigan,Jack [Edm] [mailto:[EMAIL PROTECTED]] Sent: Wednesday, May 23, 2001 10:27 AM To: Edwards, Mark (CXO); Perl-Win32-Users (E-mail) Subject: RE: Perl/Tk problem use ROText; instead Jack -Original Message- From: Edwards, Mark (CXO) [mailto:[EMAIL PROTECTED]] Sent: Wednesday, May 23, 2001 10:07 AM To: Perl-Win32-Users (E-mail) Subject: Perl/Tk problem I have a script that displays text in a Text widget. I want to be able to highlight a portion of the text, Ctrl-C and Ctrl-V it to another window. That's easy, works fine. Unfortunately, the text in the Text widget can also be altered. If I use -state=disabled, then it can't be changed but I also can't highlight it. Is there some other property like -edit=no? Mark Edwards ITO Support Specialist V FutureSourcingSM COMPAQ Global Services Phone: (719) 592-5363 Fax: (719)592-5870 Pager: (719) 279-2702 Email: [EMAIL PROTECTED] Compaq Computer Corp. 301 Rockrimmon Blvd. South Mail Stop: CXO01-3-N13 Colorado Springs, CO 80919-2398 ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
