単語からパターンを抽出する方法

Question

私はperlを使い慣れています。私は単語からD[number]を抽出しなければならないシナリオを見つけました。

例： 入力文字列がD11C1であれば、入力文字列がD1C12場合、D11はD1を抽出しなければならない、

抽出されるべきです。

Answer 1

次のようなものを使用可能性があります

$word =~ /.*(D\d+).*/; 
my $res = $1; 

を\ D + - 少なくとも一つの数字と一致します。

Answer 2

正規表現を使用します。

#!/usr/bin/perl 
use warnings; 
use strict; 
use feature qw{ say }; 

for my $string (qw(D11C1 D1C12)) { 
    my ($extracted) = $string =~ /D[0-9]+/g; 
    say $extracted; 
} 

D itslef試合、[0-9]マッチ桁、+が数字を1回以上繰り返すことができることを意味します。最後の/gは、この場合、式を文字列の一致部分を返すようにします。詳細はperlreを参照してください。

Answer 3

my ($d) = $input =~ m/(D\d+)/; 

テスト：

perl -E 'while(my $input = shift) { my ($d) = $input =~ m/(D\d+)/; say $d }' D11C1 D1C1 
D11 
D1