Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- setenv OPENTHESE "pdf,png,jpg,jpeg,mp4,avi,mov,torrent"
- perl -e 'my @exts=split(",",shift(@ARGV));my $pat=join("|",@exts);my @fs=();foreach(@ARGV){if(m%^/%){push(@fs,$_)}else{$fs[-1].="\\ ".$_}}foreach(grep {/\.($pat)\z/i} @fs){system("open " . $_)}' $OPENTHESE $* >>& $LOG
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement