Help for this page

Select Code to Download


  1. or download this
    use 5.020;
    use warnings;
    ...
        next if $word !~ m/ \d+ /x or looks_like_number($word);
        say qq{"$word" has numbers, but doesn't look like number. Start: $
    +start, end: $end};
    }
    
  2. or download this
    "1foo;" has numbers, but doesn't look like number. Start: 4, end: 9
    "foo_2" has numbers, but doesn't look like number. Start: 12, end: 17
    "1_1" has numbers, but doesn't look like number. Start: 48, end: 51
    "\x87" has numbers, but doesn't look like number. Start: 61, end: 65
    "!@#99$%" has numbers, but doesn't look like number. Start: 78, end: 8
    +5
    
  3. or download this
        @LAST_MATCH_START
        @-
    ...
        @+
        This array holds the offsets of the ends of the  last
    successful submatches in the currently active dynamic scope.