Try this one, baring in mind:
- It is not perfect or optimized
- Takes data from stdin and spits to stdout
- Assumes data value does not itself exceed 115)
#!/bin/perl
$count = 0;
@r = ();
$sep = "\x001C";
while (<STDIN>) {
($r_num, $r_data) = m/([0-9]{4})(.*$)/;
if($r[$r_num]) { $fs = $sep; } else { $fs = ''; }
$r[$r_num] = $r[$r_num] . $fs . $r_data;
}
$r_size = @r;
for( $i=0; $i<$r_size; $i++) {
if(length($r[$i]) <= 111) {
printf("%04d%s%s",$i,$r[$i],"\n");
} else {
@fields = split(/$sep/,$r[$i]);
$f_size = @fields;
printf("%04d%s", $i);
$temp_length = 0;
$tape = 0;
for( $j=0; $j<$f_size; $j++ ) {
if($temp_length + length($fields[$j]) < 111) {
$temp_length += length($fields[$j]) + length($sep);
if($tape == 1) { print $sep; }
printf("%s%s", $fields[$j]);
$tape = 1;
} else {
printf("%s%04d%s%s", "\n",$i,$fields[$j],"\n");
$temp_length = 0;
$tape = 0;
}
}
}
}
Hope it helps.
Yaman
@abulyomon
On Sun, Jun 19, 2011 at 3:21 PM, Husam <[email protected]> wrote:
> Hello JoLug
>
> I need help with Any scripting language to perform the following
>
> I have the following input file with the follwoing format :
>
> 0000FILE_HEADER
> 0001DATA_TYPE_ONE_R01
> 0001DATA_TYPE_ONE_R02
> 0001DATA_TYPE_ONE_R03
> 0001DATA_TYPE_ONE_R04
> 0001DATA_TYPE_ONE_R05
> 0001DATA_TYPE_ONE_R06
> 0002DATA_TYPE_TWO_R01
> 0002DATA_TYPE_TWO_R02
> 0002DATA_TYPE_TWO_R03
> 0002DATA_TYPE_TWO_R04
> 0002DATA_TYPE_TWO_R05
> 0003DATA_TYPE_THREE_R01
> 0003DATA_TYPE_THREE_R02
> 0003DATA_TYPE_THREE_R03
> 0003DATA_TYPE_THREE_R04
> 0003DATA_TYPE_THREE_R05
> 0004FILE_END
>
> Field separator |FS| (none printable character x001C)
> Max line length after joining records is 115 char
>
> Result should be
>
> 0000FILE_HEADER
>
> 0001DATA_TYPE_ONE_R01|FS|DATA_TYPE_ONE_R02|FS|DATA_TYPE_ONE_R03|FS|DATA_TYPE_ONE_R04|FS|DATA_TYPE_ONE_R05
> 0001DATA_TYPE_ONE_R06
>
> 0002DATA_TYPE_TWO_R01|FS|DATA_TYPE_TWO_R02|FS|DATA_TYPE_TWO_R03|FS|DATA_TYPE_TWO_R04|FS|DATA_TYPE_TWO_R05
>
> 0003DATA_TYPE_THREE_R01|FS|DATA_TYPE_THREE_R02|FS|DATA_TYPE_THREE_R03|FS|DATA_TYPE_THREE_R04|FS|DATA_TYPE_THREE_R05
> 0004FILE_END
>
>
>
> --
> Husam Habannakeh
>
> +971 505 516 489 Dubai
> +962 777 656 086 Amman
> +966 561 154 798 Riyadh
>
> http://www.facebook.com/husam
>
> --
> ### Jordan Linux Users Group ###
> http://Jolug.org/
> http://groups.google.com/group/Jolug
>
> ### Ubuntu Jordan LoCo Team ###
> https://wiki.ubuntu.com/JordanTeam
> http://lists.ubuntu.com/ubuntu-jo
>
> ### Ojuba Linux ###
> http://ojuba.org/
>
> ### Jordan PHP ###
> http://groups.google.com/group/JoPHP
--
### Jordan Linux Users Group ###
http://Jolug.org/
http://groups.google.com/group/Jolug
### Ubuntu Jordan LoCo Team ###
https://wiki.ubuntu.com/JordanTeam
http://lists.ubuntu.com/ubuntu-jo
### Ojuba Linux ###
http://ojuba.org/
### Jordan PHP ###
http://groups.google.com/group/JoPHP
