Die van mijn site kan ongetwijfeld beterquote: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?
Sorry, sterfgeval in de familie, ik kom over een tijdje weer actief posten...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?
Sterkte man. Ik weet hoe moeilijk het is.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...
Thanks! Dat scheelt wellicht in geheugengebruikquote:use Image::Magick qw/Crop Ping Read Write/;
als je hem met `my` definieert, is hij alleen toegankelijk vanuit het blok waarin je dat doet + zijn subblokkenquote: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.
preciesquote: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
Nou dat wist ik al Maarre leuk geschreven. Kheb er een bookmarkje van gemaakt dus zal hem thuis eens lezenquote: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...
als alle adressen bestaan uit 4x cijfer/letter, punt, 4x cijfer/letter, punt, 4x cijfer/letter, zou dit moeten werken: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?
of (wanneer je zeker bent van je input)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
Nuecken is aanzienlijk leuker dan Perlquote:Op woensdag 23 februari 2005 18:56 schreef ChOas het volgende:
Al verteld dat ik een vriendin heb ?
Kan ze ook Perl?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 ?
Tot nu toe niets.. doe eens 'which perl' op je commandline ?quote:
Teringquote: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 ?
|
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |