UNIX for Dummies Questions & Answers

my $outputfile = $file . out;
open (OUT, ">", $outputfile);
while(<CSV>)
{
my @line = split(/\t/, $_);
$line[19] = your_change;
foreach(@line)
{
print "$_\t";
print OUT "$_\t";
}
print "\n";
print OUT "\n";
}
close OUT;

 
#!C:/perl/bin
use warnings;
use strict;
 
my $file1 = $ARGV[0];
my @input = "";
my @line;
open FILE1, "<$file1"
    or die "Can't open $file1: $!\n";
 
     while(<FILE1>)
       
       my @line = split(/,/, $_);
       $line[19] = 10;
       foreach(@line)
       {
       print "$_\t";
       }
       print "\n";

 
#!C:/perl/bin
use warnings;
use strict;
 
my $file1 = $ARGV[0];
my @input = "";
my @line;
my $outfile = $file1 . updated
open FILE1, "<$file1"
    or die "Can't open $file1: $!\n";

open OUT, "> $outfile"
    or die "Can't open $outfile: $!\n;
 
     while(<FILE1>)
       {
       my @line = split(/\t/, $_);
       $line[19] = 10;
       foreach(@line)
       {
         print "$_\t";
         print OUT "$_\t";
       }
       print "\n";
       print OUT "\n";
       }

close FILE1;
close OUT;

 
#!C:/perl/bin
use warnings;
use strict;
 
my $file1 = $ARGV[0];
my @input = "";
my @line;
my $outfile = $file1 . updated
open FILE1, "<$file1"
    or die "Can't open $file1: $!\n";

open OUT, "> $outfile"
    or die "Can't open $outfile: $!\n;
 
     while(<FILE1>)
       {
       @line = split(/\t/, $_);
       $line[19] = 10;
       foreach(@line)
       {
         print "$_\t";
         print OUT "$_\t";
       }
       print "\n";
       print OUT "\n";
       }

close FILE1;
close OUT;