Perl

From Jan's Wiki
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