![]() |
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.
|
|
Google unix.com
|
|||||||
| Foren | Registrieren | Forum-Regeln | Links | Alben | FAQ | Benutzerliste | Kalender | Suche | Die heutige Beiträge | Alle Foren als gelesen markieren |
| 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 |
![]() |
|
|
LinkBack | Thread Tools | Suche diesen Thread | Rate Thread | Anzeige-Modi |
|
|
|
||||
|
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 |
|
||||
|
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. |
![]() |
| Lesezeichen |
| Thread Tools | Suche diesen Thread |
| Anzeige-Modi | Rate this thread |
|
|