http://qs321.pair.com?node_id=1219591


in reply to words with numbers in them

If your definition of "word" in this case, is non-whitespace characters separated by whitespace, then I'd split on white space, then grep the resulting array for elements containing numbers. 
my $names = "1Petrus2 Joh4an Smit 2johnny99 Julius 789";
my @words = split /\s+/, $names;
my @numwords = grep /\d/, @words;

[download]

Replies are listed 'Best First'.
Re^2: words with numbers in them
by facebook (Initiate) on Jul 31, 2018 at 19:19 UTC

    You are wright, silly me. Thank you.

[reply]

      No need to split and grep, just simplify your regex :) 

      #!/usr/bin/perl

use strict;
use warnings;

my $names = '1Petrus2 Joh4an Smit 2johnny99 Julius 789
  one 2two three3 fo44ur ..5.. six seven, seven7, eight--8--nine ';

while( $names =~ /(\S*\d\S*)/g )
  {
  print "$1\n";
  }

      [download]
[reply]
[d/l]

        I am trying to understand your regex, but i cannot understand why it is :

         $names =~ /(\S*\d\S*)/g )

        [download]

        in stead of: 

         $names =~ /(\S*\d+\S*)/g

        [download]

        So i changed it and it seems this also works, so which is it?

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom