为了账号安全,请及时绑定邮箱和手机立即绑定

perl变量做为数组名怎样写?

perl变量做为数组名怎样写?

繁花不似锦 2019-04-12 11:06:12
perl变量做为数组名怎样写?
查看完整描述

4 回答

?
MYYA

TA贡献1868条经验 获得超4个赞

1. @{....}[...] 先不论这里有没有写错, 但这种表达方式, 

以 @ 开头, 头面有 [ ] , 我们叫 array slice 是应该放在等号右手边的

1

2

3

4

5

@arr0 = (0..10)

@arr1 = @arr0[1..2]; # @arr1 = 1, 2

 

$x = [ 1..10 ];

@y = @{$x}[1,2]; # @y = 1, 2

这里你放到了左手边, 自然就不对了

2. 然後, @{line.... 这里就少了个 $ 应该写成 @{$line ....

3. 最後, 我想你真正想做到的效果应该是

1

2

3

$line->[$j][$i] = $eachline; # Array of Array

#又或者

$line->{$j}[$i] = $eachline; # Hash of Array

 


查看完整回答
反对 回复 2019-04-13
?
慕盖茨4494581

TA贡献1850条经验 获得超11个赞

#! /usr/bin/perl
use strict;
use warnings;

my @array = (0 .. 9);
my $tmp = 10;
print "@array\n";
push(@array,$tmp);
print "@array\n";
@array = $tmp + 1;
print "@array\n";

-------------------------------------------------
输出:
C:\Users\Hunter\Documents\Perl>perl 17.pl
0 1 2 3 4 5 6 7 8 9
0 1 2 3 4 5 6 7 8 9 10
11

C:\Users\Hunter\Documents\Perl>

查看完整回答
反对 回复 2019-04-13
?
慕妹3146593

TA贡献1820条经验 获得超9个赞

可以试一下这几种方式,每种方式各有优劣:

#!/bin/perl -w
use strict;
my @arr = ( "aaa","bbb","ccc","ddd","eee","fff"); # 这个是数组
my $vv = "ddd"; # 这个是要查找的变量

# 方法1,:使用类似c语言的风格,遍历这个数组,查找变量是否匹配。
foreach ( @arr)
{
if( $vv eq $_ )
{
print "$vv\n"
}
}

#方法2:使用map,查找数组中是否含有该变量
map { if($vv eq $_) { print "$vv\n"} } @arr;

#方法3:使用grep,查找数组中是否含有该变量
print( grep /^$vv$/, @arr );




查看完整回答
反对 回复 2019-04-13
?
慕慕森

TA贡献1856条经验 获得超17个赞

my @m=(0,1);
$m[0]=1;指定位置1 0 1
push @m,2;尾部添加1 0 1 2
unshift @m,3;头部添加3 1 0 1 2
$m[1..3]=(3,5,8);多位置修改3 3 5 8 2
splice将制定位置移除并可进行替换

查看完整回答
反对 回复 2019-04-13
  • 4 回答
  • 0 关注
  • 1212 浏览

添加回答

举报

0/150
提交
取消
意见反馈 帮助中心 APP下载
官方微信