perl学习6-return操作符

最新推荐文章于 2023-08-14 11:01:00 发布
最新推荐文章于 2023-08-14 11:01:00 发布
阅读量74 收藏
点赞数
CC 4.0 BY-SA版权
原文链接：http://www.cnblogs.com/djcsch2001/archive/2011/04/24/2026187.html
本文介绍了一段Perl脚本，用于在数组中查找特定元素的位置。通过定义一个子函数`which_element_is`，用户可以轻松地确定数组中指定元素的索引。该脚本适用于初学者理解Perl编程语言的基本操作，如数组处理和条件判断。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

#!/usr/bin/perl -w
my @names=qw/ fred barney betty dino wilma pebbles bamm-bamm /;
my $result=&which_element_is("dino",@names);

sub which_element_is {
  my($what,@array)=@_;
  foreach (0..$#array) {
    if ($what eq $array[$_]) {
      return $_;
    }
  }

  -1；

}
print "The position is $result\n";

查找单词位于第几个(-1表示没有找到)

转载于:https://www.cnblogs.com/djcsch2001/archive/2011/04/24/2026187.html

Perl基础学习08之perl子程序subroutines，return函数
qq_21478261的博客
04-16 618
Perl中子程序定义、调用、参数传递及子程序中return函数使用。
perl学习笔记-----------------------（2）
WEL测试
09-28 606
1.Perl可以使用括号来改变优先级 2.对于数字的比较，Perl 提供了= != 这些操作符。每一种返回的值为true 或者false 3.对于字符串比较，Perl 有如下的一些有趣的字符串比较符：lt le eq ge gt ne。它们将一个字符接着一个字符的比较两个串来 判断它们的关系：相等，小于，等等。（注意，在ASCII 中，大写字母在小写字母的前面）。 4.if 控制结构 一
无涯教程-Perl - return函数
无涯教程
08-14 286
此函数在子例程,块或do函数的末尾返回EXPR。EXPR可以是标量,数组或哈希值；如果没有给出EXPR,则在列表context中返回一个空列表,在标量context中返回undef,在空context中不返回任何内容。无涯教程网提供描述此函数在子例程,块或do函数的末尾返回EXPR。EXPR可以是标量,数组或哈希值；此函数在标量context:列表中返回,可以解释为标量context,列表或voidcontext。Perl 中的 return函数 - 无涯教程网。以下是此函数的简单语法-
perl sub return 的作用
weixin_30851867的博客
07-06 563
test_1.pl #/usr/bin/perl -w use strict; print add(1,2),"\n"; sub add { my ($x,$y) = @_; return $x + $y; # When Perl reaches any return statement it will exit the subroutine at that point. ...
PERL子程序的调用与return操作符
dasgk的专栏
10-19 6022
先不说别的，先上代码 use strict; sub which_element_is() { my ($what,@array)=@_; foreach(0..$#array) { if($what eq  $array[$_]) { return $_; } } -1; } my @names=qw(fred betty dino wilma pebbles);
perl学习笔记-----------------------（4）
WEL测试
09-28 608
1.强制转换为标量Context 偶尔，你可能需要标量context 而Perl 期望的是列表。这种情况下，可以使用函数scalar。它不是一个真实的函数因为其仅 是告诉Perl 提供一个标量context： @rocks = qw(talc quartz jade obsidian); print “How many rocks do you have?\n”; print “I ha
perl学习笔记-----------------------（5）
WEL测试
09-28 609
1.如果编译器在调用之前知道此子程序的定义，或者Perl 从语法中能知道这是一个子程序调用，则子程序前的符号&是可以省略的 2.如果Perl 内部的编译器知道此子程序的定义，则可以省掉其参数的括号： sub division{ $_[0] / $_[1]; #第一个参数除以第二个参数 } my $quotient = division 355, 113; #可以省略掉括号 3.特别的地
Perl6中的函数式编程：自定义操作符与高阶函数
### Perl 6 中的函数式编程：自定义操作符与高阶函数 #### 1. 自定义操作符 在编程中，我们可以创建新的操作符或重新定义现有操作符以适应新的类型。操作符有多种类型，具体如下： - **前缀操作符**：一元操作符，...
perl学习源码
01-30
`s///`操作符用于替换匹配正则表达式的部分，`tr///`用于字符替换。 3. **哈希（Hash）操作**： Perl的哈希是一种关联数组，用花括号`{}`定义，键值对之间用逗号分隔。访问哈希元素使用`$hash{'key'}`，遍历哈希...
【perl】函數的參數變量和返回值
lbt_dvshare的博客
12-17 880
函數返回值 在Perl中，return语句可以返回一个标量值或者一个列表，这个标量值可以是一个变量，或者一个表达式的最后求值，如：return 1;<===>return(1); return $a+$b; <===>return($a+$b); 一个Perl函数的返回值，并不止一个，有时会有多个值需要返回，這時就要用到列表，这个列表可以包含多个变量值。 返...
perl return和break
weixin_30646505的博客
03-02 388
zjzc01:/root/test# cat a3.pl sub mask { my $n=shift; my $j =100; for ($i = 1;$i <= 5;$i++){ print "\$i is $i\n"; while ($n=$n+1) { $j+...
Perl 子程序（函数）
weixin_43664101的博客
06-29 1044
statements;
return 0和return 1和return -1的区别
qq_36545292的博客
10-31 2万+
1、返回值int 类型的函数返回： return语句用来结束循环，或返回一个函数的值。 return 0：一般用在主函数结束时，按照程序开发的一般惯例，表示成功完成本函数。 return -1：:表示返回一个代数值，一般用在子函数结尾。按照程序开发的一般惯例，表示该函数失败； 以上两个是约定俗成，系统提供的函数绝大部分定义为int类型返回值的都是这样的。返回值是返回给系统用的，给系统看得。一般做调...
Perl专题之函数（二）函数参数与返回值
加水石灰的专栏
11-30 2345
2.       函数的参数和返回值 2.1.基本用法 Perl中函数所有的参数作为一个标量列表传入，如果想函数传入数组或者散列，那么传入的数组或者散列的每个元素都会被放入这个标量列表中，在函数内部可以使用数组@_来获取传入的这些参数。注意，@_是一个本地变量，它的每一个元素都是实际参数的一个引用，所以，如果修改实际参数对应的@_中的元素就会修改实际参数，这种情况又一个例外，那就是散列。当传入
perl hash 按value/按keys 排序(多种方法)
热门推荐
bruce_wang_janet的专栏
02-04 3万+
use strict; my%hash=('a'=>2,'b'=>3,'c'=>1); foreachmy$key(sort{$hash{$b}$hash{$a}}keys%hash){     print$key,"=>",$hash{$key},"\n"; } perl中如何将按hash key值排序如果是按ASCII码排序，则代码如下： foreach my $key ( sor
转 Perl函数返回值用法指导
weixin_34293246的博客
06-03 403
http://developer.51cto.com/art/201007/213003.htm Perl函数返回值用法指导 Perl编程语言中Perl函数返回值用法你是否比较熟悉，这里向大家简单介绍一下，希望本文的介绍能让你有所收获欢迎大家一起来学习有关Perl语言的相关内容。 本文和大家重点讨论一下Perl函数返回值的概念，在Perl中，return语句...
perl中按hash值排序
weixin_34112181的博客
10-23 579
1、按ASCII码(字符串)排序，则代码如下：foreachmy$key(sort{$hash{$a}cmp$hash{$b}}keys%hash){ my$value=$hash{$key}; #dosomethingwith($key,$value) }2、按数字大小排列，则代码如下：foreachmy$key...
深入学习Perl语言：从入门到精通
- **上下文**：标量上下文与列表上下文的概念，影响某些操作符的行为。 #### 4. 子程序 - **子程序定义**：`sub subroutine_name { ... }`。 - **调用**：直接使用名称加括号调用，如`subroutine_name()`。 - **...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值