13 lines
179 B
Plaintext
13 lines
179 B
Plaintext
|
|
|
|
###
|
|
### regex-g-demo
|
|
###
|
|
|
|
## Chapter 8 section 1.2
|
|
|
|
my $target = "123..45.6789...0";
|
|
while ($target =~ /(\d+)/g) {
|
|
print "Saw '$1' ending at position ", pos($target), "\n";
|
|
}
|