Hi Randy,
Ok thank you very much. This works :) The problem now, is that I have never before in my life worked with hashes...
I have now looped the route list, and it is saved in the hash. Do I loop the hash again now (dumping all data) and then put in comparisions? I'm not 100% on how to work with this further now to check which route is on the interface that I actually want to delete...
I want to achieve something like
if (($data{interface} eq "National Gateway") && ($data{gateway} =~ m/165\.(165|146)\.0\.[0-8]/)) {
#work with $data{rule};
}
-- Chris.
----- Original Message ----- From: "Randy W. Sims" <[EMAIL PROTECTED]>
To: "Chris Knipe" <[EMAIL PROTECTED]>
Cc: <beginners@perl.org>
Sent: Tuesday, January 18, 2005 4:04 PM
Subject: Re: regex needed
Chris Knipe wrote:Lo everyone,
Can someone please give me a regex to parse the following... Flags: X - disabled, I - invalid, D - dynamic, J - rejected,
C - connect, S - static, r - rip, o - ospf, b - bgp
# DST-ADDRESS G GATEWAY DISTANCE INTERFACE
0 S 0.0.0.0/0 r 198.19.0.2 1 SERVER-CORE
1 S 196.0.0.0/8 r 165.146.192.1 1 National Gateway
2 DC 198.19.1.0/24 r 0.0.0.0 0 WIRELESS-CORE
3 Ib 198.19.0.0/24 u 0.0.0.0 200 (unknown)
4 DC 198.19.0.0/24 r 0.0.0.0 0 SERVER-CORE
5 DC 192.168.1.0/24 r 0.0.0.0 0 INTERNAL-CORE
6 DC 165.146.192.1/32 r 0.0.0.0 0 National Gateway
[EMAIL PROTECTED] >
I want the regex to return the rule number for all route entries that is static (S Flag) on Interface "National Gateway". For added security, I'd like it if the regex will also only return true if the gateway address is part of 165.165.0.0/8 or 165.146.0.0/8
Basically, I need to use the rule number in another command to delete the route entry... So I presume I'll need to extract it via the regex
If it's a fixed width data format, its better (easier for you, faster for perl) to break up the string with C<substr>:
#!/usr/bin/perl
use strict; use warnings;
while (defined( my $line = <DATA> )) { chomp( $line );
my %data; $data{rule} = substr( $line, 0, 2 ); $data{flags} = substr( $line, 3, 2 ); $data{dest_ip} = substr( $line, 6, 18 ); $data{g} = substr( $line, 25, 1 ); $data{gateway} = substr( $line, 27, 16 ); $data{distance} = substr( $line, 43, 8 ); $data{interface} = substr( $line, 52 );
# cleanup, stripping spaces $data{$_} =~ s/^\s+|\s+$//g for keys %data;
# reformat or reinterpret data $data{flags} = [ split( //, $data{flags} ) ];
use Data::Dumper; print Dumper( \%data ); }
__END__ 0 S 0.0.0.0/0 r 198.19.0.2 1 SERVER-CORE 1 S 196.0.0.0/8 r 165.146.192.1 1 National Gateway 2 DC 198.19.1.0/24 r 0.0.0.0 0 WIRELESS-CORE 3 Ib 198.19.0.0/24 u 0.0.0.0 200 (unknown) 4 DC 198.19.0.0/24 r 0.0.0.0 0 SERVER-CORE 5 DC 192.168.1.0/24 r 0.0.0.0 0 INTERNAL-CORE 6 DC 165.146.192.1/32 r 0.0.0.0 0 National Gateway
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>