Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^4: Perl script compressor

by afoken (Chancellor)
on Dec 08, 2019 at 20:49 UTC ( [id://11109853]=note: print w/replies, xml ) Need Help??


in reply to Re^3: Perl script compressor
in thread Perl script compressor

If you run your program on itself ... you get

FILE SIZE   : 8688 bytes
SHRUNK SIZE : 4021 bytes

[download]
If you run perltidy on your program the result is 3,701 bytes.

And if you use state of the art compression algorithms, you get even smaller files, without ANY loss of information:

/tmp>gzip -9 < 11109831.pl > 11109831.pl.gzip
/tmp>bzip2 -9 < 11109831.pl > 11109831.pl.bz2
/tmp>lzma -9 < 11109831.pl > 11109831.pl.lzma
/tmp>dir 11*
-rw-r--r-- 1 alex users 8690 Dec  8 21:45 11109831.pl
-rw-r--r-- 1 alex users 3125 Dec  8 21:46 11109831.pl.bz2
-rw-r--r-- 1 alex users 3160 Dec  8 21:46 11109831.pl.gzip
-rw-r--r-- 1 alex users 3064 Dec  8 21:46 11109831.pl.lzma
/tmp>

[download]

Alexander

--
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://11109853]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others contemplating the Monastery: (2)
As of 2024-04-19 21:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found