Perl:変数置換を使用できますか?

Perl:変数置換を使用できますか?

bashで私がした

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

echo $DATE

Perlはこれを試しています

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

正しい日付の代わりに..date文字列を提供します。

ベストアンサー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";

おすすめ記事