Eindeutige Liste aller Zeichen im String - #106993 (Allgemeines zu Perl)

KurtZ

2008-03-13 04:24

User since
2007-12-13
411 Artikel
BenutzerIn
[default_avatar]

Code (perl): (dl )

sub arr2 { 
    my $res = $string;
    my @seen;
    $res =~ s/(.)/$seen[ord($1)]++ ? "" : $1/gse;
    return $res;
}

Arrays sind schneller als Hashes, immerhin Platz 1 im Ranking bei laaaangen Strings.

Code (perl): (dl )

sub substr_tr {
        my $res=$string;
        my $out="\0"x256;
        $res =~ s/(.)/substr($out,ord($1),1,$1)/eg;
        $out =~ tr/\0//d;
        return $out;
}

nur (sub)String, auch nicht schneller

Code (perl): (dl )

sub regex {
        my $res=$string;
        $res =~ s/(.)(?=.*\1)//g;
        return $res;
}

erstaunlich langsam bei langen Strings, linearer Aufwand macht sich bemerkbar....dafür aber echt knapp hingeschrieben.

RegEx Fanatiker können da bestimmt noch tunen...

grübel ... auch nicht schneller:

Code (perl): (dl )

sub regex2 {
        $_=$string;
        my $out="";
        $out.=$1 while ( m/(.)(?!.*\1)/g );
        return $out;
}

TMTOWTDYOG (there's more than one way to dig your own grave)