Location: Whole body neon-argon visualisation testing @ 398598d9679e / LEFT_LOWER_LIMB / change_file_name.pl

Author:
vickieshim <v.shim@auckland.ac.nz>
Date:
2022-10-18 13:04:05+13:00
Desc:
updated muscles
Permanent Source URI:
https://staging.physiomeproject.org/workspace/87f/rawfile/398598d9679e10a030fd8ee04e5f28873f972d5d/LEFT_LOWER_LIMB/change_file_name.pl
Compare... Download Source 

@muscles = ("left_abductor_digiti_minimi_hand", "left_abductor_pollicis_brevis", "left_abductor_pollicis_longus","left_anconeus", "left_biceps_brachii","left_brachialis","left_brachioradialis","left_coracobrachialis");

#@bones = ("FEMUR","FIBULA","HIP","PATELLA","TIBIA");
@bones = ("CALCANEUS","CUBOID_BONE","DISTAL_PHALANX_I","DISTAL_PHALANX_II","DISTAL_PHALANX_III","DISTAL_PHALANX_IV","DISTAL_PHALANX_V","INTERMEDIATE_CUNIFORM_BONE","LATERAL_CUNIFORM_BONE");

@missing = ("LUNATE","METACARPAL_III","METACARPAL_IV","METACARPAL_V");
$LOOP= scalar(@bones);
$start_dir = "/hpc_atog/bshi013/SPARC/ANATML/LEFT_LOWER_LIMB/MUSCLES/";

for($i=0; $i < $LOOP; $i++){
	chdir $start_dir;
	system ('pwd');
	chdir $bones[$i];
	system ('pwd');


	system('cp', $bones[$i].".IPNODE", $bones[$i].".ipnode");
	system('cp', $bones[$i].".IPELEM", $bones[$i].".ipelem");

}