正则表达式可以实现下面的要求吗?

luobutou

有一堆没有规律的数据,我想用正折表达式给替换成需要的格式,如30%,67%,八八折,8.9折,8折都显示成规定的如8折或8.8折,也就是数字+折或数字小数点数字+折,这样可以做到吗.

怒剑狂啸

1. 
   
2. #!/usr/bin/perl
   
3. @data=("八八折","七五折","三折","30%","20%");
   
4. my %hash=("零",0,"一",1,"二",2,"三",3,"四",4,"五",5,"六",6,"七",7,"八",8,"九",9);
   
5. foreach  (@data) {
   
6.         next if (s/(\d)(\d)%/$1.$2折/);
   
7.     unless (s/(零|一|二|三|四|五|六|七|八|九)(零|一|二|三|四|五|六|七|八|九)/$hash{$1}\.$hash{$2}/) {
   
8.                 s/(零|一|二|三|四|五|六|七|八|九)/$hash{$1}\.0/
   
9.         }
   
10. }
    
11. print "@data";
    

复制代码

想用[零一二三四五六七八九]但发现不行，

epee

加句use encoding 'gbk';
就可以用[零一二三四五六七八九]了

napleon

谁能系统的讲一下正则表达式吗？

publicClass

[quote]原帖由 "napleon"]谁能系统的讲一下正则表达式吗？[/quote 发表：


   @who = ("Larry Wall","perlfaq6","perlrequick ","perlretut","perlre","perlreref","and so on";