☰

여러 헤더로 여러 파일 연결

tag-icon • tag-icon linux command-line shell-script cp cat
여러 헤더로 여러 파일 연결

예를 들어, 여러 헤더가 있는 여러 파일을 모든 정보가 포함된 하나의 파일로 연결하려고 합니다.

파일 1:

Numbers
1
2
3

Letters
A
B
C

파일 2:

Numbers
4
5
6

Letters
D
E
F

파일 3은 다음을 병합하여 생성됩니다.

Numbers
1
2
3
4
5
6

Letters
A
B
C
D
E
F

지금까지 cat을 시도하고 file2를 끝에 추가한 다음 각 헤더 아래의 모든 데이터를 grep하려고 시도했지만 간단히 말해서 실패했습니다.

붙여넣기를 시도했는데 각 파일의 데이터 양이 동일하면 마지막 파일 옆에 파일별 정보 탭을 추가하므로 나쁘지 않지만 어떤 파일의 헤더 아래에 다른 파일보다 더 많은 항목이 있는 경우에는 혼란을 야기하게 됩니다.

이런 종류의 문제를 해결하는 방법을 아는 사람이 있습니까?

답변1

섹션 키워드 아래에 "===="가 있다고 가정하면 다음 Python은 섹션 이름을 명시적으로 지정하지 않고도 문제를 해결할 것입니다.

import sys
from collections import OrderedDict

combined = OrderedDict()
seperator = '===='

for file_name in 'f1.txt f2.txt'.split(): #sys.argv[1:]:
    with open(file_name) as fp:
        lines = fp.readlines()
        data = []
        while len(lines):
            # reverse over the lines
            line = lines.pop(-1)
            if not line.strip(): continue # skip empty
            if line.startswith(seperator):
                name = lines.pop(-1)
                section = combined.setdefault(name, [])
                section.extend(reversed(data))
                data = []
            else:
                data.append(line)

for idx, k in enumerate(reversed(combined)):
    if idx != 0:
        print # insert empty line before all but first
    sys.stdout.write(k)
    print('=' * len(k))
    for line in combined[k]:
        sys.stdout.write(line)

명령줄을 호출할 때 파일 이름을 제공해야 합니다.

그러면 다음과 같은 출력이 생성됩니다.

Numbers
========
1
2
3
4
5
6

Letters
========
A
B
C
D
E
F

답변2

Perl 스크립트를 사용하여 이를 수행하는 한 가지 방법은 다음과 같습니다.

#!/usr/bin/perl

my @fileInfo;
open(my $fh, "<file1");
push (@fileInfo,<$fh>);
close($fh);
open(my $fh, "<file2");
push (@fileInfo,<$fh>);
close($fh);

my @letLines;
my @numLines;
my $numMode  = 0;
my $letMode  = 0;

foreach my $line (@fileInfo) {

    # skip empty and '==' lines
    next if ($line =~ /^$/);
    next if ($line =~ /==/);

    if ($line =~ /Letters/) {
        $letMode = 1;
        $numMode = 0;
        next;
    }

    if ($line =~ /Numbers/) {
        $numMode = 1;
        $letMode = 0;
        next;
    }

    if ($letMode) {
        push (@letLines, $line);
        next;
    }

    if ($numMode) {
        push (@numLines, $line);
        next;
    }
}

print "Numbers\n";
print "=======\n";
print @numLines;

print "\n";

print "Letters\n";
print "=======\n";
print @letLines;

# vim: set ts=2 nolist :

산출

Numbers
=======
1
2
3
4
5
6

Letters
=======
A
B
C
D
E
F

답변3

귀하가 제공한 입력에 대한 numberletters.sh:

#!/bin/bash

echo Numbers

for f in "$@"
do
   grep -E '^[0-9]+$' "$f" 
done

echo
echo Letters

for f in "$@"
do
    grep -E '^[A-Z]+$' "$f"
done

echo

numbersletters.sh file1 file2반품

Numbers
1
2
3
4
5
6

Letters
A
B
C
D
E
F

| sort -ufor for 루프를 추가하여 정렬되고 고유하게 만들 수 있습니다.

답변4

다음은 임의의 헤더 이름으로 작동하는 간단한 Perl 솔루션입니다.

#!/usr/bin/env perl 
my ($last,$head); 
my %k;  ## this will hold our data
my $separator="=====";
my @lines=<>; ## Read all lines
for(my $i=0; $i<=$#lines; $i++){ ## for each line...
    next if $lines[$i]=~/$separator/; ##skip the separators
    next if $lines[$i]=~/^\s*$/;  ##skip empty lines
    if ($lines[$i+1]=~/====/) { ## if the NEXT line is a separator, 
    $head=$lines[$i];       ## the this line is a heading
    next;
    }
    else { ## save the contents of this group into the %k hash.
    push @{$k{$head}},$lines[$i];
    }
}

## Now print everything
foreach (keys(%k)) {
    print "$_========\n", @{$k{$_}};
}

관련 정보