runaway multi-line 1

[PerlDaniel]

This is a newbie question. I am getting errors from the codes below and not sure what I am missing.

tia

#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;

my $secret = int (1 + rand 100);
while (1) {
print "Please enter a guess from 1 to 10: ";
chomp (my $guess =<STDIN>);
if ($guess =~ /quit|exit|^\s*$/i){
print "Sorry, it was $secret.n\";
last;
}
elsif ($guess < $secret){
print "too small.\n";
}
elsif ($guess == $secret){
print "you got it.\n";
last;
}
else {
print "too large.\n";
}
}

Bareword found where operator expected at ex10.pl line 15, near "print "too"
(Might be a runaway multi-line "" string starting on line 11) (#1)
(S) The Perl lexer knows whether to expect a term or an operator. If it
sees what it knows to be a term when it was expecting to see an
operator, it gives you this warning. Usually it indicates that an
operator or delimiter was omitted, such as a semicolon.

(Do you need to predeclare print?)
String found where operator expected at ex10.pl line 18, near "print ""
(Might be a runaway multi-line "" string starting on line 15) (#1)
(Missing semicolon on previous line?)
Bareword found where operator expected at ex10.pl line 18, near "print "you" (#
)
(Do you need to predeclare print?)
String found where operator expected at ex10.pl line 22, near "print ""
(Might be a runaway multi-line "" string starting on line 18) (#1)
(Missing semicolon on previous line?)
Bareword found where operator expected at ex10.pl line 22, near "print "too" (#
)
(Do you need to predeclare print?)
String found where operator expected at ex10.pl line 22, at end of line (#1)
(Missing semicolon on previous line?)

syntax error at ex10.pl line 15, near "print "too small"
Can't find string terminator '"' anywhere before EOF at ex10.pl line 22 (#2)
(F) Probably means you had a syntax error. Common reasons include:

A keyword is misspelled.
A semicolon is missing.
A comma is missing.
An opening or closing parenthesis is missing.
An opening or closing brace is missing.
A closing quote is missing.

Often there will be another error message associated with the syntax
error giving more information. (Sometimes it helps to turn on -w.)
The error message itself often tells you where it was in the line when
it decided to give up. Sometimes the actual error is several tokens
before this, because Perl is good at understanding random input.
Occasionally the line number may be misleading, and once in a blue moon
the only way to figure out what's triggering the error is to call
perl -c repeatedly, chopping away half the program each time to see
if the error went away. Sort of the cybernetic version of S<20
questions>.

Uncaught exception from user code:
syntax error at ex10.pl line 15, near "print "too small"
Can't find string terminator '"' anywhere before EOF at ex10.pl line 22.

 

[KevinADC]

this:

$secret.n\";

should be:

$secret.\n";

the \" is escaping the terminator " and causing the problem.

 

[PerlDaniel]

Ugh!! You are right.
Thank you much!