在vba里使用PERL

figfig

Sub perl()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "$addr = '127.0.0.1';$host = gethostbyaddr(pack('C4', split(/\./, $addr)), 2);"


y = x.eval("$host")
MsgBox y
End Sub

[ 本帖最后由 figfig 于 2010-5-5 21:30 编辑 ]

figfig

Sub perl()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "open(IN, 'c:\\aa.txt');@file=<IN>; " '文件复制到数组


y = x.eval("@file") '文件行数

MsgBox y

y = x.eval("@file[2]") '文件第二行

MsgBox y



End Sub

figfig

Sub perl()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "open(OUT, '>c:\\cc.txt');print OUT 'vvvvvvvvvvvvvvvvvvvvvvvv';close(OUT);" '写入c:\cc.txt文件




End Su

figfig

Sub perl()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "open(OUT, '>>c:\\cc.txt');print OUT 'vvvvvvvvvvvvvvvvvvvvvvvv';close(OUT);" '追加写入c:\cc.txt文件




End Sub

figfig

Sub perl()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "$a='888';$b='999';$c=qq(777$a$b)" '变量置换

y = x.eval("$c")
MsgBox y


End Sub

figfig

Sub perl()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "use Tkx;Tkx::button('.b',  -text => 'Hello, world',    -command => sub { Tkx::destroy('.'); },);Tkx::pack('.b'); Tkx::MainLoop()"






End Sub

figfig

Sub perl()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "use strict;use Tkx;my $mw = Tkx::widget->new('.');$mw->g_wm_minsize(800, 600);Tkx::MainLoop()"








End Sub

figfig

Sub perl()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "use Tkx;Tkx::package_require('Tktable');  my $mw = Tkx::widget->new('.'); my $t = $mw->new_table( -rows => 5,  -cols => 3, );   $t->g_pack;  Tkx::MainLoop()"






End Sub

figfig

Sub perl()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "use Tkx;Tkx::tk___messageBox(-message => 'Have a good day');"






End Sub

figfig

2.1 ".."运算符

".."运算符表示一个区间，譬如1..5，表示从1到5的五个数字（1 2 3 4 5），一般用于列表或数组的赋值中。

Sub perl()

Set x = CreateObject("scriptcontrol")
x.Language = "perlscript"
x.eval "@aa=(1..10)"
MsgBox x.eval("@aa[4]")
End Sub