再来一个字符截取问题

beyondlee1

"/\/\/\  106RC62%"
"/\/\/\  1080 RC=58%"
"/\/\/\  2116RC=60%"
"/\/\/\  2313 RC65%"

如上几种格式字符串，我需要分隔成如下格式：

106
RC
62

分三段，"="和"%"有则去掉

请问，怎么分隔？

谢谢！

beyondlee1

用了个笨方法，显丑了。。。。

1. my $str1="/\/\/\  2313 RC=65%";
   
2. 
   
3. my $para=get_pp_para($str1);
   
4. my @para=@$para;
   
5. for (my $i=0;$i<=$#para;$i++) {
   
6.         print $para[$i],"\n";
   
7. }
   
8. 
   
9. sub get_pp_para{
   
10. 
    
11.         my $str=shift;
    
12.         my @id;
    
13.         my @rc;
    
14.         my @para;
    
15.                
    
16.         $str=~s/=//g;
    
17.         $str=~s/%//g;
    
18.         $str=~s/\\//g;
    
19. #        $str=~s/\\///g;
    
20. 
    
21.         @id=$str=~/[\d.]+/g;
    
22.         @rc=$str=~/RC/g;
    
23. 
    
24.         if (defined $id[0]) {
    
25.                 push @para,$id[0];
    
26.         }
    
27. 
    
28.         if ($#rc!=-1) {
    
29.                 push @para,"RC";
    
30.         }
    
31.         if (defined $id[1]) {
    
32.                 push @para,$id[1];
    
33.         }
    
34. 
    
35.         return (\@para);
    
36. }

复制代码

beyondlee1

/// 这斜杠怎么去掉？

一直没成功

sunzhiguolu

1. perl -nle 'print "@a" if(@a=/[a-z]+|\d+/gi)' f

复制代码

beyondlee1

高，佩服~！

能帮我看看怎么把字符串中的 / 和 \ 去掉吗？

thanatos0

while(<DATA>){
s/\W//g;
s/(RC)/\n$1\n/g;
print"$_\n";
}
__DATA__
"/\/\/\  106RC62%"
"/\/\/\  1080 RC=58%"
"/\/\/\  2116RC=60%"
"/\/\/\  2313 RC65%"

sunzhiguolu

1. perl -anle 'print $F[-1]' f

复制代码

moperyblue

1. awk '{match($0,/.*\s([0-9]+)\s*([[:alpha:]]+)[^0-9]*([0-9]+)/,a);print a[1],a[2],a[3]}' file

复制代码

1. awk '{sub(/\S+\s+/,"")}1' file

复制代码