ファイルの書き込み

WriteFile.pl

sub writeFile{
    my( $path, $data, $mode) = @_;
    $mode ? open( FH, ">>".$path) : open( FH, ">".$path);
    binmode( FH);
    print FH $data;
    close( FH);
}