diff options
Diffstat (limited to 'jquery/split_jquery.pl')
-rw-r--r-- | jquery/split_jquery.pl | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/jquery/split_jquery.pl b/jquery/split_jquery.pl deleted file mode 100644 index 3edc763..0000000 --- a/jquery/split_jquery.pl +++ /dev/null @@ -1,25 +0,0 @@ -# script to split file into parts of roughly 32kb -#!/bin/perl -my $file = shift; -my $target = shift; -my $count = 1; -my $len = 0; -$target=~/p(\d+).js/; -my $part = $1; -open(F,"<$file") || die ("cannot open file for reading: $!"); -open(G,">$target") || die("cannot open file for writing: $!"); -while (<F>) -{ - if ($part==$count) - { - print G "$_"; - } - $len+=length($_); - if ($len>32768) - { - $len=0; - $count++; - } -} -close(F); -close(G); |