perl-fan
Grünschnabel
Hallo,
ich versuche gerade ein Object mittels decode_json aus dem __DATA__ Teil vom Skript zu instanzieren. Da das später mehrmals geschehen soll mit verschiedenen Objecten stelle ich mit seek() die Position immer wieder zurück. Nur leider bekomme ich immer eine Fehlermeldung sobald ich versuche die Daten zu decoden. Wenn ich seek() weglasse funktioniert es.
Hier ein Beispiel:
Vielen Dank schonmal!
ich versuche gerade ein Object mittels decode_json aus dem __DATA__ Teil vom Skript zu instanzieren. Da das später mehrmals geschehen soll mit verschiedenen Objecten stelle ich mit seek() die Position immer wieder zurück. Nur leider bekomme ich immer eine Fehlermeldung sobald ich versuche die Daten zu decoden. Wenn ich seek() weglasse funktioniert es.
Hier ein Beispiel:
Code:
#!/usr/bin/perl
use JSON;
sub retrieve {
seek(DATA, 0, 0);
return decode_json(join("", <DATA>));
}
my $data = retrieve();
__DATA__
{"a":"ALPHA","b":[1,2,3,4,5]}