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

Here's a template for using Text::CSV that you can edit based on your needs (you should also install Text::CSV_XS). Note that $row is an arrayref, how to work with it is discussed in perlreftut.

#!/usr/bin/env perl
use warnings;
use strict;
use Text::CSV;

my $csv = Text::CSV->new({ binary=>1, auto_diag=>2,
    eol=>$/, always_quote=>1 });
open my $ifh, '<', 'NRoomch.txt' or die $!;
open my $ofh, '>', 'output.txt' or die $!;
while ( my $row = $csv->getline($ifh) ) {
    
    $row->[1]='P'; # your logic to modify 2nd column here
    
    $csv->print($ofh, $row);
}
$csv->eof or $csv->error_diag;
close $ifh;
close $ofh;

[download]

Replies are listed 'Best First'.
Re^6: Replace value in the text file
by mhoang (Acolyte) on Jul 02, 2017 at 01:40 UTC

    thanks for pointing me to the perlreftut. I love it !

[reply]
Re^6: Replace value in the text file
by mhoang (Acolyte) on Jul 03, 2017 at 03:30 UTC

    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
[reply]
[d/l]
[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]

In Section Seekers of Perl Wisdom