report format and use strict

[man-wai chang]

format CD_REPORT =

^<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<< $@###.##
$album, $artist, $price
~~^<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<
$album, $artist
..

if I turn on use strict, it will complain about the variable names in
the format definition. How should I declare the format?

 

[Shawn Corey]

format CD_REPORT =

^<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<< $@###.##
$album, $artist, $price
~~^<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<
$album, $artist
.

if I turn on use strict, it will complain about the variable names in
the format definition. How should I declare the format?

Declare the variables before the format:

my ( $album, $artist, $price );
format CD_REPORT = ...

BTW, printf is preferred over formats. See:
perldoc -f printf
perldoc Text::Wrap


--- Shawn

 

[Fabian Pilkowski]

format CD_REPORT =

^<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<< $@###.##
$album, $artist, $price
~~^<<<<<<<<<<<<<<<<< ^<<<<<<<<<<<<<<<
$album, $artist
.

if I turn on use strict, it will complain about the variable names in
the format definition. How should I declare the format?

You want to declare those vars with my() before declaring your format to
use lexical vars:

my( $album, $artist, $price );

If this results in scoping problems between declaring your format and
calling write() try out to use the vars pragma like:

use vars qw( $album $artist $price );

But remember, in that latter case those vars are declared as "global" .
And using such vars isn't welcome everywhere.

regards,
fabian

 

[man-wai chang]

Declare the variables before the format:

my ( $album, $artist, $price );
format CD_REPORT = ...

I tried your way, now the errors become:

"my" variable $total masks earlier declaration in same scope at
report.pl line 53.
Use of uninitialized value in formline at report.pl line 11.

 

[man-wai chang]

I tried your way, now the errors become:

"my" variable $total masks earlier declaration in same scope at
report.pl line 53.
Use of uninitialized value in formline at report.pl line 11.

fixed. I privated the variables twice ith my()