大家帮我看一个perl正则表达式的问题

telekroc

文件每行内容如下：

1. [ebuild  NS   ] sys-kernel/gentoo-sources-2.6.25-r7  USE="symlink -build" 0 kB
   

复制代码

perl脚本过滤程序为：

1. 
   
2.                 chomp; s/\s+$//;
   
3.                 my $update = $_; $update =~ s/^\[.*?\] ([^\s]+).*/$1/;
   

复制代码

目前使用上面的方法出来的结果为：
$_为：

1. 
   
2. [ebuild  NS   ] sys-kernel/gentoo-sources-2.6.25-r7  USE="symlink -build" 0kB
   

复制代码

如何过滤后，使
"$_"变为：

1. 
   
2. [ebuild  NS   ] sys-kernel/gentoo-sources-2.6.25-r7  USE="symlink -build" 0kB
   

复制代码

而
$update为：

1. 
   
2. sys-kernel/gentoo-sources-2.6.25-r7
   

复制代码

也就是如何修改
s/\s+$//;
语句.
谢谢:Coffee:

heejun

1. 
   
2. s/\s+$//; #去除行末空字符
   
3. s/"/\"/g;
   

复制代码

telekroc

似乎可以了，谢谢！

不过还有一个小问题，如果碰到%号，如何在前面加\?
也就是文本为：

1. 
   
2. [ebuild  NS   ] sys-kernel/gentoo-sources-2.6.25-r7  USE="symlink％ -build" 0 kB
   

复制代码

如何过滤后，使
"$_"变为：

1. 
   
2. [ebuild  NS   ] sys-kernel/gentoo-sources-2.6.25-r7  USE="symlink\% -build" 0kB
   

复制代码

$update为：

1. 
   
2. sys-kernel/gentoo-sources-2.6.25-r7
   

复制代码

谢谢！

heejun

1. 
   
2. s/%/\%/g;
   

复制代码

telekroc

heejun兄，需要两者结合呀！即需要\"，也需要\%，哈哈

KDr2

s/("|%)/\\$1/g;