外挂编程

开发平台：

Windows_Unix

unix2dos.pl.svn-base：源码内容

							#!/usr/bin/env perl
use strict;
use warnings;
foreach my $f (@ARGV) {
	local($/);
	if (!open(F, "<", $f)) {
		print STDERR "Can't open $f for readingn";
		exit 1;
	}
	print "Converting $f...n";
	binmode F;
	my $data = <F>;
	close(F);
	if (!open(F, ">", $f)) {
		print STDERR "Can't open $f for writingn";
		exit 1;
	}
	binmode F;
	$data =~ s/rn/n/sg;
	$data =~ s/n/rn/sg;
	print F $data;
	close(F);
}

						