Problem Numerisch String Literal (gelöst) (Allgemeines zu Perl)

[thread]18035[/thread]

Problem Numerisch String Literal [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+16 replies
Gast Oliver

2013-01-07 23:11
Hallo,

ich habe ein Problem in Perl. Ich möchte mit dem Chartdirector Daten verarbeiten. Das funktioniert:
Code: (dl )

1 2

my $data2 = ["1","2","3","4","5","6","6","7","8"]; $c->addBarLayer($data2);
Doch hier bekomme ich eine Fehlermeldung
Code: (dl )

1 2 3 4 5 6 7

for $i5(0..$#data) { $data3 = $data3.", ".$data[$i5]; } $data3=substr($data3,2); $data3=[$data3]; $c->addBarLayer($data3);
Argument "48, 94, 130, 6" isn't numeric in subroutine

Kann mir schon denken woran es liegt. Das als Array deklarierte Literal wird als String gesehen, während das erste als Sammlung von numerellen Werten gehandelt wird. Da ich die Daten jedoch generisch erzeugen möchte und nach X Versuchen keinen Ansatz mehr habe bitte ich um Hilfe.

Viele Grüße Oliver
Last edited: 2013-01-07 23:12:48 +0100 (CET)
- thomas38
  
  2013-01-08 00:10
  User since
  2012-11-04
  30 Artikel
  BenutzerIn
  Es ist nicht klar, was Du möchtest.
  Mit "Chatdirector" kann ich nichts anfangen.
  
  Ich aktiviere den Glaskugelmodus:
  
  Code (perl): (dl )
  
  $c->addBarLayer($data2);
  
  Im ersten Codefragment erwartet als Argument "$data2" eine Array-Referenz.
  Deshalb funktioniert es, oder?
  Hinweis: Die eckigen Klammern machen aus der Liste eine anonyme Referenz auf ein Array.
  
  Aber im zweiten Codefragment ist "$data3" ein Skalar (also weder ein Array, noch eine Referenz) und enthält vermutlich den Wert
  "48, 94, 130, 6", welcher natürlich kein Integer ist (Integer enthalten keine ZEichen, wie " " oder ",".
  Vermutlich deshalb erscheint die Fehlermeldung.
  
  Die Ursache ist, dass Du in der for-Schleife einen Skalar zusammenbaust, statt eines Array.
  Elemente eines Arrays werden z.B. mit push(@arrayname,LISTE) am Ende hinzugefügt. Wird ein Array angesprochen, ist ein '@' davor zu schreiben. Wird nur ein Element eines Array benutzt, schreibe '$' vor dem Namen und [INDEX] danach (Beispiel: $array[0].
  
  Gehe ich Recht in der Annahme, dass die ersten beiden Elemente von '$data3' entfernt werden sollen?
  Falls ja, ist dieser Code sicher hilfreich:
  ("myfunc" bitte durch "$c->addBarLayer" ersetzen)
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
  
  use strict; my @data = ( 5, 9, 12, 172, 1, 33); # Numerische Werte benötigen kein "" my @data3; # Leeres Array push(@data3,@data); # Array-Elemente von '@data' an '@data3' anhaengen # Die ersten beiden Elemente aus '@data3' entfernen shift @data3; shift @data3; myfunc([@data3]); # anonyme Referenz an Funktion oder Methode übergeben sub myfunc { my $ref=shift; foreach my $entry ( @$ref) { print "ENTRY=$entry\n"; } }
  
  Ausgabe:
  
  Code: (dl )
  
  1 2 3 4
  
  ENTRY=12 ENTRY=172 ENTRY=1 ENTRY=33
- +14 replies
- pq
  
  2013-01-08 00:18
  User since
  2003-08-04
  12209 Artikel
  Admin1
  du meinst das hier, vermute ich: http://www.advsofteng.com/
  
  vermutlich willst du eher sowas:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my $data3 = []; for my $i5 (0 .. $#data) { push @$data3, $data[ $i5 ]; } $c->addBarLayer($data3);
  
  was dann auch einfacher ginge, wenn du $i5 nicht brauchst:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my $data3 = []; for my $item (@data) { push @$data3, $item; } $c->addBarLayer($data3);
  
  dann könnte man aber auch gleich sagen:
  my $data3 = [@data];
  
  $data3 ist eine arrayreferenz, du hast aber einen string zusammengebastelt.
  
  Editiert von pq: $item: my hinzugefügt
  
  Editiert von pq: noch ein my hinzugefügt
  Last edited: 2013-01-08 00:34:09 +0100 (CET)
  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
  - +13 replies
  - thomas38
    
    2013-01-08 00:26
    
    User since
    2012-11-04
    30 Artikel
    BenutzerIn
    
    Sorry pq, ich war schneller ... :-)
    
    Ein
    my $data3 = [@data];
    ist nur anwendbar, wenn '@data3' noch keine Werte enthält und '@data' komplett übernommen werden soll.
    Meine Glaskugel ging davon aus, dass $data3=substr($data3,2); wohl etwas zu bedeuten hat.
    
    Grüße
    Thomas.
    - +12 replies
    - pq
      
      2013-01-08 00:33
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      2013-01-07T23:26:29 thomas38
      Ein
      my $data3 = [@data];
      ist nur anwendbar, wenn '@data3' noch keine Werte enthält
      
      zumindest den teil kann man ändern:
      push @$data3, [@data];
      
      Quote
      
      und '@data' komplett übernommen werden soll.
      Meine Glaskugel ging davon aus, dass $data3=substr($data3,2); wohl etwas zu bedeuten hat.
      
      es entfernt die ersten beiden zeichen.
      
      dann vielleicht
      
      Code (perl): (dl )
      
      for my $i5 (1 .. $#data) {
      
      also einfach nicht bei 0 anfangen.
      
      oder
      push @$data3, [ @data[ 1..$#data ] ];
      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
      - +11 replies
      - Oliver007
        
        2013-01-08 10:20
        
        User since
        2013-01-07
        8 Artikel
        BenutzerIn
        
        Hallo,
        
        erst mal vielen Dank, mit euer hilfe konnte ich das Problem jetzt lösen. Die FUnktion ist wie von pq aus dem Framework Chartdirektor. und erwartet ein Format in der Form
        
        Code: (dl )
        
        my $data2 = ["1","2","3","4","5","6","6","7","8"];
        
        Das witzige ist ich hatte das ganze ursprünglich als Array. Wenn ich es übergab
        
        Code: (dl )
        
        $c->addBarLayer(@data);
        
        kam aber der folgende Fehler:
        Error converting argument 1 to type class DoubleArray
        *** Stack back trace ***
        
        nun habe ich einfach mal dank eurer Hinweise folgendes ausgeführt:
        
        Code: (dl )
        
        $c->addBarLayer([@data]);
        
        und es funktioniert.
        
        Um das ganze 100% zu verstehen habe ich trotzdem noch ein paar Fragen.
        
        Code: (dl )
        
        my $data2 = ["1","2","3","4","5","6","6","7","8"];
        
        ist also das selbe wie das [@data] aber anders wie das @data ?
        Wo liegt der unterschied genau.
        
        Vielen Dank und viele Grüße Oliver
        Last edited: 2013-01-08 10:50:19 +0100 (CET)
        
        +8 replies
        
        Muffi
        
        2013-01-08 10:58
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Wenn das unklar ist würd ich sehr stark dazu raten dir Doku zu dem Thema anzugucken. Wirklich. Das wird sonst nur trial&error-programmierung.
        
        Wenn du dann erklären kannst was der Unterschied zwischen
        
        Code: (dl )
        
        [@array]
        
        und
        
        Code: (dl )
        
        \@array
        
        ist hast du die Grundlagen soweit verstanden ;)
        Last edited: 2013-01-08 11:07:27 +0100 (CET)
        1 + 1 = 10
        
        +7 replies
        
        Oliver007
        
        2013-01-08 13:23
        
        User since
        2013-01-07
        8 Artikel
        BenutzerIn
        
        Hallo,
        
        ich verstehe was du meinst. Jedoch habe ich in meiner neuen Arbeit keine Zeit dafür, habe das Wochenende schon vollständig Perl Dokus gewälzt :). Wäre also sehr dankbar für eine konkrete Antwort.
        
        Viele Grüße Oliver
        
        Linuxer
        
        2013-01-08 13:30
        
        User since
        2006-01-27
        3891 Artikel
        HausmeisterIn
        
        Siehe: http://perldoc.perl.org/perlreftut.html#Making-Ref...
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        pq
        
        2013-01-08 13:32
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        2013-01-08T12:23:34 Oliver007
        Jedoch habe ich in meiner neuen Arbeit keine Zeit dafür
        
        perlref
        perlreftut
        
        http://perl-tutorial.org/
        
        wie ich oben schrieb, ist das eine array-referenz. @data ist ein array. [@data] legt eine kopie von @data als array-referenz an.
        
        ich wiederum habe aber keine zeit, die dokus hier für dich abzuschreiben, daher sei dir die lektüre dieser und eines der tutorials nahegelegt. referenzen sind wichtig, ohne wirst du kaum weit kommen.
        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
        
        +4 replies
        
        Muffi
        
        2013-01-08 13:54
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ich würd auch gern Millionär sein, hab aber keine Zeit dafür.
        Vielleicht mal bei Stellenangebote ne Anfrage starten? Dann kriegt man auch ohne grosssen Zeit- und Lernaufwand sein Programm.
        1 + 1 = 10
        
        +3 replies
        
        Oliver007
        
        2013-01-08 14:20
        
        User since
        2013-01-07
        8 Artikel
        BenutzerIn
        
        Danke Linuxer guter Link gerad durch gearbeitet, auch pq noch mal vielen Dank.
        
        @Muffi dann gebe nächste mal einen passenden Link, aber so nur unutze Kritik. Als promovierter Ingenieur kann ich mir keine Stelle mit "meinen Programmiersprachen" suchen, sondern muss mich alle paar Wochen in eine neue einarbeiten.
        
        +2 replies
        
        Muffi
        
        2013-01-08 16:07
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        2013-01-08T13:20:50 Oliver007
        @Muffi dann gebe nächste mal einen passenden Link, aber so nur unutze Kritik.
        
        Wenn man bös wär könnt man das nehmen
        http://lmgtfy.com/?q=perl+array+referenz
        Allerdings ja, man hätt eine gute Doku verlinken können.
        
        2013-01-08T13:20:50 Oliver007
        Als promovierter Ingenieur kann ich mir keine Stelle mit "meinen Programmiersprachen" suchen, sondern muss mich alle paar Wochen in eine neue einarbeiten.
        
        Da würd mich dann aber schon interessieren in welcher deiner bereits eingearbeiteten Sprachen man ein Array mit concat und substr bearbeitet.
        1 + 1 = 10
        
        gelöscht 2013-01-08 16:48
        
        +2 replies
        
        thomas38
        
        2013-01-08 17:23
        
        User since
        2012-11-04
        30 Artikel
        BenutzerIn
        
        @data ist ein Array mit beliebig vielen Elementen.
        [@data] ist ein Skalar (also KEIN Array). In diesem Skalar ist die Referenz (entspricht in etwa einem Zeiger in "C") auf ein anonymes Array (=ein Array ohne Namen) enthalten, welches eine Kopie der Werte von @data enthält.
        
        Die Methode addBarLayer() erwartet nur ein Argument, nämlich eine Referenz auf ein Array.
        Da es eine Kopie ist, kann die Methode nichts böses mit dem ursprünglichen Feld anstellen (call by value).
        
        Stattdessen könnte man auch auf die Idee kommen, @data direkt zu "referenzieren" mit \@data
        Dann kann allerdings die Methode das Array @data modifizieren, was man meistens nicht möchte.
        
        Wenn stattdessen @data übergeben wird, erhält die Methode gaaaaanz viele Argumente - exakt so viele, wie es Elemente in @data gibt.
        
        Oliver007
        
        2013-01-09 09:30
        
        User since
        2013-01-07
        8 Artikel
        BenutzerIn
        
        Hallo Thomas,
        
        1A jetzt hab ich es genau verstanden.
        
        Vielen Dank

View all threads created 2013-01-07 23:11.