Friday, May 04, 2007
Perl 펄] 두 변수의 값 교환/스왑 함수(서브루틴); Swap Function
펄에서는 간단히 두 변수의 값을 교환할 수 있습니다.
($a, $b) = ($b, $a);
이렇게 리스트(List)를 맞교환하면 됩니다. 그런데 스왑 함수를 만들려면, 아래 예제 속의 함수처럼 해야 교환이 됩니다.
소스 파일명: example.pl
($a, $b) = ($b, $a);
이렇게 리스트(List)를 맞교환하면 됩니다. 그런데 스왑 함수를 만들려면, 아래 예제 속의 함수처럼 해야 교환이 됩니다.
변수 값 서로 바꾸기 예제
소스 파일명: example.pl
#!/usr/bin/perl
use strict; use warnings;
my $i = 300;
my $j = 500;
print '$i = ', $i, "\n";
print '$j = ', $j, "\n";
# $i = 300
# $j = 500
swap($i, $j);
print '$i = ', $i, "\n";
print '$j = ', $j, "\n";
# $i = 500
# $j = 300
# 두 변수의 값이 서로 변경되었습니다.
# 두 변수 교환 함수
# $_[0] 은 첫번째 파라미터(인수;매개변수)
# $_[1] 은 두번째 파라미터
sub swap {
($_[0], $_[1]) = ($_[1], $_[0]);
}
use strict; use warnings;
my $i = 300;
my $j = 500;
print '$i = ', $i, "\n";
print '$j = ', $j, "\n";
# $i = 300
# $j = 500
swap($i, $j);
print '$i = ', $i, "\n";
print '$j = ', $j, "\n";
# $i = 500
# $j = 300
# 두 변수의 값이 서로 변경되었습니다.
# 두 변수 교환 함수
# $_[0] 은 첫번째 파라미터(인수;매개변수)
# $_[1] 은 두번째 파라미터
sub swap {
($_[0], $_[1]) = ($_[1], $_[0]);
}
tag: perl
Perl | 펄
<< Home