String - Zahl (Int) (Allgemeines zu Perl)

Gast Gast

2004-05-07 10:02

Hi!

Suche eine Möglichkeit zu Unterscheiden, ob es sich bei $_->[1] um eine Zahl oder um einen String handelt.

Beispiele für Belegung
- 13 -->Zahl als Antwort
- Test 32 text -->String als Antwort

In anderen Sprachen gabs doch da was mit NaN.
Finde nichts passendes.

Danke schon mal.

Hat jemand eine Idee

renee

2004-05-07 10:27

User since
2003-08-04
14371 Artikel
ModeratorIn

Du kannst mit RegExp überprüfen, ob nur Zahlen vorkommen. ist dies der Fall, dass ist es eine Zahl, wenn noch etwas anderes als Zahlen vorkommt, dann ist es ein String

Code: (dl )

1
2
3

if($_->[1] =~ /\D/){
  print "Ist ein String...";
}

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Marcus

2004-05-07 10:53

User since
2004-05-03
18 Artikel
BenutzerIn
[default_avatar]

Hallo,

falls Du noch pingeliger werden willst:

Code: (dl )

use strict;
use warnings;

sub ist_zahl {
  if ( $_[0] =~ /^-?\d+\.?\d+$/ ) { return 1; }
  return 0;
}

my $str = '123';
ist_zahl($str) or print "$str ist keine Zahl\n";
$str = '-123'; 
ist_zahl($str) or print "$str ist keine Zahl\n";
$str = '12.3'; 
ist_zahl($str) or print "$str ist keine Zahl\n";
$str = '-12.3';
ist_zahl($str) or print "$str ist keine Zahl\n";
$str = '1.2.3';
ist_zahl($str) or print "$str ist keine Zahl\n";

Gruß Marcus

jan

2004-05-07 11:02

User since
2003-08-04
2536 Artikel
ModeratorIn

Code: (dl )

if(int($string) eq $string)
{
print "ist int\n";
}

oder etwa nicht?

Strat

2004-05-07 13:09

User since
2003-08-04
5246 Artikel
ModeratorIn

da muss man sich nicht jedesmal selbst regulaere Ausdruecke ausdenken; die gibt es schon und sind im Modul CPAN:

Regexp::Common gesammelt...

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

jan

2004-05-07 13:24

User since
2003-08-04
2536 Artikel
ModeratorIn

wozu bei sowas überhaupt einen regulären ausdruck bemühen, was spricht gegen o.g. vergleich? wo scheitert der?

Strat

2004-05-07 14:07

User since
2003-08-04
5246 Artikel
ModeratorIn

[quote=jan,07.05.2004, 11:24]wozu bei sowas überhaupt einen regulären ausdruck bemühen, was spricht gegen o.g. vergleich? wo scheitert der?[/quote]
er findet integer, das ist korrekt. aber fuer den rest muss man sich doch was zusammenbasteln.

Marcus
Code: (dl )
$_[0] =~ /^-?\d+\.?\d+$/ ) 

Die RE von oben er findet z.B. 10. nicht, was in Perl eine gueltige floatzahl ist... und auch mit einstelligen Zahlen funktioniert er nicht...

Ein- oder zweimal ist es fuer das Verstaendnis von REs sicher nicht schlecht, wenn man sich solche Patterns zusammenbastelt (habe mir z.B. auch schon REs fuer die Validierung von IP-Adressen gebastelt), aber wieso nicht fertige, gut getestete Funktionalitaet verwenden, wenn sie so einfach verfuegbar ist?\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Crian

2004-05-07 17:17

User since
2003-08-04
5873 Artikel
ModeratorIn

Das könnte man jetzt mit dem "fehlenden" Fragezeichen hinter dem letzten Plus ausmerzen, aber wie Strat schon sagte ist es besser, eine schon auf Herz und Nieren geprüfte RE aus Regexp::Common zu nehmen.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite