13 lines
185 B
Perl
13 lines
185 B
Perl
my $s = sexpr(q{
|
|
|
|
((data "quoted data" 123 4.5)
|
|
(data (!@# (4.5) "(more" "data)")))
|
|
|
|
});
|
|
|
|
# Dump structure
|
|
use Data::Dumper;
|
|
print Dumper $s;
|
|
|
|
# Convert back
|
|
print sexpr2txt($s)."\n";
|