@Linuxer

Besten Dank für deine Mühe!

Deine goldene Zeile if ( $var =~ m/\A[+-]?\d+\z/ )
erklärt mir einiges.

Nach else habe ich eingefügt:
sub test()
else
{
$var=unpack('%8C*', $var);
return(sprintf("%.2X",$var));
}
Das hat im ersten Moment gut funktioniert, als Anfänger hat mich das gefreut.
Leider trifft dieses auf arguments vom keyboard nicht zu.
Da scheint wieder ein anderer Datentyp verwendet zu werden und wirft alles wieder über den Haufen.
Argument "\n" isn't numeric ....
Tests auf eq '\n', == 0x0a oder == 10 helfen nicht. Ärgerlich ist das!!
Egal, ich bleib beim C, Perl ist eher was für Leute mit zu viel Zeit



Last edited: 2010-08-14 00:50:58 +0200 (CEST)