"Infinity" (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl · Die höchste Zahl ermitteln

2025-09-01 21:36:04
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
8 Gäste

[thread]14855[/thread]

submit to reddit

"Infinity"

Leser: 26

Articles: hide open all | hide show old branches

Teilbäume:
Fortbildungen (2 Artikel) 2010-03-24 15:51
"Infinity" (21 Artikel) 2010-03-25 14:28

+22 replies
renee

2010-03-24 14:19
User since
2003-08-04
14371 Artikel
ModeratorIn
2010-03-24T09:23:33 pq
edit: nachtrag: auch bei zahlen kleiner 0 sollte das gehn:

Code (perl): (dl )

1 2

my $max = "-Infinity"; ...

;-)
Nö
Code: (dl )

1 2

D:\>perl -wle "my $max = '-Infinity'; for (-10,-20,-1) { $max = $_ if $_ > $max } print $max" -Infinity
Last edited: 2010-03-24 18:57:50 +0100 (CET)
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/
- +19 replies
- renee
  
  2010-03-24 14:20
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Unter Ubuntu funktioniert es. Die Darstellung von "Infinity" ist auf vielen Systemen unterschiedlich...
  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/
  - +18 replies
  - betterworld
    
    2010-03-24 14:52
    User since
    2003-08-21
    2614 Artikel
    ModeratorIn
    
    Das ist komisch. Ich habe es auf zwei Debian-Rechnern (x86) getestet, einer hatte perl 5.8.4, einer 5.10.0.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
    
    # 5.10.0: $ perl -lwe 'print 0 + "inf"' inf $ perl -lwe 'print 0 + unpack "F", pack "H*", "000000000000f07f"' inf # 5.8.4: $ perl -lwe 'print 0 + "inf"' 0 $ perl -lwe 'print 0 + unpack "F", pack "H*", "000000000000f07f"' inf
    
    Update: Zur Erklärung: Mit 0 + "inf" will ich erreichen, dass aus dem String eine Zahl gemacht wird, nämlich die Zahl "inf". Das scheint in Perl die einfachste Methode zu sein, ein inf zu erzeugen (aber wo ist das eigentlich dokumentiert?) Eine andere Methode, ein inf zu erzeugen, ist, dass man es aus der internen IEEE-Darstellung mit unpack baut, und das ist wohl bei 5.8.4 die einzige Moeglichkeit, die funktioniert.
    
    Offenbar kennt 5.8 zwar das Konzept von "inf", jedoch gibt es keine Möglichkeit, diese Zahl als Literal darzustellen. Wenn es die Zahl in einen String umwandeln soll, nimmt es aber "inf" (und Data::Dumper tut das auch), aber andersrum geht es nicht.
    
    Seltsam; ich dachte eigentlich, dass ich schon vor 5.10.0 mal irgendwann mit "inf" gearbeitet hatte und es da auch irgendwie hinbekommen habe, diese Zahl im Code zu schreiben.
    Last edited: 2010-03-24 19:03:18 +0100 (CET)
    Lieblingsmodule: IPC::System::Simple, Path::Class
    - +17 replies
    - topeg
      
      2010-03-24 15:28
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Noch eine Nettigkeit:
      
      Code: (dl )
      
      1 2 3
      
      # perl -wle 'my $max = $ARGV[0]; $max = -1 if -1 > $max; print $max' -- -info Argument "-info" isn't numeric in numeric gt (>) at -e line 1. -1
      
      Code: (dl )
      
      1 2 3
      
      # perl -wle 'my $min = $ARGV[0]; $min = -1 if -1 < $min; print $min' -- info Argument "info" isn't numeric in numeric lt (<) at -e line 1. -1
      
      Das Verhalten ist ein wenig unerwartet. 'inf' wird auch hier interpretiert.
      Aber es ist verständlich das 'inf' bei einer der Wandlung zu einer Zahl wie eine behandelt wird. Aber ein Anfänger käme sicherlich ins schleudern.
      - +16 replies
      - fs
        
        2010-03-24 16:22
        
        User since
        2010-03-19
        48 Artikel
        BenutzerIn
        
        Offenbar wird alles, was mit "[+-]?inf" beginnt, von Perl als plus bzw. minus unendlich interpretiert. Der Code, der bei eingeschalteten warnings die Zahldarstellung prüft, akzeptiert jedoch nur "[+-]?inf(inity)?" und meckert andernfalls - was auf das Ergebnis aber keinen Einfluss hat. Schwer zu sagen, auf welcher Seite der Bug liegt.
        http://www.fseitz.de/
        
        +15 replies
        
        topeg
        
        2010-03-24 16:34
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Das Verhalten ist "normal" wenn man davon ausgeht das "inf" eine Zahl ist wie jeder andere in perl:
        
        Code: (dl )
        
        1 2 3
        
        # perl -wle 'my $min = $ARGV[0]; $min = -1 if -1 < $min; print $min' -- 100o Argument "100o" isn't numeric in numeric lt (<) at -e line 1. -1
        
        verhält sich wie
        
        Code: (dl )
        
        1 2 3
        
        # perl -wle 'my $min = $ARGV[0]; $min = -1 if -1 < $min; print $min' -- info Argument "info" isn't numeric in numeric lt (<) at -e line 1. -1
        
        Das "ärgerliche" ist dass man das nicht sieht. Ohne zu wissen das "inf" eine zahl ist erwartet man das "info" als zahl 0 entspricht und nicht plus Unendlich.
        
        renee
        
        2010-03-24 16:43
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Ich glaube, das ist mal was für "Merkwürdigkeiten in Perl" in der übernächsten Ausgabe von $foo ;)
        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/
        
        +13 replies
        
        fs
        
        2010-03-24 16:56
        
        User since
        2010-03-19
        48 Artikel
        BenutzerIn
        
        Ja, die Argumentation überzeugt. Dann liegt der Bug wohl bei warnings.
        
        Schlimm finde ich die erweiterte Interpretation nicht so sehr, denn wenn man mit Strings umgeht, verwendet man ja eq.
        http://www.fseitz.de/
        
        +12 replies
        
        murphy
        
        2010-03-24 20:48
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        Wieso sollte das ein Bug sein?
        
        Perl konvertiert ja zum Beispiel auch den leeren String oder den undefinierten Wert als Argument numerischer Operationen in eine 0, gibt aber trotzdem eine Warnung aus, wenn use warnings; aktiv ist. Ich halte dieses Verhalten keineswegs für fehlerhaft sondern für recht durchdacht: Bei der Konversion wird versucht, möglichst permissiv mit den Eingabedaten umzugehen und irgendeine sinnvolle Interpretation zu finden, für die Warnungen hingegen wird möglichst restriktiv kontrolliert um den Programmierer auf Ungenauigkeiten hinzuweisen — so kann man sich entscheiden, was man haben will!
        When C++ is your hammer, every problem looks like your thumb.
        
        fs
        
        2010-03-24 21:19
        
        User since
        2010-03-19
        48 Artikel
        BenutzerIn
        
        Du hast recht. Die Warnung gibt es auch, wenn einer "normalen" Zahldarstellung ein uninterpretierbarer String folgt. Das Verhalten ist konstistent.
        http://www.fseitz.de/
        
        +10 replies
        
        fs
        
        2010-03-25 07:39
        
        User since
        2010-03-19
        48 Artikel
        BenutzerIn
        
        Wie erklärt sich das (32 Bit-Rechner)?
        
        printf "-inf=%d\n",'-inf';
        printf "+inf=%d\n",'+inf';
        __END__
        -inf=-2147483648
        +inf=-1
        http://www.fseitz.de/
        
        GwenDragon
        
        2010-03-25 09:27
        
        User since
        2005-01-17
        14861 Artikel
        Admin1
        
        Nicht nachvollziehbar auf meinem 64bit WIndows mit 32bit Perl Activestate Perl 5.10.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        esskar
        
        2010-03-25 09:33
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        Code: (dl )
        
        1 2 3 4 5
        
        printf "-inf=%d\n",'-inf'; printf "+inf=%d\n",'+inf'; ^Z -inf=0 +inf=0
        
        geht ja echt weit auseinander an der stelle.
        
        GwenDragon
        
        2010-03-25 09:41
        
        User since
        2005-01-17
        14861 Artikel
        Admin1
        
        Ist bei mir auch 0.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +6 replies
        
        GwenDragon
        
        2010-03-25 10:00
        
        User since
        2005-01-17
        14861 Artikel
        Admin1
        
        Auf Debian 64bit:
        gw@local:~$ perl printf "-inf=%d\n",'-inf'; printf "+inf=%d\n",'+inf'; __END__ -inf=-9223372036854775808 +inf=-1 gw@local:~$
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +5 replies
        
        esskar
        
        2010-03-25 12:38
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        bei %d läufts wohl über
        mach mal %u bei +
        
        +3 replies
        
        GwenDragon
        
        2010-03-25 13:02
        
        User since
        2005-01-17
        14861 Artikel
        Admin1
        
        gw@local:~$ perl printf "-inf=%u\n","-inf"; printf "+inf=%u\n","+inf"; __END__ -inf=9223372036854775808 +inf=18446744073709551615
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        esskar
        
        2010-03-25 14:14
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        beim +, nicht beim -
        %u ist unsigned long
        
        GwenDragon
        
        2010-03-25 14:18
        
        User since
        2005-01-17
        14861 Artikel
        Admin1
        
        Ja, typischer Strg D- + Edit-Fehler. ;)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        esskar
        
        2010-03-25 14:28
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        ist eben so ne sache mit inf
        
        Code: (dl )
        
        1 2 3
        
        sprintf("%u", -1); sprintf("%u", +inf); sprintf("%u", -10000 + inf);
        
        ;-)
- pq
  
  2010-03-24 14:22
  User since
  2003-08-04
  12209 Artikel
  Admin1
  interessant.
  
  Code: (dl )
  
  1 2
  
  perl -wle 'my $max = "-Infinity"; for (-10,-20,-1) { $max = $_ if $_ > $max } print $max' -1
  
  This is perl, v5.10.0 built for i486-linux-gnu-thread-multi
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- esskar
  
  2010-03-24 19:57
  
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  
  -Infinity
  This is perl, v5.10.0 built for MSWin32-x86-multi-thread

View all threads created 2010-03-24 09:59.