Question

如果我没有限制,那么在Perl将一条线分为不同的长度,那是很好的办法。我的数据按栏长度编排,因此第一个变量为1-4级,第二个变量为5-15级等。每种变量都有不同的长度。

另一种方式是,根据扼杀中的位置,是否有某种方式使用分裂功能,而不是相应的表述?

感谢。

Answer 1

是的。 <http://perldoc.perl.org/Functions/un Pack.html>rel=“noretinger”>un Pack功能与处理固定-width记录非常合适。

Example

my $record = "1234ABCDEFGHIJK";
my @fields = unpack  A4A11 , $record;  # 1st field is 4 chars long, 2nd is 11

print "@fields";                       # Prints  1234 ABCDEFGHIJK

第一个论点是模板,其中标有:unulation/code>,在田地开始和结束时。第二个论点告诉它,它只是无包装的。

。也可以听说在扼杀中忽略特征立场,具体指明无效,x。模板<代码>A4x2A9>可用于忽略上述例子中的<代码>AB>。

见perldoc -f Pack和 >>>>>>>>>> 深细节和实例<>。

Answer 2

http://perldoc.perl.org/Functions/substr.html 方法:

my $first = substr($input, 0, 4);
my $second = substr($input, 5, 10);
# etc...

(如无包装方法一样,但如果你只把几个领域划归一,则在不咨询文件的情况下,子体更容易书写。)

Answer 3

您可使用<代码>()的功能提取数据,但可予以抵消:

$first = substr($line, 0, 4);
$second = substr($line, 4, 11);

另一种选择是定期表达:

($first, $second) = ($line =~ /(.{4})(.{11})/);

Example

友情链接