想学一门脚本语言，大家推荐下

banggou

原帖由 sysno 于 2008-11-19 14:00 发表
看个人爱好：
追求灵活，想用的爽的话用Perl;
崇尚简单就是美，用Python;
写工具、小脚本(自己写自己用)用Perl;
写大规模的软件(多人合作)用Python。

呵呵  关键看自己是否能坚持 都一样

MMMIX

原帖由 jamesr 于 2008-11-23 20:58 发表
脚本语言目前有支持多内核线程的实现吗？

当然有了。

MMMIX

原帖由 jamesr 于 2008-11-23 21:15 发表

据您所知，哪些脚本语言支持内核级线程？

Perl 就支持。

个人觉得，这样的脚本解释器可能会很难实现吧！

难么？不就是代码中若调用创建线程的函数时，用系统提供的线程接口就完了。

若你说的是(脚本)语言的语句级的并行通过系统的线程接口实现，这个估计有点麻烦。

system888net

ls所言极是

welcome008

tclsh

lastfile

随便吧，反正都是工具

thy3368

原帖由 flw 于 2008-11-19 13:43 发表
还没了解就开始批判了啊。
这可不是面对新事物所应有的态度。
我觉得 Perl 的面向对象功能很够用，虽然是后来加的，但很巧妙很灵活，并不生硬。

说得对啊, 我用过JAVA, 但是觉得不方便.


PERL的对象, 可以直接把XML的数据读出来,做个HASHTABLE, 直接放到对象里, 方便极了~~~~~~~~~~~~~~~~~~~~~~~~~~~~

package Manage:C;
#file:  Manage/PC.pm
#utility routines for testing machine operation.
#do() are only exported functions

use strict;
use Expect;
use XML::Simple;
use XML::XPath;
use XML::XPath::XMLParser;
use Data:umper;
use vars '@ISA', '@EXPORT';
require Exporter;

@ISA = 'Exporter';
@EXPORT = qw();



sub new {
    my $class = shift;
    my $pc_id = shift;
                my $xml  = new XML::Simple;
                my $data = $xml->XMLin("/home/automation/htang/devices.xml";
    my $self = $data->{'PC-LIST'}->{'PC'}->{"$pc_id"};
#    print Dumper($self), "\r\n", $class, "\r\n", $pc_id, "\r\n";               
    bless($self, $class);
    return $self;
}


sub do_rsh{
        my $timeout = 20;
        my $cmd = "rsh";
        my $password = "password";
        my $self = shift;
        my @arg = @_;
  print "action do!", @arg;
  my $mgt_ip = $self->{'MGT-IP'};
        my $exp = Expect->spawn($cmd, $mgt_ip, @arg) or die "Can't spawn $cmd!";
       # $exp->debug(1);
        $exp->expect($timeout,-re=>'[Pp]assword:');
        $exp->send("$password\r\n";
     #   $exp->expect($timeout,-re=> eof );
        $exp->soft_close();
  
}

sub do_ssh{
        my $timeout = 20;
        my $cmd = "rsh";
        my $password = "password";
        my $self = shift;
        my @arg = @_;
  print "action do!", @arg;
  my $mgt_ip = $self->{'MGT-IP'};
        my $exp = Expect->spawn($cmd, $mgt_ip, @arg) or die "Can't spawn $cmd!";
       # $exp->debug(1);
        $exp->expect($timeout,-re=>'[Pp]assword:');
        $exp->send("$password\r\n";
     #   $exp->expect($timeout,-re=> eof );
        $exp->soft_close();
  
}

sub vlan{
        my $self = shift;
        if (@_) { $self->{"INTERFACE-LIST"}->{"INTERFACE"}->{"eth1"}->{"VLAN"} = shift }
        print Dumper($self), "\r\n";       
        return $self->{"INTERFACE-LIST"}->{"INTERFACE"}->{"eth1"}->{"VLAN"};

}

1;

[ 本帖最后由 thy3368 于 2008-11-24 15:01 编辑 ]

ly321

楼上只是证明了perl的库很好很强大
外加perl的语法很灵活