- or download this
if ($w eq $fred[-1])
- or download this
for ( my $chunk = 0; $chunk < @fred; $chunk += 20 )
{
...
}
print "]\n";
}
- or download this
for ( my $chunk = 0; $chunk < @fred; $chunk += 20 )
{
local $" = ',';
print "var $varname $chunk [@{[ map { $fred[ $chunk+$_] || () } 0
+.. 19 ]}]\n";
}
- or download this
print "var $varname ", $chunk/20, " . . .