算法问题求解。

zhlong8

我写3个才显示2个，编辑下就变成一个了……我要源代码直接能贴上来的效果。\[code\]进行的什么转意思啊烦人

1. $a

复制代码

yinyuemi

回复 21# zhlong8


    哈哈，终于实验成功，见20#，
用$$表示一个$,
\$不需要

好像一旦进入编辑模式，$$会被解释为一个$,

forward_ding

所以写了个简单的编译器……显示不出连续两个 $ 见谅
zhlong8 发表于 2011-06-27 19:43

你的脚本我运行总是不干活，我的系统是aix，perl版本是v5.8.2 built for aix-thread-multi-64all，出错提示：
    Eval-group not allowed at runtime, use re 'eval' in regex m/^(??{local $b = "1"})|(?{local $b = "2"})|(?{local $b = "3"}))(??{local $c = "12"})|(?{local $c = "343"})|(?{loca.../ at tmp2.pl line 27.

forward_ding

guap514 发表于 2011-06-28 08:58

    我暂时用上了你的脚本，但是循环时只处理第一次的数据，后面的不处理，例如：
        foreach my $row ( 1 .. 2 )
        {
                                my $c = C->new( [@a], [@b], [@c]);
                while( my $str = $c->get() )
                {
                        print $str, "\n";
                }
                }

这时只打印$row==1的数据，但是$row==2的就没有了。

zhlong8

你的脚本我运行总是不干活，我的系统是aix，perl版本是v5.8.2 built for aix-thread-multi-64all，出错 ...
forward_ding 发表于 2011-06-29 09:07

    忘记贴了 use re 'eval';

forward_ding

忘记贴了 use re 'eval';
zhlong8 发表于 2011-06-29 09:26

    还是报错的：
Quantifier follows nothing in regex; marked by <-- HERE in m/^(??{local $b = "1"})|(?{local $b = "2"})|(?{local $b = "3"}))(??{local $c = "12"})|(?{local $c = "343"})|(?{local $c = "a"}))(??{local $d = "k"})|(?{local $d = "l"})|(?{local $d = "m"}))(?{print "$b|$c|$d\n"})(* <-- HERE F)$/ at tmp2.pl line 30.

zhlong8

还是报错的：
Quantifier follows nothing in regex; marked by
forward_ding 发表于 2011-06-29 09:48

    那你就把代码中的 (*F) 替换成 (?!) 5.8 不支持这个

guap514

回复 24# forward_ding


    在package C里面加一段

1. sub DESTROY {
   
2.     (@array,@int,@func,$over) = ();
   
3. }

复制代码

forward_ding

那你就把代码中的 (*F) 替换成 (?!) 5.8 不支持这个
zhlong8 发表于 2011-06-29 09:51

可以干活了，正则的东东，看得一头雾水。

forward_ding

回复  forward_ding


    在package C里面加一段
guap514 发表于 2011-06-29 10:50

    我就知道是这个问题，不过还没看懂，没有尝试去写，囧。
为什么DESTROY不需要显式调用的？