thanks very much.
----- Original Message -----
From: "John W. Krahn" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, January 21, 2003 10:11 AM
Subject: Re: help:about file format
> Billy wrote:
> >
> > how to judge a file in dos format or in unix format?
> > thanks for your response.
>
> Here is a somewhat simple program that will work with most files. :-)
>
> #!/usr/bin/perl
> use warnings;
> use strict;
>
> open my $fh, $ARGV[0] or die "Cannot open $ARGV[0]: $!";
>
> my $contents = do { local $/; <$fh> };
>
> my $cr = $contents =~ tr/\015//;
> my $lf = $contents =~ tr/\012//;
>
> if ( $cr == $lf and $cr ) {
> print "$ARGV[0] is a DOS file.\n";
> }
> elsif ( $lf and not $cr ) {
> print "$ARGV[0] is a Unix file.\n";
> }
> elsif ( $cr and not $lf ) {
> print "$ARGV[0] is a Macintosh file.\n";
> }
> else {
> print "$ARGV[0] is an Unknown file.\n";
> }
>
> __END__
>
>
>
> John
> --
> use Perl;
> program
> fulfillment
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
