请教一个脚本

KornLee

2. my $count=0;
3. my $statement="";
4. while (<>) {
5.         chomp;
6.         while (/{|\(|\[/g) { $count++ };
7.         while (/}|\)|\]/g) { $count-- };
8.         $statement .=$_ . "";
9.         if (!$count) {
10.                 eval $statement;
11.                 if ($@) { print "Syntax error.\n"};
12.                 $statement="";
13.                 $count=0;
14.         }
15. }

复制代码

这是一个交互的perl'shell,有哪位给解释解释~,谢谢啦~ :thank

devel

evel函数的例子置顶有。。

1. 
   
2. #!/usr/bin/perl
   
3. $print="print ("hello,world\\n");";
   
4. eval ($print);
   
5. #run as perl command.
   

复制代码

我改了一下族长的题，怎么会这样？

1. 
   
2. # cat ta.pl
   
3. #!/usr/bin/perl -w
   
4. my $count=0;
   
5. my $statement="";
   
6. print "$statement\n";
   
7. while (<> ) {
   
8.         chomp;
   
9.         while (/{|\(|\[/g) { $count++ };
   
10.         while (/}|\)|\]/g) { $count-- };
    
11.         $statement .=$_ . "";
    
12.         print "$statement\n";
    
13.         if (!$count) {
    
14.                 eval $statement;
    
15.                 if ($@) { print "Syntax error.\n"};
    
16.                 $statement="";
    
17.                 $count=0;
    
18.         }
    
19. }
    
20. # perl ta.pl
    
21. 
    
22. 123
    
23. 123
    
24. 234
    
25. 234
    
26. sfok
    
27. sfok
    
28. Unquoted string "sfok" may clash with future reserved word at (eval 3) line 2, <> line 3.
    
29. lksf
    
30. lksf
    
31. Unquoted string "lksf" may clash with future reserved word at (eval 4) line 2, <> line 4.
    

复制代码

请指教，PS：族长可以先不说，等大家有个机会。。;) :p

KornLee

这是一个交互试的shell,执行的时候以[,{或(开头,中间输入perl代码,以],}或)结束,用于简单的perl语句练习的~ ;)
如:
perl file.pl
{                 <=开头
print "ok\n"      <=输入语句代码
}                  <=结尾
ok                 <显示eval后的结果

KornLee

最初由 devel 发表
这个脚本还需要改进，请兄弟们改改它。。

这是我在<<perl技术内幕>>上抄的~, ;),如果你有的话,可以看一看!

devel

没买有这本书，这是本好入门书，我和javalee强烈向初学者推荐。。