tclperl-3.2

홈페이지 : http://jfontain.free.fr

 

Tcl 인터프리터에서 하나 이상의 임베디드 Perl 인터프리터를 생성하여 Tcl 인터프리터에서 Perl 코드를 실행할 수 있도록 해주는 확장 패키지입니다.

 

Allows the execution of Perl code from a Tcl interpreter, by creating one or more embedded Perl interpreters from the Tcl interpreter.

  package require tclperl
  set interpreter [perl::interp new]
  $interpreter eval {print "Hello World\n"}
  perl::interp delete $interpreter

  package require tclperl 3
  set interpreter [perl::interp new]
  puts [$interpreter eval {
    $Tcl::parent->eval('clock format [clock seconds]');
  }]
  perl::interp delete $interpreter

  package require tclperl 3.2
  set interpreter [perl::interp new]
  $interpreter eval {
    use threads; use Thread::Queue;
    our $queue = Thread::Queue->new();
    sub work() {
      while (1) {
        sleep(2);
        $queue->enqueue(rand(100));
        $Tcl::parent->eval('set done 1');
      }
    }
    threads->new(\&work);
  }
  puts running...
  vwait done
  $interpreter eval {
    my $data = $queue->dequeue();
    print("got $data\n");
  }

tclperl-3.2.tar.bz2

0.01MB