37,719
社区成员
发帖
与我相关
我的任务
分享
perl -le '$str="4EA11802"; while($str=~/../g){push @array,$&};print $_ foreach @array'
4E
A1
18
02
perl -le '$str="4EA11802"; map{push @array,(split //,$str)[2*$_].(split //,$str)[2*$_+1]} (0..length($str)/2-1);print $_ foreach @array'
4E
A1
18
02
#!/usr/bin/perl -w
use strict;
print "$_\n" for grep{$_}split /(..)/,'ABCDEFGH';
def slpitc(s,count):
return [s[i:i+2] for i in range(0,len(s),count)]
def splitCount(s, count):
return [''.join(x) for x in zip(*[list(s[z::count]) for z in range(count)])]
def slpitc(s,count):
return [s[i:i+2] for i in range(0,len(s),c)]
@x = '4EA11802' =~ /../g;
perl -e 'print "$1\n" while("4EA11802"=~/(\w{2})/g)'
s = '4EA11802'
list = [ s[i:i+2] for i in range(0,len(s),2) ]
>>> def splitCount(s, count):
... return [''.join(x) for x in zip(*[list(s[z::count]) for z in range(count)])]
...
>>> c
'4EA11802'
>>> splitCount(c,2)
['4E', 'A1', '18', '02']
>>> def split_len(seq, length):
... return [seq[i:i+length] for i in range(0, len(seq), length)]
...
>>> split_len(c,2)
['4E', 'A1', '18', '02']
>>> def chunks(l,n):
... for i in xrange(0,len(l),n):
... yield l[i:i+n]
...
>>> list(chunks(c,2))
['4E', 'A1', '18', '02']
def splitCount(s, count):
return [''.join(x) for x in zip(*[list(s[z::count]) for z in range(count)])]
c
'4EA11802'
splitCount(c,2)
['4E', 'A1', '18', '02']
def split_len(seq, length):
return [seq[i:i+length] for i in range(0, len(seq), length)]
split_len(c,2)
['4E', 'A1', '18', '02']
def chunks(l,n):
for i in xrange(0,len(l),n):
yield l[i:i+n]
list(chunks(c,2))
['4E', 'A1', '18', '02']
my $str = "4EA11802";
my @list;
my $i = 0;
for($i=0; $i<length($str); $i+=2)
{
push(@list, substr($str, $i, 2));
}
foreach(@list)
{
print;
print "\n";
}