En Perl:
#!/usr/bin/perl
# mDrinky
use strict;
my $encabezado;
open my $archivo,"original.txt"; #Abrimos el achivo viejo open my $nuevo,">nuevo.txt"; #Creamos el nuevo archivo
while (<$archivo>)
{
if ($_ =~ /^Encabezado_\d$/)
{
$encabezado = $_;
}else{
if ($_ ne "\n")
{
print $nuevo "$encabezado $_"; }
}
}
Archivo viejo:
Encabezado_1
linea del Encabezado_1 con info sobre éste
linea del Encabezado_1 con info sobre éste
linea del Encabezado_1 con info sobre éste
linea del Encabezado_1 con info sobre éste
Encabezado_2
linea del Encabezado_2 con info sobre éste
linea del Encabezado_2 con info sobre éste
linea del Encabezado_2 con info sobre éste
linea del Encabezado_2 con info sobre éste
linea del Encabezado_2 con info sobre éste
linea del Encabezado_2 con info sobre éste
Encabezado_3
linea del Encabezado_3 con info sobre éste
linea del Encabezado_3 con info sobre éste
linea del Encabezado_3 con info sobre éste
Archivo nuevo:
Encabezado_1 linea del Encabezado_1 con info sobre éste
Encabezado_1 linea del Encabezado_1 con info sobre éste
Encabezado_1 linea del Encabezado_1 con info sobre éste
Encabezado_1 linea del Encabezado_1 con info sobre éste
Encabezado_2 linea del Encabezado_2 con info sobre éste
Encabezado_2 linea del Encabezado_2 con info sobre éste
Encabezado_2 linea del Encabezado_2 con info sobre éste
Encabezado_2 linea del Encabezado_2 con info sobre éste
Encabezado_2 linea del Encabezado_2 con info sobre éste
Encabezado_2 linea del Encabezado_2 con info sobre éste
Encabezado_3 linea del Encabezado_3 con info sobre éste
Encabezado_3 linea del Encabezado_3 con info sobre éste
Encabezado_3 linea del Encabezado_3 con info sobre éste
saludos.