#!/usr/bin/perl -w @array = qw#one two three#; $m = shift (@array); #$m 得到“one”, @array 现在为(“two”, “three”) shift @array; #@array 现在 ...
確定! 回上一頁