David wrote:
>
> 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]";
Which is exactly the same as:
$starttime{$current} = join $", @line[2 .. 6];
_IF_ you can guarantee that the variable $" has the value ' '.
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
