En utvikleren av meg har dette kravet - Jeg kunne ikke fortelle henne fort hvordan du gjør det med UNIX kommandoer eller en rask skript så hun er å skrive et raskt program for å gjøre det - men det fikk min nysgjerrighet opp og tenkte jeg skulle spørre her råd.

I en tekstfil, er det noen poster (omtrent halvparten av dem) som har et spesielt streng, sier "ABC" etterfulgt av et 15-sifret nummer, alltid minst 2 ledende nuller. I rader som har dette, vil det vises to ganger, identisk.
I hovedsak vil kutte ut disse 18 tegn i en fil av sine egne. Men de er ikke i en bestemt kolonne posisjonen i filen.

Logisk, er oppgaven:
a) finne rader med ABC00
b) få posisjonen til det første A
c) kuttet starter i den posisjonen på 18 tegn og skrive til en ny fil.

Eksempel data:
ab cdefgABC000000000012345ABC000000000012345sadlfk
abcde fgABC000000000012346ABC000000000012346sadlfk
abc defgghi jklmn1349d5sadlfk
ABCDEF sldkfdgABC000000000056789ABC000000000056789abcdlkdfj134239d

og så videre.

Ønsket output
ABC00000000012345
ABC00000000012346
ABC00000000056789

Takk for å ta en titt.
Lisa

Lisa,
Det er trolig mange, men her er en tilnærming --

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

wow! det er glatt - og det virket på meg datastrømmen så 1000s takk. Nå, de etiske dilemma, jeg bare gi den til utbygger som om jeg gjorde det eller gjør jeg fess opp at jeg ba om hjelp.

Lisa

Du har funnet en løsning, og bekreftet det fungerer.

Mest hvert problem har allerede grunnet og løst, så det virkelig er noen "nye" svar. Ha ha

Tilbake til det opprinnelige problemet, kreativ bruk av sed å plassere ekstra tegn og deretter tr å konvertere dem slik at et grep og kutt kan pakke dem - er en nyttig prosess å trekke hverandre dataposter.

La ham tror du var geni.

Uunngåelig, en perl tilnærmingsmåte

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