![]() |
Hej og Velkommen fra USA til UNIX og Linux Forums! Tak for dit besøg og deltager i vores globale samfund.
|
|
google unix.com
|
|||||||
| Forums | Registrer | Forum Regler | Links | Albums | FAQ | Members List | Kalender | Søgning | Dagens Stillinger | Mark Forums Read |
| Shell Programmering og Scripting Post spørgsmål om ksh, CSH, SH, Bash, Perl, PHP, SED, AWK og ANDRE shell scripts og Shell scriptsprog her. |
Mere UNIX og Linux Forum Emner du måske kan finde Helpful
|
||||
| Tråd | Thread Starter | Forum | Svar | Last Post |
| Behov erstatning for sed | dbsurf | Shell Programmering og Scripting | 0 | 01-25-2008 06:47 PM |
| For så vidt angår erstatning | rajx | UNIX for dummyer Spørgsmål & svar | 2 | 05-22-2007 09:19 AM |
| String erstatning med Perl | Lindarella | Shell Programmering og Scripting | 4 | 09-29-2006 02:05 PM |
| Erstatning ved hjælp sed | handak9 | UNIX for dummyer Spørgsmål & svar | 5 | 07-13-2004 11:28 AM |
| CPU-udskiftning. hjælp | IMPTRUE | UNIX for dummyer Spørgsmål & svar | 3 | 07-25-2003 08:40 AM |
![]() |
|
|
LinkBack | Thread Tools | Søg denne tråd | Rate Thread | Display Modes |
|
|
|
||||
|
Udskiftning af sed med perl
Hi via nedenstående cmd jeg identificere wheether sidste tegn i hver linje i tusindvis af filer som semikolon eller not.If sidste tegn er semikolon jeg fjerne semikolon. Hvis sidste tegn ikke er semikolon så er jeg tilføjende næste linje på nuværende linje.
For eksempel mit input fil består af ABC | FGH | HJK | JKK; BHJ | AAA | BBB | L NNNN | JJJJ | LLLL; JJJJJJ; ud lægge filen består af ABC | FGH | HJK | JKK BHJ | AAA | BBB | L NNNN | JJJJ | LLLL JJJJJ Jeg er at nå de ovennævnte krav ved hjælp af sed som nedenfor sed -e: a-e'/;$/! N; s / \ n / /; ta '-e' s /;$//' fil men jeg har tusinder af filer i en mappe sin forbruger mere og mere tid. Kan man erstatte ovennævnte krav i perl med xargs gerne xargs perl option cn nogen foreslå den nemmeste måde uden looping |
|
||||
|
Hi Jim,
Ovenstående kode virker med sed men det er ved at ødelægge alt for meget tid .. kan du give det samme med perl syntaks. Funktionaliteten er det at finde frem til sidste tegn i hver linje med alle filer som semicolon.if det grundlægger som semikolon det er at erstatte med tom plads i øvrigt har behov for at tilføje næste linje med nuværende. |
![]() |
| Bogmærker |
| Thread Tools | Søg denne tråd |
| Display Modes | Bedøm denne tråd |
|
|