Opened by EagleFox at 2006-04-10 15:44
User since
2006-04-10
66 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-10
66 Artikel
BenutzerIn
Ah, ok, jetzt wird langsam Licht in meiner Birne! ;-)
Tabelle verstanden.
Ich habe nun Deinen Code integriert, nach besten Wissen und Gewissen.
Ich hoffe das würde so klappen. Aber da die Spektren durch zwei Leerzeilen getrennt sind, fängt das Programm nun an zu meckern, sobald $wert nicht existiert. Was man ihm wahrscheinlich nicht verübeln kann.
Wie kann ich das noch umgehen?
Hier mein "Einbauversuch"
Und hier die Fehlermeldung:
Zeile 55 ist in diesem Fall:
Zeile 9921 ist die erste Leerzeile nach dem ersten Spektrum.
Tabelle verstanden.
Ich habe nun Deinen Code integriert, nach besten Wissen und Gewissen.
Ich hoffe das würde so klappen. Aber da die Spektren durch zwei Leerzeilen getrennt sind, fängt das Programm nun an zu meckern, sobald $wert nicht existiert. Was man ihm wahrscheinlich nicht verübeln kann.
Wie kann ich das noch umgehen?
Hier mein "Einbauversuch"
Code: (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
my $state = 'start';
my $crit = 3;
sub getDatensatz{
my ($entry) = @_;
my $bool = 0;
my $set = '';
my @steigend;
for my $line(split(/\r?\n/,$entry)){
chomp $line;
my $wert = (split(/\s+/,$line))[-1];
if ($wert >= $crit and $state ne 'high') {
$state = 'high';
}
elsif ($wert < $crit and $state ne 'low') {
if ($state eq 'high') {
$bool = 1;
}
$state = 'low';
}
unless($bool){
push(@steigend,$line);
}
else{
$set .= $line."\n";
}
}
$set .= $_."\n" for(@steigend);
$set .= "\n\n";
return $set;
}
Und hier die Fehlermeldung:
Code: (dl
)
1
2
Use of uninitialized value in numeric lt (<) at ./sortier_neu.pl line 55, <$fh> line 9921.
Use of uninitialized value in numeric ge (>=) at ./sortier_neu.pl line 55, <$fh> line 9921.
Zeile 55 ist in diesem Fall:
Code: (dl
)
if ($wert >= $crit and $state ne 'high') {Zeile 9921 ist die erste Leerzeile nach dem ersten Spektrum.