如何使用正则表达式从JSON字符串中减去子字符串？

Question

因此，我找到了与该任务相关的这些链接。 第一次使用python ，第二次使用c＃ ，第三次使用Perl

现在，我对Perl不太了解，我想做的就是使用Twitter的json流。 我正在看的是这样的：

..E","location":"Hollywood, Los Angeles, CA ","screen_name":"i..

我如何找到“位置”：使用正则表达式，然后分配一个变量以包含Hollywood，Los Angeles，CA ？

sub get_location {
# pseudo code:  
# look for "location":"xxxxxxxxxxxxxxxx" 
# assign $tmp_loc = Hollywood, Los Angeles, CA (in this case)
# return $tmp_loc; }

Answer 1

Perl有用于处理JSON的库 。 为什么不使用其中之一？

另外，在处理Twitter时，为什么不使用Net :: Twitter ，它会调用Twitter API，并将结果作为Perl数据结构返回给您。

如今，许多Perl编程都是要知道将哪些CPAN模块串在一起的问题。 如果您不使用CPAN，那么您将失去许多Perl的功能。

Answer 2

Perl JSON 。

Answer 3

您确实不应该在需要在字符串中查找某些内容的任何地方使用正则表达式……它们有其用途，但不在这里。

如果您有JSON编码的字符串，请对其进行解码。 我没有Perl的经验，但我看到其他人建议使用CPAN的模块。

Answer 4

首先，您需要一个与要捕获的文本匹配的正则表达式。 由于您只添加了一个摘要，因此我也只添加了一个摘要。

$text = ' ..E","location":"Hollywood, Los Angeles, CA ","screen_name":"i..';
if( $text =~ /.*location":"(.[^"]+)",.*/ ) {
  $tmp_loc = $1;
}
return $tmp_loc;