#!/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的用法
最新推荐文章于 2022-10-04 20:19:08 发布
#!/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";