Struct array und unterprogramm (Allgemeines zu Perl)

[thread]15579[/thread]

Struct array und unterprogramm

Leser: 21

Articles: hide open all | hide show old branches

+21 replies
Gast Eles

2010-10-28 13:29
Hallo liebe Perler,

ich habe ein kleines Problem. Ich will ein mehrdimensional Struct ab ein Unterprogramm übergeben und es dort bearbeiten. Leider funktioniert das nicht so ganz wie will. Nicht wunder habe erst gestern Angefangen mich mit Perl zu beschäftigen und deswegen ist mir noch so einiges unklar!

Mein jetziger Ansatz lautet so:
im Hauptprogramm:
[...]
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

use Class::Struct; struct artikel_info => { anzahl => '$', name => '$', preis => '$', }; my @myartikel;{ for ($i=0; $i<$Artikel_count; $i++) { $myartikel[$i] = artikel_info->new(); } } for ($i=0; $i<$Artikel_count; $i++) { if (($i+$j)%2 == 0) {$bgcolor=$light;} else {$bgcolor=$dark;} &print_Artikel($Artikel[$i],"",$File_no,$i,$myartikel[$i]); }
[...]

im Unterprogramm:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

sub print_Artikel { my $arrayref = shift; my $schalter = shift; my $file_no = shift; my $i = shift; my $newref = shift; my @Artikel = @$arrayref; my %myartikel = $newref; #%myartikel->anzahl("test"); print "\n"; #print "\n"; print "\n"; print "\n"; print "\n"; print ""; print "\n"; print ""; $Artikel[3] =~ s/\,/\./;
[...]

Mein Problem besteht darin, das ich nicht weiß ob der Quellcode so wie er jetzt überhaupt richtig (funktionsfähig) ist und wie ich jetzt in den Struct Daten eintragen und auch auslesen kann.

Wie gesagt habe erst die Woche mit Perl angefangen also nicht wunder.

mod-edit pq: code-tags statt quote-tags
Last edited: 2010-10-28 13:32:13 +0200 (CEST)
- pq
  
  2010-10-28 13:33
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  vielleicht hab ichs verpasst, vielleicht hast du dich verklickt, jedenfalls denke ich, dass der artikel nichts mit CGI zu tun hat.
  
  Move from Perl/CGI to Allgemeines zu Perl
  
  und das nächste mal bitte code-tags verwenden, danke
  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
- +5 replies
- bianca
  
  2010-10-28 15:22
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Guest Eles
  Mein Problem besteht darin, das ich nicht weiß ob der Quellcode so wie er jetzt überhaupt richtig (funktionsfähig) ist und wie ich jetzt in den Struct Daten eintragen und auch auslesen kann.
  
  Für mich sieht das etwas abgeschnitten aus. Der Code im Hauptprogramm beginnt bei Einrückung 2 oder 3, im Unterprogramm fehlt schon auf den ersten Blick mindestens eine geschlossene geschweifte Klammer.
  Das wirkt alles etwas konfus.
  Was soll das ganze denn überhaupt werden, wenn es fertig ist?
  10 print "Hallo"
  20 goto 10
  - +4 replies
  - Gast Eles
    
    2010-10-28 15:33
    
    Also, ich mache seit neusten ein Praktikum in einer Firma welches schon eine bestehendes Warenwirtschaftssystem mit einer Onlineseite hat, welche 2003 in Perl geschrieben wurde. Nun soll ich einige Änderungen/ Verbesserungen an der Seite vornehmen. Da ich bis her nur in C++ etwas gemacht habe muss ich mich erst mal in Perl einarbeiten.
    
    Zu den jetzigen Problem ist es so, dass die Artikel nach Preis bzw. Anzahl sortiert werden können sollen. Mein Lösungsansatz wäre gewesen alle Artikel von der Kategorie in einen Struct zu sammeln und zu sortieren. Da in den Unterprogramm die Artikel alle ordentlich aus der Datenbank ausgelesen werden aber gleich einzeln ausgegeben werden wollte ich gleich darüber das Struct füllen, woran ich jedoch scheitere wegen mangelnder Perl Kenntnisse.
    
    Ich kann auch gerne den gesamten Quellcode Posten welcher allerdings mehrere Dateien und über 6000 Zeilen Quellcode beinhaltet, deswegen habe ich in meinen Post die mir essentiellen Stellen wiedergegeben.
    Last edited: 2010-10-28 15:35:28 +0200 (CEST)
    - bianca
      
      2010-10-28 15:44
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Guest Eles
      Also, ich mache seit neusten ein Praktikum in einer Firma welches schon eine bestehendes Warenwirtschaftssystem mit einer Onlineseite hat, welche 2003 in Perl geschrieben wurde. Nun soll ich einige Änderungen/ Verbesserungen an der Seite vornehmen.
      
      Als Praktikant sollst Du Änderungen an einem System vornehmen, das Du nicht kennst und dessen Programmiersyntax Du noch nie gesehen hast?
      Ist das Dein Ernst?
      
      Guest Eles
      Zu den jetzigen Problem ist es so, dass die Artikel nach Preis bzw. Anzahl sortiert werden können sollen. Mein Lösungsansatz wäre gewesen alle Artikel von der Kategorie in einen Struct zu sammeln und zu sortieren.
      
      Dafür hält Perl die Möglichkeit sort{} vor: perldoc -f sort
      Ich habe Class::Struct selbst noch nie genutzt, aus welchem Grund hälst Du es für erforderlich, dieses Modul zu nutzen?
      
      Guest Eles
      Ich kann auch gerne den gesamten Quellcode Posten welcher allerdings mehrere Dateien und über 6000 Zeilen Quellcode beinhaltet, deswegen habe ich in meinen Post die mir essentiellen Stellen wiedergegeben.
      
      ...diese aber unvollständig. Oder ist es in C++ egal, wenn eine Klammer fehlt?
      M.E. macht es mehr Sinn, man würde Dir hier eher mit Syntax und Methoden denn mit langatmigem Quellcode helfen, oder?
      Daher die Frage, was genau das Ziel ist.
      10 print "Hallo"
      20 goto 10
    - +2 replies
    - clms
      
      2010-10-28 22:35
      
      User since
      2010-08-29
      373 Artikel
      BenutzerIn
      
      Guest Eles
      Da ich bis her nur in C++ etwas gemacht habe muss ich mich erst mal in Perl einarbeiten.
      Deinem "Perl"-Code sieht man an, dass Du sonst C/C++ programmiert.
      Perl ist bzgl. Syntax-Stil zwar ziemlich flexibel, es macht aber trotzdem Sinn, die Programme "perliger" - und nicht als C - zu schreiben.
      
      Guest Eles
      Zu den jetzigen Problem ist es so, dass die Artikel nach Preis bzw. Anzahl sortiert werden können sollen. Mein Lösungsansatz wäre gewesen alle Artikel von der Kategorie in einen Struct zu sammeln und zu sortieren. Da in den Unterprogramm die Artikel alle ordentlich aus der Datenbank ausgelesen werden aber gleich einzeln ausgegeben werden wollte ich gleich darüber das Struct füllen, woran ich jedoch scheitere wegen mangelnder Perl Kenntnisse.
      
      a) Anders als in C/C++ musst Du in Perl Datenstrukturen nicht vordeklarieren. Class::Struct habe ich noch nie benutzt und sehe auch nicht, was es hier groß bringen soll. Wenn Du viel mit einer Datenstruktur arbeitest (hier z.B. ein Artikel), lkann es sich lohnen daraus ein richtiges Objekt zu machen. Wenn Du die Datenstruktur nur ein bischen sortieren und filtern willst, genügt ein (anonymes) Hash oder Array.
      
      Wie bekommst Du die Artikel aus der Datenbank angeliefert? (das fehlt in Deinen Code-Schnipseln) Die sind dort wahrscheinlich schon in einer Datenstruktur. Wenn diese nicht völlig verkorkst ist, würde ich sie an deiner Stelle beibehalten und gar nicht versuchen, die Artikel in eine neue Struktur zu pressen.
      
      b) Deine for-Schleifen sind extrem C-geprägt. Perl hat eine viel bessere Unterstützung für die Verarbeitung von Listen. Schau Dir mal (mit perldoc -f ...) grep, map und das schon erwähnte sort an. Wenn Du dann immer noch über jedes Listenelement einzeln iterieren willst, kannst Du foreach nehmen.
      - topeg
        
        2010-10-28 22:56
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        wenn ich raten müsste würde ich sagen der Code sieht im groben so aus:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        # Datenbank öffnen my $dbh=DBI->connect(...) or die("ERROR CONNECT: $DBI::errstr\n"); # abfrage: my $sth=$dbh->prepare('SELECT (name,preis,menge) FROM ... WHERE ...'); $sth->execute(...); my @Artikel; my $Artikel_count=0; while(my $array_ref=$sth->fetchrow_arrayref()) { $Artikel[$Artikel_count]=$array_ref; $Artikel_count++; } ...
        
        Das ließe sich dann recht einfach ändern:
        
        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 24 25 26 27
        
        # Datenbank öffnen my $dbh=DBI->connect(...) or die("ERROR CONNECT: $DBI::errstr\n"); # Abfrage: my $sth=$dbh->prepare('SELECT (name,preis,anzahl) FROM ... WHERE ...'); $sth->execute(...); my @Artikel; while(my $hash_ref=$sth->fetchrow_hashref()) { push(@Artikel,$hash_ref); } # Ausgabe: for my $artikel (@Artikel) { print_Artikel($artikel); } sub print_Artikel { $artikel = shift; print "\n"; print "\n"; print "\n"; print "\n\n"; }
- +2 replies
- Gast wer
  
  2010-10-28 15:34
  unterprogramm zeil 8:
  
  Code (perl): (dl )
  
  my %myartikel = $newref;
  
  was hat du da vor?
  Last edited: 2010-10-28 15:35:43 +0200 (CEST)
  - Gast Eles
    
    2010-10-28 15:44
    ich hatte verschiedene möglichen versucht das Struct zu initialisieren.
    von
    
    Code: (dl )
    
    1 2
    
    my $newref = shift; my @myartikel = @$newref;
    
    über
    
    Code: (dl )
    
    1 2
    
    my %newref = shift; my @myartikel = %newref
    
    bei
    
    Code: (dl )
    
    my %myartikel = $newref;
    
    war es das ein zigste wo das Programm weiter gearbeitet hat. Wie schon im ersten Post erwähnt weiß ich nicht ob der Quellcode soweit überhaupt stimmt, bzw. bin mir sicher das er nicht stimmt, da es ja nicht geht.
    Last edited: 2010-10-28 15:46:01 +0200 (CEST)
- topeg
  
  2010-10-28 16:11
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  hier ein funktionierendes Beispiel:
  
  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 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
  
  #!/usr/bin/perl use strict; use warnings; use Class::Struct; my @Artikel=( [ "tst", 10, '2,5' ], [ "foo", 5, '1,2' ], [ "bar", 100, '5' ], [ "bam", 365, '0.01' ], [ "fom", 1, '0.96' ], ); struct artikel_info => { anzahl => '$', name => '$', preis => '$', }; my @myartikel; for my $artikel (@Artikel) { my $obj=artikel_info->new(); $obj->name($artikel->[0]); $obj->anzahl($artikel->[1]); $obj->preis($artikel->[2]); push(@myartikel,$obj); } my $File_no=0; for my $i (0..$#myartikel) { print_Artikel($myartikel[$i],"",$File_no,$i); } sub print_Artikel { my $artikel = shift; my $schalter = shift; my $file_no = shift; my $i = shift; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n\n"; }
  
  Du musst auch das "struct"-Objekt mit Werten füllen. Das klappt nicht von allein.
  Du solltest dich über die Handhabung von Referenzen unter Perl informieren.perlreftut und perlref
- +11 replies
- Gast Eles
  
  2010-10-29 14:24
  Huhu,
  ihr hab ja noch richtig viel geschrieben.
  Habe meinen Ansatz nochmal überdacht, ganz verändert und dabei herausgefunden, das die Daten quasi in einen mehrdimensionalen Array vorliegen.
  
  Der Code:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  for ($i=0; $i<$Artikel_count; $i++) { $arrayref =$Artikel[$i]; @arrrray = @$arrayref; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; }
  
  gibt z.B.:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
                     
  
  aus.
  
  Und der Code:
  
  Code (perl): (dl )
  
  1 2 3
  
  for ($i=0; $i<$Artikel_count; $i++) { print "\n"; }
  
  gibt z.B:
  
  Code: (dl )
  
  1 2 3 4 5 6
  
       
  
  aus.
  
  Nun brauche ich einen Ansatz das ich Quasi den Array $Artikel[n] nach den Preis der dementsprechenden Arrays $arrrray[3] sortieren kann.
  Last edited: 2010-10-29 14:30:31 +0200 (CEST)
  - +10 replies
  - clms
    
    2010-10-29 14:59
    User since
    2010-08-29
    373 Artikel
    BenutzerIn
    
    Guest Eles
    Und der Code:
    
    Code (perl): (dl )
    
    1 2 3
    
    for ($i=0; $i<$Artikel_count; $i++) { print "\n"; }
    
    schreibt sich in Perl eleganter:
    
    Code (perl): (dl )
    
    1 2 3
    
    foreach my $a (@Artikel) { print "\n"; }
    
    Guest Eles
    Nun brauche ich einen Ansatz das ich Quasi den Array $Artikel[n] nach den Preis der dementsprechenden Arrays $arrrray[3] sortieren kann.
    Also sortiert man die Liste danach:
    
    Code (perl): (dl )
    
    1 2 3
    
    foreach my $a sort {$a->[3] <=> $b->[3]} (@Artikel) { print "\n"; }
    
    Last edited: 2010-10-29 15:03:35 +0200 (CEST)
    - +7 replies
    - clms
      
      2010-10-29 15:37
      
      User since
      2010-08-29
      373 Artikel
      BenutzerIn
      
      Ich habe jetzt gesehen, dass der Preis offenbar nicht als Zahl sondern nur als String vorliegt, weil die Nachkommastellen durch ',' abgetrennt werden.
      Der Verleichsoperator für Strings wäre cmp statt <=>. Aber der liefert wohl nicht die von Dir gewünschte Reihenfolge.
      
      Also musst Du vorher den Preis als Zahl erzeugen.
      Da gibt es zwei Möglichkeiten:
      (1.) Du modifizierst das Preisfeld.
      
      Code (perl): (dl )
      
      1 2
      
      print "\n" foreach sort {$a->[3] <=> $b->[3]} map {$_->[3] =~ s/,/./; $_}(@Artikel);
      
      (2.) Oder Du fügst für das Sortieren ein Feld mit dem Preis als Zahl ein.
      Mit unshift landet das am Anfang des Arrays. Mit push am Ende:
      
      Code (perl): (dl )
      
      1 2 3 4
      
      foreach my $a sort {$a->[0] <=> $b->[0]} map {unshift @$_, $_->[3]; $_->[0] =~ s/,/./}(@Artikel) { print "\n"; }
      
      Achtung: Beide Varianten modifizieren die Datenstruktur des Artikels. Ggf. mußt Du die Änderung nach den Sortieren wieder rückgängig machen. (Bei der zweiten Variante mit shift bzw. pop)
      
      Noch ein Hinweis: Wenn Du die Preise umgekehrter Reihenfolge haben willst, kannst Du in der Sortierfunktion $a und $b vertauschen oder vor sort noch ein reverse setzen.
      
      (Disclaimer: Alle Codebeispiele nicht ausprobietr]
      - +4 replies
      - Gast Eles
        
        2010-11-01 10:51
        
        Leider funktioniert werde die Eine noch die andere Version. Bei beiden bricht er das Programm ab :(
        
        +3 replies
        
        renee
        
        2010-11-01 10:52
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Mit welcher Meldung?
        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/
        
        +2 replies
        
        Gast Eles
        
        2010-11-01 11:06
        
        Es zeigt mir gar keine Meldungen an, ich kann nur überprüfen ob der Code funktioniert in dem ich die Seite dann im Browser aufmachen. Entweder er zeigt dann die komplette Seite an, oder er zeigt gar nichts an.
        Last edited: 2010-11-01 11:23:58 +0100 (CET)
        
        Gast wer
        
        2010-11-01 12:17
        
        Du kannst die Meldungen die kommen auch in den Browser umleiten, wenn es sich bei deinen Script um ein CGI handelt.:
        
        Fehlermeldungen im Browser ausgeben:
        CGI::Carp
        
        Code (perl): (dl )
        
        1 2
        
        use CGI; use CGI::Carp qw(fatalsToBrowser);
        
        Warungen im Browser ausgeben:
        
        Code (perl): (dl )
        
        1 2 3
        
        #... header(); warningsToBrowser(1);
        
        Last edited: 2010-11-01 12:31:01 +0100 (CET)
      - +2 replies
      - Gast Eles
        
        2010-11-01 11:03
        
        Habe es jetzt so versucht:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        my @Artikel_sorted = sort { $a->[3] cmp $b->[3] } @Artikel; print "\n";
        
        Er bricht zwar nicht ab, aber leider Sortiert er auch nicht.
        
        Gast Eles
        
        2010-11-01 11:50
        
        Funktioniert jetzt doch :/
        Keine Ahnung warum es vorher nicht funktioniert hat...
        
        Vielen dank an alle dir mit geholfen habe :)
        Last edited: 2010-11-01 11:57:08 +0100 (CET)
    - +2 replies
    - Linuxer
      
      2010-10-29 16:15
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Hi,
      
      und noch eleganter ist es, wenn man $a (und $b) wirklich nur zum Sortieren einsetzen würde ;)
      
      perldoc perlvar
      
      Quote
      ...
      # $a
      # $b
      
      Special package variables when using sort(), see sort. Because of this specialness $a and $b don't need to be
      declared (using use vars, or our()) even when using the strict 'vars' pragma. Don't lexicalize them with my $a
      or my $b if you want to be able to use them in the sort() comparison block or function.
      
      Einfach angewöhnen, diese Variablen nur im sort() zu verwenden.
      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!
      - topeg
        
        2010-10-29 16:23
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Wenn man zu Programmieren anfängt braucht man immer etwas Zeit, bis man den Sinn von sprechenden Variablennamen versteht. Vor allem wenn man intuitiv davon ausgeht, das die Variablennamenlänge einen Einfluss auf die Programmgeschwindigkeit hat. :-)

View all threads created 2010-10-28 13:29.