关于字符分离的问题，稍微有点难度。请大家帮忙。

yyx_attach

有一个变量$a，假设$a=”int a";把变量a和变量类型进行分离,变量放到$b中，变量类型放到$c中，
那么这时$b="a",$c="int"。
如果$a="struct hold p_hed";那么同样分离后$b="struct hold";$c="p_hed"；
请教各位大哥，用perl如何实现比较好。

兰花仙子

试试正则。

$ perl -le '$x="struct hold p_hed"; my ($y,$z) = $x=~ /(.*)\s+(\S+)/; print $y;print $z'
struct hold
p_hed

yyx_attach

回复 2# 兰花仙子

办法不错，可有一点小问题，

1. $ perl -le '$x="struct hold p_hed;"; my ($y,$z) = $x=~ /(.*)\s+(\S+)/; print $y;print $z'
   
2. struct hold
   
3. p_hed;

复制代码

如果$x="struct hold p_hed;"变量后面有分号时，分离出的变量能不能把分号去掉，最好是：

1. struct hold
   
2. p_hed

复制代码

jason680

回复  兰花仙子

办法不错，可有一点小问题，如果$x="struct hold p_hed;"变量后面有分号时，分离出的变 ...
yyx_attach 发表于 2011-09-15 13:34

(\S+)    ==>  ([^;\s]+)

yyx_attach

回复 4# jason680


    $ perl -le '$x="struct hold p_hed;"; my ($y,$z) = $x=~ /(.*)\s+([^;\s]+)/; print $y;print $z'；
试了下，这个方法好像不行

jason680

回复  jason680


    $ perl -le '$x="struct hold p_hed;"; my ($y,$z) = $x=~ /(.*)\s+([^;\s]+)/;  ...
yyx_attach 发表于 2011-09-15 14:12

$ perl -le '$x="struct hold p_hed;"; my ($y,$z) = $x=~ /(.*)\s+([^;\s]+)/; print $y;print $z';
struct hold
p_hed