Thursday, February 15, 2007
Perl/펄] 변수명 그 자체를 출력, 변수 이름/달러 기호; Print Var Name, Dollar Sign
print 함수로 달러 기호를 출력하면
Final $ should be \$ or $name at D:\Z\example1.pl line 16, within string...
이런 에러가 날 수 있습니다. 이때는 달러 기호 앞에 백슬래쉬(\) 문자를 넣어 이스케이프해주면 됩니다.
펄에서 달러 기호는 변수라는 뜻이기에, 그냥 글자 그대로 인식시키려면 "\"를 붙여야 합니다.
변수명 자체를 출력할 때도 마찬가지입니다.
방법 2:
또는 작은따옴표로 둘러싸 주어도 됩니다. 큰따옴표(")가 아닌, 작은따옴표(')로 둘러싼 변수명이나 달러 기호는 그대로 출력됩니다.
아래 예제와 같습니다.
파일명: example.pl
Final $ should be \$ or $name at D:\Z\example1.pl line 16, within string...
이런 에러가 날 수 있습니다. 이때는 달러 기호 앞에 백슬래쉬(\) 문자를 넣어 이스케이프해주면 됩니다.
펄에서 달러 기호는 변수라는 뜻이기에, 그냥 글자 그대로 인식시키려면 "\"를 붙여야 합니다.
변수명 자체를 출력할 때도 마찬가지입니다.
방법 2:
또는 작은따옴표로 둘러싸 주어도 됩니다. 큰따옴표(")가 아닌, 작은따옴표(')로 둘러싼 변수명이나 달러 기호는 그대로 출력됩니다.
아래 예제와 같습니다.
변수 명 (달러 기호) 출력 예제
파일명: example.pl
#!/usr/bin/perl
use strict; use warnings;
my $num = 123;
# 변수 $num 의 값 출력
print $num, "\n";
# 출력 결과: 123
# 변수의 이름인 "$num" 자체를 출력
print "\$num", "\n";
# 출력 결과: $num
# 변수의 이름인 "$num" 자체를 출력 (작은따옴표로)
print '$num', "\n";
# 출력 결과: $num
# 달러 기호 자체를 1개 출력
print "\$", "\n";
# 출력 결과: $
# 달러 기호 자체를 1개 출력 (작은따옴표로)
print '$', "\n";
# 출력 결과: $
# 변수명을 다른 변수에 넣기
my $foo = "\$test";
print $foo, "\n";
# 출력 결과: $test
# 변수명을 다른 변수에 넣기 (작은따옴표로)
$foo = '$test';
print $foo, "\n";
# 출력 결과: $test
# 배열 @a 를 출력
my @a = qw( 자장면 탕수육 짬뽕 우동 물만두 );
for (my $i = 0; $i <= $#a; $i++) {
print "\$a[$i] = $a[$i]\n";
}
=pod
출력 결과:
$a[0] = 자장면
$a[1] = 탕수육
$a[2] = 짬뽕
$a[3] = 우동
$a[4] = 물만두
=cut
use strict; use warnings;
my $num = 123;
# 변수 $num 의 값 출력
print $num, "\n";
# 출력 결과: 123
# 변수의 이름인 "$num" 자체를 출력
print "\$num", "\n";
# 출력 결과: $num
# 변수의 이름인 "$num" 자체를 출력 (작은따옴표로)
print '$num', "\n";
# 출력 결과: $num
# 달러 기호 자체를 1개 출력
print "\$", "\n";
# 출력 결과: $
# 달러 기호 자체를 1개 출력 (작은따옴표로)
print '$', "\n";
# 출력 결과: $
# 변수명을 다른 변수에 넣기
my $foo = "\$test";
print $foo, "\n";
# 출력 결과: $test
# 변수명을 다른 변수에 넣기 (작은따옴표로)
$foo = '$test';
print $foo, "\n";
# 출력 결과: $test
# 배열 @a 를 출력
my @a = qw( 자장면 탕수육 짬뽕 우동 물만두 );
for (my $i = 0; $i <= $#a; $i++) {
print "\$a[$i] = $a[$i]\n";
}
=pod
출력 결과:
$a[0] = 자장면
$a[1] = 탕수육
$a[2] = 짬뽕
$a[3] = 우동
$a[4] = 물만두
=cut
tag: perl
Perl | 펄
<< Home