Testen, ob variable eine Zahl ist - #133509 (Allgemeines zu Perl)

topeg

2010-02-23 11:23

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Um es etwas zu erklären:

Code (perl): (dl )

sub test_of_number_e
{
  ($_<48 || 57<$_)?return 0:undef() for(unpack('C*',$_[0]));
  return 1;
}

Code (perl): (dl )

sub test_of_number_e
{
  for my $char (unpack('C*',$_[0])){ ($char<48 || 57<$char)?return 0:undef(); }
  return 1;
}

Code (perl): (dl )

sub test_of_number_e
{
  for my $char (unpack('C*',$_[0])){ return 0 if($char<48 || 57<$char); }
  return 1;
}

Code (perl): (dl )

sub test_of_number_e
{
  my $number=$_[0];
  for my $char (unpack('C*',$number))
  {
    # 'ASCII 0' = 48
    # 'ASCII 9' = 57 
    return 0 if($char<48 || 57<$char);
  }
  return 1;
}

Nur ist die letzte Variante ist wegen den Zuweisungen 5-10% langsamer.
Last edited: 2010-02-23 17:30:19 +0100 (CET)