Help for this page

Select Code to Download


  1. or download this
    my $DATA_X;
my $DATA_Y;
...
  push(@{$DATA_X->{$obs}->{$det}}, $x);
  push(@{$DATA_Y->{$obs}->{$det}}, $y);
}
  2. or download this
    my $DATA;
while (<>) {
  my ($obs, $det, $x, $y) = split(' ', $_);
  push(@{$DATA->{$obs}->{$det}}, {x => $x, y => $y});
}
  3. or download this
    print $DATA->{21}->{'DET-2'}->[0]->{x}; # prints 896.657564735788
print $DATA->{47}->{'DET-7'}->[1]->{y}; # prints 519.649226713148