RE:Destroy a window in Perl TK

Hi, I have a perl tk (in Windows9X) application which contains 2 windows. What I would like to do is when i click the cross(to destroy the window) of the first window to destroy also the another window. Thanks. I tried this: ... MainLoop; $_Globals{POPUP_WINDOW}->destroy; $_Globals{TOP_

Re: using glob with filenames with spaces

- Original Message - From: <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, January 31, 2002 1:28 AM Subject: using glob with filenames with spaces > > > I want to get all the HTML files in a directory that contains a space in its > path > using the glob operator. I use > > my

using glob with filenames with spaces

I want to get all the HTML files in a directory that contains a space in its path using the glob operator. I use my @html_files = glob "$input_dir/*.html"; This works when the $input_dir doesn't contain a space. If it does, it fails (it gives me just the name of the directory up to the first s

Re: variable with a split regex

- Original Message - From: "Ken Swift" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, January 31, 2002 12:03 AM Subject: variable with a split regex > Hello, I have this small snippet of code that if I > print out the split, everything looks just fine, but > if I set the spl

variable with a split regex

Hello, I have this small snippet of code that if I print out the split, everything looks just fine, but if I set the split to a variable and then try to print it does not work. For example: foreach my $host () { chomp; if($host =~ /\d+~$CheckHost~.+/) { print split /\d+~\d+~/, $h

Perl and Win32::OLE

I've been working on printing, print queue information, and the like using Win32::OLE and Perl. Does anyone have pointers to working with Notepad via OLE? Thanks in advance. ego Edward G. Orton, GWN Consultants Inc. Phone: 613-764-3186, Fax: 613-764-1721 email: [EMAIL PROTECTED] ___

Re[2]: Win32::Gui and Net::irc?

you may use fork() before any GUI creation. This not crash. TA> I received a reply from a person who also made a irc bot and he said that TA> fork() only succeeded in crashing his program. I read somewhere that fork() TA> isn't available in win32 perl nor does it work with win32::gui. >>From

intermal vs external sort (was: RE: Q: How to sort Array of Hashes)

Suppose you have a large file (hundreds of thousands or millions of records) you want to sort, then process in Perl. Does anyone have experience of relative speeds of: 1. Read the lines of the file into Perl, parse each line, store the lines in an array (either an array of arrays or array of ha

Re: Windows Default Printer

- Original Message - From: "Stephen Nordlund" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, January 30, 2002 4:16 PM Subject: Re: Windows Default Printer > Can you do this in reverse and add printers to the > print server when you know the port and drivers? Try this. It's

Re: Regex help - trim doc contents

Joseph P. Discenza wrote: > Stephen Patterson wrote, on > : To minimise the space needed to store this file, I'd like to remove > : all non-word characters and punctuation (except whitespace), and > : replace multiple whitespaces with single whitespaces. > : > : For efficiency, I'd like to do it

DBD::AnyData and/or DBD::CSV problem

I have a TAB delimited flat file containing Sales History records This is my first attempt at the DBD:AnyData (got a similar error from DBD::CSV also) module and I consistently get this error from the following code... DBD::AnyData::db prepare failed: Parse error near () FROM SHEPC at C:/Perl/si

Re: Windows Default Printer

Can you do this in reverse and add printers to the print server when you know the port and drivers? Regards, Stephen --- Stephen Patterson <[EMAIL PROTECTED]> wrote: > On 29 Jan 02, Richard A. Evans ([EMAIL PROTECTED]) > wrote: > > Can anybody tell me how to determine the default > windows printe

Re: Win32::Gui and Net::irc?

Peter Guzis wrote: > > Attempts to fork with Win32::GUI have been unsuccessful for the most part. > I found if I even "use Win32::GUI" before a fork, Perl will completely crash > when the fork is invoked. The workaround I found is to "require Win32::GUI" > after any such fork. I'm not sure if t

Re: Win32::Gui and Net::irc?

I received a reply from a person who also made a irc bot and he said that fork() only succeeded in crashing his program. I read somewhere that fork() isn't available in win32 perl nor does it work with win32::gui. >From: "Edward G. Orton" <[EMAIL PROTECTED]> >To: "Trisha Adams" <[EMAIL PROTEC

RE: Windows Default Printer

Rick, Here is one way to do it using the Windows Management Interface. James use Win32::OLE qw(in); $WMI = Win32::OLE->GetObject("winmgmts:"); $enum = $WMI->ExecQuery("SELECT * FROM Win32_Printer"); foreach $obj ( in $enum ){ if (($obj->Attributes & 4) ne 0 ){ print $