String bis zu einer bestimmten Stelle auslesen (gelöst) (Allgemeines zu Perl)

[thread]17917[/thread]

String bis zu einer bestimmten Stelle auslesen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+5 replies
jojodier

2012-11-20 12:08
User since
2012-11-20
2 Artikel
BenutzerIn
Hallo!
Ich hoffe, ich bin hier Richtig.

Folgendes Problem: Ich habe eine Textdatei, aus der ich ganz bestimmte Strings auslesen möchte. Hier mal ein kleiner Ausschnit aus der Datei:
Code: (dl )

data-docAttribution="Rockstar Games, Inc."data-docConsumptionUri="" data-docId="com.rockstar.gta3ger" data-docTitle="Grand Theft Auto 3"data-docIconUrl="https://lh4.ggpht.com
Ich möchte jetzt den docTitle, in diesem Fall also "Grand Theft Auto 3" in einem String speichern. Wie kann ich also in der Textdatei nach docTitle suchen und dann die anschließende Bezeichnung speichern, ohne allerdings zu wissen, wie lang der Titel genau ist? Alle anderen Infos aus der Datei (z.B. Attribution, docID, Url) interessieren mich erst einmal nicht.

Danke für Eure Hilfe!

modedit Editiert von pq: code-tags.
Last edited: 2012-11-20 14:09:26 +0100 (CET)
- roli
  
  2012-11-20 12:58
  
  User since
  2004-12-31
  424 Artikel
  BenutzerIn
  
  Hi,
  
  eine Möglichkeit wäre den String zwei mal mit split zu bearbeiten. Im ersten Schritt verwendest du >>data-docTitle="<< als Trennzeichen, um dann auf den zweiten Teilsting wiederum ein split, diesmal mit >>"<< als Trennzeichen zu verwenden. Jetzt sollte der Name im ersten Arrayelement stehen.
  Roland
  --
  "Steh vorn, während du fragst;
  sitzen soll, wer antwortet."
  Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
- +2 replies
- topeg
  
  2012-11-20 13:02
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Code: (dl )
  
  1 2 3 4 5
  
  data-docAttribution="Rockstar Games, Inc." data-docConsumptionUri="" data-docId="com.rockstar.gta3ger" data-docTitle="Grand Theft Auto 3" data-docIconUrl="https://lh4.ggpht.com/"
  
  Sehe ich es richtig, daß ein absnitt immer <name>="<wert>" ist?
  Ungetestet:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12
  
  my $data='data-docAttribution="Rockstar Games, Inc."data-docConsumptionUri=""data-docId="com.rockstar.gta3ger"data-docTitle="Grand Theft Auto 3" data-docIconUrl="https://lh4.ggpht.com/"'; my %values; while(lenght($data)) { if($data=~s/^.*?([^\s=]+)\s*=\s*"([^"]*)"\s*//s) { $values{$1}=$2; } else { last } } print $values{'data-docTitle'}."\n";
  - jojodier
    
    2012-11-20 13:17
    
    User since
    2012-11-20
    2 Artikel
    BenutzerIn
    
    top! Danke! Damit kann ich arbeiten :)
- Student87
  
  2012-11-20 14:47
  User since
  2012-11-08
  73 Artikel
  BenutzerIn
  Ich hatte letztens ein sehr ähnliches Problem und habe etwas sehr nützliches entdeckt, was du vielleicht auch in Zukunft gerne verwenden wirst:
  
  Wenn du bei einem Match-Ausdruck etwas in Klammern setzt, wird es dir in $1 gespeichert.
  
  D.h., der Code, den du suchst, kann glaube ich (Bin aber Anfänger) weniger komplex sein als der vorher gepostete:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  #!/usr/bin/perl use strict; use warnings; my $file = "deinedatei.txt"; my $doctitle; open (IN, '<', "$file") || die ("Could not open $file: $!"); while (<IN>) { if (/data-docTitle=\"(Grand Theft Auto 3)\"/) { $doctitle = $1; last; } } close IN || die ("Could not close $file: $!");
  
  Last edited: 2012-11-20 14:51:44 +0100 (CET)

View all threads created 2012-11-20 12:08.