format new perl scripts

.local/bin/trash-put

@@ -27,8 +27,9 @@ sub trash_dirs($file_fs_root) {
     my $trash_dir;
     if ( $file_fs_root eq fs_root($data_path) ) {
         $trash_dir = "$data_path/Trash/";
-    } else {
-        $trash_dir = "$file_fs_root/.Trash/"
+    }
+    else {
+        $trash_dir = "$file_fs_root/.Trash/";
     }
 
     return "${trash_dir}info", "${trash_dir}files";
@@ -36,7 +37,8 @@ sub trash_dirs($file_fs_root) {
 
 sub target_file_name ( $file_name, $trash_file_path ) {
     opendir( my $dir, "$trash_file_path" ) or die "$!\n";
-    my $existing_suffix_nums = map(($_ =~ /^${file_name}\.~(\d)~/), readdir $dir);
+    my $existing_suffix_nums =
+      map( ( $_ =~ /^${file_name}\.~(\d)~/ ), readdir $dir );
     my $suffix_num = max($existing_suffix_nums) + 1;
     my $suffix     = "~" . $suffix_num . "~";
     closedir($dir);

.local/bin/trash-restore

@@ -24,25 +24,20 @@ sub trashed_files($search_path, $trash_path) {
     opendir( my $dir, "$trash_path/info" ) or die "$!\n";
     for ( readdir $dir ) {
         $_ =~ /\.~\d~$/                        or next;
-
         open( FH, "<", "$trash_path/info/$_" ) or next;
-
         <FH> eq "[Trash Info]\n"               or next;
-
-        my ($name, $path, $suffix) = fileparse((<FH> =~ /(?<=Path=)(.+)$/)[0]);
+        my ( $name, $path, $suffix ) =
+          fileparse( ( <FH> =~ /(?<=Path=)(.+)$/ )[0] );
         $path =~ /^$search_path\/?$/ or next;
-
         my $deletion_date = ( <FH> =~ /(?<=DeletionDate=)(.+)$/ )[0];
         chomp( $deletion_date = `date -d ${deletion_date} +'%x %X'` );
         push( @ret, [ $path, "${name}${suffix}", $deletion_date, $_ ] );
     }
-
     return @ret;
 }
 
 sub fzf_files (@files) {
     my $n = 0;
-
     my $str;
     for my $e (@files) {
         $str .= "\n" if $n > 0;
@@ -61,11 +56,13 @@ sub fzf_files(@files) {
 my $target_directory;
 if ( $#ARGV + 1 > 1 ) {
     die "Bad Arguments\n";
-} elsif ($#ARGV + 1 == 1) {
+}
+elsif ( $#ARGV + 1 == 1 ) {
     $target_directory = shift;
     chomp( $target_directory = `realpath -s $target_directory` );
     stat $target_directory or die "$!\n";
-} else {
+}
+else {
     $target_directory = getcwd();
 }
 
@@ -77,5 +74,6 @@ my $index = fzf_files(@files);
 my $file_dest = $files[$index][0] . $files[$index][1];
 my $file_src  = $trash_dir . "files/" . $files[$index][3];
 my $file_info = $trash_dir . "info/" . $files[$index][3];
+
 move( $file_src, $file_dest ) or die "$!\n";
 unlink($file_info);