I think you took it wrong. It is not an assignment.

Well, perhaps I did. But that doesn't alter the fact that you haven't demonstrated that you've made any effort to solve this particular problem for yourself. Perlmonks is not a free code writing service.

Anyway, here are a few pointers to get you started.

You say that the data is in a file, so the first thing you need to do is open the file for reading. This is generally done like so:

open DATA, "<", $myfile or die "Could not open $myfile:$!\n";
[download]

Next you want to decide what sort of data structure you're going to use. Let's say you just want to gather the device names into a list. Therefore, you declare your list variable:

my @devices;
[download]

Now you'll need to iterate through the file, line by line, extracting the data you want and adding it to the list. You'll need three things:

• a loop.
• a pattern match, and
• a push statement.

You might write something like this:

while (<DATA>) {
    chomp;
    next if !/^cgw01/;
    push @devices, $_;
}
[download]

You may need to refine the pattern match, depending on how variable your data is. The above assumes that all the device names begin with the string "cgw01".

Make sure you use strict and use warnings, and make use of print statements and Data::Dumper::Simple for debugging.

Cheers,
Darren :)

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.