I tried doing the following ---
my($url,$name,$text,@lines,$key,$value,$line);
my($Docs) = "temp.txt";
###start of comment
#temp.txt is of the format ---
#name1@url1@text1
#name1@url1@text1
#name1@url1@text11
#name2@url2@text2
#name2@url2@text21
#name3#url3@text3,etc...
##end of comment
my %file_hash;
open (FILE, $Docs);
@lines = <FILE>;
close FILE;
foreach $line (@lines)
{
chomp($line);
($name,$url,$text) = split('@',$line);
chomp($url);
$key = $url;
$value = $line;
$file_hash{$key} = $value;
}
open (OUT, ">$Docs");
for my $key (keys %file_hash)
{
print OUT "$file_hash{$key}\n";
}
close OUT;
}
my guess to what is happening here is that since I am using the hash - i am actually storing the last match to the $key and I am not getting what I want as the OUT file
the OUT file that I need is ---
name1@url1@text1
name2@url2@text2
name3#url3@text3,etc...
thank you for your patience........ |