Shell Programming and Scripting

@ loop = 0
while ( $loop < $# )
    @ loop ++
    set current_file = $argv[$loop]
    set target = (`echo $current_file | sed 's:\(\/disk3\/\).*\(\/seq\/\):\1boss\2:'`)
    set target_dir = (`echo $target | sed 's|\(.*/\).*|\1|'`)
    if ( ! -d $target_dir ) then
        mkdir $target_dir
        chown boss:user $target_dir
    endif
    if ( ! -r $target ) then
        cp -p $current_file $target
        chown boss:user $target 
    endif
end

cp -p "$current_file" "$target"

find /disk3/omar/seq/plasmids/ -type f | sed "s/.*/\'&\'/" | xargs copy2boss

#!/usr/bin/tcsh 
##
#
#
@ loop = 0
while ( $loop < $# )
    @ loop ++
    set filename   = `basename "$argv[$loop]"`
    set source_dir = `dirname "$argv[$loop]"`
    set target_dir = `echo "$source_dir" | sed 's/\(\/disk3\/\).*\(\/seq\/\)/\1boss\2/' `
    set output = "cp -pR '$source_dir/$filename' '$target_dir/$filename'"
    
    if ( ! -d $target_dir ) then
        mkdir $target_dir
        chown boss:user $target_dir
    endif
    if ( ! -r "$target_dir/$filename" ) then
        eval $output
        set output = "chown boss:user '$target_dir/$filename'" 
        eval $output
    endif
end 
exit