activeperl里如何安装Parse::Lex

ehu4ever

我在ppm里search了一下，没有Parse::Lex。
是不是只能用源代码安装？

哪里可以找到这个包的ppd？

Qiang

看这个模块的源码是纯 Perl  的，你可以下载了（还有相关的其他模块）直接用就可以。

ehu4ever

谢谢Qiang哥的回复，直接用我试过的。
但是有莫明的错误，好像和strict用关，但是去掉了strict也不行。\
错误信息如下：
---------- perl ----------
Unknown 'strict' tag(s) '1' at C:/Perl/site/lib/Parse/Template.pm line 2
BEGIN failed--compilation aborted at C:/Perl/site/lib/Parse/Template.pm line 2.
Compilation failed in require at C:/Perl/site/lib/Parse/Token.pm line 376.
BEGIN failed--compilation aborted at C:/Perl/site/lib/Parse/Token.pm line 376.
Compilation failed in require at C:/Perl/site/lib/Parse/ALex.pm line 23.
BEGIN failed--compilation aborted at C:/Perl/site/lib/Parse/ALex.pm line 23.
Compilation failed in require at C:/Perl/site/lib/Parse/Lex.pm line 7.
BEGIN failed--compilation aborted at C:/Perl/site/lib/Parse/Lex.pm line 7.
Compilation failed in require at kick_lex.pl line 1.
BEGIN failed--compilation aborted at kick_lex.pl line 1.


代码如下：

1. 
   
2. use Parse::Lex;
   
3. 
   
4. #define the tokens
   
5. my @token = qw (
   
6.     BegParen [\(]
   
7.     Endparen [\)]        
   
8.     Operator [-+*/^]
   
9.     Number [-?\d+|-?\d+\.\d*]
   
10. );
    
11. 
    
12. my $lexer = Parse::Lex->new(@token);
    
13. $lexer->from(STDIN);
    
14. 
    
15. my $token;
    
16. 
    
17. TOKEN:
    
18. while (1) {
    
19.     $token = $lexer->next;
    
20.     if ( not $lexer->eoi ) {
    
21.         print $token->name. " " . $token->text. " " . "\n";
    
22.     } else {
    
23.         last TOKEN;
    
24.     }
    
25. }
    

复制代码

我用的ParseLex是2.15版本。

我再研究一下

ehu4ever

In $ParseLexHome/lib/Parse/Template.pm there's two errors. The first is on line 1, 'use strict' is missing a simi colon.

The next is on line 135, the variable $expr needs to be declared as a new variable by adding 'my' in front of it.
broken: $expr = $1;
fixed : my $expr = $1;

ehu4ever

1. 
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. require 5.000;
   
6. 
   
7. use Parse::Lex;
   
8. 
   
9. my @token = qw (
   
10.     BegParen [\(]
    
11.     Endparen [\)]
    
12.     Number [-+]*\d+(\.\d+)*
    
13.     Operator [-+*/^]
    
14. );
    
15. 
    
16. my $lexer = Parse::Lex->new(@token);
    
17. $lexer->from(\*DATA);
    
18. 
    
19. TOKEN:while (1) {
    
20.     if (my $token = $lexer->next) {
    
21.         print $token->name . " " . $token->text . " " . "\n";
    
22.     } else {
    
23.         last TOKEN;
    
24.     }
    
25. }
    
26. 
    
27. __END__
    
28. (43.4*15^8)
    

复制代码

[ 本帖最后由 ehu4ever 于 2006-3-22 10:59 编辑 ]