Compile error for the perl code

unnik has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks,
I am getting the following compile error
-----------------------------------------------
Bareword found where operator expected at do-bld3.pl line
2045, near "if ( $me3400(1) eq /cp"
(Might be a runaway multi-line // string starting on line 2000) (Do you need to predeclare if?)
Backslash found where operator expected at do-bld3.pl line 2045, near "mz \" (Do you need to predeclare mz?)
syntax error at do-bld3.pl line 2045, near "if ( $me3400(1) eq /cp me340x"
syntax error at do-bld3.pl line 2052, near "} else"
syntax error at do-bld3.pl line 2063, near "}"
--------------------------------------------------
Its showing for below piece of code..can u please help in debug.
======= if ($s1 == "j") {
$log = "\/users\/$u\/me3400-log.txt";
open(FILE, $log) || die "cud not read $log";
while(<FILE>) {
if ( $me3400(1) == /cp me340x-metrobase-mz \/tftpboot\/$u\/me340x-metrobase-mz/ )
{
open(OUTFILE,">>$of1") || die "cud not write";
print OUTFILE "me340x-metrobase-mz\n";
close(OUTFILE);
return;
} else {
open(OUTFILE,">>$of2") || die "cud not write";
print OUTFILE "me340x-metrobase-mz\n";
close(OUTFILE); return;
} } #end of while for me3400 log
} ### end of if if ($s1 == "j")
thanks
Unni

Comment on Compile error for the perl code

Replies are listed 'Best First'.
Re: Compile error for the perl code by Thilosophy (Curate) on Dec 17, 2007 at 06:09 UTC
Might be a runaway multi-line // string starting on line 2000) Do you have an (accidental) multi-line string starting at line 2000 ? `if ( $me3400(1) == /cp me340x-metrobase-mz \/tftpboot\/$u\/me340x-metr +obase-mz/ )` [download] Not sure what this means, but you probably want to use the regex matching operator `=~` rather than the numerical `==`. What is `$me3400(1)` (I don't even get the syntax)? Since you are looping over a file line by line, is this supposed to be a comparison for the current line?	[reply] [d/l] [select]
Re: Compile error for the perl code by jonnyfolk (Vicar) on Dec 17, 2007 at 06:02 UTC
The errors are mostly found for you in the error messages. One thing to note is that you are using the numerical operator `==` rather than `eq`. I'm not sure what `if ( $me3400(1) == /cp me340x-metrobase-mz \/tftpboot\/$u\/me340x-metr +obase-mz/ ) {` [download] means but you would probably be better off with something like: `if ( $me3400(1) eq "cp me340x-metrobase-mz /tftpboot/$u/me340x-metroba +se-mz" ) {` [download]	[reply] [d/l] [select]
Re: Compile error for the perl code by apl (Monsignor) on Dec 17, 2007 at 10:56 UTC
BTW, good form when posting is to use the <code> and </code> tags around your Perl.	[reply]