perl中如何取一个字符串中的某一段的问题？

zwzzj

1^# zwzzj 发表于 2008-03-06 14:10

如下：
$line = 53210212;
我想
$line_1 = 5321;
$line_2 = 02;
$line_3 = 12;

这个应该如何实现？？

flw

2^# flw 发表于 2008-03-06 14:20

my @fields = unpack( 'a4 a2 a2', $line );
perldoc -f unpack

zwzzj

3^# zwzzj 发表于 2008-03-06 14:24

哦，好的，谢谢！

sun9527

4^# sun9527 发表于 2008-03-07 15:50

substr

hitsubunnu

5^# hitsubunnu 发表于 2008-03-07 16:26

据说unpack 比substr执行速度快

flw

6^# flw 发表于 2008-03-07 16:37

QUOTE:

原帖由 hitsubunnu 于 2008-3-7 16:26 发表
据说unpack 比substr执行速度快

关键是 unpack 一次可以取出多个，substr 一次只能取出一个。