abonnementen ibood.com bol.com Gearbest
pi_20671005
server sockets heb ik trouwens nog niet zo onder de knie
met dat gefork enzo

die mag ook nog wel
Trotse poster van het 37000000ste bericht ^O^
pi_20679408
Qua dingen die lang kunnen komen:

Modules, roll your own (Net mijn eerste gemaakt, yay!)
Kort langs de belangrijke modules (LWP, CGI, TK, enz)
Sockets

Overigens lijkt me het bouwen van een IRC botje (En dan meteen met stat-logging naar een database, heb je dat ook gehad) erg leuk. Ik wil, tijd en werk permitterend, zelf wel helpen knutselen

Misschien leuk om eens een perl script van een van de meelezers (ik heb wel wat liggen ook) door te werken om te kijken hoe het beter kan ofzo?
pi_20679436
quote:
Op zaterdag 17 juli 2004 00:35 schreef TimberWolf het volgende:
Qua dingen die lang kunnen komen:

Modules, roll your own (Net mijn eerste gemaakt, yay!)
Kort langs de belangrijke modules (LWP, CGI, TK, enz)
Sockets

Overigens lijkt me het bouwen van een IRC botje (En dan meteen met stat-logging naar een database, heb je dat ook gehad) erg leuk. Ik wil, tijd en werk permitterend, zelf wel helpen knutselen

Misschien leuk om eens een perl script van een van de meelezers (ik heb wel wat liggen ook) door te werken om te kijken hoe het beter kan ofzo?
Die van mijn site kan ongetwijfeld beter
Ik ben er mee begonnen toen ik nog niet heel goed Perl kon... Ik zit alleen ff te denken of ik die, al dan niet als geheel, wil gaan vrij geven ...
Trotse poster van het 37000000ste bericht ^O^
pi_20909445
Vraagje, en schop:

Kan ik delen van een module importeren? Dus iets als 'use Image::Magick(Crop, Ping, Read, Write);' ofzo?
  woensdag 28 juli 2004 @ 13:59:22 #180
693 ChOas
** Warning: Choking hazard **
pi_20909530
quote:
Op woensdag 28 juli 2004 13:55 schreef TimberWolf het volgende:
Vraagje, en schop:

Kan ik delen van een module importeren? Dus iets als 'use Image::Magick(Crop, Ping, Read, Write);' ofzo?
Sorry, sterfgeval in de familie, ik kom over een tijdje weer actief posten...

antwoord: Ja

use Image::Magick qw/Crop Ping Read Write/;

qw is eigenlijk 'quote word' dus er had ook kunnen staan:

use Image::Magick ('Crop', 'Ping', 'Read', 'Write');
"I contend that we are both atheists. I just believe in one fewer god than you do.
When you understand why you dismiss all the other possible gods, you will understand why I dismiss yours."

[Stephen Roberts]
pi_20909878
quote:
Op woensdag 28 juli 2004 13:59 schreef ChOas het volgende:
Sorry, sterfgeval in de familie, ik kom over een tijdje weer actief posten...
Sterkte man. Ik weet hoe moeilijk het is.
quote:
use Image::Magick qw/Crop Ping Read Write/;
Thanks! Dat scheelt wellicht in geheugengebruik
pi_20950235
Kee, nog een vraag (Hier maar even, wegens geen groot perl vragentopic).

Zijn perl variabelen altijd global? Dus is het altijd zo dat een variabele in het lopende programma ook beschikbaar is voor de subroutines in dat programma? Ik denk, ik vraag het maar voor ik me gigantisch in mijn vingers snijdt Ik weet namelijk dat het wel zo werkt (ze lijken global te zijn), maar of dat zo hoort is me onduidelijk.
pi_20952593
quote:
Op vrijdag 30 juli 2004 11:23 schreef TimberWolf het volgende:
Kee, nog een vraag (Hier maar even, wegens geen groot perl vragentopic).

Zijn perl variabelen altijd global? Dus is het altijd zo dat een variabele in het lopende programma ook beschikbaar is voor de subroutines in dat programma? Ik denk, ik vraag het maar voor ik me gigantisch in mijn vingers snijdt Ik weet namelijk dat het wel zo werkt (ze lijken global te zijn), maar of dat zo hoort is me onduidelijk.
als je hem met `my` definieert, is hij alleen toegankelijk vanuit het blok waarin je dat doet + zijn subblokken

#####################
use strict;
my $a = 5;
{
my $b = 10;
print $a+$b; # goed
}
print $a+$b; # niet goed, want $b kent hij niet
#####################

als je `use strict;` gebruikt, verplicht hij je het gebruik van `my`

#####################
$a = 5;
{
$b = 10;
print $a+$b; # goed
}
print $a+$b; # goed
Trotse poster van het 37000000ste bericht ^O^
pi_20954519
Helemaal duidelijk Oftewel: Vars die global moeten zijn, moet je buiten een blok definieren. Nu nog wat andere probleempjes oplossen, en ik kan weer verder spelen
pi_20954558
quote:
Op vrijdag 30 juli 2004 14:31 schreef TimberWolf het volgende:
Helemaal duidelijk Oftewel: Vars die global moeten zijn, moet je buiten een blok definieren. Nu nog wat andere probleempjes oplossen, en ik kan weer verder spelen
precies
succes
Trotse poster van het 37000000ste bericht ^O^
  vrijdag 30 juli 2004 @ 14:34:32 #186
693 ChOas
** Warning: Choking hazard **
pi_20954601
Je kan trouwens ook binnen een blok een global variabele locaal maken, waar dat nuttig voor is leg ik nog wel eens uit, maar zo werkt het:

#!/usr/bin/perl -w

use strict;

my $a=5

print "a: $a\n";
{
local $a=10;
print "a: $a\n";
};
print "a: $a\n";
"I contend that we are both atheists. I just believe in one fewer god than you do.
When you understand why you dismiss all the other possible gods, you will understand why I dismiss yours."

[Stephen Roberts]
pi_25215831
Hallo,
Ik heb een lijst met hardware adressen van netwerkkaarten, maar wil deze in een ander formaat hebben. Ik weet dat ik dit kan doen met Perl, maar het lukt me niet.

Dit is het huidige formaat: 0008.021d.53c0
En dit zou het moeten worden: 00:08:02:1d:53:c0

Kan iemand me hierbij helpen?
pi_25215948
quote:
Op vrijdag 4 juni 2004 20:01 schreef ChOas het volgende:
Nou... positieve reacties tot nu toe, en ik heb geen leven dus deel 2...
Nou dat wist ik al Maarre leuk geschreven. Kheb er een bookmarkje van gemaakt dus zal hem thuis eens lezen
Mijn games
He jij daar! ja jij! Doorlopen nu!
pi_25216110
ik ga dit zeker een keer proberen

tvpje dus
pi_25216257
Mooie zet. Ik ga binnenkort hier ook eens mee stoeien.
pi_25217462
quote:
Op woensdag 23 februari 2005 15:44 schreef Werewolf het volgende:
Hallo,
Ik heb een lijst met hardware adressen van netwerkkaarten, maar wil deze in een ander formaat hebben. Ik weet dat ik dit kan doen met Perl, maar het lukt me niet.

Dit is het huidige formaat: 0008.021d.53c0
En dit zou het moeten worden: 00:08:02:1d:53:c0

Kan iemand me hierbij helpen?
als alle adressen bestaan uit 4x cijfer/letter, punt, 4x cijfer/letter, punt, 4x cijfer/letter, zou dit moeten werken:

$address =~ s/^(\w{2})(\w{2})\.(\w{2})(\w{2})\.(\w{2})(\w{2})$/$1:$2:$3:$4:$5:$6/;

succes
Trotse poster van het 37000000ste bericht ^O^
  woensdag 23 februari 2005 @ 18:56:57 #192
693 ChOas
** Warning: Choking hazard **
pi_25218475
quote:
Op woensdag 23 februari 2005 17:53 schreef daReaper het volgende:

[..]

als alle adressen bestaan uit 4x cijfer/letter, punt, 4x cijfer/letter, punt, 4x cijfer/letter, zou dit moeten werken:

$address =~ s/^(\w{2})(\w{2})\.(\w{2})(\w{2})\.(\w{2})(\w{2})$/$1:$2:$3:$4:$5:$6/;

succes
of (wanneer je zeker bent van je input)

$Address=~s/(\w{2})\.?/$1:/g;
chop $Address;

Is waarschijnlijk niet efficienter, maar geen zin om te benchmarken

Cool dat het topic nog loopt

Al verteld dat ik een vriendin heb ?
"I contend that we are both atheists. I just believe in one fewer god than you do.
When you understand why you dismiss all the other possible gods, you will understand why I dismiss yours."

[Stephen Roberts]
pi_25222364
quote:
Op woensdag 23 februari 2005 18:56 schreef ChOas het volgende:
Al verteld dat ik een vriendin heb ?
Nuecken is aanzienlijk leuker dan Perl

Overigens zou het volgens mij ook wel met iets printf-erigs kunnen. En tsja, sed en awk zijn ook je vriendjes. Alsmede de global-replace van vi(m). En als ik me gek maak verzin ik nog wel een niet-perl methode, die aanzienlijk meer 'hacker' is

Overigens verlate dank voor de cursus Mijn eerste programma is volledig in gebruik, en werkt geweldig Nu nog een mailinterface intergreren in de code, zonder commandline functionaliteit te verliezen. Fun project! (Je kunt wel zien, ik heb geen vriendin...)
pi_25224982
quote:
Op woensdag 23 februari 2005 18:56 schreef ChOas het volgende:

[..]

of (wanneer je zeker bent van je input)

$Address=~s/(\w{2})\.?/$1:/g;
chop $Address;

Is waarschijnlijk niet efficienter, maar geen zin om te benchmarken

Cool dat het topic nog loopt

Al verteld dat ik een vriendin heb ?
Kan ze ook Perl?
Of is ze een PHP 'er ?

Trotse poster van het 37000000ste bericht ^O^
pi_27814923
Heeft er iemand een werkend voorbeeld van een object orienteerd programma in perl???

als het kan met database en zo

thx
  donderdag 10 augustus 2006 @ 12:15:46 #196
120235 skippy22
Potente kangoeroe
pi_40680489
<skippy> #!/usr/bin/perl
<skippy> use IO::Socket;
<skippy> my $sock = new IO::Socket::INET (
<skippy> PeerAddr => '10.0.0.6',
<skippy> PeerPort => '80',
<skippy> Proto => 'tcp',
<skippy> );
<skippy> wat doe ik hoer fout
<skippy> hier
<skippy>
<skippy> ./test.pl: line 3: use: command not found
<skippy> ./test.pl: line 4: syntax error near unexpected token `('
<skippy> ./test.pl: line 4: `my $sock = new IO::Socket::INET ('
<skippy> [email protected]:~/perl1$
Wat doe ik fout ??
  donderdag 10 augustus 2006 @ 12:44:05 #197
693 ChOas
** Warning: Choking hazard **
pi_40681104
quote:
Op donderdag 10 augustus 2006 12:15 schreef skippy22 het volgende:

Wat doe ik fout ??
Tot nu toe niets.. doe eens 'which perl' op je commandline ?
"I contend that we are both atheists. I just believe in one fewer god than you do.
When you understand why you dismiss all the other possible gods, you will understand why I dismiss yours."

[Stephen Roberts]
  donderdag 10 augustus 2006 @ 17:15:25 #198
120235 skippy22
Potente kangoeroe
pi_40688295
Hij doet het al was een foutje van mij
pi_40688340
Lees post
Op dinsdag 2 september 2008 22:59 schreef Danny het volgende:
sorry.
leukste topic aller tijden
Voor computergerelateerde vragen klik hier
  vrijdag 21 september 2007 @ 15:31:56 #200
8372 Bastard
Persona non grata
pi_53358212
quote:
Op vrijdag 4 juni 2004 15:52 schreef ChOas het volgende:
Perl Tutorial:

Ik zit ziek thuis en verveel me dus ik ga jullie ook maar vervelen...

Perl is een leuke programeertaal en makkelijk om te leren...

Wanneer Je een unix variant gebruikt staat Perl hoogst waarschijnlijk op je systeem. Wanneer je een MS product gebruikt kan je hier Perl downloaden: http://www.activestate.com/Products/ActivePerl/?_x=1

PHP lijkt een beetje op Perl, met nadruk op 'lijkt'.

Hier de eerste stappen, wanneer iemand meer wil horen/leren laat het dan weten.

Ik neem aan dat waneer je dit leest je een beetje kan programeren, maar zo niet, geen nood, ik hou het in het begin simpel...

Datacontainers:

Perl heeft 3 datacontainers (iets waar je informatie in kan stoppen)

  • Scalars, aangeduid door een $ <- Hier stop je bijvoorbeeld zinnen of getallen in.
  • Lists, aangeduid door een @ <- Hier kan je een lijst van dingen scalars instoppen.
  • Hashes, aangeduid door een % <- Dit is een associatieve lijst, dit leg ik later nog wel uit (als er ooit iemand geinteresseerd is).

    Input, Output:

    zoals ik zei, in het begin houden we het simpel, output schrijf je naar het scherm doormiddel van print.

    Input krijg je van de gebruiker (uitgaande van een toetsenbord in het begin) door <STDIN>.

    Regels sluit je af door middel van een ;

    Ons eerste programma:

    We schrijven een programma wat aan de gebruiker vraagt hoe oud hij/zij is, en dit dan weer afdrukt.

    Een Perl programma bestaat uit een text bestand wat geinterpreteerd wordt door Perl...

    DE manier om netjes je bestand te beginnen is (buiten dat Perl misschien bij jou op een andere locatie staat) als volgt:

    #!/usr/bin/perl -w

    use strict;


    De -w geeft aan dat je waarschuwingen van Perl wil hebben wanneer er iets fout dreigt te gaan, en 'use strict' geeft aan dat je een standaard module van Perl wil gebruiken welke je helpt fouten sneller op te sporen (Voor de Perlgoden: Ja, ik weet dat het strict namespace, en etc. is, maar ik leg het even zo uit).

    Nog even iets... wanneer je in Perl een container wil gebruiken dan zeg je van tevoren tegen Perl dat je WEET dat je die container gaat gebruiken, dit doe je door middel van 'my' ... dus met 'my $Getal;' zeg je tegen Perl, ik ga een Scalar container gebruiken die 'Getal' heet.

    Het eerste simpele programma:

    ---
    #!/usr/bin/perl -w

    use strict;

    #Maak container leeftijd aan:
    my $Leeftijd;

    #netjes om je leeftijd vragen:
    print "Voer hier je leeftijd in >";

    #Leeftijd van de gebruiker inlezen:
    $Leeftijd=<STDIN>;

    #Antwoord ('n' betekent 'enter') :
    print "Je bent $Leeftijd jaar oud!n";

    ---

    Wanneer ik dit in een textbestandje 'leeftijd' opsla, en dit uitvoer krijg je dit:

    ChOas-Powerbook:~ choas$ ./leeftijd
    Voer hier je leeftijd in >28
    Je bent 28
    jaar oud!
    ChOas-Powerbook:~ choas$


    Hum.. ziet er bijna goed uit... wat er gebeurt is dat Perl de enter die je intikte toen je je leeftijd invoerde OOK in 'Leeftijd' stopte.

    Om een enter van een Scalar af te halen gebruiken we 'chomp'.

    Laten we het eens proberen:

    ---
    #!/usr/bin/perl -w

    use strict;

    #Maak container leeftijd aan:
    my $Leeftijd;

    #netjes om je leeftijd vragen:
    print "Voer hier je leeftijd in >";

    #Leeftijd van de gebruiker inlezen:
    $Leeftijd=<STDIN>;

    #haal de enter van leeftijd af:
    chomp $Leeftijd;

    #Antwoord ('n' betekent 'enter') :
    print "Je bent $Leeftijd jaar oud!n";


    ---
    En het resultaat:

    ChOas-Powerbook:~ choas$ ./leeftijd
    Voer hier je leeftijd in >27
    Je bent 27 jaar oud!
    ChOas-Powerbook:~ choas$



    Dus... heeft dit zin gehad, of gaan we gelijk naar complexe datastructuren, OO Perl, logs en webpagina's parsen ?... of vind niemand er ene fuck aan ?

    In andere woorden: te snel/te langzaam/geen fuck aan ?
  • Tering
    The truth was in here.
    abonnementen ibood.com bol.com Gearbest
    Forum Opties
    Forumhop:
    Hop naar:
    (afkorting, bv 'KLB')