Shell Programming and Scripting

node: id= c1, class=nb, cx=100, cy=100, r=10
node: id=c2, class=b, cx=150, cy=130, r=10
node: id=c3, class=nb, cx=50, cy=80, r=10
node: id=c4, class=nb, cx=120, cy=200, r=10

  while ( (my $k,my $v) = each %hsh ) {
      print "$k => $v\n";
      #assigning the key-value pair to a scalar
      #$rec->{$k} = $value;
      
  }

$ 
$ perl -le '%hsh = qw(c1 nb c2 b c3 nb c4 nb); print $hsh{c2}'
b
$

perl -le'
  push @AoH, {/(\w+)\s*=\s*(\w+)/g} while <>;
  END {
      for $h (@AoH) {
          print map { $_, " => ", $h->{$_}, "\n" } sort keys %$h;
      }
  }' input.txt

% perl -le'
  push @AoH, {/(\w+)\s*=\s*(\w+)/g} while <>;
  END {
      for $h (@AoH) {
          print map { $_, " => ", $h->{$_}, "\n" } sort keys %$h;
      }
  }' input.txt 
class => nb
cx => 100
cy => 100
id => c1
r => 10

class => b
cx => 150
cy => 130
id => c2
r => 10

class => nb
cx => 50
cy => 80
id => c3
r => 10

class => nb
cx => 120
cy => 200
id => c4
r => 10


from => c1
id => l1
to => c2

from => c1
id => l2
to => c3

from => c1
id => l3
to => c4

push @AoH, {/(\w+)\s*=\s*(\w+)/g} while <>;

$hashref = {qw/id c1 class nb cx 100 cy 100 r 10/};
push @AoH $hashref;

 /(\w+)\s*=\s*(\w+)/g

# to get the first lines data:
print $AoH[0]{id},   "\n";
print $AoH[0]{class},"\n";
print $AoH[0]{cx},   "\n";
print $AoH[0]{cy},   "\n";
print $AoH[0]{r},    "\n";

open(FILE,"<input.txt") or die "open failed: $!\n";