5 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
sub FILEWRITE{
$erfolg = open(OUTFILE, ">test.txt");
if(!$erfolg){
print "kann daten nicht &âffnen \n";
exit 1;
}
print OUTFILE " hallo weltadfasdf; test \n";
close OUTFILE;
$test = Alles Erfolgreich;
return $test;
}
sub MAX{
my $x = $_[0];
my $y = $_[1];
if($x>$y){
return $x;
}else{
return $y;
}
}
1
2
3
4
      PERLEZHANDLE myperl;
myperl = PerlEzCreate(filename, NULL);
int ez=0;
ez = PerlEzCall1(myperl, fname,ergebnis ,8 ,NULL,test );
$test = Alles Erfolgreich;
5 Einträge, 1 Seite |