perl push鍑芥暟鎬庝箞浣跨敤
鍦≒erl涓紝push鍑芥暟鐢ㄤ簬灏嗕竴涓垨澶氫釜鍊兼坊鍔犲埌鏁扮粍鐨勬湯灏俱€傚畠鐨勮娉曞涓嬶細
push @array, value1, value2, 鈥?
鍏朵腑锛孈array鏄娣诲姞鍊肩殑鏁扮粍鍙橀噺锛寁alue1銆乿alue2绛夋槸瑕佹坊鍔犲埌鏁扮粍涓殑鍊笺€?/p>
涓嬮潰鏄竴涓娇鐢╬ush鍑芥暟鐨勭ず渚嬶細
my @fruits = ("apple", "banana", "orange");
push @fruits, "grape", "kiwi";
print "@fruits\n";
杈撳嚭缁撴灉涓猴細
apple banana orange grape kiwi
鍦ㄧず渚嬩腑锛屾垜浠鍏堝垱寤轰簡涓€涓寘鍚笁涓按鏋滅殑鏁扮粍@fruits銆傜劧鍚庯紝浣跨敤push鍑芥暟灏嗕袱涓柊鐨勬按鏋?鈥済rape"鍜?quot;kiwi鈥?娣诲姞鍒版暟缁勬湯灏俱€傛渶鍚庯紝浣跨敤print璇彞鎵撳嵃鏁翠釜鏁扮粍锛岃緭鍑虹粨鏋滀负鎵€鏈夋按鏋滅殑鍒楄〃銆?/p>
娉ㄦ剰锛歱ush鍑芥暟杩樺彲浠ユ帴鍙楀彟涓€涓暟缁勪綔涓哄弬鏁帮紝杩欐牱鍙互灏嗗彟涓€涓暟缁勭殑鎵€鏈夊厓绱犳坊鍔犲埌鐩爣鏁扮粍鐨勬湯灏俱€備緥濡傦細
my @fruits = ("apple", "banana", "orange");
my @newFruits = ("grape", "kiwi");
push @fruits, @newFruits;
print "@fruits\n";
杈撳嚭缁撴灉鍚屾牱涓猴細
apple banana orange grape kiwi
杩欓噷锛屾垜浠垱寤轰簡涓€涓柊鐨勬暟缁凘newFruits锛屽寘鍚袱涓柊姘存灉銆傜劧鍚庯紝浣跨敤push鍑芥暟灏咢newFruits鏁扮粍鐨勬墍鏈夊厓绱犳坊鍔犲埌@fruits鏁扮粍鐨勬湯灏俱€傛渶鍚庯紝杈撳嚭鏁翠釜@fruits鏁扮粍鐨勫唴瀹广€?/p>