Lines Matching refs:fh
105 sub read_fh($class, $fh, $name = '')
109 while (<$fh>) {
114 $_.=<$fh>;
141 open my $fh, '<:crlf', $filename or die "Can't open $filename: $!";
142 return $class->read_fh($fh, $filename);
145 sub write_fh($self, $fh)
148 say $fh "$variable=", $self->{variables}{$variable};
150 print $fh "\n\n";
153 print $fh "$property:";
155 print $fh $write->{$property}($p);
157 print $fh (map { " $_" } @$p);
159 print $fh "\n";
165 open my $fh, '>', $filename or die "Can't open $filename: $!";
166 $cfg->write_fh($fh);