#!/usr/bin/perl use strict; use warnings; # 定义数组和哈希 my @array = (1, 2, 3, 4, 5); my %hash = (key1 => 'value1', key2 => 'value2'); # 打印数组内容 print "Array contents: "; foreach my $element (@array) { print "$element "; } # 打印哈希内容 print ...
(one won); my @data2 = qw(two too to); push @data2, \@data1; push @data1, \@data2; # 将'[\@data1, \@data2]'冻结到文件中 nstore [\@data1, \@data2], './output/array.db'; # 从文件中恢复 my $array_all_ref = retrieve './output/array.db'; print Dumper($array_...
print ("element $count: $array[$count-1]n"); $count++; } 6、子数组 @array = (1, 2, 3, 4, 5); @subarray = @array[0,1]; # @subarray = (1, 2) @subarray2 = @array[1..3]; # @subarray2 = (2,3,4) @array[0,1] = ("string", 46); # @array =("string",46,3,...
几种情况:print$name(直接输出) ;print ‘$name’(基本不用,错误的,原样输出); print “$name”(有时会用,会自动替换); print 函数在做文件输入时(文件句柄),不能有逗号,只能用空格。 @_ 是函数传参时放置参数的数组,可以从中取实参;$_ 是默认参数的意思,指的是在不指定的情况下,程序处理的上一个变量...
my $_array_ref = ${$arrayarray_ref}[2]; print ${$_array_ref}[4]; 2测试方法 2.1看 2.1.1最简单最常用的方法:print函数 最常用的往往是最简单的,print函数即是如此。在指定位置添加print函数,输出需要查看的变量内容,能帮助我们解决大部分的调试需求。
语法解释:执行由$query指定的查询,并结合prepare()、execute()和fetchall_arrayref()返回结果。如果出现错误,则返回undef。 如果$query参数是以前准备的语句,则省略prepare()步骤。 @bind_values参数和do()方法中的该参数具有同样的意义。 比如: --- # fetch all rows into a reference to an array of referen...
> perl -MData::Dumper -e'print Dumper \@ARGV' $VAR1 = []; # print the @ARGV contents with arguments "a" and "b" > perl -MData::Dumper -e'print Dumper \@ARGV' a b $VAR1 = [ 'a', 'b' ]; # print the @ARGV contents with warnings on, and arguments "a" and "b" ...
$ary=[@myarray] #[]也可以创建一个数组的拷贝,并返回一个对它的匿名引用 $hsh={Na=>19,c1=>35}; #引用一个未命名散列 $hsh={%myhash}; #{}也可以创建一个散列的拷贝,并返回一个对它的匿名引用 $sub=sub{print $state};#引用一个未命名子例程 ...
This is great for matching an array of regexps that must have different modifiers: $pattern[0] = '(?i)doctor'; $pattern[1] = 'Johnson'; ... while (<>) { foreach $patt (@pattern) { print if /$patt/; } } The second advantage is that embedded modifiers (except "//p", which...
print; # prints contents of $_ by default(默认打印$_的内容) * 数组(Arrays) 数组用于表示一些值的列表: 1. my @animals = ("camel", "llama", "owl"); 2. my @numbers = (23, 42, 69); 3. my @mixed = ("camel", 42, 1.23); 特殊变量$#array将返回数组最后一个元素的索引: print ...