sprintf 中日期的 Perl 字符串 %s 说明符无效上下文

Question

我正在接受用户输入并打印格式化输出。

在我的格式字符串 %s 中，当我为它提供日期时返回它处于空上下文中。由于它只是打印，我假设字符串足以显示日期。

这是我的代码

use strict;
use warnings;

use Time::Piece;

print "Enter item number: ";
chomp( my $item_number = <STDIN> );

print "Enter unit price: ";
chomp( my $unit_price = <STDIN> );

print "Enter purchase date (mm/dd/yyyy): ";
chomp( my $purchase_date = <STDIN> );

my $tp = Time::Piece->strptime( $purchase_date, '%m/%d/%Y' );

print "\n";
print "Item\t Unit\t Purchase\n\t Price\t Date\n";

sprintf( "%-3d\t%.2f\t%s\n", $item_number, $unit_price, $tp );
printf("_______________________________________\n");

玩弄它似乎 %s 在 sprintf 中总是有一个无效的上下文。如果我这样做

sprintf( "%s", $tp );

我收到完全相同的警告。我将如何在 sprintf 格式的案例中打印日期？或者在 perl 中有比 sprintf 更好的方法吗？

Answer 1

sprintf 不是就地函数，也不进行任何打印；它只格式化字符串。您可以打印 或对其返回值执行其他操作:

print sprintf( "%-3d\t%.2f\t%s\n", $item_number, $unit_price, $tp );

或者直接printf:

printf "%-3d\t%.2f\t%s\n", $item_number, $unit_price, $tp;

样本运行:

Enter item number: 456
Enter unit price: 5
Enter purchase date (mm/dd/yyyy): 03/10/1986

Item     Unit    Purchase
         Price   Date
456     5.00    Mon Mar 10 00:00:00 1986
_______________________________________