my $command = 'ssh '. $node . ' "perl -e \'while (<>) { chomp; \$_ =~ /(.*)\\//; \`su xxx -c \"mkdir -p \$1\"\`; \`su xxx -c \"touch \$_\"\`;}\' 1>>$storageRootPath_log 2>>$storageRootPath_err"'; #### my $command = 'ssh '. $node . qq( "perl -e 'while (<>) { chomp; /(.*)\\//; `su xxx -c \\"mkdir -p \$1\\"`; `su xxx -c \\"touch \$_\\"`;}' 1>>$storageRootPath_log 2>>$storageRootPath_err");