Avoid the shell and you avoid the need for shell quoteing

#!/usr/bin/perl --
##
##
## perltidy -olq  -csc -csci=3 -cscl="sub : BEGIN END " -otr -opr -ce 
+-nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if " -otr -opr 
+-ce -nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END if while " -otr
+ -opr -ce -nibc -i=4 -pt=0   "-nsak=*"
#!/usr/bin/perl --
use strict;
use warnings;
use Digest;
use Digest::MD5;
use Path::Tiny qw/ path tempfile tempdir cwd /;
use File::Find::Rule qw/ find rule /;

Main( @ARGV );
exit( 0 );

sub Main {

## self test
#~     warn  mmd5external( __FILE__ );
#~     warn  mmd5perl( __FILE__ );
#~     warn  mmd5( __FILE__ );

#~     rule( 'file' )->exec( \&Famatte )->in( '/tmp' );
#~     find( 'file' => 'exec' => \&Famatte , in => [ '/tmp' ] );
    rule( 'file' => 'exec' => \&Famatte, )->in( '/tmp' );
} ## end sub Main

sub Famatte {
    my( $shortname, $path, $fullname ) = @_;
    RealFamatte( $fullname );
    return !!0;    # discard filename
} ## end sub Famatte

sub RealFamatte {
    my( $filename ) = @_;
    print mmd5( $filename ), "\t$filename\n";
} ## end sub RealFamatte

sub mmd5 {
    goto &mmd5perl;

#~     goto &mmd5external;
} ## end sub mmd5

#~ sub mmd5external {
#~     use File::Which qw/ which /;
#~     use Capture::Tiny qw/ capture /;
#~     my( @args ) = @_;
#~     my $cmd = which('md5sum');
#~     my( $stdout, $stderr, $exit ) = capture {
#~         system( $cmd, @args );
#~     };
#~     if( $exit ){
#~         warn "uhoh got error exit( $exit ) : $stderr ";
#~     } else {
#~         $stdout =~ s/\s+$//; ## "chomp"
#~         return $stdout;
#~     }
#~ }

sub mmd5perl {
    my $fh  = path( shift )->openr_raw;
    my $ctx = Digest->new( 'MD5' );
    $ctx->addfile( $fh );
    return $ctx->hexdigest;
} ## end sub mmd5perl
[download]

perltidy, Digest, Digest::MD5, File::Find::Rule, Path::Tiny, File::Which, Capture::Tiny.

Path::Tiny, find/rule

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.