Yikes...i keep forgetting about the lack of carrage returns
################################
sub ParseProfile {
my($filename) = @_;
open(PROFILE,$filename);
@PROFILE = <PROFILE>;
close(PROFILE);
my(%profile);
$i = 0;
while (@PROFILE
$i ne "") {
@LINE = split(": ", @PROFILE
$i);
$value = "@LINE
1"."@LINE
2"."@LINE
3".
"@LINE
4"."@LINE
5";
@temp = split("\n", $value);
$value = join("", @temp);
$profile{@LINE[0]} = $value;
$i = $i + 1;
}
return %profile;
}
###############################
sub SaveProfile {
my($profile_path, %profile) = @_;
open(PROFILE,">$profile_path");
while (($key, $val) = each %profile) {
print PROFILE "$key: $val\n";
}
close(PROFILE);
}
###############################