如何只用perl的正则来判断一个整数小于255？

cock

偶在做一个日志分析的小程序, 想把里面的IP给过滤出来, 于是有上面的问题......
虽然也可以用正则+比较大小的方法来做,但是如果只用正则便能过滤出IP来, 不是更有成就感么......

dukejoe

\d{1,3}\.\d{1,3}\.\d{1,3}

cock

原帖由 dukejoe 于 2006-5-16 16:25 发表
\d{1,3}\.\d{1,3}\.\d{1,3}

你这个太粗糙了啊，按你的正则，266.266.266.266也是合法的IP了？？？

莫愁

谢谢楼下指正，已修改。

1. my $e = qr/[01]?[0-9]?[0-9]|2([0-4][0-9]|5[0-5])/;
   
2. my $match_ip = qr/$e\.$e\.$e\.$e/;
   
3. if ( $ip_addr =~ /^$match_ip$/ ){
   
4.     ....
   
5. }

复制代码

[ 本帖最后由 莫愁 于 2006-5-18 09:53 编辑 ]

Namelessxp

上面的正常情况下可行，已经把可能的情况穷举出来了，
在这种情况下出错:'93.25449.12'
应该是忘了把 . 逃逸的缘故
改成这样就行了

1. 
   
2. my $match_ip = qr/$e\.$e\.$e\.$e/;
   

复制代码

下面这个也可行，摘自正则研究室

1. 
   
2. /^(?:(?:25[0-5]|2[0-4]\d|[01]\d\d|\d?\d)(?(?=\.?\d)\.)){4}$/
   

复制代码

[ 本帖最后由 Namelessxp 于 2006-5-16 18:05 编辑 ]

cock

楼上的都好强，佩服ing
按四楼的做，好像有一点点小问题，比如说日志文件中如果有 115.064.13.234 这个IP，但是只过滤出 115.064.13.23 这个IP，少了一位。。。

楼上给的/^(??:25[0-5]|2[0-4]\d|[01]\d\d|\d?\d)(?(?=\.?\d)\.)){4}$/看得偶头晕，偶慢慢研究研究：）

Namelessxp

应该不会的，四楼的代码我试着是正常的，如果不行，试试下面的

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. $\ = "\n";
   
6. my $ip = '115.064.13.234';
   
7. my @ips;
   
8. if (@ips = $ip =~ /^([0-1][0-9]{0,2}|25[0-5]?|2[0-4]?[1-9]?|[3-9][0-9]?)\.([0-1][0-9]{0,2}|25[0-5]?|2[0-4]?[1-9]?|[3-9][0-9]?)\.([0-1][0-9]{0,2}|25[0-5]?|2[0-4]?[1-9]?|[3-9][0-9]?)\.([0-1][0-9]{0,2}|25[0-5]?|2[0-4]?[1-9]?|[3-9][0-9]?)/)
   
9. {
   
10.         print 'true';
    
11. } else {
    
12.         print 'false';
    
13. }
    
14. print join '.',@ips;
    
15. my $e = qr/[01]?[0-9]?[0-9]|2(?:[0-4][0-9]|5[0-5])/;
    
16. my $match_ip = qr/$e\.$e\.$e\.$e/;
    
17. if (@ips = $ip =~ /(^$match_ip$)/ ){
    
18.     print 'true2';
    
19. } else {
    
20.         print 'false2';
    
21. }
    
22. print @ips;
    
23. if (@ips = $ip =~ /^((?:(?:25[0-5]|2[0-4]\d|[01]\d\d|\d?\d)(?(?=\.?\d)\.)){4}$)/){
    
24.         print 'true3';
    
25. } else {
    
26.         print 'false3';
    
27. }
    
28. print @ips;
    

复制代码

莫愁

原帖由 Namelessxp 于 2006-5-16 17:55 发表
上面的正常情况下可行，已经把可能的情况穷举出来了，
在这种情况下出错:'93.25449.12'
应该是忘了把 . 逃逸的缘故
改成这样就行了

1. 
   
2. my $match_ip = qr/$e\.$e\.$e\.$e/;
   

复制代码

下面这个也可行 ...

谢谢！
我忘记把 . 是元字符了

cock

这个是俺的代码，初学perl，格式还不是很规范：

1. 
   
2. use warnings;
   
3. use strict;
   
4. my $e = qr/[01]?[0-9]?[0-9]|2(?:[0-4][0-9]|5[0-5])/;
   
5. my $line="115.064.13.234";
   
6. $line =~ s/($e)\.($e)\.($e)\.($e)/$4.$3.$2.$1/;
   
7. print "$1.$2.$3.$4\n";
   
8. print "$line\n";
   

复制代码

输出的结果是

115.064.13.23
23.13.064.1154


这是为什么呢？

[ 本帖最后由 cock 于 2006-5-16 19:37 编辑 ]

dirac_teng

《mastering regular expressions (2nd) 》有这个例子 (P189)
作者给的代码如下：
{^([01]?\d\d?|2[0-4]\d|25[0-5])\.([01]?\d\d?|2[0-4]\d|25[0-5])\.([01]?\d\d?|2[0-4]\d|25[0-5])\.([01]?\d\d?|2[0-4]\d|25[0-5])$}