另一個有趣的perl function(MUSH)

vase

1. ######################
   
2. sub AnalyzeCommand {
   
3.     my ($sText) = @_;
   
4.     my $a       = 0;
   
5.     my $match   = "#IF\\(([^#]*)\\s+([^#]*)\\s+([^#]*)\\)\\{([^{}]*)\\}(\\{([^{}]*)\\})?";
   
6.     while (1) {
   
7.         $a++;
   
8.         if ($sText =~ /$match/) {
   
9. 
   
10.             my ($left, $compare, $right, $cmd, $cmd2) = ($1, $2, $3, $4, $6);
    
11.             if ($compare eq "<") {
    
12.                 if (GetVariable($left) < $right) {
    
13.                     $sText =~ s/$match/$4/;
    
14.                 }
    
15.                 else {
    
16.                     $sText =~ s/$match/$cmd2/;
    
17.                 }
    
18.             }
    
19.             elsif ($compare eq ">") {
    
20.                 if (GetVariable($left) > $right) {
    
21.                     $sText =~ s/$match/$4/;
    
22.                 }
    
23.                 else {
    
24.                     $sText =~ s/$match/$cmd2/;
    
25.                 }
    
26.             }
    
27.             elsif ($compare eq "=") {
    
28.                 if (GetVariable($left) == $right) {
    
29.                     $sText =~ s/$match/$4/;
    
30.                 }
    
31.                 else {
    
32.                     $sText =~ s/$match/$cmd2/;
    
33.                 }
    
34.             }
    
35.             elsif ($compare eq ">=") {
    
36.                 if (GetVariable($left) >= $right) {
    
37.                     $sText =~ s/$match/$4/;
    
38.                 }
    
39.                 else {
    
40.                     $sText =~ s/$match/$cmd2/;
    
41.                 }
    
42.             }
    
43.             elsif ($compare eq "<=") {
    
44.                 if (GetVariable($left) <= $right) {
    
45.                     $sText =~ s/$match/$4/;
    
46.                 }
    
47.                 else {
    
48.                     $sText =~ s/$match/$cmd2/;
    
49.                 }
    
50.             }
    
51.         }
    
52.         else {
    
53.             $sText =~ s/[{}]//g;
    
54.             last;
    
55.         }
    
56. 
    
57.     }
    
58.     my @splitedCommand = split(/;/, $sText);
    
59.     for my $index (0 .. $#splitedCommand) {
    
60.         my $command = $splitedCommand[$index];
    
61.         if ($command =~ /^#(\d+)\s+(.*)$/)
    
62. 
    
63.           # --------------------------------------------
    
64.           # Command: #3 fight bonze %i
    
65.           # Send:    fight bonze
    
66.           #          fight bonze 2
    
67.           #          fight bonze 3
    
68.           # --------------------------------------------
    
69.         {
    
70.             my ($counts, $cmd) = ($1, $2);
    
71.             for (my $i = 1 ; $i <= $counts ; $i++) {
    
72.                 my $curCmd = $cmd;
    
73.                 $curCmd =~ s/\%i/$i/;
    
74.                 AnalyzeCommand($curCmd);
    
75.             }
    
76.         }
    
77.         elsif ($command =~ /^#dis$/)
    
78. 
    
79.           # --------------------------------------------
    
80.           # Command: #dis
    
81.           # For Disconnect;
    
82.           # --------------------------------------------
    
83.         {
    
84.             Disconnect();
    
85.         }
    
86.         elsif ($command =~ /^#wa\s+(\d+)$/)
    
87. 
    
88.           # --------------------------------------------
    
89.           # Command: #wa 2000
    
90.           # Will send command after 2 second
    
91.           # --------------------------------------------
    
92.         {
    
93.             my $second = $1 / 1000;
    
94.             my $cmd = join ';', @splitedCommand[ ($index + 1) .. $#splitedCommand ];
    
95. 
    
96.             #$world->Note($cmd);
    
97.             #$world->Note("$priorCmd,$second,$cmd");
    
98.             $second = 0.1   if ($second < 0.1);
    
99.             $second = 86399 if ($second > 86399);
    
100.             DoAfterSpecial($second, "AnalyzeCommand("$cmd")", "12");
     
101.             last;
     
102.         }
     
103. 
     
104.         #elsif($command =~ /^set (\w+)=(.+)/)
     
105.         ## --------------------------------------------
     
106.         ## Command: #set var=value
     
107.         ## Will set a variable to value
     
108.         ## --------------------------------------------
     
109.         #{
     
110.         #    if(SetVariable($1,$2) == 0){
     
111.         #        Note("Set $1 to $2");
     
112.         #    }else{
     
113.         #        Note("Can not set $1 to $2");
     
114.         #    }
     
115.         #}
     
116.         else {
     
117.             Execute($command);
     
118.         }
     
119.     }
     
120. }

复制代码

在mush perl script 中不能加入中文.
so 沒寫什麼注釋...

[ 本帖最后由 vase 于 2010-1-19 01:22 AM 编辑 ]

maper

不错！

killunix

这是天书吗？

inkflower

请问楼主实现了zmud到mush的快速转换了吗？

inkflower

晕，挖了个历史幽久的坟.......楼主人还在不啊

valjean

看不懂...