ファイルの読み込み

ReadFile.pl

sub readFile{
    my $path = shift;
    my( $ret, @ret);
    open( FH, "<".$path);
    if( wantarray){
        push( @ret, $_) foreach( <FH>);
    }else{
        my $retcode = $/;
        undef( $/);
        $ret = <FH>;
        $/ = $retcode;
    }
    close( FH);
    # UTF-8のBOMがあれば削除
    $ret =~ s/^\xEF\xBB\xBF//is;
    $ret[ 0] =~ s/^\xEF\xBB\xBF//is if( scalar( @ret));
    return ( wantarray) ? @ret: $ret;
}