#!/usr/bin/perl
use Getopt::Std;
#########****************************************************
getopt('ntp'); #n-azwa   t-yp   p-lyta
getopts('r'); #r nie przyjmuje wartości
if ((!$opt_t) and (!$opt_n)) { die "pomoc"}
if ((!$opt_p) and (!$opt_r)) {  die "pomoc"}
if ($opt_p){
    if (($opt_t) and ($opt_n)) {  
           @optp = split('-', $opt_p);
           foreach $a (@optp) {
             if ($a =~ /\w/) {
               open (PLT, "/home/bin/plyty-db/$a") or die "nie mogę otworzyć $a\n";
                  while (<PLT>) {
                    @elem = split (';;', $_);
                    if (($elem[3] =~ /$opt_n/) and ($elem[1] eq $opt_t)) {&druki}
                  }
             } 
           }  
    }
    else {
      if ($opt_t) {
           @optp = split('-', $opt_p);
           foreach $a (@optp) {
             if ($a =~ /\w/) {
               open (PLT, "/home/bin/plyty-db/$a") or die "nie mogę otworzyć $a\n";
                  while (<PLT>) {
                    @elem = split (';;', $_);
                    if ($elem[1] eq $opt_t) {&druki}
                  }
             } 
           }  
      }
      if ($opt_n) {
           @optp = split('-', $opt_p);
           foreach $a (@optp) {
             if ($a =~ /\w/) {
               open (PLT, "/home/bin/plyty-db/$a") or die "nie mogę otworzyć $a\n";
                  while (<PLT>) {
                    @elem = split (';;', $_);
                    if ($elem[3] =~ $opt_n) {&druki}
                  }
             } 
           }
      }
    }
}
#############################################################################
if ($opt_r){
    if (($opt_t) and ($opt_n)) {  
           $x =`ls  -1 -B --indicator-style=none /home/bin/plyty-db/`;
           @ax =split ("\n", $x); #$a po kolej KAŻDY plik z danymi płyty
           foreach $a (@ax) {
             if ($a =~ /\w/) {
               open (PLT, "/home/bin/plyty-db/$a") or die "nie mogę otworzyć $a\n";
                  while (<PLT>) {
                    @elem = split (';;', $_);
                    if (($elem[3] =~ /$opt_n/) and ($elem[1] eq $opt_t)) {&druki}
                  }
             } 
           }  
    }
    else {
      if ($opt_t) {
           $x =`ls  -1 -B --indicator-style=none /home/bin/plyty-db/`;
           @ax =split ("\n", $x);
           foreach $a (@ax) {
             if ($a =~ /\w/) {
               open (PLT, "/home/bin/plyty-db/$a") or die "nie mogę otworzyć $a\n";
                  while (<PLT>) {
                    @elem = split (';;', $_);
                    if ($elem[1] eq $opt_t) {&druki}
                  }
             } 
           }  
      }
      if ($opt_n) {
           $x =`ls  -1 -B --indicator-style=none /home/bin/plyty-db/`;
           @ax =split ("\n", $x);
           foreach $a (@ax) {
             if ($a =~ /\w/) {
               open (PLT, "/home/bin/plyty-db/$a") or die "nie mogę otworzyć $a\n";
                  while (<PLT>) {
                    @elem = split (';;', $_);
                    if ($elem[3] =~ $opt_n) {&druki}
                  }
             } 
           }
      }
    }
}
sub druki {
 print "nazwa:       $elem[3]\n";
 print "rozmiar      $elem[2]\n";
 print "numer płyty: $a\n";
 print "lokalizacja: $elem[0]\n";
 print "-----------------------\n"; }