RE: Hide Tk window
$widget->withdraw; > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED]]On Behalf Of > Eugeniy Ogloblin > Sent: Friday 15 February 2002 16:43 > To: [EMAIL PROTECTED] > Subject: Hide Tk window > > > Hello All, > > How to make Tk window "invisible" as Win32::GUI::Hide in Win32::GUI > environment? > > > > -- > Best regards, > Eugeniy mailto:[EMAIL PROTECTED] > > > ___ > 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
Hide Tk window
Hello All, How to make Tk window "invisible" as Win32::GUI::Hide in Win32::GUI environment? -- Best regards, Eugeniy mailto:[EMAIL PROTECTED] ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: OLE Functions
> -Original Message- > Behalf Of Richard A. Evans > > > I have seen (and have written) perl code such as: > > use Win32::OLE; > > # use existing instance if Excel is already running > eval {$ex = Win32::OLE->GetActiveObject('Excel.Application')}; > > So my question is... where do I find exactly the names of > functions I can > use with OLE and the specific format (case, etc.) and arguments for them? > I'm looking for Excel, Word, and Outlook functions to start. Do > I need a VB > reference or what? > By guessing very well. The following is a comment that I keep in my relevant perl scripts so I know how I 'guessed' the last time. Maybe it will help, maybe not. # The hard part is finding the methods and properties. # You can list the methods by: # If you have Microsoft Excel or Microsoft Word # available, go into the Visual # Basic Editor (Alt+F11). Now you can open the # object browser window (F2) and see what you find. # The names are probably kind of close to the menu # items and dialog fields. # # Second: # -Create a macro in Word or Excel # -Examine the macro in the Visual Basic Editor (see #above) # -Most of the code in the macro will translate like #this # macro # thing.doit # perl # thing->doit(); # # Third search in the MS Developement Network Library CD under the # 'Office 97 Documentation' and then just keeping # hunting for something that looks like what was found # in the Basic Editor. In particular search for # 'wdFormatTextLineBreaks' and resync with the documents. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Win32::AdvNotify as a Service
I haven't tried it as a service, though I have been using it for about 5 months on a quiet workstation. I find if I don't get all of my processes running first, it will cause some of the processes (not all) to not start. I have to stop my script and after everything is up and running, then restart my script. I sent messages requesting help, but never heard a word back. I continue to use, but must be wary. I looked at Dave Roth's Change script, but seemed like more work than necessary for looking at files which change. Just some FYI. Wags ;) -Original Message- From: Lewis, Alvin [mailto:[EMAIL PROTECTED]] Sent: Friday, February 15, 2002 06:50 To: '[EMAIL PROTECTED]' Subject: Win32::AdvNotify as a Service Hi, Has anyone tried coding from Amine's Win32::AdvNotify extension into a WinNT service? I have been playing with this module (V1.31) and have been unable to get it to work as a service. My script runs fine from a command console but hangs when I try to install it as a service using Dave Roth's Win32::Daemon extension. The offending line seems to be the thread creation: my $thread1 = $WatchDir->StartThread(Directory => "f:\\atlasdata\\", Filter => DIR_NAME|FILE_NAME, WatchSubtree => Yes ) ; I'm using ActiveState build 626 Win32::api version 0.01 Win32::daemon version 0.2002.01.15 I'm using a very simple script (provided by Dave Roth) to install a service and I added these lines at the top: # -# use vars qw( $VERSION ); use Getopt::Long; use File::Path; use Win32; use Win32::Daemon; #use Win32::ChangeNotify; use WIN32::NetResource; use Win32::Perms; use Win32API::File 0.08 qw( :Func ); use Win32::AdvNotify qw(FILE_NAME DIR_NAME LAST_WRITE INFINITE Yes No All %ActionName %ActionColor %EventName); my $WatchDir = new Win32::AdvNotify; my $thread1 = $WatchDir->StartThread(Directory => "c:\\temp", Filter => DIR_NAME|FILE_NAME, WatchSubtree => Yes ) ; # -# The service starts OK when they are commented out but hangs with: 'Error 2186: The service is not responding to the control function' when they are put back in! Is there some reason your module can't work from a service? Any suggestion would be greatly appreciated. Cheers, Al Lewis PPG Industries Lake Charles, LA 337-708-4768 ___ 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: Socket with XML Request
Sorry, I got out of the 'doing other people's homework for free' business after grad school. Steve Hi Everybody, I need help on this : 1) Generate an XML request. 2) Open a TCP socket to www.somename.com on port 100. 3) Strip out any carriage returns or linefeeds from my request. 4) Send my request as plain ASCII text. Should send a CrLf when done. 5) www.somename.com will execute my request, and return an XML response, terminated by a CrLf. 6) Interpret that response and use it in my application. I know little bit of perl but I would love to have help on this may be some sample script to demonstrate not must. Looking forward for your response. karthikeyan. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Newbie: Delete a line on a file
I copied a program from the Learning Perl book. use strict; chomp(my $date = `date`); @ARGV = glob "fred*.dat" or die "no files found"; $^I = ".bak"; while (<>) { s/^Author:.*/Author: Randal L. Schwartz/; s/^Phone:.*\n//; s/^Date:.*/Date: $date/; print; } I created a file called fred.dat with the text from the book Learning Perl. I called the script in the browser http://yes/cgi-bin/test/copy.cgi and it opens the MS DOS screen C:\WINDOWS\command.com and it hangs without doing anything. I have read the perlfaq5 and been on the site at www.perlfaq.com to try to see if it helps me. Help anyone please. - Original Message - From: "Sisyphus" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, February 11, 2002 3:07 PM Subject: Re: Newbie: Delete a line on a file > > - Original Message - > From: "Peter Eisengrein" <[EMAIL PROTECTED]> > To: "'Malcolm Debono'" <[EMAIL PROTECTED]>; > <[EMAIL PROTECTED]> > Sent: Tuesday, February 12, 2002 8:54 AM > Subject: RE: Newbie: Delete a line on a file > > > > There are several ways this can be done. If it is a small file, and you > > really mean the last line the you could do it like this: > > > > open(FILE,$file) || die "Can't open file $file : $!\n"; > > @lines=; > > > > pop(@lines); > > > > ### > > Now @lines has all but the last line. However, this isn't great for large > > files because @lines will be the entire file held in memory. > > > > Bear in mind that this won't actually affect the contents of the file. To do > that you would have to write @lines to a new file, delete (or rename) the > original file, and rename the new file to the original - which is the way > the perlfaq basically does it. > > Incidentally, there's some very succinct code for doing this at > http://www.perlfaq.com/cgi-bin/view?view_by_id=109 > (I haven't actually tried that. I assume it works on Windows.) > > And, Peter - Malcolm's new to perl - you should have told him to close the > file :-) > > Cheers, > Rob > > ___ > 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: I have got the answer - HEY
Anyone have any ideas why I'm getting hundreds of copies of this particular message? walter > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED]]On Behalf Of > [EMAIL PROTECTED] > Sent: Friday, February 15, 2002 4:53 AM > To: [EMAIL PROTECTED] > Subject: I have got the answer > > > thanx guys. i have got the answer > > ___ > 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: Zero-suppression Function (was Zero-suppression Regex)
> Reply-To: "Dirk Bremer" <[EMAIL PROTECTED]> > From: "Dirk Bremer" <[EMAIL PROTECTED]> > To: "'Perl Win32 Users Mailing List'" > <[EMAIL PROTECTED]> > Subject: Re: Zero-suppression Regex > Date: Thu, 14 Feb 2002 10:06:35 -0600 > Organization: NISC > > I whipped up this sub to perform the zero-suppression: > > sub ZeroSuppress($) > { > my $self = shift; > > # Return if the argument is less than two digits. > return($self) if (length($self) < 2); > > # Search for a embedded decimal point. > my $decimal = rindex($self,'.'); > > # If the decimal point exists, substract one from its position > # to define the end point of the zero-suppression, > else determine > # the entire length of the string and subtract one to > define the > # end point of the zero-suppression. > if ($decimal > 0) {$decimal-- ;} > else {$decimal = length($self) - 1;} > > # Change the scalar into a list. > my @list = split //,$self; > > # Iterate through the list suppressing leading zeroes. > my $i; > for ($i = 0; $i < $decimal; $i++) > { > next if ($list[$i] eq ' ' or > $list[$i] eq '+' or > $list[$i] eq '-'); > last if ($list[$i] > 0); > $list[$i] = ' '; > } > return(join '',@list); > } > > print(ZeroSuppress(' 000.00'),"\n"); > print(ZeroSuppress('0'),"\n"); > print(ZeroSuppress(' 0101010.01'),"\n"); > print(ZeroSuppress('+000.00'),"\n"); > print(ZeroSuppress('-000.00'),"\n"); > print(ZeroSuppress(' 000.00'),"\n"); > print(ZeroSuppress(' 001.00'),"\n"); > print(ZeroSuppress(' 000.01'),"\n"); > print(ZeroSuppress(' 00'),"\n"); > print(ZeroSuppress(' 01'),"\n"); > print(ZeroSuppress(' 000101'),"\n"); > print(ZeroSuppress(' 001001'),"\n"); > print(ZeroSuppress(' 010001'),"\n"); > > Results of test are: >0.00 > 0 > 101010.01 > + 0.00 > - 0.00 >0.00 >1.00 >0.01 > 0 > 1 > 101 >1001 > 10001 > > Got strange benchmark results for just the ZeroSuppress sub, > reported performance was off of the chart when compared to > sprintf('%1.2f',$num) or regex $num =~ s/\b0+(?=\d)//, so it > is either much faster than the regex or sprintf or something was wrong > in the way I benchmarked it. Would like a good suggestion for > floating the sign character without using a regex so that "+ > 0.00" becomes " +0.00". > > Dirk Bremer - Systems Programmer II - ESS/AMS - NISC St. Peters > 636-922-9158 ext. 652 fax 636-447-4471 > Assuming you dont mind a plain string, changing $list[$i] = ' '; to $list[$i] = ''; will get the +-" signs directly next to the leading number. Of course this means the numbers are left aligned instead of right aligned, but so are your results, so I dont see any difference: >0.00 > 0 ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: URGENT: problem executing external commands in my perlscript
Hi Alistair, Find below my answers to your questions. Kindly review them and respond me with your solutions. Kindly explain what are these "Incorrect DOS version" and "Incorrect MS-DOS version" problems. I couldn't get proper information from web. This can solve much of my problems. Thanks, Rajesh. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On Behalf Of [EMAIL PROTECTED] Sent: Wednesday, February 13, 2002 11:34 PM To: [EMAIL PROTECTED]; [EMAIL PROTECTED] Subject: RE: URGENT: problem executing external commands in my perlscript Rajesh, Your problem sounds more to do with your Win98 installation than with Perl. You shouldn't have needed to copy command.com to your "working directory", that file should be in the root of your c drive and in c:\windows\system directory and c:\windows\system should be in your path. Check your PATH and ensure that c:\windows\system is in it. Run a "dir /s command.com" from the root of your C: and any other drives mentioned in your path. Compare the file stamps of all files found, they should exactly match the one in the root of C:. If you find command.com anywhere other than C:\ and C:\windows\system or if different files are not the same then I recommend speaking to a local techie to ensure that your OS is installed correctly. RAJESH WRITES: -- On my system: The command.com is in C:\windows and C:\windows\command\ebd. "C:\windows" is in my path (please see attached "mypath" file) but not the other path. Other thoughts: * how are you running perl, from the command line or via an IDE? RAJESH WRITES: -- from the command line. Kindly let me know if there are any downloadable IDE. * do you have much free memory, what does "mem" report, are lots of files loaded in autoexec.bat and config.sys? RAJESH WRITES: -- I am unable to execute "mem" command, it results in "Incorrect DOS version" message. Attached are my autoexec.bat and config.sys. Kindly review them. * have you run scandisk recently?Could command.com be corrupt? run "FC /b c:\command.com c:\windows\system\command.com" to check they are the exactly the same. RAJESH WRITES: -- Yes! my tech persons have run scandisk for some reason on my system. I am unable to execute fc(result: "Incorrect DOS version") * Can you open files in perl when you don't log into the network? RAJESH WRITES: -- Hope you meant if I can execute perl? yes! I can execute perl without logging into network as my perl is in my harddisk; and if you can see in the "mypath" file the local path(C:\perl\bin) is preceded to network perl path(x:\). COrrect me if I am wrong. * Virus checking? RAJESH WRITES: -- What virus checking? and, How can I do this? Disclaimer: Be very careful when deleting, moving or copying files like command.com. You could potentially corrupt your hard drive or stop your machine from booting. Proceed with caution (etc) Alistair <> Config.sys Description: Binary data mypath Description: Binary data
Win32::AdvNotify as a Service
Hi, Has anyone tried coding from Amine's Win32::AdvNotify extension into a WinNT service? I have been playing with this module (V1.31) and have been unable to get it to work as a service. My script runs fine from a command console but hangs when I try to install it as a service using Dave Roth's Win32::Daemon extension. The offending line seems to be the thread creation: my $thread1 = $WatchDir->StartThread(Directory => "f:\\atlasdata\\", Filter => DIR_NAME|FILE_NAME, WatchSubtree => Yes ) ; I'm using ActiveState build 626 Win32::api version 0.01 Win32::daemon version 0.2002.01.15 I'm using a very simple script (provided by Dave Roth) to install a service and I added these lines at the top: # -# use vars qw( $VERSION ); use Getopt::Long; use File::Path; use Win32; use Win32::Daemon; #use Win32::ChangeNotify; use WIN32::NetResource; use Win32::Perms; use Win32API::File 0.08 qw( :Func ); use Win32::AdvNotify qw(FILE_NAME DIR_NAME LAST_WRITE INFINITE Yes No All %ActionName %ActionColor %EventName); my $WatchDir = new Win32::AdvNotify; my $thread1 = $WatchDir->StartThread(Directory => "c:\\temp", Filter => DIR_NAME|FILE_NAME, WatchSubtree => Yes ) ; # -# The service starts OK when they are commented out but hangs with: 'Error 2186: The service is not responding to the control function' when they are put back in! Is there some reason your module can't work from a service? Any suggestion would be greatly appreciated. Cheers, Al Lewis PPG Industries Lake Charles, LA 337-708-4768 ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Using 2 Images instead of a Button Perl/TK
All, Hopefully I'm done with asking questions (Amazon confirmed my Mastering TK book has been dispatched). The last issue I have - so far - is that I wish to use a couple of gif files instead of buttons. I want the image to change when you click it, i.e. gif a if replaced by gif b when clicked, and changed back to gif a when released. Can I use a Button widget or do I need to create a canvas widget and populate it with the icons. Currently I was using a label widget and using the raise/sunken options to imitate a button (because I needed a small size button). regards Marty ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: FOR MODERATOR
Dear Karthikeyan, There is no moderator for this list. The members of the list usually moderate themselves. All of those emails with the same FROM, SUBJECT originated from your email address, so perhaps you would kindly make an effort to not send them. Thanks, - Aaron -- Aaron Brown - [EMAIL PROTECTED] Middleware Programmer University of Kansas 785-864-0423 http://www.ku.edu/~aaronb/ -Original Message- From: karthikeyan [mailto:[EMAIL PROTECTED]] Sent: Friday, February 15, 2002 8:29 AM To: [EMAIL PROTECTED] Subject: FOR MODERATOR Dear MODERATOR, Kindly make an effort to stop mails coming to this mailing list which has same FROM, SUBJECT if it comes more than once. Regards, karthikeyan. ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
SPAM - Help Me
Hi Everybody, Somebody is using my mail id for spam. I am shocked when i saw so many messages stating "I have got the answer". Please stop this whoever is doing this and spoiling my reputation in this great mailing list. Moderator help me out to find out the culprit. karthikeyan.
FOR MODERATOR
Dear MODERATOR, Kindly make an effort to stop mails coming to this mailing list which has same FROM, SUBJECT if it comes more than once. Regards, karthikeyan.
Get Eventlog Message Text on Remote Machines
Has anyone an idea of how to get the Message Text of an Event on Remote machines. I wrote a perl script that reads from all my machines in the network the eventlogs and scans it by criticals that I defined myself. I want to see all message texts that are available for the events. Here is a little testing script: $handle=Win32::EventLog->new("System", "ServerName"); Win32::EventLog::GetMessageText($hashRef); print $hashRef->{EventID} & 0x," ",$hashRef->{Message}," \n"; If ServerName is the local server, Message shows all the messages. If ServerName is a remote server, Message shows only some of the messages, but mostly nothing (blank). I Read something about messagefiles in the registry, but I have no idea of how to implemt it to my script. Regards for any help, Stefan Lindner ABB Germany ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Script does not work
$Bill wrote: > Better than notepad is to get vim or emacs or any decent > multi-platform > text/programming editor. Also, Olaf, just to make sure the point was understood: Wordpad doesn't save its documents in text format by default. It uses RTF, which no compiler would be able to understand (WordPad ignores the extension you give the file so using .pl doesn't mean it gets saved in text). Wordpad would have worked just fine (I've edited many a Perl script in WordPad, to my shame), but you have to save the document in .txt format. jpt ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: I have got the answer
enough already. I'm pleased you've got the answer... At 15/02/2002 10:51:59, [EMAIL PROTECTED] wrote: # thanx guys. i have got the answer # # ___ # Perl-Win32-Users mailing list # [EMAIL PROTECTED] # To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs # Roger ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
I have got the answer
thanx guys. i have got the answer ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
I have got the answer
thanx guys. i have got the answer ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
I have got the answer
thanx guys. i have got the answer ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
I have got the answer
thanx guys. i have got the answer ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
[PMX:XXXXX] I have got the answer
thanx guys. i have got the answer ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
[PMX:XXXXX] I have got the answer
thanx guys. i have got the answer ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
[PMX:XXXXX] I have got the answer
thanx guys. i have got the answer ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
[PMX:XXXXX] I have got the answer
thanx guys. i have got the answer ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
[PMX:XXXXX] I have got the answer
thanx guys. i have got the answer ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Script does not work
hello, I am a beginner in perl on win32. ich have expierience in perl on irix. so i was wondering, that a easy perl sript does not work. the first example of Active State : print "Hello from ActivePerl!"; named example.pl does work. but if i copy and paste this line in an empty wordpad document, save it as ex.pl it errors: Unrecognized character \xD0 at C:\Perleg/ex1.pl line 1 so does somebody know about this? greetings olaf ___ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs