Help for this page

Select Code to Download


  1. or download this
    my $results = "Home Town, Log in activity: 57 DI activity: 13 FA activ
+ity: 13 FAI activity: 4 Login activity: 23 Not Found activity: 4";

my @numbers = split /\D+/, $results;

print "$_\n" for @numbers;
  2. or download this
    
my $results = "Home Town, Log in activity: 57 DI activity: 13 FA activ
+ity: 13 FAI activity: 4 Login activity: 23 Not Found activity: 4";
...
my @numbers = $results =~ m/\d+/g;

print "$_\n" for @numbers;