我喜欢Python可以使用字典格式化字符串的方式:
print "%(key1)s and %(key2)s" % aDictObj
我希望用哈希表在Perl中实现同样的功能。是否有任何代码片段或小型库可以实现这一点?
编辑:
感谢您尝试解答。对于我来说,我想出了一小段代码:
sub dict_replace
{
my ($tempStr, $tempHash) = @_;
my $key;
foreach $key (sort keys %$tempHash) {
my $tmpTmp = $tempHash->{$key};
$tempStr =~ s/%\($key\)s/$tmpTmp/g;
}
return $tempStr;
}
它只是起作用。虽然这不如使用字典的Python字符串格式化功能完整,但我希望对此进行改进。
%aDictObj = ( definitions => here ); print "$_->{key1}s and $_->{key2}s" for \%aDictObj;
- DavidO