perl
关注
分享
扫一扫
手软脚软
这个作者很懒，什么都没留下…
展开
专栏收录文章
- 默认排序
- 最新发布
- 最早发布
- 最多阅读
- 最少阅读
-
Perl的那些技巧：使用strict、warnings发现问题
使用Perl的技巧原创 2013-11-17 14:14:43 · 1569 阅读 · 0 评论 -
Perl的那些技巧：为数组元素加双引号
转载请注明出处为数组元素加双引号想要将一个数组的所有项都用引号括起来并输出，我们可以用下面的方法：my @array = qw(A B C);print join(' ', map { qq/"$_"/ } @array);上面的方法可以满足需求，但是代码看起来挺繁琐的，如何更优雅。使用map:my @array = qw(A B C);print "\"".j原创 2013-11-22 21:18:41 · 2958 阅读 · 0 评论 -
Perl的那些技巧：平均切割数组
有些时候需要将数组分成长度相同的多个子数组，比如批量查询数据库。这时，我们可以用splice完成这个功能。代码如下： #!/usr/bin/env perluse strict;use warnings;my @chunks;my $size = 10;my @array = (1..100);push @chunks, [splice(@array, 0, $size)]原创 2013-11-30 11:42:12 · 1255 阅读 · 0 评论