Does anyone see what the problem with this is?
if ( $tline[$i] =~ /^$name\s/ ) {
if ( $tline[$i] =~ /\scname\s/ ) {
print "Found the following alias: \n";
print "$tline[$i];
}
elsif ( $tline[$i] =~ /\sa\s/ ) {
print "Found the following address: \n";
print "$tline[$i];
}
elsif ( $tline[$i] =~ /\smx\s/ ) {
print "Found the following mail: \n";
print $tline[$i];
}
}
Getting this error...
Unrecognized escape \s passed through at ./test line 39.
Unrecognized escape \s passed through at ./test line 39.
Bareword found where operator expected at ./test line 42, near "print "Found"
(Might be a runaway multi-line "" string starting on line 39)
(Do you need to predeclare print?)
Unquoted string "n" may clash with future reserved word at ./test line 42.
String found where operator expected at ./test line 43, near "print ""
(Might be a runaway multi-line "" string starting on line 42)
(Missing semicolon on previous line?)
Scalar found where operator expected at ./test line 43, near "print "$tline"
(Do you need to predeclare print?)
syntax error at ./test line 42, near "print "Found the "
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
