#!/usr/lib/perl
use strict;
use warnings;
use Data::Dumper;
{
my $file1 =
'/home/greyfox/data/TBLLOTUSNOTESPYRAMID.txt';
print "$file1\n";
local( $/, *INPUT );
open( INPUT, $file1 ) or die "Can't open $file1 $!\n";
our $text = ;
close INPUT or die "Can't close INPUT $!";
}
my $file2 =
'/home/greyfox/data/ConvTable.txt';
open (FD, $file2) or die "Can't open $file2 $!";
while (my $line = ) {
my @data = split (/\t/, $line);
$data[0] =~ s/[ ]+$//g;
$data[0] =~ s/,./,/g;
our $text =~ s/$data[0]/$data[2]/g;
our $text =~ s/$data[1]/$data[3]/g;
print our $text;
}
close FD or die "Can't close FD $!";