外挂编程

开发平台：

Windows_Unix

Console.pm：源码内容

							#########################################################################
#  OpenKore - Console Interface Dynamic Loader
#
#  Copyright (c) 2004,2005,2006,2007 OpenKore development team 
#
#  This program is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#########################################################################
##
# MODULE DESCRIPTION: Console Interface dynamic loader
#
# Loads the apropriate Console Interface for each system at runtime.
# Primarily used to load Interface::Console::Win32 for Windows systems and
# Interface::Console::Unix for Unix systems.
package Interface::Console;
use strict;
use warnings;
use IO::Socket;
use Interface;
use base qw(Interface);
use Modules;
sub new {
	# Automatically load the correct module for
	# the current operating system
	if ($^O eq 'MSWin32') {
		eval "use Interface::Console::Win32;";
		die $@ if $@;
		Modules::register("Interface::Console::Win32");
		return new Interface::Console::Win32();
	} elsif ($^O eq 'linux' || $^O eq 'darwin') {
		my $mod = 'Interface::Console::Unix';
		my $str = "use $mod;";
		eval ${$str};
		die $@ if $@;
		Modules::register($mod);
		return new Interface::Console::Unix();
	} else {
		# Other Unix. For some reason Readline doesn't work correctly
		# on FreeBSD.
		my $mod = 'Interface::Console::Simple';
		my $str = "use $mod;";
		eval ${$str};
		die $@ if $@;
		Modules::register($mod);
		return new Interface::Console::Simple();
	}
}
sub beep {
	print STDOUT "a";
	STDOUT->flush;
}
1 #end of module

						