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

topeg

2012-11-20 13:02

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

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/"

Sehe ich es richtig, daß ein absnitt immer <name>="<wert>" ist?
Ungetestet:

Code (perl): (dl )

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";