什么是匹配单行与多重匹配的正则表达式？

Question

$str = "Data = [ {"name": "test","Address": "UK" "currency": "£" },{"name": "test2","Address": "US" "currency": "$" },{"name": "test","Address": "eur" "currency": "E" } 

我要显示所有地址

其不支持多行字符串。这一切都一个字符串

请在这个

感谢帮助， TREEĴ

Answer 1

这应该工作：

while ($str =~ /\"Address\":\S+\"(.*?)\"/g) { 
     print "Address = $1\n"; 
} 

Answer 2

你的字符串是JSON！ Treat it as such！

编辑：我是个白痴，无法分辨问题标记为perl而不是PHP :-)链接被修正。

Answer 3

类似：

my $str = q(Data = [ {"name": "test","Address": "UK" "currency": "£" },{"name": "test2","Address": "US" "currency": "$" },{"name": "test","Address": "eur" "currency": "E" }); 
my @addresses = $str =~ /"Address":\s*"([^"]*)"/g; 
print "@addresses\n"; 

HTH，

保罗

（PS：后实际的代码，而不是伪代码...）

Answer 4

你通过使用正确的工具来完成这项工作。在这种情况下，你修复损坏的JSON用正则表达式，然后使用JSON得到数据：

#!/usr/bin/perl 

use strict; 
use warnings; 

use JSON; 

my $input = <DATA>; 
my ($json) = $input =~ /DATA = (.*)/; 
my $data = decode_json $json; 

for my $record (@$data) { 
    print "$record->{name} has address $record->{Address}\n"; 
} 

__DATA__ 
DATA = [ {"name": "test", "Address": "UK", "currency": "£" }, {"name": "test2", "Address": "US", "currency": "$" }, {"name": "test", "Address": "eur", "currency": "E" } ]