perl enig idee waarom dit niet werkt?

[Verwijderd]

#!c:\perl\bin\perl -W
use strict;
# Lotte Meijer, 9938133, Coding Cultures 15 mei 2002


sub C{
print "geef aub een woord\n";
my $woord=<>;
chomp ($woord);
my @letters=split(//,$woord);
for (my $i=0; $i<=$#letters; $i++){
if ($letters[$i]=a OR $letters[$i]=e OR $letters[$i]=i OR $letters[$i]=o OR $letters[$i]=u OR $letters[$i]=y){
print "hoera";
} #einde if
else {
print "niethoera";
} #einde else
} #einde for
} #einde sub


C();

[Verwijderd]

wat werkt er wel? wat werkt er niet?
parse errors? wat heb je geprobeerd????

dit lijkt me een beetje vaag:

code:

if ($letters[$i]=a OR $letters[$i]=e OR $letters[$i]=i OR $letters[$i]=o OR $letters[$i]=u OR $letters[$i]=y){

ik geef je 1 cadeautje en de rest mag je zelf zoeken op perldoc.com

code:

$letters[$i] eq "a"

ipv

code:

$letters[i]=a

maar ik zou je adviseren om een boek te gaan kopen en fatalstobrowser aan te zetten......

[Grum]

textuele vergelijking doe je mbv de 'eq' operator dus:

code:

if ( $string eq 'a' )
{
   print 'het was een a!';
}
else
{
   print 'het was geen a!';
}

eq is == maar dan voor strings
ne is != maar dan voor strings

HTH

[Verwijderd]

tekstueel vergelijken doe je met eq niet met =

if{ $a[$b] eq 'apekop'){
do stuff
}

[D2k]

ik geloof dat textueel vergelijken niet zo werkt

kortom je iets meer verdiepen in de taal