论坛 › Perl › perl shift

q987654 发表于 2017-5-16 12:48:52

perl shift

use strict;
use warnings;
use utf8;

my @city = ("tokyo", "osaka");

print "array-->:\n";
for (my $i = 0; $i <= $#city; $i++){
    print "$city[$i]\n";
}

my $val = shift(@city);

print "\nget-->:\n";
print "$val\n";

print "the rest-->:\n";
for (my $i = 0; $i <= $#city; $i++){
    print "$city[$i]\n";
}

查看完整版本: perl shift