이상한 ptp-bin 디렉토리

내 홈 디렉토리에 ptp-bin/나타납니다 .

여기에는 ptp다음 내용이 포함된 파일이 포함되어 있습니다.

#!/usr/bin/perl
require("File/Spec.pm");my@files=();my$aflag=0;my$type=undef;for$a(@ARGV){if(${a}eq"-a"){$aflag=1;}elsif($a=~/-t=(.*)/){$type=$1;}elsif(-r$a){push@files,File::Spec->rel2abs($a);}}if($#files==0){if(defined($type)){print"~~EPTP:OpenFile~~EDID=",$type,"~~",$files[0],"\n";}else{print"~~EPTP:OpenFile~~",$files[0],"\n";}}elsif($aflag){for$file(@files){if(defined($type)){print"~~EPTP:OpenFile~~EDID=",$type,"~~",$file,"\n";}else{print"~~EPTP:OpenFile~~",$file,"\n";}sleep(1);}}else{if(defined($type)){print"~~EPTP:Choice~~EDID=",$type,"~~",join("~~",@files),"\n";}else{print"~~EPTP:Choice~~",join("~~",@files),"\n";}}

나는 할 수있다? 무엇을 위해 사용해야 합니까? 그것은 무엇을 합니까? 삭제해야 할까요, 아니면 다른 곳으로 옮겨야 할까요?