String bearbeiten - #58922 (Allgemeines zu Perl)

vayu

2005-10-17 11:57

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

können die X aus 0-9 oder 1-9 besetehen? wenn aus 1-9 dann geht mein vorschlag. Wenn aus 0-9 nimm den eins über mir :D

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my $string = "00XXX.000XX.00XXX.0000.0000";

$string =~ tr/0.//d;

print $string;

edit: hatte aus versehen X ins tr eingetragen anstatt 0 -.-\n\n