- 论坛徽章:
- 0
|
原帖由 ynchnluiti 于 2008-12-30 17:06 发表
你这个要根据true|false选择颜色。
简单的办法输出result内容时判断值.
@t{qw/date computer platform command result Detail/} = (split);
if ($t{result} eq 'false') {
...
强的,高手一个!!
还有个小问题
IO::File - supply object methods for filehandles 这个到底怎么解释,对perl对新水,努力学习中
NAME
IO::File - supply object methods for filehandles
SYNOPSIS
use IO::File;
$fh = new IO::File;
if ($fh->open("< file") {
print <$fh>;
$fh->close;
}
$fh = new IO::File "> file";
if (defined $fh) {
print $fh "bar\n";
$fh->close;
}
$fh = new IO::File "file", "r";
if (defined $fh) {
print <$fh>;
undef $fh; # automatically closes the file
}
$fh = new IO::File "file", O_WRONLY|O_APPEND;
if (defined $fh) {
print $fh "corge\n";
$pos = $fh->getpos;
$fh->setpos($pos);
undef $fh; # automatically closes the file
}
autoflush STDOUT 1;
DESCRIPTION
IO::File inherits from IO::Handle and IO::Seekable. It extends these classes with methods that are specific to file handles.
CONSTRUCTOR
new ([ ARGS ] )
Creates a IO::File. If it receives any parameters, they are passed to the method open; if the open fails, the object is destroyed. Otherwise, it is returned to the caller.
new_tmpfile
Creates an IO::File opened for read/write on a newly created temporary file. On systems where this is possible, the temporary file is anonymous (i.e. it is unlinked after creation, but held open). If the temporary file cannot be created or opened, the IO::File object is destroyed. Otherwise, it is returned to the caller.
METHODS
open( FILENAME [,MODE [,PERMS]] )
open accepts one, two or three parameters. With one parameter, it is just a front end for the built-in open function. With two parameters, the first parameter is a filename that may include whitespace or other special characters, and the second parameter is the open mode, optionally followed by a file permission value.
If IO::File:pen receives a Perl mode string (``>'', ``+<'', etc.) or a POSIX fopen() mode string (``w'', ``r+'', etc.), it uses the basic Perl open operator.
If IO::File:pen is given a numeric mode, it passes that mode and the optional permissions value to the Perl sysopen operator. For convenience, IO::File::import tries to import the O_XXX constants from the Fcntl module. If dynamic loading is not available, this may fail, but the rest of IO::File will still work.
SEE ALSO
the perlfunc manpage, I/O Operators, Handle Seekable
HISTORY
[ 本帖最后由 huanghaojie 于 2008-12-30 23:00 编辑 ] |
|