🚀 go-pugleaf

On Sun, 5 Jun 2011 01:55:36 -0700 (PDT), Scottie wrote:

> Kombinuje na prawo i lewo, ale w ogole nie wiem jak sie za to zabrac.

File numbers nie są recyklowane, prawda? To jakoś tak:

my %files;
for my $ch (keys %channel) {
  for my $line (@$ch) {
    if($line =~ /input datafile file number=0*(\d+) name=(\S+)/) {
      $files{$ch}{$1}{'filename'} = $2;
    }
  }
}
for my $ch (keys %channel_files) {
  for my $line (@$ch) {
    if($line =~ /channel \S+: SID=(\d+) device type=(\S+)/) {
      $files{$ch}{$1}{'devicetype'} = $2; # $1 - SID, $2 - type
    }
  }
}
for my $ch (keys %files) {
  printf "Files for channel '%s':\n", $ch;
  print "  Channel name    Channel type   File Number      File Name\n";
  for my $sid (keys %{$files{$ch}}) {
    printf "%10s %15s %6d %s\n", $ch, $files{$ch}{$sid}{'devicetype'}, 
                                $sid, $files{$ch}{$sid}{'filename'};
  }
}

Chyba niczego nie poplądałem, mam nadzieję; 0*(\d+) w regexpie, żeby zera
wiodące pominąć, bo string '000015' i '15' to nie to samo, a widzę, że raz
masz tak, a raz tak. O właściwe formatowanie wyniku zadbaj sam.

-- 
Szymon Sokół (SS316-RIPE) -- Network Manager                                 B
Computer Center, AGH - University of Science and Technology, Cracow, Poland  O
http://home.agh.edu.pl/szymon/ PGP key id: RSA: 0x2ABE016B, DSS: 0xF9289982  F
Free speech includes the right not to listen, if not interested -- Heinlein  H