Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
123456789101112131415161718use strict;use File::Find;use 5.010;
my $pngout = '/usr/local/bin/pngout';my $path = $ARGV[0];
find(sub { if (-f $File::Find::name && $File::Find::name =~ m/\.png$/) { say $File::Find::name; my $cmd = $pngout . ' '. $File::Find::name; say $cmd; say `$cmd`; }},$path);