Skip to content

Instantly share code, notes, and snippets.

pablosalgadom

Block or report user

Report or block pablosalgadom

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View 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 Nov 13, 2017 — forked from cpq/restore_mac_trash.pl
MacOS: restore all files from Trash folder to their original location
View 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>; }
You can’t perform that action at this time.