Hi All,

  I create following bash script to run some block of commands on remote
server
  and get information but I try to do same using Perl but I couldn't
  make it so any one can suggest way to get done this using perl ? (please
without using any modules)

  my .sh...........................


> ssh -T $LOGIN <<EOI
> cd /x02/oracle/downloads
> find ./ -type d | sed -e 's/[^-][^\/]*\//--/g;s/--/ |-/'
>>DirectoryStructure.txt
> cat DirectoryStructure.txt
> exit
> EOI

thanks

Reply via email to