Skip to content

Instantly share code, notes, and snippets.

View pablosalgadom's full-sized avatar

pablosalgadom

4 followers · 2 following
View GitHub Profile
@pablosalgadom
pablosalgadom / restore_mac_trash.pl
Created November 13, 2017 13:00 — forked from khalman-m/restore_mac_trash.pl
#!/usr/bin/env perl
# Copyright (c) 2015 Sergey Lyubka
# All rights reserved
use Encode;
my $dir = "/Users/$ENV{USER}/.Trash";
sub read_file($) { local $/; open FD, $_[0] or die $_[0]; binmode FD; <FD>; }
@pablosalgadom
pablosalgadom / restore_mac_trash.pl
Created November 13, 2017 12:59 — forked from cpq/restore_mac_trash.pl
MacOS: restore all files from Trash folder to their original location
#!/usr/bin/env perl
# Copyright (c) 2015 Sergey Lyubka
# All rights reserved
use Encode;
my $dir = "/Users/$ENV{USER}/.Trash";
sub read_file($) { local $/; open FD, $_[0] or die $_[0]; binmode FD; <FD>; }