Perl: é possível usar substituição de variável?

Question

Na festa eu fiz

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

echo $DATE

no perl eu tento este aqui

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

E forneça-me uma string.date e não a data correta.

    

Answer 1

Use a função localtime() :

#!/usr/bin/perl 

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

Ou:

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

echo $DATE

exemplo de saída:

1217

deve ser:

#!/usr/bin/perl 

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

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

exemplo de saída:

1217

use print "$date"; em vez de print "date";