Hello All,
I am doing some parsing of a file.the file out is read based on horizontal headers which are dynamic based on the machine specifications.I want to parse just devices and names, but not sure how to attribute all the devices to the names.
Sample:
name Brian
shirt yellow
socks black
device ipad 2001
device ipad 2001
device ipad 2001
tag no
tag 0
name Andrew
shirt orange
socks black
device ipad 2009
tag no
tag 0
name ryan
shirt blue
socks black
device ipad 2005
device cell 2009
tag yes
tag 1
I have the following so far, but not sure how to get all the devices and year of the device belonging to each name.I can parse for the name
my @file = `cat text.txt`;
foreach my $line (@file)
{
while $line =~ /name \s+(*.?) \s+(.*?)/mgx
my $name = $1;
}
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|