如何用perl将File1：aaaaaaattttttgggggg 的1-5,10-12和15-18的字符相连？ 谢谢！

Question

如题所述

Answer 1

朋友.. 这次你还要算上 "File1: " 吗 ?追问

file1就是文档

追答

那你意思就是 "file1: " 不是字串的部份, 而是要打开的文件吗 ?
而在 file1 里面, 就只有 1 行字串是吗 ?

追问

对，如果字符串很多，该如何做？谢谢！

追答

# 没测试过, 你试试..

use strict;
my @files = ( qw/file1 file2 file3 file4/ ) ;

sub grab {
my ( $str, $from, $to ) = @_ ;
my $want = $to - $from;
$from -- ;
return substr $str, $from, $want ;
}

foreach my $file ( @files ) {
open my $fh, " ) {
chomp $line;
next unless $line;
print "$file: " . grab ( $line, 1, 5 ) . grab ( $line, 10, 12 ) . grab ( $line, 15, 18 ) . $/;
}
close $fh;
}

追问

如果只有一个文档，但文档很大，有很多字符，那该怎办？谢谢！

追答

嘿.. 放心, 我这个 script 对记忆体的使用很友好.. 多大都可以, 只要你确定你要的就是那些固定的位置
就行... 如果只有一个档, 就将第一行改成 my @files = ( qw/file1/ ) ; 就 ok 了.
还有甚麼可以私讯我, q 聊.