HTML::Treebuilder - String aus Array übergeben (Fragen zu Perl-Modulen)

[thread]17616[/thread]

HTML::Treebuilder - String aus Array übergeben

Tags: perl5 hash Array Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+21 replies
Fragensteller

2012-08-01 09:36
User since
2012-08-01
37 Artikel
BenutzerIn
(Sorry, hatte den Post versehendlich unter Perl 6 gelegt)

Hallo,
erstmal einen guten Morgen.

Ich fange gerade mit Perl an und habe prompt ein Problem.

Ich möchte einer Methode des Treebuilders statt einem normalen String, einen String aus einem Array / Hash übergeben.

Dies scheint nicht zu klappen.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

my $tree = HTML::TreeBuilder->new(); my %rules; my @all_normal; my @all_normal_lists; %rules->{'test1'} = "'_tag' => 'ol', 'class' => 'nobr'"; %rules->{'test2'} = "'_tag' => 'ul', 'class' => 'cfgr3'"; $tree->parse_content($sContent); @all_normal_lists = $tree->look_down(%rules->{'test1'});
Sinn des ganzen ist, das der look_down diverse Reglen haben kann und ich die alle in einer Schleife durchgehen möchte bis ich was gefunden habe.
Code: (dl )

1 2 3 4 5

$x = 0; while(scalar(@all_normal_lists) < 1){ $x++; @all_normal_lists = $tree->look_down(%rules->{'test_'.$x}); }
Vielleicht könnte mir hier einer weiter helfen?

Timo
Last edited: 2012-08-01 09:50:05 +0200 (CEST)
- +7 replies
- Muffi
  
  2012-08-01 09:54
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Erstmal (wichtig, damit man in Perl nicht im Sekundentakt auf die Nase fällt):
  Hash hat %, Array hat @ und Skalar (nennen wirs mal einzelner Wert) hat $
  
  mit
  
  Code (perl): (dl )
  
  %rules->{'test1'}
  
  fragst du einen einzelnen Wert ab, also $ statt %
  
  [EDIT] Achja. Und auch ohne den Pfeil. Das sieht bei dir alles recht wacklig aus was du da versuchst. Ich würd dir raten erstmal mit irgendwelchen Tutorials grundlegende Sachen von Perl zu lernen, ich befürchte sonst wird das ganze eine recht holproge Sache.
  
  Und ansonsten hab ich keine Ahnung was ein "String aus einem Array / Hash übergeben" sein soll. Ich denke mal du willst nicht wirklich zum Schluss einen String haben, oder?
  Last edited: 2012-08-01 09:59:27 +0200 (CEST)
  1 + 1 = 10
  - +6 replies
  - Fragensteller
    
    2012-08-01 10:15
    
    User since
    2012-08-01
    37 Artikel
    BenutzerIn
    
    Naja, dem Aufruf von look_down lautet so:
    
    $tree->look_down('_tag' => 'ol', 'class' => 'nobr');
    
    Ich möchte das nun so hinbiegen, das ich dies aufrufen kann:
    
    $tree->look_down(%rules->{'test1'});
    
    Somit müsste es doch reichen, wenn ich '_tag' => 'ol', 'class' => 'nobr'
    als String im Hash liegen habe und diese dann als Wert übergebe, oder nicht?
    
    Wieso wacklig?
    Das stammt aus Tutorials zu Perl.
    - +5 replies
    - Raubtier
      
      2012-08-01 10:27
      
      User since
      2012-05-04
      1054 Artikel
      BenutzerIn
      
      Aha.
      
      Zunächst mal kannst du in einem Hash keinen Hash speichern, sondern nur Skalare. Also hier eine Hash-Referenz.
      
      Wichtig für dich vielleicht auch, dass => und , dasselbe tun. D.h. was look_down wirklich bekommt, sind einfach 4 Parameter.
      
      Also
      
      Code: (dl )
      
      1 2 3 4 5 6 7
      
      $rules{'test1'} = {'_tag' => 'ol', 'class' => 'nobr'}; # die {} machen ne anonyme Hashref ... $tree->look_down(%{$rules{'test1'}}); # hier mit dem % wieder dereferenzieren
      
      Lektüre (z.B.):
      perldoc perlreftut
      - Fragensteller
        
        2012-08-01 10:29
        
        User since
        2012-08-01
        37 Artikel
        BenutzerIn
        
        achso,
        hm...dann versuchs ich mal anders.
        danke
      - +3 replies
      - Fragensteller
        
        2012-08-01 10:53
        
        User since
        2012-08-01
        37 Artikel
        BenutzerIn
        
        Hallo Raubtier,
        
        ich denke ich bin auf dem ricgtigen Weg...
        
        Code: (dl )
        
        1 2 3
        
        my @rules2 = ('_tag', 'ol','style','margin-top:-11px','onmouseover','return true'); $tree->look_down(@rules2[0],@rules2[1],@rules2[2],@rules2[3],@rules2[4],@rules2[5]);
        
        Das läuft und findet was es soll, nun aber die Frage, wie übergeb ich die Parameter als variable Liste?
        Das ist ja nun "rules2",
        rules1 aber hat nicht wie rules2 6 Parameter sondern nur 4 Paramater.
        rules3 hat dann aber eventuell 19 Parameter....
        
        Timo
        
        +2 replies
        
        Raubtier
        
        2012-08-01 10:57
        
        User since
        2012-05-04
        1054 Artikel
        BenutzerIn
        
        2012-08-01T08:53:58 Fragensteller
        
        Code: (dl )
        
        1 2 3
        
        my @rules2 = ('_tag', 'ol','style','margin-top:-11px','onmouseover','return true'); $tree->look_down(@rules2[0],@rules2[1],@rules2[2],@rules2[3],@rules2[4],@rules2[5]);
        
        Das läuft und findet was es soll, nun aber die Frage, wie übergeb ich die Parameter als variable Liste?
        
        Einfach look_down(@rules) ?!
        
        Bitte nutze auch "use warnings"
        @rules2[0] ist ein Array-Slice mit einem Element! Du wollst hier aber das erste Element haben, welches $rules2[0] ist.
        
        Fragensteller
        
        2012-08-01 11:09
        
        User since
        2012-08-01
        37 Artikel
        BenutzerIn
        
        Ah ok...
        
        ich habs verstanden, glaub ich...
        
        @array ist das array
        ansprechen kann ich es mit @array[index] was aber schlecht ist. Besser ist es, da ich nur einen Wert anspreche mit $array[index].
        
        %hash->{key} ist veraltet, heute ist es %hash{key} wobei dann auch hier wieder als Wert mit $hash{key} nutze.
        
        Fülle ich manuell ein array...
        
        $array[index] = 1
        $array[index] = 2
        
        kann ich das ganze dann auch mit @array weiter nutzen.
- +8 replies
- Fragensteller
  
  2012-08-01 10:28
  User since
  2012-08-01
  37 Artikel
  BenutzerIn
  Ich habe es nun so versucht, auch ohne Erfolg...
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  my %test1; my %test2; %test1->{'_tag'} = "ol"; %test2->{'class'} = "nobr"; $anzahl_rules = 2; while($anzahl_rules > 0){ print"$anzahl_rules\n"; @all_normal_lists = $tree->look_down(%test1,%test2); print"Versuch $anzahl_rules: ".scalar(@all_normal_lists)."\n"; $anzahl_rules--; }
  - +2 replies
  - Raubtier
    
    2012-08-01 10:34
    User since
    2012-05-04
    1054 Artikel
    BenutzerIn
    
    2012-08-01T08:28:19 Fragensteller
    Ich habe es nun so versucht, auch ohne Erfolg...
    
    Code: (dl )
    
    %test1->{'_tag'} = "ol";
    
    Was soll der Code deiner Meinung nach tun?
    
    Benutzt du "use warnings" und "use strict"?
    
    Quote
    $ perl -wE'use strict;my %test1;%test1->{"_tag"} = "ol"'
    Using a hash as a reference is deprecated at -e line 1.
    
    Du willst
    $test1{'_tag'} = "ol";
    - Fragensteller
      
      2012-08-01 10:58
      
      User since
      2012-08-01
      37 Artikel
      BenutzerIn
      
      strict nutze ich, warnings nicht.
      Das war in den Tuts nicht drin.
      
      %test1->{'_tag'} = "ol";
      
      Soll im Hash test1 dem Key "_tag" den value "ol" zuweisen.
      Was er auch gemacht hat.
      
      ok, mit warnings gibts so einiges an Ausgaben...
      Anhänge
      
      image/jpeg
      897 x 329
      PuTTY.jpg
  - +5 replies
  - Muffi
    
    2012-08-01 10:34
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Hast du die vorherigen Posts überhaupt gelesen?
    1 + 1 = 10
    - +4 replies
    - Fragensteller
      
      2012-08-01 11:00
      
      User since
      2012-08-01
      37 Artikel
      BenutzerIn
      
      ja
      - +3 replies
      - Muffi
        
        2012-08-01 11:05
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Du hast grundlegende Probleme mit Variablen und Datenstrukturen in Perl. (in Posts wurde übrigens drauf hingewiesen wie mans richtig schreibt).
        
        Ich würde die wirklich erst aus der Welt schaffen, bevor ich was grösseres anfange. Selbst mit warnings und strict gibts Situationen wo dir Perl stillschweigend was anlegt oder konvertiert, wenn du falsch auf Variablen zugreifst. Das gibt fürchterlich zu debuggendes Fehlverhalten und wenig Spaß.
        Leg das Projekt beiseite und lern ein paar Perlgrundlagen.
        1 + 1 = 10
        
        +2 replies
        
        Fragensteller
        
        2012-08-01 11:10
        
        User since
        2012-08-01
        37 Artikel
        BenutzerIn
        
        werd ich auch mal....
        aber leider gibt es imn 10 Tutorials 10 verschiede Aussagen...
        
        Linuxer
        
        2012-08-01 11:22
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Das liest sich so, als ob Du 10 Tutorials parallel liest...
        
        Warum nicht auf ein Tutorial beschränken und das erstmal durcharbeiten?
        
        http://perl-tutorial.org/ - Dort mal eines aus der "Recommended" Liste rauspicken und vornehmen...
        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!
- +3 replies
- Fragensteller
  
  2012-08-01 11:35
  User since
  2012-08-01
  37 Artikel
  BenutzerIn
  ok, für den Fall das es noch einen Interessiert...
  
  hier meine Lösung
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  my @rule0 = ('_tag', 'ol','class','nobr'); my @rule1 = ('_tag', 'ol','style','margin-top:-11px','onmouseover','return true'); @{$rules{rule0}}=@rule0; @{$rules{rule1}}=@rule1; #print @{$rules{rule1}}[0]; while($it_rules < scalar keys %rules){ @all_normal_lists = $tree->look_down(@{$rules{'rule'.$it_rules}}); print"Versuch $it_rules: ".scalar(@all_normal_lists)."\n"; $it_rules++; undef(@all_normal_lists); }
  - +2 replies
  - Muffi
    
    2012-08-01 11:43
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Anderer Vorschlag:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    my @rues = ( ['_tag', 'ol','class','nobr'], ['_tag', 'ol','style','margin-top:-11px','onmouseover','return true'] ); for my $rule (@rules) { my @all_normal_lists = $tree->look_down(@$rule); }
    
    [EDIT] Natürlich mit Klammern ;)
    Last edited: 2012-08-01 11:49:58 +0200 (CEST)
    1 + 1 = 10
    - Raubtier
      
      2012-08-01 11:48
      
      User since
      2012-05-04
      1054 Artikel
      BenutzerIn
      
      Da fehlen wohl die () bei der Zuweisung.
      @rules = ( [...], [...]);
- pq
  
  2012-08-01 11:45
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  2012-08-01T07:36:11 Fragensteller
  (Sorry, hatte den Post versehendlich unter Perl 6 gelegt)
  
  argh! ein hinweis hätte im alten thread gereicht, dann hätte den jemand verschoben.
  
  hier meine antwort aus dem anderen thread:
  
  wenn du sagst, was genau nicht funktioniert, wird dir vielleicht eher geholfen. und ein beispiel-input wäre auch nicht schlecht.
  
  nebenbei: die syntax %hash->{key} ist schon lange nicht mehr gültig (wird aber noch geduldet). wenn du warnings benutzen würdest, würde perl dich darauf hinweisen.
  
  du musst schreiben: $hash{key}
  
  lies mal ein modernes tutorial: http://perl-tutorial.org/
  
  einige basics findest du auch in der doku, die dir mit deinem perl geliefert werden. perldoc perlintro, perldoc perldata, ...
  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
- GwenDragon
  
  2012-08-01 13:51
  
  User since
  2005-01-17
  14533 Artikel
  Admin1
  
  Verschoben von Allgemeines zu Perl nach Fragen zu Perl-Modulen
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2012-08-01 09:36.