[Eisfair] perl-Frage: Zeichen aus String entfernen

[Marcus Roeckrath]

Hallo,

Marcus Roeckrath wrote:

>   my $bytes = $bkdata{$source}{'file_size'}/1000000; # convert to MB
> 
> was wegen der Tausendertrenner Fehler auswirft, da es kein numerical sei.
> 
> Vielleicht kann man aus der Variablen bytes um die , bzw . erleichtern,
> als Idee so - geht natürlich nicht:
> 
>   my $bytes = $bkdata{$source}{'file_size'};
>   bytes = bytes ohne , oder .
>   bytes = bytes / 1000000

Ich habs:

    my $bytes = $bkdata{$source}{'file_size'};
    $bytes =~ s/[^\d]//gs;
    $bytes = $bytes / 1048576; # convert to MB
    my $bytest = $bkdata{$source}{'file_tran_size'};
    $bytest =~ s/[^\d]//gs;
    $bytest = $bytest / 1048576; # convert to MB

tut, was es oll.

-- 
Gruss Marcus