#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11143808 use warnings; printf "%-13s%15.6f%15.6f %s\n" x 2, split, '', split ' ', <DATA> while <DATA>; __DATA__ MM_STD_gate -61.771653 -45.472441 mils -1569.000000 -1155.000000 microns RFN_a -91.102362 68.307087 mils -2314.000000 1735.000000 microns RFN_b -62.165354 68.307087 mils -1579.000000 1735.000000 microns RFN_c -51.417322 68.307087 mils -1306.000000 1735.000000 + microns
Outputs:
MM_STD_gate -61.771653 -45.472441 mils -1569.000000 -1155.000000 microns RFN_a -91.102362 68.307087 mils -2314.000000 1735.000000 microns RFN_b -62.165354 68.307087 mils -1579.000000 1735.000000 microns RFN_c -51.417322 68.307087 mils -1306.000000 1735.000000 microns
In reply to Re: Help with Creating a Table from array ref I parsed in
by tybalt89
in thread Help with Creating a Table from array ref I parsed in
by perlynewby
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |