格式化字符串 求教

sunzhiguolu

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @aList = qw /id 13011994433 name baby age 27/;
   
7. my $sFmtStr = '{"%s":"%s","%s":"%s","%s":"%s"}%s';
   
8. printf ($sFmtStr,@aList,"\n");
   

复制代码

怎样可以快速的将数组 @aList 转换成 变量 $sFmtStr 这样的字符串. 谢谢大家...

sunzhiguolu

1. my $sStr = "@aList" =~ s/(\S+)\s+(\S+)([ \t]+)?/$3?sprintf ('"%s":"%s",',$1,$2):sprintf ('"%s":"%s"',$1,$2)/egr;
   
2. print "{",$sStr,"}\n";

复制代码

这种方式倒是可以, 就是感觉与直接使用 printf 进行打印 相比 没有变得简单. 大家有啥好方法吗?

sunzhiguolu

对于数组中的元素个数是有规律的, 如何可以快速的转换成指定格式的字符串啊. 然后用 printf 函数进行打印.
自己顶顶, 谢谢大家...

L_WC

回复 1# sunzhiguolu

1. 
   
2. my @aList = qw /id 13011994433 name baby age 27/;
   
3. 
   
4. my %hash = @aList;
   
5. my @list = ();
   
6. 
   
7. while(my ($key, $value) = each %hash){
   
8.         push @list, "$key : $value";
   
9. }
   
10. print join ',',@list;

复制代码

sunzhiguolu

回复 4# L_WC
非常感谢, 这种两两一对的元素要想变成指定格式的字符串还是比较麻烦.


   

L_WC

回复 5# sunzhiguolu

1. my @aList = qw /id 13011994433 name baby age 27/;
   
2. 
   
3. while(my @pair = splice(@aList,0,2)){
   
4.         printf("%s : %s", @pair);
   
5. }

复制代码

sunzhiguolu

回复 6# L_WC
其实我是希望得到这样一个结果:

{"id":"13011994433","name":"baby","age":"27"}

或者 根据数组自动生成一个可以用 printf 进行格式化的字符串也行.

   

L_WC

回复 7# sunzhiguolu

你写的这个不是可以吗
    #!/usr/bin/perl
use strict;
use warnings;

my @aList = qw /id 13011994433 name baby age 27/;
my $sFmtStr = '{"%s":"%s","%s":"%s","%s":"%s"}%s';
printf ($sFmtStr,@aList,"\n");

sunzhiguolu

回复 8# L_WC
数组中的元素如果多了就不是这个效果了, 一片乱糟糟的效果.

要是能够根据数组自动生成一个格式字符串就好了.

   

wyc198801wyc

printf "\"%s\""x@aList."\n",@aList;
类似这样的？