Re:Re: perl Tk question

[EMAIL PROTECTED] wrote: >> Hi All! >> In the following snippet: >> >> use strict; >> use Tk; >> require Tk::LabFrame; >> my $top = new MainWindow; >> my $bar=$top->LabFrame(-label => 'buttons bar'); >> $bar->pack; >> my $exi=$bar->Button(-command=>\&exi,-text=>'exit'); >> $exi->pack(-side=>'

Argument passing between perl and C function.

Argument passing between perl and a C function. There is C function in a OLE server: What kind of variable should I pass to this function? # BOOL Calculate(BSTR* names, double* values, short number_of_names); I tried the fo

Re: It seems that Win32::OLE::Variant doesn't work!

Thanks for you guys help. $Bill Luebkert <[EMAIL PROTECTED]> found that is a typo of the document: . Win32::OLE::NEWS - What's new in Win32::OLE The VARIANT->Put(ARRAYREF) form allows assignment to a complete SAFEARRAY This allows automatic conversion from a list of lists to a SAFEARRAY. You can

RE: :Telnet

What kind of "particular" host are telnetting into? The Net::Telnet module works connecting to the following telnet servers: WindowsNT 4.0, Cisco Routers, Most of the Unix varients. its does not work on these servers: Windows 2000 Pro, Windows XP pro, Windows 2000 server pro, Windows server 2003.

Re: Reg Exp - Extracting html files

steve silvers wrote: > I'm searching many big text columns in my database and I need to extract > just the html file names. So far I'm working with directories and file > names. So it needs to grab the file names from examples like. > > directory/file2.html > dir/dir2/testfile.htm > > and list

Re: Reg Exp - Extracting html files

I'm working with ASCII text files that can be so big they'll make you wince. We're talking 40 MB and up. I'm scanning all files, seeing if they contain info we want, and then extracting any desired info from each. Or trying to, anyway. Yesterday I got a nasty "Memory Allocation Error" in my fe

Re: parsing event logs in win2000

Dan Jablonsky wrote: > hi all, > i need to parse system event logs for win2000 > Professional and i can see what i'm looking for when i > use the viewer; i can also save the log in text format > from the viewer. > > Is there any way i could programmatically get an *.evt > file in a given path AND

RE: Net::Telnet

When Net::Telnet doesn't do what you expect, 99% of the time it's a prompt issue. Did you set the prompt? The default prompt works with the unix command line, but you'll have to set it to work with your application. I highly recommend using the debugging options; they can help you figure out probl

Reg Exp - Extracting html files

I'm searching many big text columns in my database and I need to extract just the html file names. So far I'm working with directories and file names. So it needs to grab the file names from examples like. directory/file2.html dir/dir2/testfile.htm and list file2.html testfile.htm etc.. an

RE: Net::Telnet

> Hi, > I am using this module (Net::Telnet) downloaded from CPAN, > for a small > interactive program in which I telnet to a particular host, > login and give > some commands (based on the options you get). I am not able > to do this. I am > able to login but whatever I do after that doesn't

parsing event logs in win2000

hi all, i need to parse system event logs for win2000 Professional and i can see what i'm looking for when i use the viewer; i can also save the log in text format from the viewer. Is there any way i could programmatically get an *.evt file in a given path AND SAVE IT IN TEXT FORMAT, and then open

Re: perl Tk question

Hi, You are deleting whatever is in $text0 till the énd'. Comment that out and you will see all the values of $i. ... sub prg{ for (my $i=0;$i<20;$i++){ # $text0->delete('0.0','end');# commented out $text0->insert('end',"$i\n"); # sleep 1; } } Bye, Zeray |---

RE: perl Tk question

Here you go I took out your sleep and added a timer. Sleep will block tk handling events. The built in timer will not be blocked. So you will be able to do things like refresh the gui and move the window around the screen, etc. The '$top->update' is probably not required I just added it to

Re: perl Tk question

[EMAIL PROTECTED] wrote: > Hi All! > In the following snippet: > > use strict; > use Tk; > require Tk::LabFrame; > my $top = new MainWindow; > my $bar=$top->LabFrame(-label => 'buttons bar'); > $bar->pack; > my $exi=$bar->Button(-command=>\&exi,-text=>'exit'); > $exi->pack(-side=>'left'); > m

Net::Telnet

Hi, I am using this module (Net::Telnet) downloaded from CPAN, for a small interactive program in which I telnet to a particular host, login and give some commands (based on the options you get). I am not able to do this. I am able to login but whatever I do after that doesn't seem to happen. Can

RE: perl Tk question

Looks like it's just because the window doesn't update until you return from the callback. Are you trying to create some sort of special effect? Perhaps asking how to create that effect might be simpler - the Text widget doesn't look like it likes that sort of thing! Kind regards, Mark Anderson S

RE: perl Tk question

> When executing this snippet > I see in text0 only the last $i /in for cycle/ > What I must add to prg code > in order to see all cosequtive values of $i ? for (my $i=0;$i<20;$i++){ #$text0->delete('0.0','end'); # just don't delete everytime all contents of the box $text0->insert

Re: perl Tk question

Just add: $top->update any place inside the "prg" procedure. On Wed, 1 Jun 2005 08:06:42 UT, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > Hi All! > In the following snippet: > > use strict; > use Tk; > require Tk::LabFrame; > my $top = new MainWindow; > my $bar=$top->LabFrame(-label => 'b

Re: perl Tk question

Well right now ur deleting all the text before inserting any more. Get rid of the delete line or move it out of the for loop. Then it'll work as expected. At 08:06 AM 6/1/05 UT, [EMAIL PROTECTED] wrote: >sub prg{ > for (my $i=0;$i<20;$i++){ > $text0->delete('0.0','end'); >

perl Tk question

Hi All! In the following snippet: use strict; use Tk; require Tk::LabFrame; my $top = new MainWindow; my $bar=$top->LabFrame(-label => 'buttons bar'); $bar->pack; my $exi=$bar->Button(-command=>\&exi,-text=>'exit'); $exi->pack(-side=>'left'); my $prg=$bar->Button(-command=>\&prg,-text=>'prg');

RE: It seems that Win32::OLE::Variant doesn't work!

perl 5.8.4 on NT4 C:\>perl -e "use Win32::OLE;use Win32::OLE::Variant; my $Array=Variant(VT_ARRAY| VT_R8,[1,2],2); $Array->Put([1,2],[2,3]); " Win32::OLE(0.1701): Win32::OLE::Variant->Put(): Wrong number of indices; dimension of SafeArray is 2 at -e line 1. This works fine... it's normally eas

It seems that Win32::OLE::Variant doesn't work!

It seems that Win32::OLE::Variant doesn't work! Below is the script: #! perl -W use strict; use Win32::OLE; use Win32::OLE::Variant; my $Array = Variant(VT_ARRAY|VT_R8, [1,2], 2); $Array->Put([[1,2], [3,4]]); Below i