init II

CISCO acl parse/parse-acl.pl

@@ -0,0 +1,25 @@
+#!/bin/perl
+
+open FILE, "<running.txt";
+@running=<FILE>;
+close FILE;
+
+
+#ip access-list extended <NR/NAME>
+#ip access-list standard <NR/NAME>
+#access-list <NR>
+
+#config durchlaufen und context merken - letzte zeile ohne " " am zeilenanfang.
+#ip access-group <NR/NAME> in/out
+
+#access-class <NR/NAME> in/out
+
+#ip nat xxxxxxxxxxxxxxxxxxx list <NAME>
+
+#match ip address <NR/NAME \prefix-lists>
+
+# Konfigurierte ACL finden
+foreach (@running) {
+    chomp;
+    if (/ip access-list extended ([0-9a-zA-Z]*) /) {
+