| Current Path : /var/www/web-klick.de/dsh/90_akt/klimatest/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/90_akt/klimatest/x |
syntax error at (eval 10) line 12, near "}
sub requ "
Can't use global @_ in "my" at (eval 10) line 24, near "(@_"
syntax error at (eval 10) line 28, near "; }"
syntax error at (eval 10) line 53, near ";
}"
[H[J[0m[1;37r[H[J[7m I A ./KlimaTest/Test1.pm (perl) xxsub user { "1331043105.xx" } Row 11 Col 1 6:45 Ctrl-K H for help
[11B[0mxxsub user { [36m"1331043105.xx"[0m }
[1msub[0m requ { [
[6DTempRelax => [36m0.01[0m,
[17D] }
[1msub[0m run[4C{
[9D[1mmy[0m $self = shift;
[3C$self->{[36m'zieltemperatur'[0m} = [36m0[0m;
[3C$self->test_start(@_);
[3C$self->taste([36m"Temperatur"[0m . $self->{[36m'zieltemperatur'[0m});
[32m# sleep 2;
[9D[0m$self->sleep([36m25[0m); } [1msub[0m t01 { [1mmy[0m $self = shift;
[3C[1mmy[0m $display = $self->display();
[3C$self->{[36m'result'[0m} = [36m1[0m;
[3C$self->{[36m'remark'[0m} = [36m"OK"[0m;
[3C$self->{[36m'log'[0m}[4C= [36m"Temperaturdifferenz kleiner als 1[1m\n[0m[36m"[0m;
[3C[1mif[0m (abs($display->{[36m'TEMPERATUR'[0m} - $self->{[36m'zieltemperatur'[0m}) > [36m1[0m) {[7G
$self->{[36m'result'[0m} = [36m500[0m;[H
[1mpackage[0m KlimaTest::Test1;
[1muse[0m strict;
[1muse[0m vars qw[36m(@ISA $PKG)[0m;
$PKG = __PACKAGE__;
[1mwhile[0m ($PKG =~ s[36m/^(.*)[1m\:\:[0m[36m.*$/$1/[0m) { [1meval[0m([36m"use [1m$PKG[0m[36m"[0m); [1mnext[0m if ($@); @ISA = ($PKG); [1mlast[0m }
[1msub[0m result { [36m170[0m }
[1msub[0m remark { [36m""[0m }
[26B[7m** Joe's Own Editor v3.7 ** (utf-8) ** Copyright © 2008 **
[25A[1;32HModified)(perl) xxsub user { "1331043105.xx" }[13C2
[12B[0mxxsub user { [36m"1331043105.xx"[0m }
[1msub[0m requ { [
[K
[8CTempRelax => [36m0.01[0m,
[K
[11C] }
[K
[1msub[0m run[4C{
[K
[3C[1mmy[0m $self = shift; [K
[3C$self->{[36m'zieltemperatur'[0m} = [36m0[0m;
[K
[3C$self->test_start(@_);
[K
$self->taste([36m"Temperatur"[0m . $self->{[36m'zieltemperatur'[0m});
[32m# sleep 2;[0m[K
[9D$self->sleep([36m25[0m); } [1msub[0m t01 { [1mmy[0m $self = shift;
[K
[3C[1mmy[0m $display = $self->display();
[K
[14C[36msult[5C1[0m;
[16D[36mremark'[0m}[4C[36mOK"[0m;[K
[3C$self->{[36m'log'[0m} = [36m"Temperaturdifferenz kleiner als 1[1m\n[0m[36m"[0m;[K
[1mif[0m (abs($display->{[36m'TEMPERATUR'[0m} - $self->{[36m'zieltemperatur'[0m}) > [36m1[0m) {
[25A[K
[24BLose changes to this file (y,n,^C)? [35D
[1mif[0m (abs($display->{[36m'TEMPERATUR'[0m} - $self->{[36m'zieltemperatur'[0m}) > [36m1[0m) {
[24A[24BLose changes to this file (y,n,^C)? [35D[H[7m^[[37;37H[H [37;37H
[0m [1mif[0m (abs($display->{[36m'TEMPERATUR'[0m} - $self->{[36m'zieltemperatur'[0m}) > [36m1[0m) {
[24A[24BLose changes to this file (y,n,^C)? [35D
[1mif[0m (abs($display->{[36m'TEMPERATUR'[0m} - $self->{[36m'zieltemperatur'[0m}) > [36m1[0m) {
[24A[24BLose changes to this file (y,n,^C)? [35D
[1mif[0m (abs($display->{[36m'TEMPERATUR'[0m} - $self->{[36m'zieltemperatur'[0m}) > [36m1[0m) {
[24A[1;92H[7m3
[13B[0mxxsub user { [36m"1331043105.xx"[0m }
[1msub[0m requ { [
[K
[8CTempRelax => [36m0.01[0m,
[K
[11C] }
[K
[1msub[0m run[4C{
[K
[3C[1mmy[0m $self = shift; [K
[3C$self->{[36m'zieltemperatur'[0m} = [36m0[0m;
[K
[3C$self->test_start(@_);
[K
$self->taste([36m"Temperatur"[0m . $self->{[36m'zieltemperatur'[0m});
[32m# sleep 2;[0m[K
[9D$self->sleep([36m25[0m); } [1msub[0m t01 { [1mmy[0m $self = shift;
[K
[3C[1mmy[0m $display = $self->display();
[K
[14C[36msult[5C1[0m;
[16D[36mremark'[0m}[4C[36mOK"[0m;[K
[3C$self->{[36m'log'[0m} = [36m"Temperaturdifferenz kleiner als 1[1m\n[0m[36m"[0m;[K
[24A[K
444
551 syntax error at (eval 11) line 12, near "}
sub requ "
Can't use global @_ in "my" at (eval 11) line 24, near "(@_"
syntax error at (eval 11) line 28, near "; }"
syntax error at (eval 11) line 53, near ";
}"
package KlimaTest::Test1;
use strict;
use vars qw(@ISA $PKG);
$PKG = __PACKAGE__;
while ($PKG =~ s/^(.*)\:\:.*$/$1/) { eval("use $PKG"); next if ($@); @ISA = ($PKG); last }
sub result { 170 }
sub remark { "" }
xxsub user { "1331043105.xx" }
sub requ { [
TempRelax => 0.01,
] }
sub run {
my $self = shift;
$self->{'zieltemperatur'} = 0;
$self->test_start(@_);
$self->taste("Temperatur" . $self->{'zieltemperatur'});
# sleep 2;
$self->sleep(25); } sub t01 { my $self = shift;
my $display = $self->display();
$self->{'result'} = 1;
$self->{'remark'} = "OK";
$self->{'log'} = "Temperaturdifferenz kleiner als 1\n";
if (abs($display->{'TEMPERATUR'} - $self->{'zieltemperatur'}) > 1) {
$self->{'result'} = 500;
$self->{'remark'} = "Warnung";
$self->{'log'} = "Temperaturdifferenz groesser als 1, aber noch unter 5\n";
}
if (abs($display->{'TEMPERATUR'} - $self->{'zieltemperatur'}) > 5) {
$self->{'result'} = 1100;
$self->{'remark'} = "ERROR";
$self->{'log'} = "Temperaturdifferenz groesser als 5\n";
}
if ($display->{'TEMPERATUR'} == 0) {
$self->{'result'} = 1500;
$self->{'remark'} = "ERROR";
$self->{'log'} = "Display-Feld TEMPERATUR konnte nicht ausgelesen werden\n";
}
$self->test_end();
}
1;
555
___DATABASE_OBJECT___