Strings rausfiltern und ersetzen

[Falk Prüfer]

Hallo,

Nur mal als Hinweise, was man hier besser machen kann:...

sub CleanCFG {
    my @CFG_PLT;

    if( open my $CFG_PLT, '<', $CFG_PLT) ) {
        @CFG_PLT=<$CFG_PLT>;
        close ($CFG_PLT);
    }

    foreach(@CFG_PLT) {
        $pos_ = rindex($_,"_");
        if ($pos_ != -1) {
            push @CFG_PLT_CLEAN, substr($_,0,$pos_+1);
        }
    }
}

Z.B. noch die Formatierung im Forum mit BB-Code für Perl:
[highlight=perl]
Perl-Code
[/highlight]

[highlight=perl]
sub CleanCFG {
my @CFG_PLT;

if( open my $CFG_PLT, '<', $CFG_PLT) ) {
@CFG_PLT=<$CFG_PLT>;
close ($CFG_PLT);
}

foreach(@CFG_PLT) {
$pos_ = rindex($_,"_");
if ($pos_ != -1) {
push @CFG_PLT_CLEAN, substr($_,0,$pos_+1);
}
}
}
[/highlight]

Gruß Falk