#!/user/bin/perl
@array=qw ( pebbles dino fred barney betty);
@removed=splice @array ,1,2,qw (abc bcd def);
print @removed,"\n";
print @array ,"\n";
splice的用法
最新推荐文章于 2024-07-09 10:07:46 发布
#!/user/bin/perl
@array=qw ( pebbles dino fred barney betty);
@removed=splice @array ,1,2,qw (abc bcd def);
print @removed,"\n";
print @array ,"\n";