代码之家 › 专栏 › 技术社区 › Pedro Silva

用正则表达式匹配基于度的地理坐标

coordinates perl regex

Pedro Silva · 技术社区 · 14 年前

28Â°44'30"N., 33Â°12'36"E.

use utf8;
qr{
    (?:
    \d{1,3} \s*  Â°   \s*
    \d{1,2} \s*  '   \s*
    \d{1,2} \s*  "   \s*
    [ENSW]  \s* \.?
            \s*  ,?  \s*
    ){2}
}x;

不用说,这不匹配。是否与扩展字符(即度符号)有关?还是我把事情搞砸了?

CPAN ,如果你知道有什么可以解决我的问题。我看过 Regex::Common 和 Geo::Formatter

更新

use utf8 从文件中读取坐标时。如果我用一个坐标手动初始化一个变量,它会匹配得很好,但只要我从文件中读取同一行,它就不匹配了。取出 使用utf8 utf8 他在做什么。

4 回复 | 直到 14 年前

mob 14 年前

试着放下枪 use utf8 声明。

度符号对应于我当前编码中的字符值0xB0(不管是什么,但不是UTF8)。0xB0是UTF8中的“连续字节”;它应该由以0xC2和0xF4之间的某个字符开头的序列的第二个、第三个或第四个字符表示。用那个字符串 utf8

2 revs, 2 users 90%<br/>user181548  14 年前

这是:

use strict;
use warnings;
use utf8;
my $re = qr{
    (?:
    \d{1,3} \s*  Â°   \s*
    \d{1,2} \s*  '   \s*
    \d{1,2} \s*  "   \s*
    [ENSW]  \s* \.?
            \s*  ,?  \s*
    ){2}
}x;
if (q{28Â°44'30"N., 33Â°12'36"E.} =~ $re) {
    print "match\n";
} else {
    print "no match\n";
}

$ ./coord.pl 
match

daxim e.dan 14 年前

你忘了 x 上的修饰符 qr

Zaid 14 年前

这个 ?: 在regex的开头使其不可捕获,这可能就是无法提取或查看匹配的原因。从正则表达式中删除它可能是解决方案。

如果所有坐标都是固定格式, unpack

my @twoCoordinates = unpack 'A2xA2xA2xAx3A2xA2xA2xA', "28Â°44'30"N., 33Â°12'36"E.";

print "@twoCoordinates";  # returns '28 44 30 N 33 12 36 E'

如果不是,则修改正则表达式:

my @twoCoordinates = "28Â°44'30"N., 33Â°12'36"E." =~ /\w+/g;

推荐文章

lonix · 使用sed从JSON中提取非贪婪正则表达式

1 年前

me-me · regex检查电子邮件字符串是否有@后跟一个点以及点符号后至少2个字符[重复]

2 年前

Dave Guerrero · 是否有一个正则表达式模式来捕获字符串中直到第一个字母字符的数字?

2 年前

Dima Malko · 如何在指定符号前添加符号?

2 年前

shekharsabale · 从列表元素捕获子字符串

2 年前

maycca · 正则表达式:过滤年份数值大于某个值的文件?字符串中编码的年份

2 年前

Katia · 根据特定规则进行多行匹配

2 年前

Andrei Cleland · 在长正则表达式中包含unicode字符

2 年前

MHA · Pandas str.extract()以字母结尾的数字

2 年前

Slava Vir · 如何查找后面“/”之间的最后一组

2 年前