I am not sure myself sometimes where version becomes release. What about this one?:
#!/usr/bin/perl
use warnings;
use strict;
use Text::Table;
my $tb = Text::Table->new(qw/NAME VERSION RELEASE ARCH/);
while(<DATA>) {
$tb->load( [ /^(.*)-(.*)-(.*)\.(.*)$/ ] );
}
print $tb;
__DATA__
fipscheck-1.2.0-1.el5.x86_64
iptables-ipv6-1.3.5-5.3.el5_4.1.x86_64
libXi-1.0.1-4.el5_4.i386
perl-Carp-Clan-5.3-1.2.1.noarch
rpm-build-4.6.1-2.el5.x86_64
Output:
NAME VERSION RELEASE ARCH
fipscheck 1.2.0 1.el5 x86_64
iptables-ipv6 1.3.5 5.3.el5_4.1 x86_64
libXi 1.0.1 4.el5_4 i386
perl-Carp-Clan 5.3 1.2.1 noarch
rpm-build 4.6.1 2.el5 x86_64
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.