[算法] 给 print 加括号

yinyuemi

回复 11# 104359176

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. 
   
5. while(<DATA>){ print "raw:\t".$_;
   
6.     while(s/(?:(^|\(|\s))'\(?(((?<=\()[^)]+\))|(\S*?'\S*?\([^)]+\))|\S+)((?<!\))\))?/$1quote ($2)/g){#print $_;
   
7.     }
   
8.     print "rep:\t".$_;
   
9. }
   
10. 
    
11. __DATA__
    
12. abc
    
13. abc 'abc
    
14. abc '''abc
    
15. abc 'abc abc
    
16. abc (a b c) abc
    
17. abc '(a b c) abc
    
18. abc ''(a b c) abc
    
19. abc ''''(a b c) abc
    
20. abc 'abc (a b c) '(a b c) ''(a b c) abc

复制代码

1. raw:        abc
   
2. rep:        abc
   
3. raw:        abc 'abc
   
4. rep:        abc quote (abc)
   
5. raw:        abc '''abc
   
6. rep:        abc quote (quote (quote (abc)))
   
7. raw:        abc 'abc abc
   
8. rep:        abc quote (abc) abc
   
9. raw:        abc (a b c) abc
   
10. rep:        abc (a b c) abc
    
11. raw:        abc '(a b c) abc
    
12. rep:        abc quote (a b c)) abc
    
13. raw:        abc ''(a b c) abc
    
14. rep:        abc quote (quote (a b c))) abc
    
15. raw:        abc ''''(a b c) abc
    
16. rep:        abc quote (quote (quote (quote (a b c))))) abc
    
17. raw:        abc 'abc (a b c) '(a b c) ''(a b c) abc
    
18. rep:        abc quote (abc) (a b c) quote (a b c)) quote (quote (a b c))) abc

复制代码

104359176

回复 21# yinyuemi


    理论上看样能用一个正则表达式解决，但这个方案不能扩展，也不能抽象。因为 --- 太难了。

yinyuemi

回复 22# 104359176


     其实实际文本处理中，我很少敢用太复杂的正则，因为时间长了再看的时候，会有“失忆”的感觉

pitonas

太难了。

rubyish

凑合:

1. #!/usr/bin/perl
   
2. 
   
3. sub new { "( quote @_ )" }
   
4. while (<DATA>) {
   
5.     chomp;
   
6.     my @line = grep $_, split /\s*([(')])\s*/;
   
7.     my @Qindex = grep $line[$_] eq "'", 0 .. $#line;
   
8.     for my $q ( reverse @Qindex ) {
   
9.         $line[ $q + 1 ] ne '('
   
10.           and splice @line, $q, 2, new $line[ $q + 1 ]
    
11.           and next;
    
12.         my $open = 1;
    
13.         for my $i ( $q + 2 .. $#line ) {
    
14.             $open-- if $line[$i] eq ')';
    
15.             $open++ if $line[$i] eq '(';
    
16.             !$open
    
17.               and splice @line, $q, $i - $q + 1, new @line[ $q + 1 .. $i ]
    
18.               and last;
    
19.         }
    
20.     }
    
21.     print "OLD\t$_\n";
    
22.     print "NEW\t", join( ' ', @line ), $/;
    
23.     print '-' x 90, $/;
    
24. }
    
25. 
    
26. __DATA__
    
27. a
    
28. 'a
    
29. ''a
    
30. (a b)
    
31. '(a b)
    
32. ''(a b)
    
33. abc 'abc (a b c) '(a b c) ''(a b c) abc
    
34. (if (> 1 2) (print '(list ''(a b))))

复制代码

1. OLD     a
   
2. NEW     a
   
3. ------------------------------------------------------------------------------------------
   
4. OLD     'a
   
5. NEW     ( quote a )
   
6. ------------------------------------------------------------------------------------------
   
7. OLD     ''a
   
8. NEW     ( quote ( quote a ) )
   
9. ------------------------------------------------------------------------------------------
   
10. OLD     (a b)
    
11. NEW     ( a b )
    
12. ------------------------------------------------------------------------------------------
    
13. OLD     '(a b)
    
14. NEW     ( quote ( a b ) )
    
15. ------------------------------------------------------------------------------------------
    
16. OLD     ''(a b)
    
17. NEW     ( quote ( quote ( a b ) ) )
    
18. ------------------------------------------------------------------------------------------
    
19. OLD     abc 'abc (a b c) '(a b c) ''(a b c) abc
    
20. NEW     abc ( quote abc ) ( a b c ) ( quote ( a b c ) ) ( quote ( quote ( a b c ) ) ) abc
    
21. ------------------------------------------------------------------------------------------
    
22. OLD     (if (> 1 2) (print '(list ''(a b))))
    
23. NEW     ( if ( > 1 2 ) ( print ( quote ( list ( quote ( quote ( a b ) ) ) ) ) ) )
    
24. ------------------------------------------------------------------------------------------
    

复制代码