Hallo Allemaal,
Ik ben bezig met een simpel webservertje in perl dat straks perl, php en html moet kunnen.
ik loop tegen een probleempje op.
ik gebruik deze code in mijn script:
$object in dit geval: $object = "/test.pl"
De bedoeling van dit scriptje is dat hij net zolang in splitter moet kijken tot dat $splitter[$i] pl of html of htm of cgi bevat. (Dus extensie bepalen) Als hij naar 100 lagen niks heeft gevonden moet hij nokken.
Wat het probleem is ik krijg het volgende altijd terug: test0
Wat doe ik fout in de bovenstaande code??
Groeten Ruben!
Ik ben bezig met een simpel webservertje in perl dat straks perl, php en html moet kunnen.
ik loop tegen een probleempje op.
ik gebruik deze code in mijn script:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| my @splitter = split(/\./,$object);
my $i = 1;
while (( $splitter[$i] ne "pl" ) and ( $splitter[$i] ne "html" ) and ( $splitter[$i] ne "htm" ) and ($splitter[$i] ne "cgi"))
{
$i = $i + 1;
if ( $i eq 100 )
{
break;
}
}
print $splitter[$i];
print $i; |
$object in dit geval: $object = "/test.pl"
De bedoeling van dit scriptje is dat hij net zolang in splitter moet kijken tot dat $splitter[$i] pl of html of htm of cgi bevat. (Dus extensie bepalen) Als hij naar 100 lagen niks heeft gevonden moet hij nokken.
Wat het probleem is ik krijg het volgende altijd terug: test0
Wat doe ik fout in de bovenstaande code??
Groeten Ruben!
[ Voor 7% gewijzigd door Verwijderd op 01-06-2004 18:43 ]
Sorry! (
Lol beetje tegen je zelf lullen!)
