A formatting query

[Michael James]

On Wed, 5 Feb 2003 04:22 pm, Felix Karpfen wrote:
> Is there a <search-and replace routine|vim plugin> that will convert a
> formatted text file from the Unix to the DOS format?

Couldn't resist posting my little perlscript.
Put in bin and link it 6 ways as dos2unix, unix2dos, mac2unix, etc.

It does what you call it.

#!/usr/bin/perl -pi
# This script will translate text file formats
#  by converting any combination of newline characters

use File::Basename;

my($in, $out) = split( /2/, basename($0) );

$in = newline($in);
$out = newline($out);

s/$in/$out/g;


sub newline
# expects an OS indicator starting with D, M, or U
# returns the corresponding newline sequence
{       my $os = shift;

        $os =~ /^d/i and { return "\r\n" };     # Newline in DOS = <ret><lf>
        $os =~ /^m/i and { return "\r"   };     # Newline in MacOS = <return>
        $os =~ /^u/i and { return "\n"   };     # Newline in Unix = <linefeed>

        die "What was that you called me? $os doesn't start with D M or U\n";
}
__END__



-- 
Michael James				michael at james.st
Network Programmer			voice:	02 6246 5040