czpx.net
当前位置:首页 >> pErl如何打印数组中的一段 >>

pErl如何打印数组中的一段

#上面的写法可以@array=(1..50);print @array[30..50];#或者也可以这样:@array=(1..50);for $i (30..50) {print $array[$i];}

方法: my @array = (0, 1, 2, 3); print (“@array\n”); #输出有空格,如:0 1 2 3 print (@array, “\n”); #输出没空格,如:0123 哈希也可以用同样方法,如: my %hash = (); $hash{a} = ‘jeftom'; $hash{b} = ‘design'; print (%hash);

our @list=(); for($i=1;$i%2!=0 and $i

为了便于控制格式,对于一维数组,一般使用join为字符串打印,例如: print join(@a,'、');

具体函数我不清楚是否可以直接实现,但是可以通过变相实现。 #!/usr/bin/perl -w use strict; my $string = "China"; my @Array; for(my $i = 0; $i < length($string); $i++){ $Array[$i] = substr($string,$i,1); } for(my $i = 0; $i < @Arra...

可以试一下这几种方式,每种方式各有优劣: #!/bin/perl -w use strict; my @arr = ( "aaa","bbb","ccc","ddd","eee","fff"); # 这个是数组 my $vv = "ddd"; # 这个是要查找的变量 # 方法1,:使用类似c语言的风格,遍历这个数组,查找变量是否匹...

print join ',',@your_array;

my $str='dsfsfsf"DEV1234"dfsfsdfs"DEV232323" sfdasjklas“DEV32323”'; my @collector; my $cp = $str; $cp =~ s/(DEV\d+)/push @collector, $1/eg; print "@collector";

@m=([[1,2,3],[2,3,4]],[[1,5],[2,6]]); for $i(0..$#m) { for $j(0..$#{$m[$i]}) { for $k(0..$#{$m[$i][$j]}) { print $m[$i][$j][$k]," "; } } }

%kwhash; open(LIST,"List.txt"); while(){ chomp; $kwhash{$_} = 1 ; } close LIST; open(KW, "kwList.txt"); while(){ chomp; my ($name) = split/\,/,$_; #print $name; next if (exists $kwhash{$name}); print $name; print "\n"; } close ...

网站首页 | 网站地图
All rights reserved Powered by www.czpx.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com