Thread daten auslesen benötige hilfe (23 answers)
Opened by quant at 2009-02-10 16:37

quant82
 2009-02-11 18:54
#118797 #118797
User since
2007-07-27
13 Artikel
BenutzerIn
[default_avatar]
also das funktioniert, danke schonmal für alles... allerdings wirft er mir hinterher eine liste aus in welchen events 2 mal 27 drin war. was ist eigendlich erst mal brauche ist eine reine zahl, also sowas wie

events mit 27 = 2453

vlt kannst du mir dabei noch helfen... ich häng grad mal meinen code nochmal an

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63

#!/usr/bin/perl
use strict;
use warnings;

my $noe1=0;
my @array;
my $i;
#gesamtzahl der events
my $noe;

while(<>) { 
my @stuff=split(' ');

 if(/UQMD/){
 }
 elsif(/projectile:/){
 my $protar=$_
 }
 elsif(/equation_of_state:/){
  my $ecm=$stuff[5];
  my $midy=log($ecm/0.938);
  my $elab=$stuff[3];
  my $plab=$stuff[7];
 }
 elsif(/event#/){
  $noe++                    # numbers of events: noe
 }      
 else{
  if($#stuff==14){ 

   my @x=@stuff[0..3];   
   my @p=@stuff[4..7];
   my @id=@stuff[8..11];

   my $mass=$id[0];
   my $ityp=$id[1];
   my $iz2=$id[2];
   my $charge=$id[3];


    if ($ityp==27) {
      $array[$noe]++;    
     }
     }
     }
     }
    my $number;
    for(0..$#array){
#      if( defined($array[$_]) && $array[$_]==2){
#        $number++
      if($array[$_]==2 ) {
        print($_, "\t", $array[$_]);
      }
      }
      #print("anzahl", $number);
     # print($_, "\t", $array[$_]);

#    }
#   }
#  } 
# }

View full thread daten auslesen benötige hilfe