Array aus String erzeugen? (Allgemeines zu Perl)

pktm

2007-03-17 22:56

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Ich habe da den String my $s = "[1, [2, 3, 4, [5, 6]]]";.
Wie kann ich den in ein Array umwandeln?

Grüße, pktm

http://www.intergastro-service.de (mein erstes CMS :) )

bloonix

2007-03-17 23:10

User since
2005-12-17
1615 Artikel
HausmeisterIn

Code: (dl )

use strict;
use warnings;
use Safe;
use Data::Dumper;

my $s = "[1, [2, 3, 4, [5, 6]]]";
my $safe = new Safe;
my $obj  = $safe->reval($s);

die $@ if $@;

print Dumper($obj);

$VAR1 = [ 1, [ 2, 3, 4, [ 5, 6 ] ] ];

Weitere Infos erhälst du hier: CPAN:

Safe und warum die
Evaluierung mit Safe gemacht werden sollte.\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

bloonix

2007-03-17 23:16

User since
2005-12-17
1615 Artikel
HausmeisterIn

Ähm... darf ich noch Fragen, wofür du das brauchst? Ich hab da so ne
Ahnung und vielleicht ne bessere Lösung für dich... ;)

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

pktm

2007-03-17 23:21

User since
2003-08-07
2921 Artikel
BenutzerIn

Momentan speichere ich Syntaxbäume von Sätzen, welche ich vorher mühevoll aus XML-Daten in Arrayreferenzen geparst habe in einer Datenbank ab, weil ich die Sätze genau in durch diese Form mittels regulärer Ausdrücke durchsuchen kann. Und weil sie schon in der DB stehen wollte ich sie auch wieder von da benutzen anstatt den Parser nochmal anzuwerfen.
Wieso?

http://www.intergastro-service.de (mein erstes CMS :) )

bloonix

2007-03-17 23:24

User since
2005-12-17
1615 Artikel
HausmeisterIn

Okay, wenn du die Datensätze mit einer Regex durchsuchen und gleich-
zeitig in einem Skript evaluieren möchtest, dann ist mein Gedanke nichts
für dich... ich hatte daran gedacht, dass du die Datensätze in Binärform
mit Storable in die Datenbank legst.

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

pktm

2007-03-17 23:26

User since
2003-08-07
2921 Artikel
BenutzerIn

Ja, das wäre sinnvoll, wenn ich die Daten nur irgendwo zwischenspeichern will. Da bietet sich doch CPAN:

Data::Serializer an.
Aber ich muss den Kram ja auch noch lesen können.

http://www.intergastro-service.de (mein erstes CMS :) )

bloonix

2007-03-17 23:35

User since
2005-12-17
1615 Artikel
HausmeisterIn

Du machst also sowas:

select foo from bar where foo like '%$search%';

und die zurückgegebenen Zeilen möchtest du evaluieren?

while (my $row = $sth->fetchrow_hashref) { my $obj = $safe->reval($row->{foo}); # do something with $obj }\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

pktm

2007-03-17 23:49

User since
2003-08-07
2921 Artikel
BenutzerIn

Ja.

Edit: wobei die Information, welcher Satz das jetzt ist wichtiger ist, als die Datenstruktur, auf der ich die Suche durchgeführt habe.\n\n

http://www.intergastro-service.de (mein erstes CMS :) )

betterworld

2007-03-18 07:52

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Code: (dl )

use strict;
use warnings;

$_ = '[1, [2, 3, 4, [5, 6]]]';
my @a;

sub e{my($r)=@_;{s/^\]//&&last;s/^\[//&&e($r->[@$r]=[])||s/^, //||s/^(\d+)//&&push@$r,$1and redo}}e\@a;

use Data::Dumper;
print (Dumper(\@a));

\n\n

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class