Dear Perlers,
I am facing problems while setting the $= special variable. Even though I set
it to 10 it takes the default value which is 60. In line number 31, I set the
variable to a value of 10. It is not printing the page number for every 10 lines
Please guide me where I am going wrong.
[code]
use strict;
use warnings;
my ( $name, $empno, $department, $location );
open my $fin, '<', 'data.txt' or die "Cannot open file ($!)";
open REPORT, '>', 'reports.txt' or die "Cannot open file ($!)";
my $name_length = 0;
while (<$fin>) {
( $name, $empno, $department, $location ) = split ':';
my $len = length $name;
if ( $len > $name_length ) {
$name_length = $len;
}
}
format REPORT_TOP=
Page Number : -@|-
$%
---------------------------------------------------------------
-----------E M P L O Y E E I N F O R M A T I O N-------------
---------------------------------------------------------------
.
my $field1 = '<' x $name_length;
my $field2 = '#' x 5;
my $field3 = '<' x 12;
my $field4 = '<' x 15;
$= = 10; #Setting Format Lines Per Page to 10
my $format = qq{format REPORT=
Name : \@$field1 Employee Number : \@$field2 Department : \@$field3 Location :
\@$field4
\$name, \$empno, \$department, \$location
.
};
eval $format;
seek $fin, 0, 0;
while (<$fin>) {
( $name, $empno, $department, $location ) = split ':';
write REPORT;
}
close $fin;
close REPORT;
[/code]
[data.txt]
John:980144:Research:London
Sanat:786906:Development:Bangalore
Naresh:875795:Marketing:Singapore
Sreenivas:876542:Design:Singapore
Shaji:876868:Development:Bangalore
Jayaprakash:874353:Marketing:Sydney
Jack:876562:Development:Newyork
John:980144:Research:London
Sanat:786906:Development:Bangalore
Naresh:875795:Marketing:Singapore
Sreenivas:876542:Design:Singapore
Shaji:876868:Development:Bangalore
Jayaprakash:874353:Marketing:Sydney
Jack:876562:Development:Newyork
John:980144:Research:London
Sanat:786906:Development:Bangalore
Naresh:875795:Marketing:Singapore
Sreenivas:876542:Design:Singapore
Shaji:876868:Development:Bangalore
Jayaprakash:874353:Marketing:Sydney
Jack:876562:Development:Newyork
John:980144:Research:London
Sanat:786906:Development:Bangalore
Naresh:875795:Marketing:Singapore
Sreenivas:876542:Design:Singapore
Shaji:876868:Development:Bangalore
Jayaprakash:874353:Marketing:Sydney
Jack:876562:Development:Newyork
John:980144:Research:London
Sanat:786906:Development:Bangalore
Naresh:875795:Marketing:Singapore
Sreenivas:876542:Design:Singapore
Shaji:876868:Development:Bangalore
Jayaprakash:874353:Marketing:Sydney
Jack:876562:Development:Newyork
John:980144:Research:London
Sanat:786906:Development:Bangalore
Naresh:875795:Marketing:Singapore
John:980144:Research:London
Sanat:786906:Development:Bangalore
Naresh:875795:Marketing:Singapore
Sreenivas:876542:Design:Singapore
Shaji:876868:Development:Bangalore
Jayaprakash:874353:Marketing:Sydney
Jack:876562:Development:Newyork
Sreenivas:876542:Design:Singapore
Shaji:876868:Development:Bangalore
Jayaprakash:874353:Marketing:Sydney
Jack:876562:Development:Newyork
John:980144:Research:London
Sanat:786906:Development:Bangalore
Naresh:875795:Marketing:Singapore
Sreenivas:876542:Design:Singapore
Shaji:876868:Development:Bangalore
Jayaprakash:874353:Marketing:Sydney
Jack:876562:Development:Newyork
John:980144:Research:London
Sanat:786906:Development:Bangalore
Naresh:875795:Marketing:Singapore
Sreenivas:876542:Design:Singapore
Shaji:876868:Development:Bangalore
Jayaprakash:874353:Marketing:Sydney
Jack:876562:Development:Newyork
John:980144:Research:London
Sanat:786906:Development:Bangalore
Naresh:875795:Marketing:Singapore
Sreenivas:876542:Design:Singapore
Shaji:876868:Development:Bangalore
Jayaprakash:874353:Marketing:Sydney
Jack:876562:Development:Newyork
John:980144:Research:London
Sanat:786906:Development:Bangalore
Naresh:875795:Marketing:Singapore
Sreenivas:876542:Design:Singapore
Shaji:876868:Development:Bangalore
Jayaprakash:874353:Marketing:Sydney
Jack:876562:Development:Newyork
John:980144:Research:London
Sanat:786906:Development:Bangalore
Naresh:875795:Marketing:Singapore
Sreenivas:876542:Design:Singapore
Shaji:876868:Development:Bangalore
Jayaprakash:874353:Marketing:Sydney
Jack:876562:Development:Newyork
John Abraham Lincoln Samuel:980144:Research:London
Sanat:786906:Development:Bangalore
Naresh:875795:Marketing:Singapore
Sreenivas:876542:Design:Singapore
Shaji:876868:Development:Bangalore
Jayaprakash:874353:Marketing:Sydney
Jack:876562:Development:Newyork
[/data.txt]
best,
Shaji
-------------------------------------------------------------------------------
Your talent is God's gift to you. What you do with it is your gift back to God.
-------------------------------------------------------------------------------
