Shell Programming and Scripting

sv00
sv01
sv02
sv03
sv04
sv05
sv06
sv07
sv08
sv09
sv10
sv11
sv12
sv13
sv14
sv15
sv16
sv17
sv18
sv19
sv20
sv21
sv22
sv23
hr00
hr01
hr02
hr03
hr04
hr05
hr06
hr07
hr08
hr09
hr10
hr11
hr12
hr13
hr14
hr15
hr16
hr17
hr18
hr19
hr20
hr21
hr22
hr23
...
...

FILENAME 00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23
hr OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK X OK
sv OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK
...
...

perl -ne '/(\D+)(\d+)/;$a{$1}{int($2)}=1;END{print "FILENAME ";for ($i=0;$i<=23;$i++){print "$i "};print "\n";for $f (keys %a){print "$f ";for ($i=0;$i<=23;$i++){if (exists $a{$f}{$i}){print "OK "} else {print "X "}}print "\n"}}' filenames

$
$ # list all files in the current directory that start with "hr" or "sv"
$
$ ls -1 hr* sv*
hr12
hr16
hr20
hr22
sv00
sv01
sv02
sv23
$
$
$ ls -1 sv* hr* | perl -lne '$x{$_}++;
    END {
      $f = "FILENAME ";
      $h = "hr       ";
      $s = "sv       ";
      foreach $i (0..23) {
        $fmthr = sprintf("%02d",$i);
        $f .= " $fmthr";
        $h .= sprintf(" %2s", defined $x{"hr".$fmthr} ? "OK" : " X");
        $s .= sprintf(" %2s", defined $x{"sv".$fmthr} ? "OK" : " X");
      }
      print $f;
      print $h;
      print $s;
    }'
FILENAME  00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23
hr         X  X  X  X  X  X  X  X  X  X  X  X OK  X  X  X OK  X  X  X OK  X OK  X
sv        OK OK OK  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X OK
$
$