Select Code to Download

 
my $def="hashpatterns.txt";
my %dic=();
...
$line =~ s%$matchkey%$dic{$matchkey}%g;
print  W $line;
close(F);

\s+user\s"[^"]+"\s+password\s"[^"]+"\s+hash2\s+access(\s+console){2}(\
+s+new-password-at-login)?(\s+member\s"(default|engineer|networktest)"
+){2}(\s+exit){0,2}#REPLACE1

\s+user\s[^"]+"\s+password\s[^"]+"\s+hash2\s+access(\s+console){2}(\s+
+new-password-at-login)?(\s+member\s"(default|READ-ONLY)"){2}(\s+exit)
+{0,2}#REPLACE2

\s+user\s"[^"]+"\s+password\s"[^"]+"\s+hash2\s+access(\s+(console|snmp
+|li)){3}\s+console(\s+new-password-at-login)?(\s+member\s"(default|LI
+|li-prof1)"){2}(\s+exit){0,2}#REPLACE3

 user "testuser1"
                password "08Cl3V.leJKU/GskqArA0Yp4MFo" hash2
...
                    new-password-at-login
                    member "default"
                    member "engineer"

 user "v-test"
                password "VCp0GjSBK/KiWW.PgkQp7swXVMZ" hash2
...
                    new-password-at-login
                    member "default"
                    member "READ-ONLY"