Help for this page

Select Code to Download


  1. or download this
    my $command = 'ssh '. $node . ' "perl -e \'while (<>) { chomp; \$_ =~ /(.*)\\//; \`su xxx -c \"mkdir -p \$1\"\`; \`su xxx -c \"touch \$_\"\`;}\' 1>>$storageRootPath_log 2>>$storageRootPath_err"';
  2. or download this
    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");