perl中pop与push函数
pop 操作将数组的最后一个元素取出并返回:@array=5..9; $fred=pop(@array); #$fred 得到 9,@array 现在为(5,6,7,8) $barney=pop@array; #$barneygets8,@array 现在为(5,6,7)pop@array; #@array 现在为(5,6)(7 被丢弃了)最后一个例子中,pop 使用在"inavoidcontext",也就是说没有存放其返回值的地方。这样使...