hello, Im new to PERL and I'm writing some code to compare two files lines:
file 1 gets random password from a server
file 2 is a test case to check that I'm getting the password with the required characteristics ( length, alnum or num)
the problem that I have is in the case that the password generated by the server supouse to be numeric
and the password in my test case have a char but, it doesnt throw the error message.
anyways here is some code: for that specific section
elsif (($tact_line =~ m/[0-9]^\w/)&($texp_line =~ m/\w/)){
print "\nnumeric password can't have alpha characters\n";
print "$ARGV[0] $tact_line | $ARGV[1] $texp_line\n";
exit 1;
}