我需要一些关于perl中字符串解析的帮助.我有一个http服务器响应这样的事情:
<html>
<head><title></title></head><body>
T:17.10;H:32.10
</body></html>
我需要捕获这两个数字(在示例17.10和32.10中)并将它们放入两个变量中,我将用它来做一些if ... then ... else循环.
我在字符串操作和正则表达式方面不是那么专家,目前我还是要这样做:
my $url = 'http://192.168.25.9';
my $content = get $url;
die "Couldn't get $url" unless defined $content;
my @lines = split /\n/, $content;
$content2 = $lines[2];
$content2 =~ tr/T://d;
$content2 =~ tr/H://d;
my @lines2 = split /;/, $content2;
$tem = $lines2[0];
$hum = $lines2[1];
$tem =~ m{(\d+\.\d+)};
$hum =~ m{(\d+\.\d+)};
但是当我打印出这条线时,我看到一些奇怪的东西:字符缺失,线条中的空间等等.似乎我有一些奇怪的隐形字符会造成混乱.
你能建议我在两个数字变量中使用两个数字的更好方法吗？
谢谢法比奥