[clisp, perl] dynamic scope

เคยเขียนกรณี Dynamic scope & Static scope ไปที
ตอนนั้นระบุว่า scheme, javascript เป็น static scope
ส่วน ruby เป็น dynamic scope

วันนี้มาดู clisp บ้าง
clisp สามารถเลือกได้ว่าจะให้เป็น static หรือ dynamic scope
โดย default จะเป็น static scope

(setq x 5)
(defun get-x () x)
(let ((x 12)) (get-x)) ;; => 5

ผลลัพท์ที่ได้จากคำสั่งที่ 3 , get-x จะได้ค่า 5 ออกมา
(ซึ่งเราเรียกว่า static scope)
แต่ถ้าเป็น dynamic scope, get-x จะต้องได้ค่า 12 ออกมา

ใน clisp เราสามารถกำหนดให้ตัวแปรเป็น dynamic scope ได้
โดยใช้คำสั่ง defvar

(defvar y 5)
(defun get-y () y)
(let ((y 12)) (get-y))

perl ก็สามารถเป็นได้ทั้ง static หรือ dynamic scope
กรณี static

$x = 5;
sub get_x {
  print "x = $x";
}
sub test_static {
  my $x = 12;
  get_x();
}
test_static # => x = 5

ถ้าต้องการ dynamic ก็จะเป็นแบบนี้

$y = 5;
sub get_y {
  print "y = $y";
}
sub test_dynamic {
  local $y = 12;
  get_y();
}
test_dynamic; # => y = 12