☰

첫 번째 열에 선행 0 추가

tag-icon • tag-icon shell text-processing awk sed
첫 번째 열에 선행 0 추가

csv 파일의 첫 번째 열에 4개의 선행 0을 추가하고 싶습니다.

EADUnitID,irn,EADPhysicalTechnical,AdmPublishWebNoPassword,AdmPublishWebPassword,EADUnitTitle,EADBiographyOrHistory,EADScopeAndContent,EADArrangement,EADAcquisitionInformationRef.SummaryData,EADRelatedMaterial,BibBibliographyRef_tab.SummaryData
ga.1.2.6,52144,GLS Add. GA 1/2/6,Yes,Yes,Dzöfi. ,,,,,,
ga.1.2.7,52145,GLS Add. GA 1/2/7,Yes,Yes,Dzöfi. ,,,,,,
ga.1.2.8,52146,GLS Add. GA 1/2/8,Yes,Yes,Two young girls. ,,,,,,
ga.1.2.9,52147,GLS Add. GA 1/2/9,Yes,Yes,J. Blum. ,,,,,,
ga.1.2.10,52148,GLS Add. GA 1/2/10,Yes,Yes,TsïGA.0 ,,,,,,
ga.1.2.11,52149,GLS Add. GA 1/2/11,Yes,Yes,Wupa. ,,,,,,
ga.1.2.12,52150,GLS Add. GA 1/2/12,Yes,Yes,Tochter des Bälo Laubinger. Stamm: Lowära, Pferdezigeuner. ,,,,,,
...<snip>...
ga.1.2.311,52449,GLS Add. GA 1/2/311,Yes,Yes,Beinrode 1962. Zu dunkel! ,,,,,,
ga.1.2.312,52450,GLS Add. GA 1/2/312,Yes,Yes,Bienrode 1962. Zu dunkel! ,,,,,,
ga.1.2.313,52451,GLS Add. GA 1/2/313,Yes,Yes,Bienrode 1962. Zu dunkel! ,,,,,,
ga.1.2.314,52452,GLS Add. GA 1/2/314,Yes,Yes,Lowara und Sintitsa! FrÜhjahr Bienrode 1962. ,,,,,,
ga.1.2.315,52453,GLS Add. GA 1/2/315,Yes,Yes,Madamenweg Walódza und Peabaí März 1962. Als ich die Familie photographierte, entbläßte plötzlich die Frau ihre Brust Vielleicht hätte ich nun nicht knipsen dÜrfen. Aber anderseits war das Erleben interessant. Offenbar meint die Frau mit Liege ansolchen Bildern. Georg Althaus. ,,,,,,
ga.1.2.316,52454,GLS Add. GA 1/2/316,Yes,Yes,Dzöfi. Dzöfi u. ihre schwester Rúpa gehören zur Gruppe der ungarischen Zig., mithin zu den Romzig. Sie sind also Lòwära, Pferdezig. ,,,,,,
ga.1.2.319ca,52455,GLS Add. GA 1/2/317-327,Yes,Yes,Closed to Access ,,,,,,
ga.2,52456,GLS Add. GA 2,Yes,Yes,Hanns Weltzel papers. ,,,,,,

다음과 같습니다.

EADUnitID,irn,EADPhysicalTechnical,AdmPublishWebNoPassword,AdmPublishWebPassword,EADUnitTitle,EADBiographyOrHistory,EADScopeAndContent,EADArrangement,EADAcquisitionInformationRef.SummaryData,EADRelatedMaterial,BibBibliographyRef_tab.SummaryData
ga.00001.00002.00006,52144,GLS Add. GA 1/2/6,Yes,Yes,Dzöfi. ,,,,,,
ga.00001.00002.00007,52145,GLS Add. GA 1/2/7,Yes,Yes,Dzöfi. ,,,,,,
ga.00001.00002.00008,52146,GLS Add. GA 1/2/8,Yes,Yes,Two young girls. ,,,,,,
ga.00001.00002.00009,52147,GLS Add. GA 1/2/9,Yes,Yes,J. Blum. ,,,,,,
ga.00001.00002.00010,52148,GLS Add. GA 1/2/10,Yes,Yes,TsïGA.0 ,,,,,,
ga.00001.00002.00011,52149,GLS Add. GA 1/2/11,Yes,Yes,Wupa. ,,,,,,
ga.00001.00002.00012,52150,GLS Add. GA 1/2/12,Yes,Yes,Tochter des Bälo Laubinger. Stamm: Lowära, Pferdezigeuner. ,,,,,,
...<snip>...
ga.00001.00002.00311,52449,GLS Add. GA 1/2/311,Yes,Yes,Beinrode 1962. Zu dunkel! ,,,,,,
ga.00001.00002.00312,52450,GLS Add. GA 1/2/312,Yes,Yes,Bienrode 1962. Zu dunkel! ,,,,,,
ga.00001.00002.00313,52451,GLS Add. GA 1/2/313,Yes,Yes,Bienrode 1962. Zu dunkel! ,,,,,,
ga.00001.00002.00314,52452,GLS Add. GA 1/2/314,Yes,Yes,Lowara und Sintitsa! FrÜhjahr Bienrode 1962. ,,,,,,
ga.00001.00002.00315,52453,GLS Add. GA 1/2/315,Yes,Yes,Madamenweg Walódza und Peabaí März 1962. Als ich die Familie photographierte, entbläßte plötzlich die Frau ihre Brust Vielleicht hätte ich nun nicht knipsen dÜrfen. Aber anderseits war das Erleben interessant. Offenbar meint die Frau mit Liege ansolchen Bildern. Georg Althaus. ,,,,,,
ga.00001.00002.00316,52454,GLS Add. GA 1/2/316,Yes,Yes,Dzöfi. Dzöfi u. ihre schwester Rúpa gehören zur Gruppe der ungarischen Zig., mithin zu den Romzig. Sie sind also Lòwära, Pferdezig. ,,,,,,
ga.00001.00002.00319ca,52455,GLS Add. GA 1/2/317-327,Yes,Yes,Closed to Access ,,,,,,
ga.00002,52456,GLS Add. GA 2,Yes,Yes,Hanns Weltzel papers. ,,,,,,

gsub, gensub 및 printf를 살펴보았지만 어떻게 진행해야 할지 잘 모르겠습니다.

답변1

예, 조금 더 까다롭습니다. 노력하다

awk -F, '
        {n=split ($1, T, "\.")
         $1 = DL = ""
         for (i=1; i<=n; i++)   {S[i] = T[i] + 0
                                 gsub (/[0-9]/, "", T[i])
                                 $1 = $1 DL (S[i]?sprintf ("%05d", S[i]):"") T[i]
                                 DL = "."
                                }
        }
1
' OFS=, file

.첫 번째 필드를 배열로 분할한 T다음 이를 반복하고 T해당 요소의 시작 번호를 배열에 넣고 S( awk문자열의 선행 숫자만 사용하여 산술을 수행하려면 s 함수를 활용) 선행 요소만 제거합니다. 그것에서 자리를 잡은 T다음 필드를 재구성합니다 $1.

답변2

Perl이 옵션인 경우

perl -F, -pe '$_ = join ",", @F if $F[0] =~ s/(\d+)/sprintf "%05d", $1/ge' file

관련 정보