Leer hier Perl

quote:

Op woensdag 9 juni 2004 22:43 schreef ChOas het volgende:
Oh, en ik vraag me af wie ik moet pijpen voor een fucking schouderklopje, maar daar kom ik nog wel achter

quote:

Op donderdag 10 juni 2004 15:34 schreef Wouta het volgende:
Ik heb een vraag over het volgende voorbeeld:

quote:

Op donderdag 10 juni 2004 21:08 schreef TimberWolf het volgende:
Even wat uitleg over de log, voor het geval begrip indeze handig is. Een apache log regel bestaat uit een vast aantal elementen,

quote:

Wellicht is het leuk om via een regex de IP adressen uit de logfile te toveren? IP adressen zijn altijd wel leuk voor regex uitleg volgens mij

quote:

Op donderdag 10 juni 2004 22:15 schreef ChOas het volgende:
Perl!

quote:

if (/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/) {$Once{$&}++};

quote:

2001:838:9999:1234:201:2ff:fe10:62ca - - [10/Jun/2004:22:24:31 +0200] "GET / HTTP/1.1" 200 213 "-" "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7b) Gecko/20040421"

quote:

Op donderdag 10 juni 2004 22:32 schreef ChOas het volgende:
++$Once{substr $_,0,index $_," "}

Is sowieso takke sneller omdat je geen regex machine ingaat... je gaat er alleen maar vanuit dat het eerste element voor de spatie het adres is

quote:

Op donderdag 10 juni 2004 21:41 schreef ChOas het volgende:
my %Once;
while (<INPT>)
{
if (/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/) {$Once{$&}++};
};

Wat staat er nu in de hash %Once ?

quote:

Op donderdag 10 juni 2004 22:02 schreef devzero het volgende:
N.B. Denk er wel aan dat dat afhankelijk is van je logformaat in je httpd.conf. Er zijn wel een aantal "standaard" logformaten (bv LogFormat "%h %l %u %t \"%r\" %>s %b \"%{Referer}i\" \"%{User-Agent}i\"" combined) maar de machine waarop je je paginaatje host kan een andere methode hebben.

quote:

Overigens nog wat meer roet: vergeet niet dat je naast ipv4 nummers ook ipv6 nummers hebt.

quote:

Op woensdag 9 juni 2004 22:43 schreef ChOas het volgende:
Oh, en ik vraag me af wie ik moet pijpen voor een fucking schouderklopje, maar daar kom ik nog wel achter

quote:

Op zaterdag 12 juni 2004 10:53 schreef Ferdy het volgende:
Zeer interessant topic!

Als ik klaar ben met me repetitieweek ga ik ook maar eens Perl proberen

quote:

use strict;
sub fisher_yates_shuffle {
my $list = shift;
my $i = @{$list};
while ( $i-- ) {
my $j = int rand( $i );
@{$list}[$i,$j] = @{$list}[$j,$i];
}
}

quote:

my @numbers = ( 0 .. 2 );
fisher_yates_shuffle(\@numbers);

quote:

my $my_number = shift @numbers;
print
"Het getal is $my_number";

quote:

sub fisher_yates_shuffle {
my $list = shift;
my $i = @{$list};
while ( $i-- ) {
my $j = int rand( $i );
@{$list}[$i,$j] = @{$list}[$j,$i];
}
}
my @numbers = ( 0 .. 2 );
fisher_yates_shuffle(\@numbers);
my $my_number = shift @numbers;
print
"Het getal is $my_number";

quote:

Op zondag 13 juni 2004 05:07 schreef ChOas het volgende:
Iemand zin om de fisher-yates shuffle uit te leggen ?

quote:

iteratie 1: i=3, j=2 en de lijst wordt a b d c
iteratie 2: i=2, j=1 en de lijst wordt a d b c
iteratie 3: i=1, j=0 en de lijst wordt d a b c

quote:

iteratie 1: i=3, j=0 en de lijst wordt d b c a
iteratie 2: i=2, j=1 en de lijst wordt d c b a
iteratie 3: i=1, j=0 en de lijst wordt c d b a

quote:

Op donderdag 24 juni 2004 17:29 schreef -DailaLama- het volgende:
Weten jullie hier wat op?

De vraag: Schrijf een functie die 4 letters als argumenten meekrijgt en alle mogelijke combinaties van deze letters afdrukt.

dus
AAAA
AAAB
AAAC
AAAD
AABA
AABB
...
ik weet wel hoe het moet, het klinkt eenvoudig, maar ik kom er niet uit

quote:

Op donderdag 24 juni 2004 19:40 schreef daReaper het volgende:

[..]

wat dacht je hier van:

sub combi {
  my @letters = split(//, $_[0]);
  foreach my $a (@letters) {
    foreach my $b (@letters) {
      foreach my $c (@letters) {
        foreach my $d (@letters) {
          print "$a$b$c$d\n";
        }
      }
    }
  }
}

misschien wat omslachtig, maar het werkt

quote:

Op maandag 5 juli 2004 09:29 schreef TimberWolf het volgende:
Is 'use strict' perse noodzakelijk?

quote:

En als ik localtime in een array dump (my @ltime = localtime()) doet ie het ook natuurlijk.

quote:

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

my $a = 5;

sub functie1 {
$a = 10;
}

sub functie2 {
my $a = 20;
}

print $a;
functie1();
print $a;
functie2();
print $a;

quote:

#!/usr/bin/perl -w

$a = 5;

sub functie1 {
$a = 10;
}

sub functie2 {
$a = 20;
}

print $a;
functie1();
print $a;
functie2();
print $a;

quote:

Op dinsdag 6 juli 2004 14:55 schreef TimberWolf het volgende:
Geeft vast nogal load op de server van de ontvangende partij

quote:

Ben ik overigens de enige die chOas mist?

quote:

Op dinsdag 6 juli 2004 15:35 schreef devzero het volgende:
sleep int rand(3);
oftewel wacht 0,1 of 2 seconden voor je het volgende plaatje ophaalt.

quote:

We missen hem allemaal

quote:

Op dinsdag 6 juli 2004 21:03 schreef ChOas het volgende:
escape probleem is gefixed, bovenstaande obfuscated code werkt weer

Dus... wat gaan we nu doen ?