Log.pm

#!perl
#日志打印


use warnings;
use strict;


package Log;


our $DEBUG = 1;


sub DEBUG
{
if($DEBUG)
{
my $msg = shift;
print "DEBUG: $msg";
}
}
#错误信息
sub ERROR
{
my $msg = shift;
print "ERROR: $msg";
}
#一般性信息
sub INFO
{
my $msg = shift;
print "INFO: $msg";
}


#进度信息
sub PROGRESS
{
my $msg = shift;
print "PROGRESS: $msg";
}
#进度结束
sub FINISHED
{
my $msg = shift;
print "FINISHED: $msg";
}
#输出文件列表
sub FILE
{
my $msg = shift;
print "FILE: $msg";
}
1;