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

pErl如何打印数组中的一段

方法: 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);

print join ',',@your_array;

Java代码 上面就是perl 输出数组的写法, 在这里数组中的每一项都是一个对象, Java代码

$" = "\n"; @arr = (1, 2, 3, 4, 5); open OUT, "> a.txt"; print OUT "@arr"; 数组内插时,分隔符默认$"的值,可以通过修改$"的值来修改如何分割

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

是不是要做该表中的第三四列的相互关联工作? 用hash,后面的代码文字说明如果唯一的话,用该列作key,前面的数字代码做value,一个文字说明,对应一个数字代码,有这样的对应关系,就可以用起来了。 或者直接split后,检测文字说明那一列是否有.

具体函数我不清楚是否可以直接实现,但是可以通过变相实现。 #!/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...

1234567name =['a1','a2','a3']seq=['seq11111','seqs22222','seq33333']f = open("F:/1.txt", "w+")f.write("name\tseq\n")for i in range(0, len(name)): f.write(name[i] + "\t" + seq[i] + "\n")f.close()

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

@ARGV就是这个作用啊 ./test.pl tom lee lucy @ARGV的内容就是 $ARGV[0] eq 'tom'...

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