外挂编程

开发平台：

Windows_Unix

Simple.pm：源码内容

							#########################################################################
#  OpenKore - User interface system
#
#  Copyright (c) 2006 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: Simple console interface which polls stdin for input.
package Interface::Console::Simple;
use strict;
use warnings;
no warnings 'redefine';
use Time::HiRes qw(usleep);
use IO::Socket;
use bytes;
no encoding 'utf8';
use Modules 'register';
use Globals qw(%consoleColors);
use Interface;
use base qw(Interface);
use I18N qw(UTF8ToString);
use Utils::Unix;
sub new {
	my $class = shift;
	binmode STDOUT;
	STDOUT->autoflush(0);
	return bless {}, $class;
}
sub getInput {
	my ($self, $timeout) = @_;
	my $line;
	my $bits;
	if ($timeout < 0) {
		my $done;
		while (!$done) {
			$bits = '';
			vec($bits, fileno(STDIN), 1) = 1;
			if (select($bits, undef, undef, 1) > 0) {
				$line = <STDIN>;
				$done = 1;
			}
		}
	} else {
		$bits = '';
		vec($bits, fileno(STDIN), 1) = 1;
		if (select($bits, undef, undef, $timeout) > 0) {
			$line = <STDIN>;
		}
	}
	if (defined $line) {
		$line =~ s/n//;
		$line = undef if ($line eq '');
	}
	$line = I18N::UTF8ToString($line) if (defined($line));
	return $line;
}
sub writeOutput {
	my ($self, $type, $message, $domain) = @_;
	my $code = Utils::Unix::getColorForMessage(%consoleColors, $type, $domain);
	print STDOUT $code;
	print STDOUT $message;
	print STDOUT Utils::Unix::getColor('reset');
	STDOUT->flush;
}
sub title {
	my ($self, $title) = @_;
	if ($title) {
		if (!defined($self->{title}) || $self->{title} ne $title) {
			$self->{title} = $title;
			if ($ENV{TERM} eq 'xterm' || $ENV{TERM} eq 'screen') {
				print STDOUT "e]2;";
				print $title;
				print "a";
				STDOUT->flush;
			}
		}
	} else {
		return $self->{title};
	}
}
1;

						