一个正则表达式的问题。

OYXin

我想用my ($full,$ipaddress, $port) = ~m/^((\d+\.\d+\.\d+\.\d+\.)\d+))$/

来匹配    218.5.133.245:52
              11.99.203.48:1813
              211.100.10.219:1813

想再ipaddress保存ip地址，用port保存端口号，用full保存整个匹配，不知道为什么ip总是匹配不到，请帮帮忙。谢谢。

flw

用 [0-9]3 代替 \d+ 试一试！

apile

#!/usr/bin/perl
$abc = "218.5.133.245:52";
$abc=~/(\d+.\d+.\d+.\d+)\d+)/;
print "$abc,$1,$2,\n";

OYXin

"."在perl里面不是有特别的意思吗，还有那个笑脸是什么意思啊？？呵呵还有上面那位说的肯定不可以，应为ip不一定是三位的啊。按照apile的做法测试输出为 218.5.133.245:52,218.5.133.24,5,

apile

"." 代表所有的符號，所以你即便用 . 也可以match到 "."這個符號，
比較好的寫法是
$abc=~/(\d+\.\d+\.\d+\.\d+):(\d+)/;

至於為什麼會有一個表情圖案，主要是因為 : 與 (在表情圖案裡表示
哭臉...不是我要打哭臉的..
你的需求只是要把整行與 ip與Port匹配出來，
所以我才給你那樣的答案，另外你的寫法不對，因為=~m/ /前面要是
給準備被匹配的字串才對...

OYXin

晕倒，我从没有用过表情，呵呵。你说得对，是我的错，没有好好看代码。下次我改。呵呵。谢谢了（都谢谢了无数次了）。你现在能打中文我反而有点看不习惯了。呵呵。

唐归来

1. use strict;
   
2. use warnings;
   
3. my $a = "218.5.133.245:52";
   
4. if ($a =~ /(?<ipaddress>(\d+\.){3}\d+):(?<port>\d+)/) {
   
5. print "$a\n$+{ipaddress}\n$+{port}\n";
   
6. } else {print "mismatch!\n"}

复制代码

cdtits

貌似挖坟贴...

Sonataservice

发现招募懂perl和正则表达式的engineer好难哦
我们是做信息安全的

cdtits

Sonataservice 发表于 2012-08-27 11:47
发现招募懂perl和正则表达式的engineer好难哦
我们是做信息安全的

是么？怎么感觉最难的还是跟他国人语言沟通？