Como copiar os quatro primeiros caracteres de cada linha até o final da mesma linha?

Dada uma série de linhas parecidas com esta:

2001 "Some Kind of Title," Author's Name, Publication Name, 1 Mar.
2002 "Some Kind of Title," Author's Name, Publication Name, 12 Oct.
2003 "Some Kind of Title," Author's Name, Publication Name, 8 Apr.
2004 "Some Kind of Title," Author's Name, Publication Name, 3 Jun.

Existe uma maneira de eu pegar esses quatro primeiros caracteres (o ano) e copiá-los para o final da linha, para que fique assim:

2001 "Some Kind of Title," Author's Name, Publication Name, 1 Mar. 2001
2002 "Some Kind of Title," Author's Name, Publication Name, 12 Oct. 2002
2003 "Some Kind of Title," Author's Name, Publication Name, 8 Apr. 2003
2004 "Some Kind of Title," Author's Name, Publication Name, 3 Jun. 2004

:% s/\v^(\d{4})(.*)$/\1\2 \1/ 

é uma maneira de fazer isso

• \v opção mágica, para evitar ter que escapar do agrupamento ()
• ^ início da linha
• \d{4} corresponde exatamente a quatro dígitos
• .* resto da linha
• \1 \2 tem o padrão correspondente dentro ()

edit: @Jair Lopez menciona nos comentários, a expressão regular pode ser melhorada ainda mais:

:% s/\v^(\d{4}).*/& \1/ 

ou o equivalente

:% s/\v^(\d{4}).*/\0 \1/ 

• &e \0contém todo o padrão correspondente

Para leitura adicional, vimregex e regex FAQ

E uma solução com uma macro:

qqyiwA <Esc>pj0q

Que significa:

qq   Record the macro in the register q
yiw  Yank the text described by the text object iw (inner word): The date
A <Esc>   Append a white space to the end of the line and go back to insert mode
p    Paste the date
j0   Place your cursor on the first column of the next line (to be able to repeat the macro)
q    Stop recording

Em seguida, você pode reproduzir a macro quantas vezes quiser 3@a.

Editar Como o @evilsoup mencionou nos comentários, uma maneira mais eficaz de executar a macro em todas as linhas do buffer é usar:

:%normal @q

É claro que você pode substituir %por um intervalo que descreve as linhas a serem modificadas.

Aqui está o caminho que eu faria:

:%norm y4lA <C-o>p

Explicação:

:%norm                     "Apply the following keystrokes to every line:
       y4l                 "Yank 4 letters. You could also do 'yiw'
          A                "Add a space to the end
            <C-o>          "Do a single normal command
                 p         "Paste

Se você tiver acesso aos comandos UNIX padrão, poderá usar AWK:

:%!awk '{print $0" "$1}'

Eu acho que os mecanismos existentes para fazer isso são melhores, mas também é possível fazer isso usando o modo de bloqueio visual .

Copie as datas:

gg          # Go to the top of the file
<ctrl>y     # Enter visual block mode
G           # Go to the bottom of the file
w           # Select the first word
"jy         # Copy in to the j register

Coloque o final da primeira linha:

gg      # Top of file
A       # Append the line
        # Some spaces
<ESC>   # Return to command mode

Colar:

gg 
# Move right to the length of the longest line
"jp   # Paste the block

Em uma linha de comando unix (ou janelas, se você tiver ferramentas de linha de comando unix instaladas)

sed -e "s/\(....\)\(.*\)/\1\2 \1" < inputFile > outputFile