Thread Fehlerfreie Übertragung einer Datei (74 answers)
Opened by ITobiI at 2015-09-15 17:14

GwenDragon
 2015-09-28 15:51
#182420 #182420
User since
2005-01-17
14510 Artikel
Admin1
[Homepage]
user image
Du musst dir die Funktion serialize() und unserialize() selber schreiben ;)
http://perlmaven.com/data-serialization-in-perl


Ansonsten PoC.

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
use Data::Dumper;
sub serialize {
  my $data = shift;  
  $data = Dumper($data);
  $data =~ s/\$VAR1 = //;
  return $data;
}

sub unserialize {
  my $serial_data = shift;
  eval "\$serial_data = $serial_data";
  return $serial_data;
}

# Daten sind bspw. in einem anonymen Array
my $daten = [1,13,42,"Perl","FooBar"];

my $SER_DATA = serialize($daten);
say "Serialisierte Daten: ",$SER_DATA;


# und Daten wieder zurück gewinnen
$daten = unserialize($SER_DATA);
say $daten->[2]; # sollte 42 ergeben
die Drachin, Gwendolyn


Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View full thread Fehlerfreie Übertragung einer Datei