Perl 의 NULL

펄에는 널이 없다. 대신 비슷한 개념의 미정의값이 존재한다. 

미정의값을  설정하는 방법은 아래와 같다. 

• 빈리스트()를 대입하는 방법 
  
• undef함수를 실행하는 방법
• 선언만 한 경우 미정의값이 된다. ($value;)

테스트 코드

$aaa;

$bbb = "";

$ccc = 0;

$ddd = ();

$eee = {};

$fff = [];

undef $ggg;

@hhh;

@iii = "";

@jjj = 0;

@kkk = ();

@lll = {};

@mmm = [];

undef @nnn;

%ooo;

%ppp = ();

undef %rrr;

print '$aaa == undefined', "\n" if (!defined($aaa));

print '$bbb == undefined', "\n" if (!defined($bbb));

print '$ccc == undefined', "\n" if (!defined($ccc));

print '$ddd == undefined', "\n" if (!defined($ddd));

print '$eee == undefined', "\n" if (!defined($eee));

print '$fff == undefined', "\n" if (!defined($fff));

print '$ggg == undefined', "\n" if (!defined($ggg));

print '@hhh == undefined', "\n" if (!defined(@hhh));

print '@iii == undefined', "\n" if (!defined(@iii));

print '@jjj == undefined', "\n" if (!defined(@jjj));

print '@kkk == undefined', "\n" if (!defined(@kkk));

print '@lll == undefined', "\n" if (!defined(@lll));

print '@mmm == undefined', "\n" if (!defined(@mmm));

print '@nnn == undefined', "\n" if (!defined($nnn));

print '%ooo == undefined', "\n" if (!defined(%ooo));

print '%ppp == undefined', "\n" if (!defined(%ppp));

print '%rrr == undefined', "\n" if (!defined(%rrr));

 실행결과

C:\Documents and Settings\xxx>perl null.pl

$aaa == undefined

$ddd == undefined

$ggg == undefined

@hhh == undefined

@kkk == undefined

@nnn == undefined

%ooo == undefined

%ppp == undefined

%rrr == undefined