use strict; use warnings; while (<DATA>) { my $num = (split)[5]; print "$num\n"; } __DATA__ *> 4.23.88.0/23 64.135.0.1 0 1000 234 +46164 i *> 4.23.89.0/24 64.135.0.1 0 1000 2014 +8 46164 i *> 4.23.92.0/23 64.135.0.1 0 1000 2013 +8 46164 i *> 4.23.92.0/22 64.135.0.1 0 1000 3018 + 46164 i *> 4.23.94.0/23 64.135.0.1 0 1000 4041 +8 46164 i *> 4.23.112.0/24 64.135.0.1 0 1000 1018 + 174 21889 i *> 4.23.113.0/24 64.135.0.1 0 1000 2018 + 174 21889 i *> 4.23.114.0/24 64.135.0.1 0 1000 18 1 +74 21889 i *> 4.36.118.0/24 64.135.0.1 0 1000 7018 + 174 21889 i
prints:
234 20148 20138 3018 40418 1018 2018 18 7018
In reply to Re: Need help with Regex
by toolic
in thread Need help with Regex
by ewhitt
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |