File Perl

  1. Home
  2. Perl
  3. File
  4. Save hash value to a file
%hash = (
    meat => turkey,
    drink => tea,
    cheese => colby,
);
open FILEHANDLE, ">hash.dat" or die "Can not open hash.dat";
$, = " ";
print FILEHANDLE %hash;
close FILEHANDLE;
open FILEHANDLE2, "%hash2 = split(" ", );
close FILEHANDLE2;
foreach $key (keys %hash2) {
    print "$key => $hash2{$key}\n";
}