in reply to Re^5: Replace value in the text file
in thread Replace value in the text file

I follow your method using HTML Table to print output.html but I alway get it printing to screen can you correct for me please?. I have worked out the value for the array. It's worth to spend weekend to learn the perlref 

 
#!/usr/bin/perl
use strict;
use warnings;
my @values = ();
use HTML::Table;
my $table = HTML::Table->new(
    -cols        =>    3,
    -border        =>    1,
    -padding    =>    1,
    -head        => [('Header1','Header2','Header3')],
    );

my $sourceFile = "<C:/Perl-Script/File1.txt";

open my $ifh,$sourceFile or die $!;
open my $ofh, '>', 'C:/Perl-Script/output.html' or die $!;

while (my $row = <$ifh>)
{
    chomp($row);
    $row =~ s/"//g;
    @values = split(',',$row);
    $table ->addRow(@values);
}

$table->print ($ofh,@values);
close $ifh;
close $ofh;

[download]
Nirvana is Now or Never

Replies are listed 'Best First'.
Re^7: Replace value in the text file
by huck (Prior) on Jul 03, 2017 at 03:46 UTC
[reply]
[d/l]
[select]

      my next question now is I have the output file, but i like to get even and odd rows in different color and setting the location of table like 10 rows down Where do I modify it in my code?

       $table -> setsetRowAlign(10, [center])
      Nirvana is Now or Never
[reply]
[d/l]

        even and odd rows in different color

        $table->setEvenRowClass ( 'even' ); and $table->setOddRowClass ( 'odd' ); Then setup your two css classes to display what you want.

        setting the location of table like 10 rows down

        print $ofh '<hr>'x10;

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom