Come posso apportare modifiche solo alla prima riga di un file?

Question

Mi piacerebbe sapere quale pattern posso usare in sed per apportare modifiche nella prima riga di file enormi (~ 2 GB). La preferenza per sed è solo perché presumo che debba essere più veloce di uno script Python o Perl.

I file hanno la seguente struttura:

field 1, field 2, ... field n 
data 

e, data la probabilità di avere spazi nel identificativo per ogni campo, ho bisogno di sostituire ogni spazio da un trattino in questo modo:

**BEFORE** 
the first name,the second name,the first surname,a nickname, ... 
data 

**AFTER** 
the_first_name,the_second_name,the_first_surname,a_nickname, ... 
data 

Eventuali puntatori al modello corretto da utilizzare o un'altra soluzione di scripting sarebbe ottima.

Answer 1

Per modificare le prime 10 righe

sed -i -e '1,10s/ /_/g' 

In Perl, è possibile utilizzare l'operatore di flip-flop in un contesto scalare:

perl -i -pe 's/ /_/g if 1 .. 10' 

Answer 2

È improbabile notare alcuna differenza di velocità tra Perl, Python, e sed. Il tuo script passerà la maggior parte del tempo in attesa di IO.

Se le linee hanno la stessa lunghezza, è possibile modificare sul posto, altrimenti sarà necessario creare un nuovo file.

In Perl:

#!/usr/bin/env perl 
use strict; 

my $filename = shift; 
open my $in_fh, '<', $filename 
    or die "Cannot open $filename for reading: $!"; 
my $first_line = <$in_fh>; 

open my $out_fh, '>', "$filename.tmp" 
    or die "Cannot open $filename.tmp for writing: $!"; 

$first_line =~ s/some translation/goes here/; 

print {$out_fh} $first_line; 
print {$out_fh} $_ while <$in_fh>; # sysread/syswrite is probably better 

close $in_fh; 
close $out_fh; 

# overwrite original with modified copy 
rename "$filename.tmp", $filename 
    or warn "Failed to move $filename.tmp to $filename: $!"; 

Answer 3

il cambiamento si parla (in sostituzione di ogni spazio da un trattino basso) non cambia la lunghezza della linea, quindi in teoria si potrebbe fare inplace.

avviso !: non testato!

head -n 1 yourfile | sed -e 's/ /_/g' > tmpfile 
dd conv=nocreat,notrunc if=tmpfile of=yourfile 

io non sono così sicuro circa i parametri conv=..., ma sembra che dovrebbe rendere dd sovrascrivere l'inizio del file originale con la linea trasformata.

Si prega di notare che se si vuole fare qualsiasi altra trasformazione, che potrebbe modificare la lunghezza della linea, no, non fare fare questo. dovresti fare una copia completa. qualcosa di simile:

head -n 1 yourfile | sed -e 's/ /_/g' > tmpfile 
tail -n + 2 | cat tmpfile - > transformedfile 

Answer 4

non lo faccio pensa di voler utilizzare qualsiasi soluzione che richieda la scrittura dei dati in un nuovo file.

Se sei abbastanza sicuro che tutto ciò che ti serve è di cambiare gli spazi in caratteri di sottolineatura nella prima riga dei file di testo di grandi dimensioni, devi solo leggere la prima riga, scambiare i caratteri e scriverli di nuovo sul posto:

#!/usr/bin/env perl 
use strict; 

my $filename = shift; 
open (FH, "+< $filename") || die "can't open $filename: $!"; 
my $line = <FH>; 
$line =~ s/ /_/g; 
seek FH, 0, 0; # go back to the start of the file 
printf FH $line; 
close FH; 

per usarlo, basta passare il percorso completo del file da aggiornare:

# fixheader "/path/to/myfile.txt" 

Answer 5

Questa potrebbe essere una soluzione:

 

use Tie::File; 
tie my @array,"Tie::File","path_to_file"; 
$array[0] = "new text"; 
untie @array; 
 

Tie::File è uno dei moduli che uso di più, ed è molto semplice da usare. Ogni elemento nell'array è una linea nel file. Uno dei lati negativi, tuttavia, sarebbe che questo carica l'intero file in memoria.