The UNIX and Linux Forums  
Hallo und herzlich Willkommen aus den Vereinigten Staaten, die UNIX-und Linux-Foren! Vielen Dank für Ihren Besuch und die Teilnahme an unserem Global Community.

Go Back   Die UNIX-und Linux-Foren > Top Foren > Shell Programmierung und Scripting
.
Google unix.com



Shell Programmierung und Scripting Post Fragen zu ksh, csh, sh, bash, Perl, PHP, sed, awk und anderen Shell-Skripte und Shell-Scripting-Sprachen hier.

Mehr UNIX-und Linux-Forum Themen Vielleicht finden Sie hilfreiche
Faden Thread Starter Forum Antworten Last Post
Brauchen Sie Ersatz für sed dbsurf Shell Programmierung und Scripting 0 01-25-2008 06:47 PM
Was die Ersetzung rajx UNIX for Dummies Questions & Answers 2 05-22-2007 09:19 AM
String Ersetzung mit Perl Lindarella Shell Programmierung und Scripting 4 09-29-2006 02:05 PM
Ersetzung mit sed handak9 UNIX for Dummies Questions & Answers 5 07-13-2004 11:28 AM
CPU-Austausch. Hilfe IMPTRUE UNIX for Dummies Questions & Answers 3 07-25-2003 08:40 AM

Closed Thread
English Japanese Spanish French German Portuguese Italian Dutch Swedish Russian Norwegian Hungarian Hebrew Danish Bulgarian Greek Powered by Powered by Google
 
LinkBack Thread Tools Suche diesen Thread Rate Thread Anzeige-Modi
  #1 (permalink)  
Old 01-25-2008
dbsurf dbsurf is offline
Registrierte Nutzer
  
 

Join Date: Jan 2008
Beiträge: 23
Ersetzung von sed mit perl

Hi mit dem unter cmd Ich Ermittlung wheether letzte Zeichen in jeder Zeile in Tausenden von Dateien oder Semikolon not.If letzte Zeichen ist ein Semikolon ich Semikolon entfernen. Wenn letzte Zeichen ist nicht Semikolon dann bin ich Anhängen nächsten Zeile zu Zeile.

Zum Beispiel meine Eingabedatei besteht aus

ABC | FGH | HJK | JKK;
BHJ | AAA | BBB | L
NNNN | JJJJ | llll;
JJJJJJ;
die Datei besteht aus der
ABC | FGH | HJK | JKK
BHJ | AAA | BBB | L NNNN | JJJJ | llll
JJJJJ
Ich bin die Erreichung der oben genannten Vorschrift mit sed unten

sed -e: a-e'/;$/! N; s / \ n / /; ta '-e' s /;$//' Datei

aber ich habe Tausende von Dateien in einem Verzeichnis seiner verbrauchen mehr und mehr Zeit.

Kann mir jemand die Stelle der oben genannten Anforderungen in perl mit xargs

wie xargs perl Option

cn jeden empfehlen der einfachste Weg, ohne Looping
  #2 (permalink)  
Old 01-25-2008
Jim McNamara jim mcnamara is offline Forum Staff  
...@...
  
 

Join Date: Feb 2004
Ort: NM
Posts: 5748
Wie wäre es mit sed:
Code:
sed -e :a -e '/$;/N; s/\\\n//; s/$;//; ta'  oldfile > newfile
  #3 (permalink)  
Old 01-25-2008
dbsurf dbsurf is offline
Registrierte Nutzer
  
 

Join Date: Jan 2008
Beiträge: 23
Hi Jim,

Die obigen Code arbeitet mit sed aber es ist zu viel Zeit .. können Sie das gleiche mit perl Syntax.
Die Funktionalität ist es zu ermitteln letzte Zeichen in jeder Zeile alle Dateien als semicolon.if es gründet als Semikolon ist zu ersetzen mit Leerzeichen anderweitig zu append nächsten Zeile mit jetzige.
  #4 (permalink)  
Old 01-25-2008
KevinADC KevinADC is offline Forum Advisor  
Registrierte Nutzer
  
 

Join Date: Jan 2008
Beiträge: 731
finden Sie in Ihrem anderen Thread
  #5 (permalink)  
Old 01-25-2008
dbsurf dbsurf is offline
Registrierte Nutzer
  
 

Join Date: Jan 2008
Beiträge: 23
cn jemand mir die Lösung für den Ersatz sed mit perl in den oben genannten
Closed Thread

Lesezeichen

Thread Tools Suche diesen Thread
Suche diesen Thread:

Erweiterte Suche
Anzeige-Modi Rate this thread
Rate this thread:

Forumregeln
Du möglicherweise nicht neue Themen
Du möglicherweise nicht nach Antworten
Du möglicherweise nicht post-Anlagen
Du möglicherweise nicht bearbeiten Sie Ihre Beiträge

BB-Code ist Auf
Smilies sind Auf
[IMG] Code Auf
HTML-Code ist Aus
Trackbacks sind Auf
Pingbacks sind Auf
Refbacks sind Auf




Alle Zeiten sind GMT -4. Es ist jetzt 12:59 AM.


Powered by: vBulletin, Copyright © 2000 - 2006, Jelsoft Enterprises Ltd. Sprachliche Übersetzungen Powered by .
vBCredits v1.4 Copyright © 2007 - 2008, PixelFX Studios
Die UNIX-und Linux-Foren Content © Copyright 1993-2009. Alle Rechte Reserved.Ad Management von RedTyger

Content Relevant URLs durch vBSEO 3.2.0