Zeilen aus Datei entfernen

Question

Ich mache einige Textverarbeitung auf einem Unix-System. Ich habe Zugriff auf die Kommandozeile auf dieser Maschine und Python, Perl und die Standard-Textverarbeitung progams installiert, awk usw.

ich eine Textdatei, die wie unten aussieht:

2029754527851451717 
2029754527851451717 
2029754527851451717 
2029754527851451717 
2029754527851451717 
2029754527851451717 1232453488239 Tue Mar 3 10:47:44 2009 
2029754527851451717 1232453488302 Tue Mar 3 10:47:44 2009 
2029754527851451717 1232453488365 Tue Mar 3 10:47:44 2009 
2895635937120524206 
2895635937120524206 
2895635937120524206 
2895635937120524206 
2895635937120524206 
2895635937120524206 
5622983575622325494 1232453323986 Thu Feb 12 15:57:49 2009 

Es ist im Grunde 3 Zeilen: ID ID Datum

Ich suche alle Zeilen zu entfernen, die nicht 2 IDs und ein Datum haben. Die Ergebnisse werden also wie folgt aussehen:

2029754527851451717 1232453488239 Tue Mar 3 10:47:44 2009 
2029754527851451717 1232453488302 Tue Mar 3 10:47:44 2009 
2029754527851451717 1232453488365 Tue Mar 3 10:47:44 2009 
5622983575622325494 1232453323986 Thu Feb 12 15:57:49 2009 

Wie würden Sie vorschlagen, dies zu tun? Insgesamt ist die Textdatei etwa 30.000 Zeilen lang.

Prost

Eef

Answer 1

Mit awk:

awk 'NF > 2' input_file > output_file 

Answer 2

Mit Python:

file = open(filename, 'r') 
lines = file.readlines() 
file.close() 

p = re.compile('^\d*$') 

for line in lines: 
    if not p.search(line): print line, 

Answer 3

with open(source_filename) as src: 
    with open(dest_filename, 'w') as dst: 
     for line in src: 
      if len(line.split()) > 1: 
       dst.write(line) 

Answer 4

Mit Perl:

perl -ne 'print if /^([0-9]+\s+){2}.+$/' $filename 

Answer 5

sed '/^[0-9]$/d' filename 

(könnte das Muster ändern, wenn die schlechten Linien Leerzeichen haben). Sie können auch grep -v verwenden, wodurch das übereinstimmende Muster ausgelassen wird.

Answer 6

awk "NF>1" < filename 

Answer 7

grep ':' filename 

Answer 8

arbeiten Nur mein Perl hier, aber dies könnte auch helfen:

perl -lane 'if (scalar(@F) == 3) { print @F;}' file >> file.out 

Answer 9

perl -i -lane 'print if($F[1])' file