perlからphpのsession read

memo

いまさらperlつかってるひとなんて化石なんだろうなあとおもいつつーperlだいすき


https://www.h-fj.com/blog/archives/2013/02/27-152952.php

use Data::Dumper
use CGI::Cookie;
use PHP::Serialization qw( unserialize );

my %ck = fetch CGI::Cookie;;
my $data = $memd->get($ck{PHPSESSID}->value);

$data =~ s/^[^\|]+\|//;
my $ref = PHP::Serialization::unserialize($data);

print Dumper($ref);