Perl中的正则表达式
Perl中的正则表达式
提问于 2011-07-27 12:55:00
我需要使用正则表达式从下面的行中提取第四个字段值(128)。
( '29/11/2010 09:38:05', '41297', '29/11/2010 09:40:30', '128', '17', 'SUCCESS', '30', 'e', '9843171457', '1', '-1')请告诉我取第四个值的方法。
提前谢谢。
回答 3
Stack Overflow用户
发布于 2011-07-27 13:10:37
使用CPAN中的Text::CSV：
my $input = "( '29/11/2010 09:38:05', '41297', '29/11/2010 09:40:30', '128', '17', 'SUCCESS', '30', 'e', '9843171457', '1', '-1')";
my $csv = Text::CSV->new({
quote_char => "'",
always_quote => 1,
allow_whitespace => 1,
});
$csv->parse($input);
my @columns = $csv->fields();
print $columns[3], "\n"; # 128Stack Overflow用户
发布于 2011-07-27 13:07:30
暴力方式：
/'[^']*',\s*'[^']*',\s*'[^']*',\s*'([^']*)'/这是一个引号，后面跟着任意数量的非引号，然后是另一个引号、逗号和一些可选的空格。所有这一切都重复了四次，()在第四个值附近捕获它。如果允许值中包含引号，这可能不起作用。
正如卡梅隆所指出的，你可以使用以下命令来避免重复：
/(?:'[^']*',\s*){3}'([^']*)'/ ?:告诉正则表达式解析器不要捕获括号中的内容。
使用逗号作为分隔符的split来拆分列表可能更容易，然后获取第四个元素。当然，如果您可以在值中使用逗号，这可能不起作用。
Stack Overflow用户
发布于 2011-07-27 13:05:41
这只是perl的“分裂”命令
$str = ('29/11/2010 09:38:05','41297','29/11/2010 09:40:30','128','17','SUCCESS','30','e', '9843171457','1','-1');
@vars = split(/','/,$str);
print "${vars[3]}\n";页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/6844643
复制相关文章
相似问题
如何使用日历模块在Drupal 7中的日历中单击事件片段
如何用日历模块显示本月即将发生的事件？
如何创建事件日历？
日历模块
如何还原日历模块创建的日历视图？
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
