Opened by rosti at 2018-10-19 08:13
User since
2011-03-19
3500 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
2011-03-19
3500 Artikel
BenutzerIn
https://www.perlmonks.org/?node=How%20do%20I%20dec...
Was tut sich hier im Einzelnen? Kann mir das mal jemand erklären so daß ich das verstehe? Insbesondere die tr Zeilen.
MfG
Last edited: 2018-10-19 08:26:33 +0200 (CEST)
Code (perl): (dl
)
1 2 3 4
tr#A-Za-z0-9+/##cd; # remove non-base64 chars tr#A-Za-z0-9+/# -_#; # convert to uuencoded format my $len = pack("c", 32 + 0.75*length); # compute length byte print unpack("u", $len . $_); # uudecode and print
Was tut sich hier im Einzelnen? Kann mir das mal jemand erklären so daß ich das verstehe? Insbesondere die tr Zeilen.
MfG
Last edited: 2018-10-19 08:26:33 +0200 (CEST)