UNIX for Dummies Questions & Answers

 
#!C:/perl/bin
use warnings;
use strict;
my $file1 = $ARGV[0];
open FILE1, "<$file1"
    or die "Can't open $file1: $!\n";
    
    my #found;
    my $period;
    
    while ( <FILE1> ) {
        
            ### Remove the newline that acts as a record delimiter
            chop;
            
            ### Break up the record data into separate fields
          
            ( $period) = /^[.*,.*{19,}].*,/  
            #( $name, $location, $mapref, $type, $description ) =
}

awk -F<your_delimiter> '{print$20}' input

perl -ne 'print $_ if ($.==20)' inputfile

use strict;
use Text::CSV;

my $file = $ARGV[0];
my $csv = Text::CSV->new();

open (CSV, "<", $file) or die "Can't open $file: $!\n";

while (<CSV>) {
   if ($csv->parse($_)) {
      my @column = $csv->fields();
      print "$column[19]\n";
   } else {
      my $err = $csv->error_input;
      print "ERROR: Failed to parse line: $err";
   }
}

close CSV;

 
col1  col2 col3....col20 col21 col22
A       B     C ...... dy    0       xyz
C       R      S .......dx             abc 
E        T      E .......dc             res

 
col1  col2 col3....col20 col21 col22
A       B     C ...... dy    0       xyz
C       R      S .......dx    0         abc 
E        T      E .......dc             res

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