learner@perl has asked for the wisdom of the Perl Monks concerning the following question:
Hi Masters,
Good Morning, i am creating some records by adding some variables to it as mentioned below
$report{}[0]="DOB,Name,Empid,salary,Gross_salary,Department,Company"; $report{}[1]="Month,NET_Salary,";
I need to print these records to text file and also to a table
subroutine{ my @data; my $table; open( F, "$File" ) || die("Could not open $File"); while ( my $line = <F> ) { chomp($line); push( @data,( split /[,\n]/, $line));} close(F); $table .= "<table border=1>"; for my $i ( 0 .. $#data ) { $table .= "<tr>"; for ( @data[ $i * $#data .. ( $i * $#data ) ] ) { $table .= "<td>$_</td>\r\n"; } $table .= "</tr>"; } $table .= "</table>"; }
When i execute this code, i am getting output as:
MessageFile MessageFile MessageFile MessageFile MessageFile
How can i read those records and print them into to text file and also to a table, any help on this, thanks in advance
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Reading and writing data to text file and to table
by moritz (Cardinal) on Jul 03, 2013 at 05:35 UTC | |
Re: Reading and writing data to text file and to table
by NetWallah (Canon) on Jul 03, 2013 at 05:46 UTC | |
Re: Reading and writing data to text file and to table
by Utilitarian (Vicar) on Jul 03, 2013 at 05:48 UTC | |
by learner@perl (Novice) on Jul 03, 2013 at 06:51 UTC | |
by learner@perl (Novice) on Jul 03, 2013 at 07:11 UTC |
Back to
Seekers of Perl Wisdom