[perlre] appending a "." to numbers inside word boundaries

princepawn has asked for the wisdom of the Perl Monks concerning the following question:

Here's my file:

1
            d4 f5 2 Nc3 d5 3 Bg5 c6 4 e4 fxe4 5 f3 exf3 6 Nxf3 Bg4 7 h
+3 Bxf3 8
            Qxf3 Nf6 9 Bd3 Nbd7 10 0-0-0 Qc7 11 Rhe1 0-0-0 12 Bf4 Qb6 
+13
            Re6 g6 14 Nb5 Ne8 15 Be2 a6 16 Qa3 g5 17 Na7+!! Qxa7 18  R
+xc6+! bxc\
6 19 Bxa6+ Qb7 20 Qa5
[download]

And I was hoping to put a period after every number which was indicating the move number (ie, the 1, the 2, the 3, .. etc, but not the "6" in Nf6. Here is my code: perl -ne 's{\b(\d+)\b}{\1.}g' moves

Does anyone know why it doesn't work?

Comment on [perlre] appending a "." to numbers inside word boundaries Select or Download Code

Replies are listed 'Best First'.
Re: [perlre] appending a "." to numbers inside word boundaries by BrowserUk (Patriarch) on Oct 27, 2002 at 13:39 UTC
You don't say what problem you are having, but your regex seems to work ok for me. Using `Perl -n` requires you to explicitly print the lines you want to output. I changed this to use `Perl -pl` to make it work. Is this the source of your problem? c:\test>type 208336.dat d4 f5 2 Nc3 d5 3 Bg5 c6 4 e4 fxe4 5 f3 exf3 6 Nxf3 Bg4 7 h3 Bxf3 8 Qxf3 Nf6 9 Bd3 Nbd7 10 0-0-0 Qc7 11 Rhe1 0-0-0 12 Bf4 Qb6 13 Re6 g6 14 Nb5 Ne8 15 Be2 a6 16 Qa3 g5 17 Na7+!! Qxa7 18 Rxc6+! bxc 6 +19 Bxa6+ Qb7 20 Qa5 c:\test>perl -ple "s{\b(\d+)\b}{\1.}g" 208336.dat d4 f5 2. Nc3 d5 3. Bg5 c6 4. e4 fxe4 5. f3 exf3 6. Nxf3 Bg4 7. h3 Bxf3 + 8. Qxf3 Nf6 9. Bd3 Nbd7 10. 0.-0.-0. Qc7 11. Rhe1 0.-0.-0. 12. Bf4 Qb6 13 +. Re6 g6 14. Nb5 Ne8 15. Be2 a6 16. Qa3 g5 17. Na7+!! Qxa7 18. Rxc6+! b +xc 6. 19. Bxa6+ Qb7 20. Qa5 c:\test> [download] Nah! Your thinking of Simon Templar, originally played by Roger Moore and later by Ian Ogilvy	[reply] [d/l] [select]
Re: [perlre] appending a "." to numbers inside word boundaries by fruiture (Curate) on Oct 27, 2002 at 13:43 UTC
It actually works, but '-n' is not the right option for you. You should also rather use $1 instead of \1. `$ perl -ne 's{\b(\d+)\b}{$1.}g;print' moves # or just $ perl -pe 's{\b(\d+)\b}{$1.}g' moves` [download] See perlrun for details -- http://fruiture.de	[reply] [d/l]