0

每条Log4perl消息都以新行开头：

my $log = Log::Log4perl->get_logger("log");
$log->info("start:");
$log->info("10");
$log->info("20");
$log->info("30");

结果：

[2012/07/06 13:12:27] INFO log - start:
[2012/07/06 13:12:27] INFO log - 10
[2012/07/06 13:12:27] INFO log - 20
[2012/07/06 13:12:27] INFO log - 30

如何在同一行获取下一条消息且不带前缀：

[2012/07/06 13:12:27] INFO log - start: 10 20 30

有任何想法吗？

升级版：

我试图为我的程序制作进度条。但结果我需要这个进度条只在屏幕上，而不是在日志上。

这样我就这样做了：

$log->info("start");
printf("progress: ");
printf("10");
printf("20");
printf("30");

谢谢您的回答！

4

2 回答 2

3

尝试使用两个不同的类别，它们都将日志写入同一个地方，即屏幕。PatternLayout当您想添加日期或仅添加消息时，修改它们并使用其中一个。您还应该明确添加换行符：

内容script.pl：

use warnings;
use strict;
use Log::Log4perl;

my $conf = qq| 
    log4perl.category.Stdout_nl=INFO, Date           
    log4perl.appender.Date=Log::Log4perl::Appender::Screen
    log4perl.appender.Date.layout=PatternLayout
    log4perl.appender.Date.layout.ConversionPattern=%d %p %m

    log4perl.category.Stdout=INFO, Number
    log4perl.appender.Number=Log::Log4perl::Appender::Screen
    log4perl.appender.Number.layout=PatternLayout
    log4perl.appender.Number.layout.ConversionPattern= %-3m
|;

Log::Log4perl::init( \$conf );
my $log_date = Log::Log4perl->get_logger( "Stdout_nl" );
my $log_num = Log::Log4perl->get_logger( "Stdout" );
$log_date->info("start:");
$log_num->info("10");
$log_num->info("20");
$log_num->info("30\n");

像这样运行它：

perl script.pl

具有以下输出：

2012/07/06 12:24:04 INFO start:10 20 30
于 2012-07-06T10:26:14.493 回答
3

如果您需要进度条，则cpan 中有Term::ProgressBar

于 2012-07-06T13:57:12.407 回答