• [^] # Re: meuh

    Posté par . En réponse au message parser un gros fichier. Évalué à 3.

    bah. moi je ferais :

    open F, '</tmp/track01.cdda.wav' or die "open: $!\n";

    my ($buf, $prev);
    while (1) {
    my $ret = read F, $buf, 4096;
    if (!defined($ret)) {
    die "read: $!\n"
    } elsif (!$ret) {
    last;
    } else {
    if ("$prev$buf" =~ /(gc\w\w)/) {
    print "match: 1ドル\n";
    }
    $prev = $buf;
    }
    }

    mais y'a sûrement pire.