[perl] if statement wil niet werken.

[Verwijderd]

code:

#!/usr/bin/perl -w
use strict;

my $bRemotescan;
my $cIpadres;
my $cHostname;
#my $cSusserver;
#my $cArgumenten;

print "Wilt u een remote scan uitvoeren (Ja/Nee): \n";
$bRemotescan = <>;
if ($bRemotescan eq 'Ja')
{
  print "Scanning Local Host ....."; 
}
if ($bRemotescan eq 'Nee')
{
  print "\nWilt u scannen op Ipadres of Hostname?";
  print "\nType Ip voor Ipadres.";
  print "\nType Host voor Hostname.";
  $_ = <>;
  if ($_ eq "Ip")
  {
    print "\nGeeft het ipadres op: ";
    $cIpadres = <>;
    print "$cIpadres";
  }
  if ($_ eq "Host")
  {
    print "\nGeef de hostname op: ";
    $cHostname = <>;
    print "$cHostname";
  }
}

Waarom doet perl deze if statement niet uitvoeren ?

[Verwijderd]

welke if ? staan er meerdere...

[Verwijderd]

code:

print "Wilt u een remote scan uitvoeren (Ja/Nee): \n";
$bRemotescan = <>;
if ($bRemotescan eq 'Nee')
{
  print "Scanning Local Host ....."; 
}
if ($bRemotescan eq 'Ja')

Vanaf hier doet hij het al niet meer.

[ Voor 15% gewijzigd door Verwijderd op 17-02-2004 11:15 ]

[Sendy]

Goede vraag, OddBall-. TS, heb je chop() of chomp() al geprobeerd?

[D2k]

print $bRemotescan na de invoer
ik gok dat je daarin "Ja\n" of "Nee\n" aantreft.

[Rac-On]

hij zal nooi eq zijn. er zit waarschijnlijk een \n achter... idd een chomp gebruiken zal het probleem wel oplossen., Wat je ook kan doen is kijken of de letter j erin voorkomt. Het hangt er een beetje van af hoe strikt je wil checken...

[Verwijderd]

D2k schreef op 17 februari 2004 @ 11:15:
print $bRemotescan na de invoer
ik gok dat je daarin "Ja\n" of "Nee\n" aantreft.

[afz**k mode]
O wat ben ik weer DOM !!!!
[/afz**k mode]

Thnx

[TrailBlazer]

wat je veel beter kan doen is

code:

if ($bRemotescan=~/ja/i) { doe dingie}

dan zoek je case insesitve naar een combi van ja

[Juup]

het helpt om altijd if else statements te gebruiken.

code:

if ($invoer eq "Appeltaar gebakken door Oma")
{
  DoThis();
}
else
{
  print "The appeltaart was not gebakken door Oma\n";
}