37,721
社区成员
发帖
与我相关
我的任务
分享打印相关的字符
各位大侠，
我想打印字符 “dino”。
先谢谢了！
my @array = qw /fred barney betty dino wilma pebbles bamm-bamn/;
my $result=&which_element_is("dino", names);
sub which_element_is{
my($what, @array)=@_;
foreach (0..$#array){
if($what eq $array[$_]){
print "$_\n";
return $_;
}
}
print "99\n";
-1
}
print "$result\n"
我想打印字符 “dino”。
先谢谢了！
my @array = qw /fred barney betty dino wilma pebbles bamm-bamn/;
my $result=&which_element_is("dino", names);
sub which_element_is{
my($what, @array)=@_;
foreach (0..$#array){
if($what eq $array[$_]){
print "$_\n";
return $_;
}
}
print "99\n";
-1
}
print "$result\n"
...全文
请发表友善的回复…
发表回复
半吊子Py全栈工程师 2018-05-08
- 打赏
- 举报
你这是什么代码？？
