perl的正则表达式的问题

chrisyan

我想把一个这样的一个式子
0.8.1-11
按数子和非数字分开
0
.
8
.
1
-
11
还有这样的
2.0.7+cvs.2004.05.05-1
要分为
2
.
0
.
7
+cvs.
2004
.
05
.
05
-
1
我用这个式子
open TMP, "tmp" or die "Cant open file tmp,$!";
while (<TMP>)
{
        @line =~ /((\d+)|(\D+))+/ ;
        print $1;
        print $2;
        print $3;
        print $4;
        print $5;
        print $6;

#       print $input;
}
我是想把这些变量按正则表达式分开，记忆起来，然后分别调用，这样写不行阿，谁帮我看看？

gentooo

one\d{1})\.(\d{1})\.(\d{1})(-)(\d{2})
two:\d{1})\.(\d{1})\.(\d{1})(\+cvs)\.(\d{4})\.(\d{2})\.(\d{2})(-)(\d{1})

gentooo

(\d{1})\.(\d{1})\.(\d{1})(-)(\d{2})
(\d{1})\.(\d{1})\.(\d{1})(\+cvs)\.(\d{4})\.(\d{2})\.(\d{2})(-)(\d{1})

chrisyan

这只是两个例子，其实非数字有好多都没列出来，而且自段也不是一边长的，不可以这么写，有没有更好的通用的方法？

libinary

看看这个行不行：

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. $s = "2.0.7+cvs.2004.05.05-1";
   
5. while($s =~ /(\d*)(\D*)/g){
   
6.   print "$1\n$2\n";
   
7. }
   

复制代码