#!/usr/bin/perl ($username) = @ARGV; $file = "users\\$username\\codetr.scp"; $file1 = "users\\$username\\train.scp"; $file2 = "users\\$username\\threstr.scp"; $file3 = "users\\$username\\thres1.scp"; $file4 = "users\\$username\\thres2.scp"; $file5 = "users\\$username\\thres3.scp"; $file6 = "users\\$username\\thres4.scp"; $file7 = "users\\$username\\thres5.scp"; open (NEW, ">$file")|| die ("Unable to open $file file for writing"); open (NEW1, ">$file1")|| die ("Unable to open $file1 file for writing"); open (NEW2, ">$file2")|| die ("Unable to open $file2 file for writing"); open (NEW3, ">$file3")|| die ("Unable to open $file2 file for writing"); open (NEW4, ">$file4")|| die ("Unable to open $file2 file for writing"); open (NEW5, ">$file5")|| die ("Unable to open $file2 file for writing"); open (NEW6, ">$file6")|| die ("Unable to open $file2 file for writing"); open (NEW7, ">$file7")|| die ("Unable to open $file2 file for writing"); print NEW "users\\$username\\S0001.wav users\\$username\\S0001.mfc \n"; print NEW "users\\$username\\S0002.wav users\\$username\\S0002.mfc \n"; print NEW "users\\$username\\S0003.wav users\\$username\\S0003.mfc \n"; print NEW "users\\$username\\S0004.wav users\\$username\\S0004.mfc \n"; print NEW "users\\$username\\S0005.wav users\\$username\\S0005.mfc \n"; print NEW "users\\$username\\S0006.wav users\\$username\\S0006.mfc \n"; print NEW "users\\$username\\S0007.wav users\\$username\\S0007.mfc \n"; print NEW "users\\$username\\S0008.wav users\\$username\\S0008.mfc \n"; print NEW "users\\$username\\S0009.wav users\\$username\\S0009.mfc \n"; print NEW "users\\$username\\S0010.wav users\\$username\\S0010.mfc \n"; print NEW "users\\$username\\S0011.wav users\\$username\\S0011.mfc \n"; print NEW "users\\$username\\S0012.wav users\\$username\\S0012.mfc \n"; print NEW "users\\$username\\S0013.wav users\\$username\\S0013.mfc \n"; print NEW "users\\$username\\S0014.wav users\\$username\\S0014.mfc \n"; print NEW "users\\$username\\S0015.wav users\\$username\\S0015.mfc \n"; print NEW "users\\$username\\S0016.wav users\\$username\\S0016.mfc \n"; print NEW "users\\$username\\S0017.wav users\\$username\\S0017.mfc \n"; close(NEW); print NEW1 "users\\$username\\S0001.mfc \n"; print NEW1 "users\\$username\\S0002.mfc \n"; print NEW1 "users\\$username\\S0003.mfc \n"; print NEW1 "users\\$username\\S0004.mfc \n"; print NEW1 "users\\$username\\S0005.mfc \n"; print NEW1 "users\\$username\\S0006.mfc \n"; print NEW1 "users\\$username\\S0007.mfc \n"; print NEW1 "users\\$username\\S0008.mfc \n"; print NEW1 "users\\$username\\S0009.mfc \n"; print NEW1 "users\\$username\\S0010.mfc \n"; print NEW1 "users\\$username\\S0011.mfc \n"; print NEW1 "users\\$username\\S0012.mfc \n"; print NEW1 "users\\$username\\S0013.mfc \n"; print NEW1 "users\\$username\\S0014.mfc \n"; print NEW1 "users\\$username\\S0015.mfc \n"; print NEW1 "users\\$username\\S0016.mfc \n"; print NEW1 "users\\$username\\S0017.mfc \n"; close(NEW1); print NEW2 "users\\$username\\T0001.wav users\\$username\\T0001.mfc \n"; print NEW2 "users\\$username\\T0002.wav users\\$username\\T0002.mfc \n"; print NEW2 "users\\$username\\T0003.wav users\\$username\\T0003.mfc \n"; print NEW2 "users\\$username\\T0004.wav users\\$username\\T0004.mfc \n"; print NEW2 "users\\$username\\T0005.wav users\\$username\\T0005.mfc \n"; close(NEW2); print NEW3 "users\\$username\\T0001.mfc \n"; close(NEW3); print NEW4 "users\\$username\\T0002.mfc \n"; close(NEW4); print NEW5 "users\\$username\\T0003.mfc \n"; close(NEW5); print NEW6 "users\\$username\\T0004.mfc \n"; close(NEW6); print NEW7 "users\\$username\\T0005.mfc \n"; close(NEW7);