Opened by [E|B] at 2003-08-09 18:27
User since
2003-08-04
704 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-04
704 Artikel
BenutzerIn
cool wäre natürlich eine implementierung ala
http://search.cpan.org/author/LUISMUNOZ/Tie-NetAddr-IP-1.51/IP.pm
also einen tied hash, der per zuweisung erfährt, welche ips du matchen willst, und dann den index in die entsprechende CSV-Zeile liefert.
falls mehrere bereiche auf eine ip matchen, können mehrere strategien angewendet werden, z.b. rückgabe eines anonymen arrays mit den indexen drin etc. eventuell müssen die ips noch gequotet werden ???
btw diese gedanken technik heisst wishful thinking. ;)
http://search.cpan.org/author/LUISMUNOZ/Tie-NetAddr-IP-1.51/IP.pm
also einen tied hash, der per zuweisung erfährt, welche ips du matchen willst, und dann den index in die entsprechende CSV-Zeile liefert.
Code: (dl
)
1
2
3
4
5
6
7
use Net::IP::GenericMatch;
my $csv_line = "124.353.54.25,8**.32*.47.**";
my %IP; tie %IP, "Net::IP::GenericMatch", $csv_line;
print "[" . $IP{124.353.54.25} . "]\n"; # schreibt 1
print "[" . $IP{834.323.47.12} . "]\n"; # schreibt 2
print "[" . $IP{124.353.54.2522} . "]\n"; # warnung, da undefiniert
untie %IP;
falls mehrere bereiche auf eine ip matchen, können mehrere strategien angewendet werden, z.b. rückgabe eines anonymen arrays mit den indexen drin etc. eventuell müssen die ips noch gequotet werden ???
btw diese gedanken technik heisst wishful thinking. ;)
-- stefan