En udvikler af minen har dette krav - jeg kunne ikke fortælle hende hurtigt hvordan det skal gøres med UNIX-kommandoer eller en hurtig script, så hun skriver en hurtig program til at gøre det - men det fik min nysgerrighed op og tænkte jeg ville spørge her for råd.

I en tekst-fil, er der nogle poster (ca. halvdelen), der har en særlig streng, siger "ABC" efterfulgt af et 15-cifret nummer, altid mindst 2 nuller. I rækker, der har det, vises den to gange, på samme måde.
Jeg hovedsageligt vil skære disse 18 tegn i en fil på deres egne. Men de er ikke i en fast spalte holdning i sagen.

Logisk, opgaven er:
a) finde rækker med ABC00
b) at få en udtalelse fra denne første A
c) skåret starter på den position til 18 tegn og skrive til en ny fil.

eksempel data:
AB cdefgABC000000000012345ABC000000000012345sadlfk
abcde fgABC000000000012346ABC000000000012346sadlfk
abc defgghi jklmn1349d5sadlfk
abcdef sldkfdgABC000000000056789ABC000000000056789abcdlkdfj134239d

og så videre.

Ønskede output
ABC00000000012345
ABC00000000012346
ABC00000000056789

Tak for at have et kig.
Lisa

Lisa,
Der er sikkert mange, men her er en tilgang --

> sed "s/ABC[0-9][0-9]/~+&/" file220 | tr "~" "\n" | grep "+" | cut -c2-19
ABC000000000012345
ABC000000000012346
ABC000000000056789

wow! det er smart - og det virkede på min datastrøm så 1000s tak. Nu, det etiske dilemma, skal jeg bare give det til bygherren, som om jeg gjorde det, eller skal jeg "Fess op, at jeg bad om hjælp.

Lisa

Du har fundet en løsning og efterprøvede det virker.

Mest ethvert problem er allerede blevet overvejet og løst, så der virkelig er nogen "nye" svar. Ha ha

Tilbage til det oprindelige problem, den kreative brug af sed at sætte ekstra tegn og derefter tr at konvertere dem så et dap og skære kan trække dem - er en nyttig proces til at trække hinanden dataposter.

Lad ham tro, du var den geni.

Uundgåeligt en perl tilgang

perl -ne '/(ABC00\d{13})/ && print "$1\n"' list.txt