Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
print "$1,-->$2\n"
    while $in =~ / (\d{3}) ,--> \d{3}, \s+ (?= \d{3} ,--> (\d{3}) ) /g
+sx;
#                                          | lookahead assertion  |
  2. or download this
    16:28 >perl 1814_SoPW.pl
123,-->234
...
234,-->123

16:28 >