☰

Perl: 변수 대체를 사용할 수 있나요?

tag-icon • tag-icon 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";

관련 정보