amaslenn · September 22, 2016 14:05
diff --git a/Perl-snippets.pl b/Perl-snippets.pl
 # run external cmd and dump its output in ~realtime
 sub run_or_die {
    my $cmd = shift;
    
    local $| = 1;
    say "[cmd]: $cmd";
    open my $hp, "$cmd |" or die "$!\n";
    while (<$hp>) {
        s/\r|\n//g;
        say;
    }
    close $hp;
    die "[$?] $!\n" if $? >> 8;
    say '';
 }
	# run external cmd and dump its output in ~realtime
	sub run_or_die {
	my $cmd = shift;

	local $\| = 1;
	say "[cmd]: $cmd";
	open my $hp, "$cmd \|" or die "$!\n";
	while (<$hp>) {
	s/\r\|\n//g;
	say;
	}
	close $hp;
	die "[$?] $!\n" if $? >> 8;
	say '';
	}