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: é possível usar a substituição de variável?

No bash eu fiz

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

echo $DATE

em perl eu tento este

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

E me dê... string de data e não a data correta.

Best Answer

GAD3R

Usar localtime()função:

#!/usr/bin/perl 

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

Ou :

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

echo $DATE

amostra de saída:

deveria estar:

#!/usr/bin/perl 

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

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

amostra de saída:

usar print "$date";em vez deprint "date";

relate perguntas