xxsr.net
当前位置:首页 >> pErl中如何将数组中元素转化成一个字符串 >>

pErl中如何将数组中元素转化成一个字符串

@a = ('P','e','r','l'); $s = join('',@a); print $s;

$b = [@a]; push @$b, shift @a while @a; 顺便说两句: 这不叫字符串多值, 这叫 Array Reference (数组引用, 引用数组 ... ) Perl 不会将 string 当成 char array 的. perl 没有 char 这种变量形态 如可以, 请避用 $a $b (或 @a @b ) , 这两个变...

my $a= "a,b,c";my @d= split ',', $a; 补充:Perl 最初的设计者为拉里·沃尔(Larry Wall),他于1987年12月18日发表。Perl借取了C、sed、awk、shell scripting以及很多其他程序语言的特性。其中最重要的特性是它内部集成了正则表达式的功能,以及...

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

local $/ = undef; $contents = ;@a = split /\s+/,$contents;while($i < $#a) { push @b,join(' ',@a[$i..$i+19]); $i+=20 }use Tie::File;tie @b,'Tie::File', 'output.txt' or die;untie @b;

$path='C:\Users\' ; #路径opendir D1, "$path" or die $!; @array=grep(!/\.\.?$/, readdir D1); print @array;

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

PHP 中的 serialize() 函数可以实现 (PHP数组序列化函数) string serialize ( mixed $value ) serialize() 返回字符串,此字符串包含了表示 value 的字节流,可以存储于任何地方。 这有利于存储或传递 PHP 的值,同时不丢失其类型和结构。 想...

少侠,你的数组定义有问题,应该是y @a=("a","b","c");和@b=("a","d","e","f"); 其他的好像没什么问题 望采纳 具体代码如下: use strict; my @a=("a","b","c"); my @b=("a","d","e","f"); print "@a\n"; foreach my $a(@a) { foreach my $...

$hash{$_} = "Key is $_" foreach @array;

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