自定義簡易的物件導向的perl棧與佇列類

perl中的陣列其實已經具備了棧與佇列的特點，下面是對陣列經過一些封裝的stack，queue物件

1、stack類

建立乙個stack.pm檔案

package stack;

sub new;
return bless $self;
}sub push},$d;
}sub pop};
}sub tostring};
}1;

建立乙個queue.pm

package queue;

sub new;
return bless $self;
}sub en_queue},$d;
}sub de_queue};
}sub tostring};
}1;

use stack;

$stack=new stack;
$stack->push('gg');
$stack->push('aa');
$stack->push('123');
print $stack->tostring(),"\n";
$stack->pop();
print $stack->tostring(),"\n";
$stack->pop();
print $stack->tostring(),"\n";
$stack->pop();
print $stack->tostring(),"\n";
use queue;
$queue=queue->new();
$queue->en_queue(1);
$queue->en_queue('a');
$queue->en_queue('2');
print $queue->tostring(),"\n";
$queue->de_queue();
print $queue->tostring();

perl 自定義函式

使用者函式 使用者函式又稱子程式 subroutine 在perl中用下面的結構來定義使用者函式 sub 子程式名 這裡的子程式名與變數的取名規則類似。以顯示歡迎詞的程式為例 sub say hello 使用者函式的定義可以位於程式的任何位置，比如說放在檔案的未尾。如果兩個子程式使用了相同的程式名，...

perl自定義模組的呼叫！

週末沒事，看了下perl的書，剛開始不是很理解perl的自定義模組呼叫。剛弄明白，順便記錄下來！1 usr bin perl 2 push inc,pwd 3 use cocoa 4 cup new cocoa 第一行指出perl直譯器的位置，第二行中，將當前目錄加到路徑尋找列表 inc中供尋找包時...

物件導向之自定義資料控制項

物件導向之自定義資料控制項 為了敘述問題的方便，我們把能與資料來源繫結的視覺化控制項暫且稱為 資料控制項 它們在反映使用者需求方面有著很多類似或相通的地方，所以被歸結在同乙個章節中討論。在語言環境中提供的控制項以適應性廣泛為主要目標，重點是解決通用性方面的問題。當這些控制項應用於特定的操作場景時，仍...