Authentication AcceptsFiles AcceptsText Author Sveinbjorn Thordarson BundledFiles Creator Platypus-5.4.1 Overwrite DevelopmentVersion Example ScriptName TarGzipper.pl Script #!/usr/bin/perl use strict; use File::Basename; if (!scalar(@ARGV) or ! -e $ARGV[0]) { print "Drop some files to create a tgz archive\n"; exit; } my $cmd = "/usr/bin/tar cvfz "; # Get enclosing folder of first file my($fn, $directory) = fileparse($ARGV[0]); # Change to that directory chdir($directory); # Archive is created there my $dest_path = "Archive.tgz"; my $files; foreach(@ARGV) { if (!$_ or ! -e $_) { next; } my($filename, $directory) = fileparse($_); $files .= "'$filename' "; } print $cmd . "\n"; system("$cmd $dest_path $files"); DocIconPath Droppable IconPath Identifier org.sveinbjorn.TarGzipper InterpreterPath /usr/bin/perl Name TarGzipper OptimizeApplication InterfaceType Text Window InterpreterArgs RemainRunning RunInBackground StatusItemDisplayType Text StatusItemIcon StatusItemTitle MyApp Suffixes * TextBackground #ffffff TextFont Monaco TextForeground #000000 TextSize 10 Version 1.0