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
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 easier
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');
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;$i20;$i++){
$text0-delete('0.0','end');
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;$i20;$i++){
#$text0-delete('0.0','end'); # just don't delete everytime all
contents of the box
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 = 'buttons bar');
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
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.
[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');
my
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
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;$i20;$i++){
# $text0-delete('0.0','end');# commented out
$text0-insert('end',$i\n);
# sleep 1;
}
}
Bye,
Zeray
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
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
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..
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
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 SAVE
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
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
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.
Thanks for you guys help.
$Bill Luebkert [EMAIL PROTECTED] found that is a typo of the
document: ActivePerl User Guide.
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
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
[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');
my
22 matches
Mail list logo
