• [^] # Et si je déposais ce code ?

    Posté par . En réponse au journal "petits" brevets discrets ?. Évalué à 3.

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

    # Arg = date de l'article au format jj mm aaaa
    my $datearticle = "$ARGV[0]$ARGV[1]";
    if($datearticle =~ /^0104$/) {
    print "Putain que t'es nouille \n\t--->[]\n";
    } else {
    print "Putain de brevets\n";
    }