Perl_子程序数据传入传出_哈希

最新推荐文章于 2024-07-15 22:13:36 发布
最新推荐文章于 2024-07-15 22:13:36 发布
阅读量1.7k 收藏
点赞数 1
分类专栏： Perl技巧 文章标签： perl
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/BBka_717/article/details/7975794
版权
本文介绍了两种在Perl子程序中处理哈希的方法：一是将哈希转换为数组进行比较；二是直接传入哈希并进行后续处理。示例代码包括了哈希比较的子程序和哈希操作的子程序。
摘要由CSDN通过智能技术生成

Perl_子程序数据传入传出_哈希


第一种方法，传入哈希，哈希转数组，然后进行后面的处理。

下面这个是网上别人的一个子程序，直接拿来用了

use Array::Compare;
sub hashcompare {
    my @hasharray=@_;
    my @array1=%{$hasharray[0]};
    my @array2=%{$hasharray[1]};
    my $comp = Array::Compare->new;
    $comp->compare(\@array1, \@array2);
}

if (hashcompare(\%new,\%old))

{
    print “Same\n";

}else{

最低0.47元/天 解锁文章
BBka_717
关注
专栏目录
在Perl里 对象就是hash引用
zhaoyangjian724的专栏
01-14 807
在Perl里,对象就是对象就是一个hash引用
如何在perl子函数中传递hash
snlying的专栏
03-11 7638
 一。如果是只有一个参数要传，且是hash，最直接想到的办法就是像传其他类型参数一样直接传，如:  %relhash = count_word(%relhash);但是：1、too expensive 2、如果有超过一个参数要传，而把hash放到最前面，结果在子函数中会合并到第一个hash上面去，如：%relhash = count_word($filename
perl hash 常见用法
diana_cherry的专栏
12-09 1003
基本用法# 初始化 %h为空数组%h={};# 用数组初始化%h为 a=>1, b=>2%h=('a',1,'b',2);# 意义同上，只是另一种更形象化的写法。%h=('a'=>1,'b'=>2);#如果key是字符串，可以省略引号。下面这行和上面那行是一样的%h=( a=>1, b=>2);# 用{}来访问print"$h{ a}/n";# 打印1$h{ b}='2b';print"$h{ b}/n";# 打印2b# 删除key用deletedelete$h{ b};# 从$h删除'b'清
Perl 子程序（函数）
weixin_43664101的博客
06-29 757
statements;
perl返回哈希和的键和值
bangherui6508的博客
09-01 645
#!/usr/bin/perl#!/usr/bin/perl %data = ('google'=>'google.com', 'runoob'=>'runoob.com', 'taobao'=>'taobao.com'); @names = keys %data;#该函数返回所有哈希的所有key的数组 #注意是数组print "$names[0]\n";print ...
Perl子程序
追梦赤子心
11-30 808
Perl子程序 1. 子程序的基本属性 1.1 子程序的定义 要定义子程序，首先要以关键字 sub 开头，再加上子程序名，花括号，花括号中包含的是函数的主体。 子程序可以被定义在程序的任意位置；不需要对子程序进行事先声明； 子程序是全局的，如果定义了两个重名的子程序，后面的子程序会覆盖前面的那个； #a simple subroutine sub marine{ $n += 1; prin...
13. Perl 自定义函数(子程序)
Java 程序源
08-27 8196
perl 语言支持自定义函数, 通过自定义函数, 我们可以重复利用已有代码, 提供工作效率, 简短代码行数.我们可以封装一些常用的方法存储起来, 以后需要用到的时候,直接拿来用就行了, 不用再重复开发了. 1. perl 函数特点 函数定义使用关键字 sub + 函数名 函数调用使用关键字 & + 函数名 函数参数为一个无限制长度的列表直接量 函数都有一个返回值, 为一个无限制的列表直接...
Linux工具应用_PERL
最新发布
qq_39355579的博客
07-15 550
perl脚本是当前工作中最常用的脚本，还是先熟练掌握之后再看其他
PERL6学习教程
12-22
- 数组、哈希和代码传递：子程序可以接受这些类型的参数，并且可以对它们进行特殊处理。 - 可选参数与必填参数：允许子程序具有可选参数和必填参数。 - 命名参数：通过关键字传递参数，使调用更清晰。 - 滑动...
hash 在 perl 中的用法
frt007的专栏
11-19 2055
Perl的数据结构中最有趣的一个特性是哈希（hash），它使得在数据片段之间建立键-值（key-value）关联成为可能。虽然这些哈希要远远比普通系统中以数字索引的数组用途更广，但是往往也会使初学者不知所措。这就是要写本篇文章的原因所在??它将告诉你如何创建Perl的哈希，如何插入、删除要素，以及如何创建嵌套哈希和利用循环来处理哈希。 1）定义哈希 首先，什么是哈希？ 从本质上来
perl学习第二篇：将数据转为哈希列表，再排序输出（菜鸟练习总结）
qq_41022608的博客
07-29 767
这是第二篇文章，慢慢总结学习的perl语言 这个程序就是把DATA里面的内容先分割，再存入哈希列表中，在利用哈希的key和value进行排序输出。 #!/usr/bin/perl use warnings; use strict; undef $/; my $file = <DATA>; my @a = split(m/^A\d\d\d/m, $file); shift @a; my ...
【perl脚本】多维HASH的一些使用总结
moon9999的博客
12-13 3317
前言 今天就没有人能阻止我成为一名脚本工程师了！ 学会使用多维hash是我perl一级菜鸟进化成二级菜鸟的标志事件，目前等第二个标志事件已经等了一年半，还没有等到。因此我觉得还是把多维hash一些小事总结下好了。 正文 赋值 一维hash的赋值方式多种多样，而多维hash我一般就乖乖使用最基本的单点赋值方式，绝对不浪： my %my_hash; my $sig1 = "amod_bmod_awsize"; my $sig2 = "bmod_amod_bresp"; $my_hash{$sig
[Perl]Perl哈希（Hash）的语法及应用
元直的博客
05-15 1915
1、在用Script Parse文件的過程中，構建一個好的數據結構是非常重要的。只有前期的數據結構建的好，才能的開發和維護才能得心應手。本文主要介紹二維Hash的構建以及Access。 2、所謂的二維Hash，就是在Hash裡面存放Hash，key <=> value對中的value是Hash，如： my %hash; my %sub_hash; $sub_hash{"id"}...
perl哈希要点，哈希与数组的关系以及相互转化，哈希结构的转化（键值转换），测试关键字，
GRC
10-19 7385
use strict; use warnings; my %movies; my $film; my %reverse_result; my $director; my @data; %movies = ( 'The Shining' => 'Kubrick', 'Ten Commandments' => 'DeMille', 'Goonies' =>
perl---(数组和哈希)引用
热门推荐
Lynn.Zhou的专栏
09-01 2万+
谁需要复杂的数据结构? 始终伴随着Perl 4的一个问题是怎么样来描述一个值是列表的哈希表。Perl 4 有哈希但是它的值必须是标量，不能是列表。 你为什么需要一个列表的哈希结构呢？让我们来看一个简单的例子：你有一个包含城市和国家名称的文件，如下：         Chicago, USA         Frankfurt, Germany         Berlin, Germany    
perl方法传递hash参数
05-07 1592
perl基础：传递hash类型参数 1 如果是只有一个参数要传，且是hash，最直接想到的办法就是像传其他类型参数一样直接传， 如:   subFuntion(%hash1); 2 如果有多于一个参数要传，这里假设只有一个参数的类型是hash的，并把hash放到最前面， 如: subFuntion(%hash1, $var2); 这样做结果是错误的，结果是子函数把第2个参数$var2 合并到第
perl中子程序中参数的两种引用（传递）方式：pass by value and pass by Reference(传入引用）
GRC
09-27 3558
这里主要讨论的是当你要传递的参数不是仅仅一个的时候，也就是两个以上，并且他们数据的类型还不一致的时候，我们要遇到的问题： 下面是一个例子： use strict; #这里是两个数组 my @i =('1','2','3'); my @j =('a','b','c'); #在进行处理之前，我们把他们先打印出来，看一看他们的样子 print "In main program bef
perl 哈希作为参数实例
MyDriverC
11-20 2608
http://blog.sina.com.cn/s/blog_6436b8ec0100pu6a.html #!/use/bin/perl use strict;   sub changehash{         my (%local_hash) = @_;         $local_hash{mammal} = 'bear';         return;
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值