Opened by esskar at 2004-05-12 23:22
User since
2003-08-15
692 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
692 Artikel
BenutzerIn
[quote=esskar,14.05.2004, 22:25][/quote]
join und split sind überflüssig. Man darf nur nicht darüber stolpern, daß print eine Liste erwartet und keinen Scalar. Reverse kehrt sonst eine Liste aus einen Scalar um, was natürlich das gleiche ist.
11000000000000000000000000000000
11000000000000000000000000000000
00000000000000000000000000000011
00000000000000000000000000000011
join und split sind überflüssig. Man darf nur nicht darüber stolpern, daß print eine Liste erwartet und keinen Scalar. Reverse kehrt sonst eine Liste aus einen Scalar um, was natürlich das gleiche ist.
Code: (dl
)
1
2
3
4
print unpack("b*", pack("L", 3)); print "\n";
print reverse unpack("b*", pack("L", 3)); print "\n";
print scalar reverse unpack("b*", pack("L", 3)); print "\n";
print join("", reverse split //, unpack("b*", pack("L", 3))); print "\n";11000000000000000000000000000000
11000000000000000000000000000000
00000000000000000000000000000011
00000000000000000000000000000011
$SIG{USER} = sub {love 'Perl' or die};