Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Tools, Betriebssysteme und technische Fragen · Allgemeine technische Fragen
[thread]1546[/thread]

LONG nach bitstring: pack und unpack (Seite 2)

Leser: 2


<< |< 1 2 >| >> 15 Einträge, 2 Seiten
esskar
 2004-05-14 02:55
#14929 #14929
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=Crian,13.05.2004, 16:17]... ist doch gerade dazu da, eine Liste mit Füllstoff aneinander zu kleben[/quote]
wie der Name auch schon sagt: join nicht split
[E|B]
 2004-05-14 23:00
#14930 #14930
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
@esskar

Was gefällt dir an reverse nicht?
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]
esskar
 2004-05-15 00:25
#14931 #14931
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[E|B
,14.05.2004, 21:00]@esskar

Was gefällt dir an reverse nicht?

es war nicht intuitiv:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
C:\Dokumente und Einstellungen\sak>perl
print unpack("b*", pack("L", 3)); print "\n";
print reverse unpack("b*", pack("L", 3)); print "\n";
print join("", reverse split //, unpack("b*", pack("L", 3))); print "\n";
^Z
11000000000000000000000000000000
11000000000000000000000000000000
00000000000000000000000000000011

C:\Dokumente und Einstellungen\sak>
steffenw
 2004-05-15 22:18
#14932 #14932
User since
2003-08-15
692 Artikel
BenutzerIn
[Homepage] [default_avatar]
[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.
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};
esskar
 2004-05-15 22:28
#14933 #14933
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
ja dann...
aber ich hatte es dann eh in cpp geschrieben!
<< |< 1 2 >| >> 15 Einträge, 2 Seiten



View all threads created 2004-05-12 23:22.