亲耐滴各位perl达人，请问如何用SecureCRT跑perl脚本？

fklk

本人在玩VXworks，一直用SecureCRT连VXworks设备，但是有时有些简单重复的VX指令（ping啊，show啊什么的），俺比较懒，不想死命的重复敲命令。

于是想到了perl脚本，各位大侠们，你们知道在SecureCRT上跑perl脚本的，请提供个Hello world，

灰常感谢！！

shaneqi

# $language = "PerlScript"
# $interface = "1.0"

use Win32::OLE;
Win32::OLE->Option(Warn => 3);

$crt->Dialog->MessageBox($crt->{'Version'});

珞水的大叔

这个是不是要看你的VXworks是否支持perl啊

shaneqi

这个是不是要看你的VXworks是否支持perl啊
珞水的大叔 发表于 2010-09-16 15:58

        应该是运行SecureCRT的系统是否支持perl吧？我这边win7 x64 用的activeperl 64-bit，就不能用secureCRT跑perl的脚本。

珞水的大叔

不会吧，我这边是用SecureCRT远程连接的服务器，都是在服务器上执行perl啊
应该是SecureCRT连接的服务器需要支持perl，和本地的没有关系吧

fklk

应该是运行SecureCRT的系统是否支持perl吧？我这边win7 x64 用的activeperl 64-bit，就不能用 ...
shaneqi 发表于 2010-09-16 16:33

   
但是我还是不知道怎么在这个脚本里面执行VX命令，比如：DelRule ，iosShow等等（这些不是VX本身的，是自己做的函数）

fklk

我知道用VBsript实现是这样滴：

crt.Screen.Send "DelRule" & chr(13)
crt.Screen.Send "iosShow" & chr(13)

但是怎么用perl实现呢？请赐教，谢谢！

fklk

达人们啊，给个答案嘛，俺是上穷碧落下黄泉,google了又baidu，就是没人知道我的问题呀。

dugu072_cu

首先，需要secureCRT的高版本（貌似要大于6.0，记不清了）才支持 perl 引擎，至于说安装secureCRT的PC，也是需要安装Perl环境的；
然后，Perl脚本示例：
# $language = "PerlScript"
# $interface = "1.0"
use Win32::OLE;
Win32::OLE->Option(Warn => 3);

$crt->Screen->{'Synchronous'} = $true;
$crt->Screen->{'IgnoreEscape'} = $true;

$crt->Screen->Send("$cmd\n");
$retStr = $retStr . $crt->Screen->ReadString("#", 3) . "#";

最后，其实有问题，大可以去 SecureCRT 的官方论坛发帖，官方客服都在上面回帖答疑的，态度很好～

shaneqi

嗯，我当时遇到这个问题，perl运行不了，不过貌似是ActivePerl的问题。

http://forums.vandyke.com/showthread.php?t=5931