Ouverture et édition de fichiers texte (c + +)

#/usr/bin/perl -w

# Put before/after in strings
# You can just as easily take them from the command line.
$stringa = "cat";
$stringb = "dog";

# Loop through each line of standard input. Perl is so smart, you
# really don't have to give it much options.
while (<>) {
 chomp;                     # chew off the line endings.
 @row = split (/\t/,$_);          # split each line into array. use tabs.
 $count = 1;
 foreach $col (@row) {          # loop through each array element
  if ($count == 2) {            # if 2nd column, do substitution
   $col =~ s/$stringa/$stringb/;  # switch a for b!!
   print "$col\t";               # print out new version
  } else {
   print "$col\t";
  }
 $count++;
 }
 print "\n";                    # each line in tab file ends with LF
}