next char ; syntax error in format

I'm getting this error 'syntax error at ./todo.pl line 238, next char ;' Here is the code snippet. My perl is a bit rusty but this error is unfamiliar.

...
   228      write $out;
   229  }
   230  close $out;
   231  
   232  ##########################
   233  # Formats
   234  format PROJECT_TOP =
   235  Project report for @* on (today)
   236  ---------------------------
   237  $PROJECT
   238  .
   239  
   240  format PROJECT =
   241  @* @* @* @* @*
   242  $DUE, $AT, $PRIORITY, $MSG, $CONTEXT
   243  .
   244  
...
[download]

Neil Watson
watson-wilson.ca

Comment on next char ; syntax error in format Download Code
Re: next char ; syntax error in format by bichonfrise74 (Vicar) on Oct 17, 2009 at 03:17 UTC
I'm not familiar with 'format', but it looks like if you add an empty line after line 235, then it would work. Try to check perlform. Please see below. `#!/usr/bin/perl use warnings; use strict; my ($DUE, $AT, $PRIORITY, $MSG, $CONTEXT); format PROJECT_TOP = Project report for @* on (Today) --------------------------- $PROJECT . format PROJECT = @* @* @* @* @* $DUE, $AT, $PRIORITY, $MSG, $CONTEXT .` [download]	[reply] [d/l]
Re: next char ; syntax error in format by Marshall (Prior) on Oct 17, 2009 at 13:22 UTC
I looked for some good examples with Perl format and this is what I came up with: http://www.webreference.com/programming/perl/format/ I personally abandoned this Perl feature years ago as it usually doesn't enable me to do that I want.	[reply]
Re: next char ; syntax error in format by biohisham (Priest) on Oct 17, 2009 at 13:44 UTC
The error is that @* from the format for page header looks in the subsequent line for the scalar it can represent and finds nothing but a dashed line so a little permutation can solve that. Move $PROJECT over the dashed line. `format PROJECT_TOP = Project report for @* on (today) $PROJECT --------------------------- .` [download] Why bichonfrise74 solution would not work, consider having added that line and see the output: `format STDOUT_TOP = Project report for Mr. @* on (today) --------------------------- $PROJECT_HEAD . format STDOUT = @* @* @* @* @* $DUE, $AT, $PRIORITY, $MSG, $CONTEXT . my $PROJECT_HEAD="NeilWatson"; write;` [download] `#OUTPUT Project report for Mr. on (today) --------------------------- $PROJECT_HEAD` [download] As you could see @* read the empty line and hence showed empty value for the title and this served to silence perl from complaining. Now consider the output from the following code snippet: `format STDOUT_TOP = Project report for Mr.@* on (today) $PROJECT_HEAD --------------------------------- . format STDOUT = @* @* @* @* @* $DUE, $AT, $PRIORITY, $MSG, $CONTEXT . $PROJECT_HEAD="NeilWatson"; write;` [download] `#OUTPUT: Project report for Mr.NeilWatson on (today) ---------------------------------` [download] It'll be better if you removed the line numbers from the code segment in future posts, that makes it easier to get down to work with eliminating the need for having to manually remove the line numbers. Excellence is an Endeavor of Persistence. Chance Favors a Prepared Mind.	[reply] [d/l] [select]


Your skill will accomplish what the force of many cannot
	PerlMonks

next char ; syntax error in format

When putting a smiley right before a closing parenthesis, do you: