view release on metacpan or  search on metacpan

bin/geoCancerPrognosticDatasetsRetriever  view on Meta::CPAN

395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
        my $check = qx{which curl};
         
        #if no curl binary was found, install it on Ubuntu/Ubuntu-based systems
        if (!$check) {
                         
                #check if current system is Ubuntu/or Ubuntu-based
                my $ubuntu = qx{uname -a};
                         
                if ($ubuntu=~ /.+ubuntu.+/ig) {
                         
                        print color ("red"), "curl binary was not found: follow onscreen instructions/input your password for its installation...\n\n", color("reset");
                        system("sudo apt -y install curl"); #install curl
                        print "done\n"; 
                } 
                         
                else { 
                                 
                        print "curl is not found on this system: install it on your system.\n"; 
                }       
        }
}