523066680

use utf8;
binmode(STDOUT, ":encoding(gbk)");

my $a="aA1一bB2二cC3三dD4四eE5五fF6六gG7七hH8八iI9九";
my @arr;
my $i = 0;
grep { $arr[($i++)%4].=$_ } split("", $a);
printf join("\n", @arr);
复制代码

abcdefghi
ABCDEFGHI
123456789
一二三四五六七八九

my $s="aA1一bB2二cC3三dD4四eE5五fF6六gG7七hH8八iI9九";
print ($s =~ /\d/g,     "\n");
print ($s =~ /[a-z]/g,  "\n");
print ($s =~ /[A-Z]/g,  "\n");
print ($s =~ /\p{han}/g,"\n");
复制代码

523066680

本来是要认真学python的，但是实在不习惯。或者说已经习惯了 {} ; 遂放弃，转Perl作为常用脚本。
但是Perl也是有些不爽的，主要就是反反复复的 $  ->  # % @，换一个语言，哦，这些都不要了，
简直轻松。(Larry Wall誓要把整个键盘都充分利用……)

之前看了《程序员的呐喊》，人家推荐ruby。

我玩了这么久还是在脚本的世界里，已经被C艹党喷得无处藏身了。

523066680

回复 5# 依山居

给亲戚打理生意，不让走。感觉跳了个大坑 =_=

523066680

回复 9# CrLf


    C# => C艹艹 => C++++