perl正则表达式，关于匹配.

Ecore

现有文件aa.txt
<input name="abc" >
<input name="cde" >
<input name="ddssffe">

把通过perl把上边内容替换为

<input name="abc" id="abc">
<input name="cde" id="cde">
<input name="ddssffe" id="ddssffe">

我已经用vi搞定了。现在试着用perl，但碰到一些问题。关于正则匹配的问题 。




#!/usr/bin/perl -w

open(OPENF1,"aa.txt") || die "can't open file!";
open(WRITEF1,">bb.txt") || die "cant't open file! ";
while( <OPENF1> )
{
        m/name="[a-z]"/g;
        print $_;
}
close(WRITEF1);
close(OPENF1);



m/name="[a-z]"/g;这一句。我只想匹配到name="内容",但我这句会把整行都匹配到。

请大家帮忙。解答.

[ 本帖最后由 Ecore 于 2007-9-20 17:48 编辑 ]

lansos

[a-z]是不是只能匹配单个字符啊？
我是菜鸟，不懂
还有g选项是什么作用呢，在书上看了下都没看懂

福瑞哈哥

1. while( <OPENF1> )
   
2. {
   
3.         m/name="[a-z]"/g;
   
4.         print $_;
   
5. }

复制代码

這段目地是幹什麼

lansos

如果在 /g 模式里没有捕获圆括弧，那么返回完整的匹配。如果有捕获圆括弧，那么返回捕获到的字串。

我觉得可能是因为没匹配上所以全部都返回了吧
改成"([a-z]{3})"试试

FinalBSD

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. open(FILE,"<aa.txt");
   
5. open(DEST,">bb.txt");
   
6. while(<FILE>){
   
7.     /(.*)"(\w+)"(.*)>$/;
   
8.     print DEST "$1\"$2\"$3 id=\"$2\">\n";
   
9. }
   
10. close(FILE);
    
11. close(DEST);
    
12. 
    

复制代码

初学perl,呵呵,看行不

Ecore

谢谢楼上的.
能不能用$&这个变量改写？

aggie_49

/(.*)"(\w+)"(.*)>$/;
这个语句什么意思？
看不明白？

woodie

原帖由 Ecore 于 2007-5-25 11:26 发表
谢谢楼上的.
能不能用$&这个变量改写？

s/(?<=name=)"[^"]*"/$& id=$&/

robot_chen

改成这句？
$arg =~ s /name=//;
$arg is what you want

hwxo

如果每行的格式都是楼主那么说的试试这个

open FL,"maplist.txt";
while (<FL>) {
s/(".*?")/$1 id=$1/;
print $_;
}