Perl
Jump to navigation
Jump to search
#!/usr/bin/env perl
my $string = 'AA55FF0102040810204080';
map {$decStr .= "." unless ($decStr eq ""); $decStr .= hex($_);} ($string =~ /(..)/g);
print "Hallo ".$decStr;
# Text der gesucht wird