En Perl, comment obtenir le numéro qui se passe AVANT un mot spécifique?

Question

suppose que j'ai la chaîne:

my $SENTENCE = "get schwifty for 7 days"

-... et je veux comprendre le nombre de jours. comment pourrais-je obtenir le numéro 7 de cela si je sais qu'il viendra TOUJOURS avant le mot jour/jours?

Answer 1

Utilisez un regex avec un groupe de capture:

$SENTENCE =~ /(\d+) days?/; 
my $days = $1; 

Answer 2

Utilisez regex pour capturer le chiffre

my ($day) = $sentence =~ /(\d+)Days?/g; 

Ou bien une autre façon pour le groupe le mot en correspondance de motif à l'aide (?{})

$Sentence =~ /(\d+)Days?(?{my $day = $1})/g: 

Answer 3

utilisez la propriété Look-ahead et obtenez votre nombre de jours

my $SENTENCE = "get schwifty for 7 days"; 
($num) = $SENTENCE =~m/(\d+)(?=\s+days?)/; 
print $num;