请教Perl 正则表达式问题

xuezhilei40308

文件中的内容大致是：ABC=“DEF”，本来是想用@array= split/=/, $_; 把等号前面的字符和引号中内容作为数组的两个元素。
但是其中有一行的内容类似于 ABC="DE=F"，引号里面的值也有等号，这样用split/=/分隔，就会破坏引号中完整的字符，因为我想把DE=F完全赋值给第二个数组元素。
请问各位大侠，这样的情况，该怎么匹配啊，或者怎样获取这一行中第一个出现的等号的前后的字符串呢？

sykp241095

($key, $value) = $str =~ m/([^=]+)=(.*)/;

magnet2008

my $str='ABC="DE=F"';
my($key,$value)=split q{=},$str,2;
print "$key\t$value\n";
$str=~m#=#;
print "$`\t$'\n";
$str=~m#(.+?)=(.*)#;
print "$1\t$2\n";
$str=~m#(\w+)=(.*)#;
print "$1\t$2\n";
结果
ABC        "DE=F"
ABC        "DE=F"
ABC        "DE=F"
ABC        "DE=F"
像这种问题，最好用正则，了解下正则。

zhaobin81

1. #!/usr/bin/perl
   
2. 
   
3. my $s = 'ABC="DE=F"';
   
4. 
   
5. my @a = split "=",$s,2;
   
6. 
   
7. print "$a[0]\n";
   
8. print "$a[1]\n";

复制代码

xuezhilei40308

非常感谢二楼，三楼，四楼的朋友，现在匹配成功了，呵呵，看来正则还得好好学啊。