John W. Krahn wrote:
>
>> $current = $line[14];
>> $jobid[$njob++] = $current;
>> $starttime{$current} = $line[2] . " ";
>> $starttime{$current} .= $line[3] . " ";
>> $starttime{$current} .= $line[4] . " ";
>> $starttime{$current} .= $line[5] . " ";
>> $starttime{$current} .= $line[6];
>
> $starttime{$current} = join ' ', @line[2 .. 6];
or you could remove the need for join all together:
$starttime{$current} = "@line[2..6]";
david
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
