如何在Perl中提取一部分字符串？

Question

我有一个数据输入文件象下面这样：

X-X-D-X-X-A 
X-D-X-A-X 
D-X-X-X-X-A-X-X 

我需要的结果只给了我

D-X-X-A 
D-X-A 
D-X-X-X-X-A 

请帮助我！

Answer 1

你可以试试，

open my $fh, "<", "file" or die $!; 
while (my $line = <$fh>) { 
    $line =~ s/^[-X]+ | [-X]+(?=\s*$)//xg; 
    print $line; 
} 
close $fh; 

或CMD线，

perl -pe 's/^[-X]+ | [-X]+(?=\s*$)//xg' file 

Answer 2

测试代码：

my @a = qw[ 
    X-X-D-X-X-A 
    X-D-X-A-X 
    D-X-X-X-X-A-X-X 
]; 

for my $a (@a) { 
    if ($a =~ /(D[-X]+A)/) { 
    print $1,"\n"; 
    } 
} 

Answer 3

perl -lne 'print $1 if(/[^D]*(D.*A).*/)' 

test

一个脚本中在读入文件：

while (my $line = <$fh>) { 
    $line =~ m/[^D]*(D.*A).*/g; 
    print $1; 
} 

正则表达式：

[^D]*(D.*A).*

1. [^D]*线可能无法与d开始
2. (D.*A)捕捉（圆括号）从d盯着直到 行中的最后一个A为止。捕获的部分将存储在$ 1中
3. .*留在字符串中。