#!/usr/bin/perl-wusestrict;my@array=(5,'a','c',10,'b');my@new_array=(map{$_*2ifm/\d/;}@array);printamp;quot;@new_array\namp;quot;;print$#new_array;#printjoin(amp;quot;,amp;quot;,@new_array),amp;quot;\ ...……
作者:菜鸟教程小白
|
时间:2022-7-22 08:40
|
阅读:246
|
回复:0