Perl：可以使用变量替换吗？

Question

在 bash 上我做了

#!/bin/bash
DATE=`date +%m%y`

echo $DATE

在 Perl 上我尝试这个

#!/usr/bin/perl 
$date=`date +%m%y`;
print "date";

并给我..日期字符串而不是正确的日期。

Answer 1

使用localtime()功能：

#!/usr/bin/perl 

use strict;
use warnings;
my $date = localtime();
print "$date";

或者 ：

#!/bin/bash
DATE=`date +%m%y`

echo $DATE

示例输出：

1217

应该：

#!/usr/bin/perl 

use strict;
use warnings;
use POSIX qw(strftime);

my $date=`date +%m%y`;
print "$date";

示例输出：

1217

使用 print "$date";而不是print "date";