Se você tiver Perl instalado, poderá usar o seguinte comando em uma janela do Prompt de Comando:
perl -p -i -e "print qq(\n) if $. == 4" filename.txt
Tenho certeza de que você pode fazer isso com scripts em lote, mas às vezes acho que não vale a pena o esforço.
Atualização 1:
Para transformar o texto acima em um arquivo que pode ser usado como seu arquivo bat você pode criar um arquivo de script "insert4.pl" como segue
#!perl
use strict;
use warnings;
open my $in, '<', 'before.txt' or die "can't read before.txt because $!\n";
open my $out, '>', 'after.txt' or die "can't write after.txt because $!\n";
while (<$in>) {
print $out $_;
print "\n" if $. == 4;
}
close $out;
close $in;
unlink 'before.txt' or die "can't delete before.txt because $!\n";
rename 'after.txt', 'before.txt' or die "can't rename temp file because $!\n";
(não testado)
Atualização 2:
Quando você instala o interpretador Perl, ele deve associar automaticamente a extensão do arquivo .pl
aos scripts Perl para serem executados pelo interpretador Perl. Você deve ser capaz de confirmar isso com assoc .pl
, se ele diz ".pl = perlscript", verifique ftype perlscript
.
O instalador também deve adicionar a localização do intérprete do perl ao comando search PATH
usado pelo prompt de comando do Windows.
Os scripts Perl devem ser salvos em arquivos com uma extensão de nome de arquivo de .pl
.
Se tudo acima estiver OK, você pode executar scripts perl apenas digitando o nome de arquivo myscript.pl
caso contrário, você terá que informar explicitamente ao Windows que interpretador usar: perl myscript.pl
ou, no pior dos casos, C:\strawberry\perl\bin\perl myscript.pl
.