"heraus schneiden" mit Split (Allgemeines zu Perl)

[thread]17995[/thread]

"heraus schneiden" mit Split

Tags: perl5 split Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+11 replies
KarlaCluft

2012-12-15 13:56
User since
2012-12-11
50 Artikel
BenutzerIn
Guten Tag alle zusammen! :)
Ich möchte gerne aus einem Text eine bestimmte Stelle "herausschneiden"!
Ich habe angefangen mich etwas mit split zu beschäftigen und bin bis jetzt so weit gekommen:
Code (perl): (dl )

1 2 3 4 5 6

$text = Ich möchte DIESE STELLE herausbekommen; @text = ("$text"); foreach (@text){ my ($ergebnis)=split(/Ich möchte/); print "$ergebnis\n";}
Ich habe also den Text in einer Variable und schneide vorne ein Stück weg, habe also nur noch "DIESE STELLE herausbekommen"...nun möchte ich das "herausbekommen" auch noch weg haben! So das ich am Ende den "DIESE STELLE" teil habe und als Variable gespeichert habe!
hoffe es ist klar was ich meine, würde mich sehr über Hilfe freuen!
MfG Karla
Last edited: 2012-12-15 14:13:50 +0100 (CET)
- +8 replies
- GwenDragon
  
  2012-12-15 14:19
  User since
  2005-01-17
  14848 Artikel
  Admin1
  Ich versteh nicht ganz wozu du split brauchst. Und nach welche Kriterien du den Textteil raustrennen musst.
  
  Du kannst auch einen Regex mit match verwenden tun:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  $text = "Ich möchte DIESE STELLE herausbekommen"; my (undef, $ergebnis, undef)= ($text =~ m/(Ich möchte )(.+)( herausbekommen)/); print "$ergebnis\n";
  
  Wenn du mit split die Wörter rausholen willst:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  $text = "Ich möchte DIESE STELLE herausbekommen"; # Text an Leerzeichen raustrennen @ergebnis = (split /\s/,$text); # Gib drittes und viertes Wort aus mit einem Array-Slice print "@ergebnis[2..3]\n";
  
  Last edited: 2012-12-15 14:25:18 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +6 replies
  - KarlaCluft
    
    2012-12-15 15:03
    
    User since
    2012-12-11
    50 Artikel
    BenutzerIn
    
    Vielen Dank klappt so!
    Aber wenn ich jetz einen Text bzw einen langen Code habe
    z.B einen HTML code wird das script ja meinen einige Befehle wiedser zu erkennen... wie mache ich das dass es diese nicht versucht auszuführen?
    - +5 replies
    - GwenDragon
      
      2012-12-15 15:06
      
      User since
      2005-01-17
      14848 Artikel
      Admin1
      
      Welchen Programmschnippsel hast du jetzt verwendet?
      
      Was meinst du mit "einige Befehle wieder erkennen" genau?
      Erklär doch bitte mal genauer was du als Aufgabe hast, was das Programm machen soll.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - KarlaCluft
        
        2012-12-15 15:10
        
        User since
        2012-12-11
        50 Artikel
        BenutzerIn
        
        Ich habe ein lange n html code als Variable gespeichert ($html)
        
        Code (perl): (dl )
        
        1 2 3
        
        @ergebnis = (split /\s/,$html); $diestelledieichbrauche= "@ergebnis[2..3]\n";
        
        dieser html code hat immer an der selben stelle eine nummern folge ich ich benötige! diese möchte ich herausholen und als variable speichern!
        
        GwenDragon
        
        2012-12-15 16:48
        
        User since
        2005-01-17
        14848 Artikel
        Admin1
        
        Zeige doch mal so einen HTML-Code als Beispiel und wo/was du rausgetrennt haben willst. Das ist einfacher zu verstehen wie lange Erklärungen. ;)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +2 replies
      - KarlaCluft
        
        2012-12-15 15:15
        
        User since
        2012-12-11
        50 Artikel
        BenutzerIn
        
        Und jetzt müsste ich ja
        
        Code (perl): (dl )
        
        $html = ewig langer code den perl als teil des scripts ansieht
        
        wie kann ich das anders machen?
        danke! :)
        
        hlubenow
        
        2012-12-16 00:53
        
        User since
        2009-02-22
        882 Artikel
        BenutzerIn
        
        Dir ist schon klar, daß
        
        Code (perl): (dl )
        
        $html = ewig langer code den perl als teil des scripts ansieht
        
        nicht gültig ist???
        Ansonsten kann es schon sinnvoll sein, einen längeren Text mit mehreren Zeilen in einem String zu speichern, nämlich dann, wenn man z.B. die Absatzendezeichen herauslösen möchte.
        Bei split() nutze ich bisher eher weniger RegExes, eher Standard-Text, also z.B.:
        
        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
        
        #!/usr/bin/perl use warnings; use strict; my $text = "Ich möchte DIESE STELLE herausbekommen"; my @textarray = split(" ", $text); my $i; foreach $i (@textarray) { print "$i\n"; } print "Ok, neuer Split:\n"; my @textarray2 = split("Ich möchte ", $text); foreach $i (@textarray2) { print "$i\n"; } print "Nochmal:\n"; my $text2 = $textarray2[1]; print "$text2\n"; my @textarray3 = split(" herausbekommen", $text2); foreach $i (@textarray3) { print "$i\n"; } print "Ergebnis: '$textarray3[0]'.\n";
        
        HTML verarbeitet man aber normalerweise anders, vor allem, wenn man daraus Internetadressen (Links) extrahieren möchte. Willst Du das?
  - Gast wer
    
    2012-12-16 10:11
    Warum kein lookahead und lookbehind:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    $text = "Ich möchte DIESE STELLE herausbekommen"; my ($ergebnis)= ($text =~ m/(?<=Ich möchte )(.+)(?= herausbekommen)/); print "$ergebnis\n";
    
    Last edited: 2012-12-16 10:40:51 +0100 (CET)
- +2 replies
- betterworld
  
  2012-12-17 02:20
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  Hi,
  also mal zu der ursprunglichen Frage:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  $text = "Ich möchte DIESE STELLE herausbekommen"; @text = ("$text"); foreach (@text){ my (undef, $ergebnis)=split(/Ich möchte/); print "$ergebnis\n";}
  
  Ich habe da mal die Quotes ergänzt in der ersten Zeile. Dann habe ich das "undef, " hinzugefügt. Nun gibt das Script aus: " DIESE STELLE herausbekommen", es wurde also quasi der vordere Teil "abgesplittet". Ich vermute mal, dass das die Intention von diesem Code war. Mit dem undef sorgt man dafür, dass der zweite Rückgabewert von split in der Variablen $ergebnis landet. Alternativ könnte man es auch so schreiben:
  
  Code: (dl )
  
  my $ergebnis = (split /Ich möchte/)[1];
  
  Tatsächlich habe ich Python-Programme gesehen, wo split auf diese Weite benutzt wird, um bestimmte Teile aus einem String herauszuholen. Das liegt daran, dass Regexes in Python umständlicher zu benutzen sind und split so ziemlich die schnellste Lösung für das Problem ist. In Perl würde jeder sowas mit Regexes machen und käme nie auf die Idee, split zu nutzen.
  
  Außerdem frage ich mich, warum da extra ein Array mit nur einem Element definiert wird und dann darüber iteriert wird...
  
  Ich würde dir raten, eine der Lösungen von den anderen Postern zu nehmen.
  
  Editiert von betterworld: Klammern gefixt, Raubtier++
  Last edited: 2012-12-17 10:31:15 +0100 (CET)
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - Raubtier
    
    2012-12-17 08:04
    User since
    2012-05-04
    1081 Artikel
    BenutzerIn
    
    2012-12-17T01:20:30 betterworld
    
    Code: (dl )
    
    my $ergebnis = split(/Ich möchte/)[1];
    
    Wenn man dann noch die Klammern richtig setzt...
    
    Code: (dl )
    
    my $ergebnis = (split /Ich möchte/)[1];

View all threads created 2012-12-15 13:56.