diff options
Diffstat (limited to 'pos.pl')
| -rw-r--r-- | pos.pl | 11 |
1 files changed, 0 insertions, 11 deletions
@@ -1,11 +0,0 @@ -#!/usr/bin/env perl -w - -use strict; - -my $test = 'test 12 0 45'; - -$test =~ /(\d+)/g; -pos($test) = 7; -$test =~ s/\G([^\d]*)(\d+)/$1 . ($2 + 1)/e; - -print "$test\n"; |
