split gibt scalar zurück. Warum? (Allgemeines zu Perl)

[thread]15976[/thread]

split gibt scalar zurück. Warum?

Leser: 24

Articles: hide open all | hide show old branches

+9 replies
Gast lawnmover

2011-02-18 12:19
Hi Leute,

mal wieder hab ich ein Problem mit der split Funktion. Irgendwie ist sie der Meinung mir einen Skalar und nicht die Teile des splits zu liefern. Kann mich einer erhellen wieso?
Code: (dl )

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

#!/usr/bin/perl use strict; use warnings; my $last; my @values; my $num; open FILE, 'test' or die $!; my @lines = <FILE>; foreach ( @lines ){ chomp; print; } @values = split "\n", @lines; $\ = "\n"; print @values; foreach ( @values ){ print $_; }
Ausgabe des Programms:
Code: (dl )

1 2

header1 wert1 wert2 wert3 wert4 5 5
Last edited: 2011-02-18 12:25:46 +0100 (CET)
- +8 replies
- pq
  
  2011-02-18 12:31
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  was war denn an split funktioniert nicht mit @_? so unklar, dass du jetzt doch wieder ein array an split übergibst?
  
  mal in worten: split nimmt mehrere argumente entgegen, und zwar eine regex und einen skalar, welcher gesplittet werden soll (und optional noch weitere optionen).
  wenn du split ein array als 2. argument übergibst, dann zählt das erste element des arrays als zu splittender string, und der rest als weitere optionen für split. heisst, in zeile 17 wird effektiv nur die erste zeile deiner datei splitten, und zwar an newlines.
  jetzt darfst du dir überlegen, wie sinnvoll es ist, eine einzige zeile an newlines zu splitten.
  
  irgendwie sieht das sehr wirr aus und als ob du einfach nur code-stücke aneinanderklebst und hoffst, dass es irgendwie funktioniert.
  wieso liest du eine datei zeilenweise in @lines ein und möchtest dann diese zeilen nochmal an newlines splitten?
  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
  - +7 replies
  - lawnmover
    
    2011-02-18 13:20
    
    User since
    2011-02-18
    6 Artikel
    BenutzerIn
    
    Hi pq,
    
    mir war nicht klar das split nicht mit einem array funktioniert. Den anderen Thread hatte ich so verstanden das halt die sub keine Array sondern nur ein Skalar übergeben bekommt. Das hab ich dann hoffentlich jetzt verstanden.
    
    Das Skript jetzt ist nur ein Test für das Programm im anderen Thread. Ich muß halt rauskriegen ob es nur ein \n oder mehrere gibt. Bei mehreren \n muß ich die Werte weiter aufbohren. Anderes Kapitel.
    
    Danke für deine Mühen.
    Last edited: 2011-02-18 13:34:03 +0100 (CET)
    - +5 replies
    - pq
      
      2011-02-18 13:42
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      aber das beantwortet nicht die frage, warum du zeilen, die eh schon nach newlines aufgesplittet sind, nochmal nach newlines splitten willst.
      
      vielleicht beschreibst du einfach ganz genau, was du in welchem fall machen willst, denn dein code ist so relativ unsinnig und lässt für mich schwer eine interpretation zu, was er machen soll, wenn er fertig ist.
      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
      - lawnmover
        
        2011-02-18 14:22
        
        User since
        2011-02-18
        6 Artikel
        BenutzerIn
        
        2011-02-18T12:42:45 pq
        aber das beantwortet nicht die frage, warum du zeilen, die eh schon nach newlines aufgesplittet sind, nochmal nach newlines splitten willst.
        
        Ich hatte nen ganz blöden Denkfehler. Ich wollte ansich nur ne Funktion schreiben die schaut ob oder wieviele Zeilen in einem Textstück ( array) sind. Da ich aber in dem Fall keine Textstücke sondern einzelne Zeilen hatte... war mein Ansatz einfach falsch.
        
        2011-02-18T12:42:45 pq
        vielleicht beschreibst du einfach ganz genau, was du in welchem fall machen willst, denn dein code ist so relativ unsinnig und lässt für mich schwer eine interpretation zu, was er machen soll, wenn er fertig ist.
        
        Schreib grad nen Programm das die Ausgabe von dmidecode parst. Im Grund mit /Handle/ eingelesen dann nach : gesplittet und man hatte Schlüssel und Wert. Allerdings gab es einen Schlüssel mit mehreren Werten über Zeilen verteilt. Also andere Funktion. Und das ist dabei herausgekommen
        
        Code: (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
        
        sub data{ my @parts; my %data; my $i; my $x; my $new; my $value; my $key; my @values; $\ = "\n"; # parts is key, value + key @parts = split( /:/, $_[0]); $new = trim($parts[0]); for( $i = 1; $i <= $#parts; $i++ ){ # set right key $key = $new; @values = split( "\n", $parts[$i]); # last line is next key $new = trim( pop @values); foreach( @values ){ trim( $_ ); print $_; } # rest are values $data{$key} = join( "\n", @values); } while ( ($key, $value) = each (%data) ){ #print $key . '=>' . $value; } #print %data; }
        
        @Taumarill seh ich das richtig das:
        
        Code (perl): (dl )
        
        my $lb = () = $text =~ /(\n)/g;
        
        den $text nach \n durchsucht und dann ein \n in (), also eine Liste geschrieben wird und da $lb = () einen Skalarenkontext hat, hat es danach die Anzahl an Zeilen?
        
        +2 replies
        
        Taulmarill
        
        2011-02-18 15:17
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        2011-02-18T13:22:53 lawnmover
        @Taumarill seh ich das richtig das:
        
        Code (perl): (dl )
        
        my $lb = () = $text =~ /(\n)/g;
        
        den $text nach \n durchsucht und dann ein \n in (), also eine Liste geschrieben wird und da $lb = () einen Skalarenkontext hat, hat es danach die Anzahl an Zeilen?
        
        Fast. Ich versuche das noch mal besser zu Erklären:
        
        Der Reguläre Ausdruck $text =~ /(\n)/g;gibt eine Liste mit allen gefundenen Zeilenumbrüchen zurück. Diese wird einmal an die leere Liste () übergeben, wo sie sich nicht weiter auswirkt. Die leere Liste ist nur da, um den Regex in Listenkontext zu setzten. Der Zuweisungsoperator (also das Gleichheitszeichen) zwischen dem Regex und der Liste gibt jetzt aber die durch ihn zugewiesene Liste (die mit den Zeilenumbrüchen) selbst wieder zurück, und zwar an den Zuweisungsoperator weiter links. Dieser will die Liste einem Scalar zuweisen, weswegen die Liste plötzlich in scalarem Kontext steht und nun die Anzahl ihrer Elemente zurück gibt.
        
        Ich habe mal ein paar Klammern gesetzt, um anzuzeigen, was zusammen gehört:
        
        Code (perl): (dl )
        
        my $lb = ( () = ( $text =~ /(\n)/g ) );
        
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        pq
        
        2011-02-18 15:24
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        könnte man nicht einfach
        my $lb = $text =~ tr/\n//;
        machen? *g*
        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
        
        Gast wer
        
        2011-02-18 18:14
        
        2011-02-18T13:22:53 lawnmover
        Schreib grad nen Programm das die Ausgabe von dmidecode parst.
        
        DMI::Decode
        
        Parse::DMIDecode
        Last edited: 2011-02-18 18:17:03 +0100 (CET)
    - Taulmarill
      
      2011-02-18 13:55
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Für die Zukunft wäre es günstig, wenn du dabei schreiben würdest, was du mit deinem Code erreichen willst. Dann können wir dir besser helfen.
      
      Wenn du die Anzahl von Zeilenumbrüchen in einem Text haben willst, dann kannst du das z.B. so machen:
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      my $text = "foo\nbar\nbaz\n"; my $lb = () = $text =~ /(\n)/g; print "$lb\n";
      
      Da das Array @lines aber schon nach Zeilen getrennt ist, kannst du dir auch einfach die größe des Arrays ausgeben lassen. Arrays liefern in scalarem Kontext die Anzahl ihrer Elemente zurück:
      
      Code (perl): (dl )
      
      print scalar( @lines ) . "\n";
      
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

View all threads created 2011-02-18 12:19.