[PERL] 检测文件的换行符

sub check_line_end_mode ()

{

    my $file = shift;

    my @ln = (0,0,0);

    

    if ( -s $file and -T $file )

    {

        open (TEST, "$file") or return undef;

        binmode(TEST);

        my $stream = "\0" x 1024;

        while ( read ( TEST, $stream, 1024 ) )

        {

            # windows

            if ( $stream =~ /\015\012/o )

            {

                $ln[0] = 1;

            }

            

            # unix/linux like

            if ( $stream =~ /[^\015]\012/o )

            {

                $ln[1] = 1;

            }

            

            # mac

            if ( $stream =~ /\015[^\012]/o )

            {

                $ln[2] = 1;

            }

        }

        close TEST;

    }

    

    elsif ( ! -e $file )

    {

        return undef;

    }

    

    return \@ln;

}