Hello all, I got problems in perl.
I have 2 text file call it 1) data 2) source.txt
The data file contain teks file like this :
\tl:਒
\tr:ਓ
\ca:ਕ
\ra:ਖ
\ka:ਗ
...
Data file contain two colomn "key" and "values" separated by ":"
and the source.txt contain
\tl\ca\ra\tr\ka ...
source.txt file contain "key" such as in data file.
I need a new file call it target.txt that contain "values" form data according to "keys" in source.txt
਒ਕਖਓਗ
#!/usr/bin/perl
use strict;
use warnings;
my $dfile = 'data';
my $sfile = 'source.txt';
my $tfile = 'target.txt';
open (DFILE,$dfile) or die "can not open";
open (SFILE,$sfile) or die "can not open";
open (TFILE,"> $tfile") or die "can not open";
my %words;
while (<DFILE>) {
chomp;
my ($key, $val) = split /:/;
$words{$key} .= exists $words{$key} ? "$val" : $val;
};
while (my $s = <SFILE>) {
chomp($s);
my @words = split / /, $s;
foreach my $val (@words) {
}
for my $i (0 .. $#words) {
$words[$i] = $words{$words[$i]} if (exists($words{$words[$i]}))
}
print TFILE join(' ', @words),$/;
print TFILE "<br>";
}
close(SFILE);
close(DFILE);
close(TFILE);
The code above work if only if the source.txt contain keys separated with space,
\ca \ra \ka \tl
but fail to work if source.txt is
\ca\ra\ka\tl
I try to make hash from data but I confuse how to compare it and replace it, if source.txt contain "keys" without space