elbarna

Asked: 2017-12-21 19:23:43 +0800 CST2017-12-21 19:23:43 +0800 CST 2017-12-21 19:23:43 +0800 CST

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

在 bash 我做到了

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

echo $DATE

在 perl 我试试这个

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

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

Best Answer

GAD3R

使用localtime()功能：

#!/usr/bin/perl 

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

或者：

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

echo $DATE

样本输出：

应该：

#!/usr/bin/perl 

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

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

样本输出：

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

相关问题