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;
In reply to Re^6: Replace value in the text file
by mhoang
in thread Replace value in the text file
by mhoang
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |