나는 내가 이런 것을 할 수있는 읽을 때마다 증가하는 간단한 연결 스칼라 클래스를 가지고 있다면 : package Counter;
use strict;
use warnings;
sub TIESCALAR {
my $class = shift;
my $value = 0;
bless \$value, $class;
r
을 (그리고 문제가있는 동안 타이를 사용) 찾아이 : package Galaxy::IO::INI;
sub new {
my $invocant = shift;
my $class = ref($invocant) || $invocant;
my $self = {']' => []}; # ini section can never be ']'
현재 범위를 벗어날 때 코드를 실행하도록 예약하는 것이 유용하다는 것을 자주 발견합니다. TCL에서의 나의 이전 생활에서, 친구는 우리가 지연이라고 부르는 함수를 만들었습니다. 다음과 같은 코드가 활성화되었습니다. set fp [open "x"] defer ("close $ fp"); 현재 범위가 종료 될 때 호출되었습니다. 가장 큰 장점은 범위를 벗어나는
Cygwin Perl v5.8.8 및 Win32 :: TieRegistry 0.26 사용. 우리가 할 수있는 HKEY_CURRENT_USER에 대한 공동 해시 객체 일 수 : $ perl -e '
my %RegHash;
use Win32::TieRegistry(TiedHash => \%RegHash);
use Data::Dumper;
my $Key
AUTOLOAD과 비슷한 방식으로 요청시 서브 루틴을 정의 할 수 있으므로 패키지의 숨김을 묶어서 해당 패키지의 변수에 대한 액세스를 차단할 수 있는지 궁금합니다. 나는 다음과 같은 아이디어의 다양한 순열을 시도했지만, 아무도 제대로 작동하지 : {package Tie::Stash;
use Tie::Hash;
BEGIN {our @ISA
FETCH을 호출하기 전에 Perl이 묶인 배열에서 FETCHSIZE을 호출하도록하는 방법이 있습니까? 제 묶인 배열은 최대 크기를 알고 있지만 이전 FETCH 호출 결과에 따라이 크기에서 축소 될 수 있습니다. I (예 이외의 인덱스에서 시작하여 액세스를 해결하는 방법으로 오류 검사 코드의 무리를 생략 한 간결함에 대한 use warnings;
use