Moin,
my $test = 'false';
sub heiko{
If (a eq b){
..
$test = 'true'
...
}
}
$test wird auch dann auf 'true' gesetzt wenn die IF-Bedingung nicht greift.
Der Rest im IF-Bereich verhält sich normal.
Aber warum $test geändert?
MfG
Heiko
Heiko Rompel wrote:
> my $test = 'false';
>
> sub heiko{
> If (a eq b){
> ..
> $test = 'true'
> ...
> }
> }
>
> $test wird auch dann auf 'true' gesetzt wenn die IF-Bedingung nicht greift.
> Der Rest im IF-Bereich verhält sich normal.
>
> Aber warum $test geändert?
Das ist kein lauffähiger Perl-Code.
Grüße
Frank
--
Dipl.-Inform. Frank Seitz; http://www.fseitz.de/
Anwendungen für Ihr Internet und Intranet
Tel: 04103/180301; Fax: -02; Industriestr. 31, 22880 Wedel
Heiko Rompel schrieb unter anderem:
> my $test = 'false';
>
> sub heiko{
> If (a eq b){
> ..
> $test = 'true'
> ...
> }
> }
Hallo Heiko
Etwas schwer verständlich was Du meinen könntest, da etwas fehlt was Du
vergleichen willst.
z.Bsp: heiko('c','d');
Vieleicht bringt Dich die Investition von 2 Dollars weiter, einen vor
dem a den anderen vor dem b.
SCNR
Tschööö Thomas
Heiko Rompel wrote:
> my $test = 'false';
>
> sub heiko{
> If (a eq b){
> ..
> $test = 'true'
> ...
> }
> }
> $test wird auch dann auf 'true' gesetzt wenn die IF-Bedingung nicht greift.
> Der Rest im IF-Bereich verhält sich normal.
>
> Aber warum $test geändert?
Du solltest es mal mit Perl versuchen,
...
sub a { 'Heiko' }
sub b { 'Rompel' }
my $test = 'false';
sub heiko {
if( a eq b ){
$test = 'true'
}
}
print $test;
heiko;
print $test
...
Und
use strict;
use warnings;
nicht vergessen!
M.
Heiko Rompel:
> my $test = 'false';
>
> sub heiko{
> If (a eq b){
Das ist kein Perl-Code - "If" gehört mit kleinem "i", und soferne du
die beiden Variablen "a" und "b" vergleichen willst (wobei ich jetzt
mal annehme, dass es sich dabei um Skalare handelt), musst du
ihren Namen ein "$" voransetzen (wie bei der "$test" Variable).
Außerdem würde ich vorschlagen, dass du an den Beginn deines
Codes ein
use warnings;
use strict;
setzt und dann mal siehst, was da so an Meldungen erscheint, wenn
du den Code laufen läßt - und es würde mich sehr wundern, wenn
nichts erscheinen sollte...
LG, Ferry
--
Ing Ferry Bolhar
Magistrat der Stadt Wien - MA 14
A-1010 Wien
E-Mail: bol@adv.magwien.gv.at
Okay, nachdem mir alle nur mitteilen das mein Code kein Perl sei
hier ein Auszug aus dem Code:
$pathtotemp = "/home/"
my $pruefung = 'false'; # Globale Definition der Variablen
sub user_write {
my $dateiname = $simple_form{'file'};
open(DAT, "<$pathtotemp$dateiname") || die "can't open
$pathtotemp$dateiname: $!\n";
flock (DAT,2);
$zahlen =
close (DAT);
unlink ("$pathtotemp$dateiname"); # Tempdatei wieder löschen
if ($zahlen eq $simple_form{'kontrolle'}) {
$pruefung = 'true';
# Rest gelöscht
Auch $zahlen <> $simple_form{'kontrolle'} wird $pruefung auf 'true' gesetzt.
Warum?
MfG
Heiko
Post removed (X-No-Archive: yes)
Heiko Rompel schrieb unter anderem:
> if ($zahlen eq $simple_form{'kontrolle'}) {
> $pruefung = 'true';
Hallo Heiko,
wenn Du nicht dahinter kommst, schau halt nach warum das so ist.
z.Bsp durch einfügen von:
die('('.$zahlen.')('.$simple_form{'kontrolle'}.') eq:('.($zahlen eq
$simple_form{'kontrolle'}).') ne:('.($zahlen ne
$simple_form{'kontrolle'}).')');
unter die "if" Zeile.
Sorry für die PM, ich habe den falscher Knopf erwischt.
Tschööö Thomas
DANKE.
"Thomas Rudy" schrieb:
> z.Bsp durch einfügen von:
> die('('.$zahlen.')('.$simple_form{'kontrolle'}.') eq:('.($zahlen eq
> $simple_form{'kontrolle'}).') ne:('.($zahlen ne
> $simple_form{'kontrolle'}).')');
Das brachte zwar nicht direkt den Erfolg, aber als ich das übertrug,
schrie mein Fehler mich an.
Ich hatte an der Stelle an der ich $pruefung überprüfe ein '=' anstatt 'eq'
eingesetzt.
> Sorry für die PM, ich habe den falscher Knopf erwischt.
PM? - Hier kam keine an.
MfG
Heiko
Heiko Rompel:
> Das brachte zwar nicht direkt den Erfolg, aber als ich das übertrug,
> schrie mein Fehler mich an.
> Ich hatte an der Stelle an der ich $pruefung überprüfe ein '=' anstatt
'eq'
> eingesetzt.
Diese Stelle hast du aber nicht gepostet.
LG, Ferry
--
Ing Ferry Bolhar
Magistrat der Stadt Wien - MA 14
A-1010 Wien
E-Mail: bol@adv.magwien.gv.at