Leer hier Perl

quote:

Op woensdag 9 juni 2004 19:26 schreef TimberWolf het volgende:

[..]

Hoeveel wil je er hebben? Mail maar op bofh apendingetje meanframe punt com

Maareh, vallen er nog wat praktijkvoorbeelden te geven voor pointers, pardon references? Ik denk het te snappen, maar ik zie het wezelijke nut nog niet echt

Oftewel: Meester, ik snap het wel, maar ik weet niet waarom

quote:

sub alter {
my ($arg) = @_;
${$arg} = 2
};

my $test = 1;
my $ref = \$test;
print $test;
alter($ref);
print $test;

quote:

Op woensdag 9 juni 2004 19:31 schreef daReaper het volgende:
Alsjeblieft. Ik heb hier een variabele aangepast met behulp van een functie, zonder van die functie een return te gebruiken. Output van deze code is "12"

quote:

Op woensdag 9 juni 2004 20:12 schreef ChOas het volgende:

[..]

aaaaaah... wat hier staat:

my ($arg)=@_;

is hetzelfde als : my $arg=shift;

Dus: Het eerste element in @_ (De reference die aan de functie is meegegeven)...

${$arg}=2 betekent dat je 2 stopt in de scalar variabele waar $arg naar wijst.

Al beter ? zo niet zeg het, leg ik het op een andere manier uit...

quote:

Op woensdag 9 juni 2004 20:20 schreef TimberWolf het volgende:

[..]

Ah, dat snap ik inderdaad dan beter Die hele 'do what i mean' variable in perl is krachtig zat, maar leuk verwarrend bovendien.

In jouw voorbeeld zie ik momenteel zelfs de hele pointers over het hoofd, maar dat kan door de warmte komen Ik pak dadelijk een biertje en een half uurtje rust, en dan komt het vast goed Ga voor de rest overigens vooral verder, ik blaat er af en toe wel tussendoor! Zou zonde zijn als ik de cursus stagneer tenslotte

SPOILER

Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.

quote:

Op woensdag 9 juni 2004 20:36 schreef daReaper het volgende:

[..]

't is maar goed dat dit ChOas' topic is, en niet die van mij, of niet dan? Ik ben echt bijzonder slecht in uitleggen

quote:

Op woensdag 9 juni 2004 22:42 schreef ChOas het volgende:
Volgende deel regexps ga ik je apache logging gebruiken

quote:

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

my $Number;

print "Voer een getal in onder de 10: ";

#krijg invoer van het toetsenbord (gebruiker)
$Number=<STDIN>;

#Enter uit $Number halen
chomp $Number;

if($Number>10)
{
print "Het nummer is groter dan 10 dus we gaan niet tellen\n";
}else{
print "het nummer is kleiner dan 10. We gaan tot 25 tellen\n";

#We gaan tot 25 tellen, met een for lus
for($Number;$Number<25;$Number++)
}

quote:

syntax error at ./test line 22, near ")
}"
Execution of ./test aborted due to compilation errors.

quote:

Op donderdag 10 juni 2004 14:21 schreef Wouta het volgende:
Ik heb de eerste drie hoodfstukken gelezen en dacht laat ik is iets zinloos gaan maken.

Het volgende heb ik gemaak en het werkt niet
[..]

De fout die ik krijd is.
[..]

Wat doe ik fout want ik zie het echt niet. Het enige dat ik denk te weten is dat de fout in de for lus zit.

quote:

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

my $Number;

print "Voer een getal in onder de 10: ";

#krijg invoer van het toetsenbord (gebruiker)
$Number=<STDIN>;

#Enter uit $Number halen
chomp $Number;

if($Number>10)
{
print "Het nummer is groter dan 10 dus we gaan niet tellen\n";
}else{
print "het nummer is kleiner dan 10. We gaan tot 25 tellen\n";

#We gaan tot 25 tellen, met een for lus
for($Number;$Number<25;$Number++) {
print "$Number\n";
}
}

quote:

Op donderdag 10 juni 2004 14:27 schreef daReaper het volgende:

[..]

Je doet nix in de for loop... Sterker nog, je hebt geen { en } er achter gezet
[..]

quote:

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

#Nieuwe list Fruit
my @Fruit=('Appel','Peer','Banaan','Kiwi');

#nieuwe scalar Index
my $Index;

#We gaan nu Index gebruiken om telkens een ander element uit de
#lijst aan te wijzen... met $Lijst[0] wijzen we zoals we eerder gezien
#hebben naar het 1e element.
#Wanneer we Index nou van 0 tot 3 laten lopen en telkens dat element
#afdrukken gebeurt het volgende:

for($Index=0;$Index<4;$Index++)
{
print "Dit is fruit: $Fruit[$Index]\n";
};