- or download this
if ($id eq "") {
$id=sprintf("%-*s",8,$prev_id);
...
else {
$id=sprintf("%-*s",8,$prev_id);
}
- or download this
$a=index($sub_line,'|',1);
$b=index($sub_line,'|',8);
$c=index($sub_line,'|',20);
- or download this
$a=index($sub_line,'|');
$b=index($sub_line,'|', $a+1);
$c=index($sub_line,'|', $b+1);