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"';
    
    my $pid = open ( $sshNodeStdinHandle{$node} , "| $command 2>>sivakumar
    +" ); #SK004
    
    print {$sshNodeStdinHandle{$node}} /x/y/z/sample.txt,"\n";