잃어버린 번호를 찾는 더 효율적인 방법

Question 1

아니요 awk, 각 쉘에 대해 다음을 수행합니다.

{ printf '[0] Slot%s\n' {00..23} ; grep -Eo '\[0\] Slot..' disks ; } | sort | uniq -u

느린:

printf '[0] Slot%s\n' {00..23}가능한 모든 디스크 목록 생성
grep -Eo '\[0\] Slot..' disks기존 디스크 추출
{..}는 두 명령의 출력을 연결합니다.
sort | uniq -u한 번만 나타나는 행 추출

printf 및 grep 단계를 적절한 기능으로 바꾸거나 printf 부분을 다른 파일(예: 예상 디스크 목록)의 유사한 grep으로 바꿀 수 있습니다.

Answer

아니요 awk, 각 쉘에 대해 다음을 수행합니다.

{ printf '[0] Slot%s\n' {00..23} ; grep -Eo '\[0\] Slot..' disks ; } | sort | uniq -u

느린:

printf '[0] Slot%s\n' {00..23}가능한 모든 디스크 목록 생성
grep -Eo '\[0\] Slot..' disks기존 디스크 추출
{..}는 두 명령의 출력을 연결합니다.
sort | uniq -u한 번만 나타나는 행 추출

printf 및 grep 단계를 적절한 기능으로 바꾸거나 printf 부분을 다른 파일(예: 예상 디스크 목록)의 유사한 grep으로 바꿀 수 있습니다.

Question 2

어떤 항목이 있어야 하는지 미리 알고 있으므로 목록을 작성하고 보이는 대로 체크 표시하세요.

awk '
    BEGIN {
        for (i = 0; i < 24; i++) missing[0][sprintf("%02d", i)] = 1;
        for (i = 0; i < 12; i++) missing[1][sprintf("%02d", i)] = 1;
    }
    $7 ~ /^\[[0-9]+\]$/ && $8 ~ /^Slot[0-9]+$/ {
        gsub(/[^0-9]/, "", $7);
        sub(/^[^0-9]+/, "", $8);
        delete missing[$7][$8];
    }
    END {
        for (enclosure in missing) {
            for (slot in missing[enclosure]) {
                printf "Missing enclosure %d Slot%s\n", enclosure, slot;
            }
        }
    }
'

Answer

어떤 항목이 있어야 하는지 미리 알고 있으므로 목록을 작성하고 보이는 대로 체크 표시하세요.

awk '
    BEGIN {
        for (i = 0; i < 24; i++) missing[0][sprintf("%02d", i)] = 1;
        for (i = 0; i < 12; i++) missing[1][sprintf("%02d", i)] = 1;
    }
    $7 ~ /^\[[0-9]+\]$/ && $8 ~ /^Slot[0-9]+$/ {
        gsub(/[^0-9]/, "", $7);
        sub(/^[^0-9]+/, "", $8);
        delete missing[$7][$8];
    }
    END {
        for (enclosure in missing) {
            for (slot in missing[enclosure]) {
                printf "Missing enclosure %d Slot%s\n", enclosure, slot;
            }
        }
    }
'

Question 3

perl -sle '
  my(@e, @AoA) = qw/ 24 12 /;
  $AoA[$1][$2]++ while /\[([01])]\h+(?:(?!\d)\S)+0*(\d+)$/mg;
  for my $enc ( 0 .. $#e ) {
     for my $m_slot ( grep { ! defined $AoA[$enc][$_] } 0 .. $e[$enc]-1 ) {
         print "in enclosure $enc - Slot$m_slot is missing.";
     }
  }
 ' -- -_="$DISK_INFO";

설명하다:

°  Initialize the array @e which holds the number of slots in the various enclosures. 

° The Disk info variable is passed into the command line as $_ initialized to $DISK_INFO. 

°  progressively scan and match the $_ variable using the while loop and look for the numbers in the '[..]' and the 'Slot...'  locations. Using these we update the array of array @AoA, it can be viewed as a matrix. 

°  Now once we have ingested all the data, its time to process it now in two for loops. 

° The outer for loops on the enclosures, in our case, they are two. 

° The inner for loop computes the indices of the current enclosure elements that are undefined, IOW, those slots that were never encountered during the data collection drive in the while loop.

Answer

perl -sle '
  my(@e, @AoA) = qw/ 24 12 /;
  $AoA[$1][$2]++ while /\[([01])]\h+(?:(?!\d)\S)+0*(\d+)$/mg;
  for my $enc ( 0 .. $#e ) {
     for my $m_slot ( grep { ! defined $AoA[$enc][$_] } 0 .. $e[$enc]-1 ) {
         print "in enclosure $enc - Slot$m_slot is missing.";
     }
  }
 ' -- -_="$DISK_INFO";

설명하다:

°  Initialize the array @e which holds the number of slots in the various enclosures. 

° The Disk info variable is passed into the command line as $_ initialized to $DISK_INFO. 

°  progressively scan and match the $_ variable using the while loop and look for the numbers in the '[..]' and the 'Slot...'  locations. Using these we update the array of array @AoA, it can be viewed as a matrix. 

°  Now once we have ingested all the data, its time to process it now in two for loops. 

° The outer for loops on the enclosures, in our case, they are two. 

° The inner for loop computes the indices of the current enclosure elements that are undefined, IOW, those slots that were never encountered during the data collection drive in the while loop.

잃어버린 번호를 찾는 더 효율적인 방법

답변1

답변2

답변3

관련 정보