view release on metacpan or  search on metacpan

bin/easyDifferentialGeneCoexpressionWrapper  view on Meta::CPAN

		$rscript_path = $home_dir . $rscript_subdir;
		$data_path	  = $home_dir . $csv_file_subdir;
		$results_path = $home_dir . $results_subdir;
		
		#create main directories - ignore if already present
		system("mkdir -p $rscript_path $data_path $results_path");
	}
	
	#check 2 - check for the presence of curl binary in the $PATH. 
	#if not found, install on Ubuntu-based systems. 
	#if system is not Ubuntu-based systems, prompt user to install it manually.
	my $check_curl = qx{which curl};
	#check if current system is Ubuntu-based
	my $ubuntu = qx{uname -a};
	
	if (!$check_curl) {
			
		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