I used this to define where the delimiters were needed:060,071905,001206656,80,199,23,612,129,3,99,005168, 060,071905,001366155,80,199,41,611,750,3,99,100471, 060,071905,003326935,80,199,11,612,113,3,23,018042,
I used this to place the delimiters:elsif ($type eq "060"){ $parsDat[0] = substr($input, 0, 3); #Record type $parsDat[1] = substr($input, 3, 6); #Dist Id $parsDat[2] = substr($input, 9, 9); #id $parsDat[3] = substr($input, 18, 2); #fname $parsDat[4] = substr($input, 20, 3); #mname $parsDat[5] = substr($input, 23, 2); #lname $parsDat[6] = substr($input, 25, 3); #code $parsDat[7] = substr($input, 29, 3); #code $parsDat[8] = substr($input, 32, 1); #code $parsDat[9] = substr($input, 33, 2); #code $parsDat[10] = substr($input, 35, 6); #code $parsDat[11] = substr($input, 41, 39); #code
As far as the input is concerned, I have about 16 different files to append to each into one.$output = join(",", @parsDat); print $handle "$output\n";
edited by ybiC: balanced <code> tags, s/tab/spacespacespace/
In reply to Re: Removing Delimiters
by brkstr
in thread Removing Delimiters
by brkstr
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |