Hi,
I'm looking for some clever tricks to get a file
into hash values.
The file looks like this.
10 past 3 (B)=ec020e1ff3a4b82125061fbab300cd21
10 past 3 (C)=b840008ed8a11300b106d3e02d00088e
100-Years=fe3a558bec50817e0400c0730c2ea147
1024-PrScr #1=8cc0488ec026a103002d800026a30300
1024-PrScr #2=a172041f3df0f07505a10301cd0526a1
1024-PrScr #3=00012ea30300b4400e1fba0004b90004e8e8007230
1024-PrScr #4=babf00b82125cd2133c08ec0b8f0f026
1210-Prudent=2f040175d00e0e1f07bed3042bc92e8a0446410ac0
1210=c474f02e803e2f040175
1241=8a4600a200018b4601a30101b8cc4bcd
1244=cd217252b91e00ba7d04b43fcd217246
I've been using:
<code>
#!/usr/bin/perl
use strict;
use warnings;
my (@vs,%sigs,$name,$value);
open (VS,"< vs") or die "Cant open signature file", $!;
@vs = <VS>;
chomp @vs;
close VS;
foreach (@vs){
($name,$value) = split(/=/,$_);
$sigs{$name}=$value;}
foreach $name (keys %sigs){
print "$name\t$sigs{$name}\n";}
</code>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
