perl数组（perl怎么计算数组中相同数字的个数）

本文目录

• perl怎么计算数组中相同数字的个数
• PERL脚本语言的特征是什么
• perl的命名规范
• 解析Perl模式匹配中有哪些选项
• perl语言的变量以及异同
• perl中如何定义数组参数
• perl脚本 数组使用问题，求大神指导
• perl中数组最大能达到多大
• 怎么用perl 输出一个二维数组
• perl 数组的问题

perl怎么计算数组中相同数字的个数

while(){ chomp; unless(/^M/){ @tmp=split; $count{$tmp}++;##统计第一列数字个数 } } print “$count{1}\n“;##1的个数 你的代码没贴完 不知道到底是哪里。。

PERL脚本语言的特征是什么

Perl 最初的设计者为拉里·沃尔（Larry Wall），它于1987年12月18日发表。Perl借取了C、sed、awk、shell scripting以及很多其他程序语言的特性。　　Perl 一般被称为“实用报表提取语言”（PracticalExtraction andReportLanguage），虽然有时被称做“病态折中垃圾列表器”(PathologicallyEclectic Rubbish Lister)。它是术语，而不仅仅是简写，Perl的创造者，LarryWall提出第一个，但很快又扩展到第二个。那就是为什么“Perl”没有所有字母都大写。没必要争论那一个正确，Larry 两个都认可。　　你也可能看到“perl”，所有的字母都是小写的。一般，“Perl”，有大写的 P，是指语言本身，而“perl”，小写的 p，是指程序运行的解释器。　　　Perl 的特点　　Perl的解释程序是开放源码的免费软件，使用Perl不必担心费用。Perl能在绝大多数操作系统运行，可以方便地向不同操作系统迁移。　　Perl 是一种能完成任务的语言。从一开始，Perl 就设计成可以把简单工作简单化，同时又不失去处理困难问题能力的语言。它可以很容易操作数字，文本，文件和目录，计算机和网络，特别是程序的语言。这种语言应该很容易运行外部的程序并且扫描这些程序的输出获取感兴趣的东西。而且它还应该很容易能把这些你感兴趣的东西交给其它程序做特殊的处理。当然，这种语言还应该很容易在任何现代的操作系统上可以移植地编译和运行。　　Perl 基本语法　　标量定义，以$号开头，如：$num =1;　　数组定义，以@开头，如：@array = (1,2,3);　　数组元素调用 @array的值是1　　散列定义，以%开头，如：%hash=(“a“,1,“b“,2);　　散列调用 %hash，其中key表示键值，如上例，%hash{“b“}的值是1　　Perl 的哲学　　Perl追求的是简单, 解决一个一般的问题用它几行代码就完成了. 一个稍复杂一点的问题代码也不会超过一屏! 事实上, 大多数人用Perl写的程序大多都没超过100行.　　Perl 最初是当做一种 Unix 的胶水语言设计的，但是她早就移植到大多数其它操作系统里了。因为 Perl 几乎可以在任何地方运行，所以 Perl 可以说是当今最具有移植性的编程环境。要想写可移植的 C/C++ 程序，你得在程序里加上一大堆 #ifdef 标签来区分不同的系统。要想写可移植的 Java 程序，你必须理解每种新的 Java 实现的特质。要想写可移植的 　　shell，你可能要记住每条命令在每种操作系统上的语法，走运的时候你可能可以找到一些公共的东西。而要想写可移植的 Visual Basic 程序，那么你只需要对“移植”有个更灵活的定义就可以了。 　　我们很高兴的是 Perl 避免了所有这些问题，同时还保留了这些语言中的许多优点，同时还有一些自己的特色。Perl 的特色来自许多方面：它的特性集的工具，Perl 社区的创造性，以及开源运动的大环境。不过，许多这些特性都是混合的东西；Perl 的身世复杂，它总是把事物看成是优点的不同方面，而不是弱点。Perl 是“背黑锅我来”的语言。如果你觉得自己陷入一团乱麻之中，非常渴望自由，那么请使用 Perl。 　　Perl 是跨文化的。Perl 的爆炸性增长很大程度上是因为那些前 Unix 系统程序员的渴望，他们希望从他们的“老家”带着尽可能多的东西。对于他们而言，Perl 是可移植的 Unix 文化蒸馏器，是“此路不通“的沙漠中的绿洲。从另外一个角度来看，Perl 还可以从另外一个方向运转：在 Windows 上工作的 web 设计者通常会非常开心地发现他们的 Perl 程序可以不加修改地在 Unix 服务器上跑。 　　补充：更多知识 Web Hosting Talk 中文站

perl的命名规范

1 命名规则

1.1 文件命名

文件名称统一用英文字母（大小写）、数字和下划线的组合，长度一般不超过20个字符，文件命名体现功能的含义，正式发布版本不能加入作者信息。Perl Scripts 文件的扩展名必须是“.pl“，Perl Module文件的扩展名必须是“.pm“。

正确：

lucent_file_parser.pl

不是：

lucent_file.p

1.2 标识符

采用语法模板来定义标识符的名字，命名必须有一定的实际意义，由英文字母组成，中间可以根据语义的连续性，使用下划线连接。

1.2.1 变量

局部变量必须由小写字母和下划线组成，常量名必须由大写字母和下划线组成。由多个单词组成的名字里，使用下划线“_“把多个单词分开。全局变量以’g_’开头，其余部分的命名规则和局部变量相同。每个全局变量必须有注释说明其作用。

正确：

my $next_node;

不是：

my $node;

1.2.2 包和类

包、类的命名采用大小写混合、首字母大写的方法。

正确：

IO::Controller

1.2.3 标识符缩写

标识符缩写时要保留单词的开始字母，不是辅音字母的简写。

正确：

use List::Util qw( max );

DESC:

for my $desc (@orig_strs) {

my $len = length($desc);

next DESC if ($len > $UPPER_LIM);

$max_len = max($max_len, $len);

}

不是：

use List::Util qw( max );

DSCN:

for my $dscn (@rgnl_strgs) {

my $lngh = length $dscn;

next DSCN if $lngh > $UPPR_LMT;

$mx_lngh = max($mx_lngh, $lngh);

}

1.2.4 函数

由小写字母、下划线组成。

正确：

sub max

{

……

}

sub get_msc_name

{

……

}

不是：

sub getMscName

{

……

}

1.3 布尔类型

boolean类型的变量，或返回boolean类型的值的函数，在命名时要反映其属性，必须用is或者has开头。

正确：

sub is_valid;

sub is_metadata_available_for;

sub has_end_tag;

my $has_loading_finished;

my $has_found_bad_record;

# and later...

if (is_valid($next_record) && !$has_loading_finished) {

METADATA:

while (is_metadata_available_for($next_record)) {

push @metadata, get_metadata_for($next_record);

last METADATA if (has_end_tag($next_record));

}

}

else {

$has_found_bad_record = 1;

}

1.4 数组和哈希

数组类型的变量采用复数，hash类型的变量采用单数。要用undef显式释放变量空间。

正确：

my %option;

my %title_of;

my %count_for;

my %is_available;

# and later...

if ($option{’count_all’} && $title_of{$next_book} =~ m/$target/xms) {

$count_for{$next_book}++;

$is_available{$next_book} = 1;

}

my @events;

my @handlers;

my @unknowns;

# and later...

for my $event (@events) {

push @unknowns, grep { ! $_->handle($event) } @handlers;

}

print map { $_->err_msg } @unknowns;

2 注释

所有注释可用英文或中文书写，尽量使用英文注释。保持注释和代码的完全一致，修改程序时，必须修改相应的注释。注释的行数一般应在程序总行数的1/5到1/3。禁止出现错别字。注释应该语义明确，避免出现二义性。

2.1 文件头部注释

每个含有源代码的文件必须在文件开始有关于该文件的介绍性注释。其中列出文件名、创建者、创建日期、功能描述、版本信息、版权声明；如果对文件进行了修改，应该在文件头中说明修改人、修改日期、修改原因，并变更文件的版本信息，最新版本信息放到最前面。

格式为：

#*********************************************************

# FileName: lucent_file_parser.pl

# Creator: Phonix

# Create Time: 2006-01-09

# Description: This is the proof-of-concept code for the

# Windows denial-of-serice attack described by

# the Razor team (NTBugtraq, 19-May-00).

# CopyRight: Copyright © Bright Ocean Inter-Telecomm，All rights reserved.

# Revision: V1.0.0

# ModifyList:

# Revision: V1.1.1

# Modifier: Phonix

# ModifyTime: 2006-01-17

# ModifyReason: fix the bug of ……

#

# Revision: V1.1.0

# Modifier: Phonix

# ModifyTime: 2006-01-16

# ModifyReason: add mysql&oracle db support

#*********************************************************

不是简单的:

#========================================

#Created By:Phonix

#Created Time: 2006-01-09

#Modified Time: 2006-01-17

#========================================

2.2 文件中注释

建议在文件中标识出修改部分的起止位置。

正确：

# add mysql&oracle db support begin

……

# add mysql&oracle db support end

2.3 函数注释

在每个函数前必须写描述性注释。说明这个函数的功能、参数和函数的返回值。

格式为：

#*******************************************************************

# Function Name: calc_time($datetime, $delta)

# Description: This function calculate the new datetime.

# Parameters:

# 1. $datetime is the base time, taking the format of ’yyyy-mm-dd hh:mm:ss’

# 2. $delta is the time which should be add to the $datetime. A positive value increase the time

# while the negative vale decrease the time

# Return:

# A new time string is returned, also taking the format of ’yyyy-mm-dd hh:mm:ss’

#*********************************************************************

不是简单的:

##########################################

#function name : get_ldap

#desc : get config info from ldap server

##########################################

2.4 程序块注释

程序块注释用于说明程序中的关键算法、使用某种技巧的代码以及修改、测试、阅读时必须加以注意的代码。

格式为：

#*********************************************************************

#注释内容

#......

#......

#********************************************************************

2.5 语句注释

用于对特定程序语句进行说明，建议采取在语句行末尾说明的方法，同时注释换行后也要对齐。格式为：

my @names = (

’Damian’, # Primary key

# the key is

’Matthew’, # Disambiguator

’Conway’, # General class or category

);

3 代码布局

3.1 括号

建议括号、插入语可以采用两种方式之一，但是在一个程序里选定那种方式之后，那么要至始至终保持一致。

3.1.1 方式一

采用K&R风格。

格式为：

my @names = (

’Damian’, # Primary key

’Matthew’, # Disambiguator

’Conway’, # General class or category

);

for my $name (@names) {

for my $word ( anagrams_of(lc $name) ) {

print “$word\n“;

}

}

3.1.2 方式二

括号对{}对必须位于同一列，独占一行，并且和{}之外的语句行对齐

my @names =

(

’Damian’, # Primary key

’Matthew’, # Disambiguator

’Conway’, # General class or category

);

for my $name (@names)

{

for my $word (anagrams_of(lc $name))

{

print “$word\n“;

}

}

3.2 关键字

把关键字和其他的内容分开，关键字if, while, for,else…后面必须接一个空格。if和while语句必须使用’{‘和’}’括起语句体，即使只有一行代码。建议不使用单行的if语句。

正确：

for my $result (@results) {

print_sep( );

print $result;

}

while ($min < $max) {

my $try = ($max - $min) / 2;

if ($value < $target) {

$max = $try;

}

else {

$min = $try;

}

}

if ($condition){

$i++;

}

不是：

for(@results) {

print_sep( );

print;

}

while($min < $max) {

my $try = ($max - $min) / 2;

if($value < $target) {

$max = $try;

}

else{

$min = $try;

}

}

if($condition) {$i++;}

3.3 子程序和变量

不要把子程序或变量和其后的括号部分分开。

正确：

my @candidates = get_candidates($marker);

CANDIDATE:

for my $i (0..$#candidates) {

next CANDIDATE if open_region($i);

$candidates

= $incumbent{ $candidates{region} };

}

不是：

my @candidates = get_candidates ($marker);

CANDIDATE:

for my $i (0..$#candidates) {

next CANDIDATE if open_region ($i);

$candidates

= $incumbent {$candidates {region}};

}

3.4 代码缩排

缩进采用四个空格，或一个TAB（1 TAB 设置成四个空格）。

3.5 代码块

不要把两句话放在一行，每行只能写一个语句。

正确：

while (my $record = <$inventory_file>) {

chomp $record;

next RECORD if $record eq $EMPTY_STR;

my @fields = split $FIELD_SEPARATOR, $record;

update_sales(\@fields);

$count++;

}

不是：

while (my $record = <$inventory_file>) {

chomp $record; next RECORD if $record eq $EMPTY_STR;

my @fields = split $FIELD_SEPARATOR, $record; update_sales(\@fields);$count++;

}

3.6 代码长度

每个函数体的语句行不能超过100行（不包括注释，一个分号算一行）。每行长度不要超过78个字符，超过该长度时，必须考虑换行，从低优先级的操作符处分割长表达式, 在赋值符前断开长的语句。

正确：

push (@steps, $steps

+ $radial_velocity * $elapsed_time

+ $orbital_velocity * ($phase + $phase_shift)

- $DRAG_COEFF * $altitude);

$predicted_val = $average + $predicted_change * $fudge_factor;

不是：

push (@steps, $steps + $radial_velocity

* $elapsed_time + $orbital_velocity

* ($phase + $phase_shift) - $DRAG_COEFF

* $altitude);

$predicted_val = $average

+ $predicted_change * $fudge_factor;

3.7 操作符

二元运算符（算术运算符, 赋值运算符等）的两边都要接空格，低级操作符（如：+-）两边各有两个空格，高级操作符（如：*%）两边各有一个空格。

在运算符’->’两边不要使用空格，在一元操作符和操作数两边不要使用空格。

可以使用括号来表示运算的先后顺序。

正确：

my $displacement

= $initial_velocity * $time + 0.5 * $acceleration * $time**2;

my $price

= $coupon_paid * $exp_rate + ($face_val + $coupon_paid) * $exp_rate**2;

不是：

my $displacement=$initial_velocity*$time+0.5*$acceleration*$time**2;

my $price=$coupon_paid*$exp_rate+(($face_val+$coupon_val)*$exp_rate**2);

3.8 语句结束符

在每个语句后边要填加分号。

正确：

while (my $line = <>) {

chomp $line;

if ( $line =~ s{\A (\s*) -- (.*)}{$1#$2}xms ) {

push @comments, $2;

}

print $line;

}

3.9 代码排列

数组或Hash的赋值采用垂直排列。

正确：

my @months = qw(

January February March

April May June

July August September

October November December

);

my %expansion_of = (

q{it’s} => q{it is},

q{we’re} => q{we are},

q{didn’t} => q{did not},

q{must’ve} => q{must have},

q{I’ll} => q{I will},

);

不是：

my @months = qw(

January February March April May June July August September

October November December

);

my %expansion_of = (

q{it’s} => q{it is}, q{we’re} => q{we are}, q{didn’t} => q{did not},

q{must’ve} => q{must have}, q{I’ll} => q{I will},

);

3.10 非末端表达式

采用中间变量代替长表达式。

正确：

my $next_step = $steps

+ $radial_velocity * $elapsed_time

+ $orbital_velocity * ($phase + $phase_shift)

- $DRAG_COEFF * $altitude

;

add_step( \@steps, $next_step, $elapsed_time);

不是:

add_step( \@steps, $steps

+ $radial_velocity * $elapsed_time

+ $orbital_velocity * ($phase + $phase_shift)

- $DRAG_COEFF * $altitude

, $elapsed_time);

3.11 功能块顺序

在每个Perl Scripts中，每个功能块之间必须有一个空行。主程序为main()函数，功能块出现顺序如下：

use modules;

global variable 定义

main定义

sub routine 定义

4 数值和表达式

4.1 字符串界定符

需要用变量替换的字符串用双引号，否则用单引号。

正确：

my $spam_name = “$title $first_name $surname“;

my $pay_rate = “$minimal for maximal work“;

my $spam_name = ’Dr Lawrence Mwalle’;

my $pay_rate = ’$minimal for maximal work’;

4.2 常量

使用字符常量，而不要直接用数值。

正确：

use Readonly;

Readonly my $MOLYBDENUM_ATOMIC_NUMBER => 42;

# and later...

print $count * $MOLYBDENUM_ATOMIC_NUMBER;

不是：

print $count * 42;

4.3 字符串

4.3.1 两行

对于两行的字符串，要用“.”进行连接。

正确：

$usage = “Usage: $0 \n“

. “(Use -full option for full dump)\n“;

不是：

$usage = “Usage: $0

(Use -full option for full dump)“;

4.3.2 多于两行

对于多于两行，要采用如下格式：

正确：

$usage = <<“END_USAGE“;

Usage: $0

Options:

-full : produce a full dump

-o : dump in octal

-beans : source is Java

END_USAGE

不是:

$usage = “Usage: $0 \n“

. “Options:\n“

. “ -full : produce a full dump\n“

. “ -o : dump in octal\n“

. “ -beans : source is Java\n“

;

4.4 哈希变量

Hash变量的定义采用双箭头(=>)方式。

正确：

%default_service_record = (

name=> ’’,

rank=> ’Recruit’,

serial=> undef,

unit=> ,

duty=> ,

);

不是：

%default_service_record = (

’name’, ’’,

’rank’, ’Recruit’,

’serial’, undef,

’unit’, ,

’duty’, ,

);

5 函数

5.1 调用语法

调用时要使用圆括号，不管是否有参数。

正确：

fix();

coerce($input, $INTEGER, $ROUND_ZERO);

不是:

fix;

5.2 函数返回

在函数中要进行显式的return返回。

正确：

sub set_terseness {

my ($terseness) = @_;

my $default_terseness = $terseness;

return; # Explicitly return nothing meaningful

}

不是:

sub set_terseness {

my ($terseness) = @_;

my $default_terseness = $terseness;

}

6 编程惯例

6.1 使用use strict

所有Perl Scripts 文件中必须在开始使用“use strict;”，进行严格的语法检查，便于查找错误。

6.2 避免使用内部变量名称

避免使用Perl内部变量。使用“use English;”装入Perl内部变量的符号名称。使用my来限定变量的作用域。下面是一些Perl内部变量名称的对应关系。

$_ $ARG

@_ @ARG

$! $ERRNO

$? $CHILD_ERROR

$$ $PID

$0 $PROGRAM_NAME

$. $INPUT_LINE_NUMBER

$| $OUTPUT_AUTOFLUSH

$@ $EVEL_ERROR

$& $MATCH

$` $PREMATCH

$’ $POSTMATCH

$+ $LAST_PAREN_MATCH

$/ $RS

$\ $ORS

$< $UID

$> $EUID

$( $GID

$) $EGID

$] $PERL_VERSION

$? $CHILD_ERROR

6.3 避免使用goto

避免使用goto语句（只有在从多重循环的内部跳出时才可以使用）。除非能够特别有效的增加程序的效率并且不影响程序良好结构的特殊情况。

6.4 语法检查（辅助工具）

使用-cw选项检查Perl程序的语法。

正确：

perl -cw -Mdiagnostics file.pl # check syntax with warnings on

nt; # Perl 5.004_04, define constants

use Env; # instead of $ENV{’HOME’}; Shortens the usage, but do not

# mix normal variables

# with environment variables.

6.5 use Carp; # For modules: 使用标准模块

尽量使用标准库函数、公共函数和开发库中已有的函数和模块，使用FileHandle模块来处理文件的读写。尽量使用以下的标准Perl模块：

use strict; # helps you to locate syntax errors or uncertainties.

use integer; # if you don’t need floating point math，it will speed Perl up.

use constagives you `carp’ and `croak’

use English; # gives symbolic names, like $! ==> $ERRNO

use Getopt::Long; # --posix command line option handling

use Cwd; # platform independent cwd()

use File::Basename; # don’t invent your own wheel of this.

use File::Find; # don’t use system(“find . -name ...“)...

use File::copy; # don’t use system(“cp this that“);

use File::patch; # instead of system(“mkdir“);

use File::stat; # readable: $st = stat($file), $st->mode

use DirHandle; # OO form of `readdir’

use Text::Tabs # un/expand tabs in text

use Text::ParseWords; # Parse text into tokens, understands embedded

# quotes. @a = “ewords(““, 0, $_);

# a+b, “a b“ + c

use Socket; # socket handling

use Sys::Hostname; # don’t invent your own wheel

use Net::Ping # unix ping, check if host is online

use Time::Local # time manipulations

6.6 其他

1、编码、测试、注释，是程序员的三项基本工作，它们是同等重要的。

2、可靠性第一，可读性第二，效率第三。只有在极个别必须强调效率的部分，可以是可靠性第一，效率第二，可读性第三。

3、首先是正确，其次是优美。

4、无法证明你的程序没有错误。因此，在新编写完一段程序后，应该测试通过后再继续编码。

5、改正一个错误的同时，可能会引起新的错误。因此，在修改bug前，首先考虑对其他程序的影响。修改后，应该对程序进行完整的测试，而不是只对修改部分进行测试。

6、避免使用很多个参数的函数。

7、函数应该只有一个出口。

8、循环应该只有一个出口，避免多个出口。

9、尽量避免使用全局变量。

10、在尽可能小的作用域内定义和使用变量。

11、使用括号，表达复杂表达式中的操作符的优先顺序。

12、循环、分支不要超过五个层次。

13、循环、分支等语句后，即使只有一行代码时，也要使用{}将其括起来。

14、禁止else goto和else return。

15、重复使用的、完成相对独立功能的算法、代码，应该抽象为公共模块。

解析Perl模式匹配中有哪些选项

/]*)>/中的符号不是模式匹配的元字符，没有特殊意义，只是匹配符号split函数是perl语言借鉴java.lang包中有String.split()方法split(separator,$word)；separator 参数，字符串或正则表达式，从该参数指定的地方分割 $word。 返回值

1、一个字符串数组。该数组是通过在 separator 指定的边界处将字符串 $word分割成子串创建的。返回的数组中的字串不包括 separator 自身。

2、但是，如果 separator 是包含子表达式的正则表达式，那么返回的数组中包括与这些子表达式匹配的字串（但不包括与整个正则表达式匹配的文本）。例如本题中/]*)>/返回（）中匹配的内容：tag1 tags /tag1 b /b。（）是必需的，（）里面匹配的内容作为返回值。参考资料：在列表上下文中,匹配运算符返回括号中匹配的表达式的各个部分的一个列表。每个加括号的值都是列表的返回值,如果模式不包含括号,则返回 1。请看下面这个例子: $_=“apple is red“;($fruit,$color)=/(.*)\sis\s(.*)/;在上面这个代码段中,该模式先对任意对象(作为一个组)进行匹配,然后对白空间进行匹配,再对单词 i s 进 行 匹 配 , 然 后 匹 配 更 多 的 白 空 间 , 再 对 任 意 对 象 ( 也 作 为 一 个 组 ) 进 行匹配。这两个分组的表达式返回左边的列表,并赋予 $ f r u i t 和 $ c o l o r 。

perl语言的变量以及异同

(1,2,3,4,5,6,7,8,9,10)——前面这个就叫列表，其实就是指一个集合，你可以想象多个物体堆在一起！
Array = （1，2，3，4，5，6，7，8，9，10）——前面的Array就是数组！其实他是代指列表，相当于一一个个体的身份代表一个集合体！
把数组的元素列出来构成一个集合就是列表，把列表用一个东西来代表，这个代表就是数组！
不知LZ是否明白？

perl中如何定义数组参数

PERL的参数可以使用数组，调用的时候要在%或者@前面加上\，否则就把数组的值传递给函数了，下面是调用的例子：
Run(\%o, $ch, $num);
这个函数Run使用三个参数，第一个是数组类型，函数定义就没什么特殊的：
sub Run {
my($o, $ch, $num) = @_;
my $th = IO::Socket::INET-》new(’PeerAddr’ =》 $o-》{’tohost’}, ’PeerPort’ =》 $o-》{’toport’});
my $read_counter=0;
}
补充：
你的问题我以为是问PERL函数的参数。
PERL使用下面的变量获取命令行参数：$#ARGV表示参数的个数，$ARGV……依次表示各个参数

perl脚本 数组使用问题，求大神指导

当 @array 独立地存在於一个表达式 (expression) 的时间, 他的身份是 “数组“, 那就是 56789

当 @array 在一个表达式中与其他“东西“一起操作时, 他的身份是 “有几个元素“ .

这是... Perl 语言的文法.

其实两样都是很常用的技巧, 如果要做到你想要的效果, 你该写成

print “@arry\n“;

另一个情况是, 比如我们要检查一个 sub 有没有足够的参数, 很多时就会写成 :

sub test {
    if ( @_ 《 2 ) { 
        print “Not enough argument“;
        return
    }
    else {
        print “OK“
    }
}
test ( “Hello“ ) ; # Not enough argument
test ( “Hello“, “World“ ) ; # OK

perl中数组最大能达到多大

理论上, perl 数组可以有 2,147,483,648 (2**31) 个元素为上限. 然後就看您有多少内存了! 每个元素的指针会吃掉 4 byte 的记忆体, 再乘以您每个元素的资料, 就是这个数组会吃掉的记忆体. 简言之, 够您用了!

怎么用perl 输出一个二维数组

可以用一个foreach语句输出二维数组

例如二维数组：@arr=（,
                        ,
                        ,
                        ,);

foreach (@arr){
print join(’ ’, @$_), “\n“;
}

perl 数组的问题

数组的下标从0开始，$#array是一个特殊的变量，它的值就是数组array的最后的元素的下标，假设array有3个值，最后的下标就是2（依次是0、1、2），假设你的数组名字为@HHH,最后的索引就是$#HHH.
负值索引就是从后面依次取数组的索引，依次是（-1,-2,-3,-4,...），就是为了让你方便从数组里面取出值来用的。这样用数组实现一个栈就很容易了。例子你看楼上的就明白了。