I'm not entirely sure what you want for output because you did not show an example. But, if you just want to grab the 6th column from your input, you could use split instead of a regex:
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
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|