Hi get2vijay,

Welcome to the PerlMonks Monastery.
You are really surrounded by a lot of wonderful monks who are willing to help you, but you have to also show some effort on your part.
To start with read How do I post a question effectively?
Apply what you have read and you will see what a wonderful world you are in.
Welcome once more!

Vijay,

Welcome to the Monastery

All the other admonishments apply. That said, thank you for reformatting your message; it really was hard to visualize the data without that effort.

There is at least one further challenge here: the term "table" can mean a lot of different things, and how you would go about solving this problem varies greatly depending on what form the table takes and how it is generated, not to mention how it will be made available to your Perl script.

I understand you feel a sense of urgency about this task, but we really can't help unless we understand the problem -- and while your original post does, at least, show some data and gives a fair sense of the big picture, it does not have enough to just haul off and start writing code.

For example, if it is a table in a database, we'd perhaps look at ways to use one of the DBImodules; on the other hand, if it's in a spreadsheet, perhaps one of the Parse::Spreadsheetmodules. Raw rext file? Perhaps the use of splitor substr, depending on the specifics. The list goes on and on.

We'd like to help, but we need more information -- as well as a sense that you are seeking help and not a free supplicant to do your job for you.

I am interested to see where this thread goes, and I hope we can ultimately be of Service.

And if actually learning how to write your code is not your intent, hire a programmer.

Maybe you can PAY someone to make your "urgent office assignment" hir emergency.

You should urgently get some csv2xls and some perlintro/perlrun

Just read and print the first line?

#!/usr/bin/perl

use strict;
use warnings;

while (my $line = <DATA>){
    next if $line =~ /Port/;
    print "$line\n";
    last;
}


__DATA__
RNC               RIP-IP     Switch /Router     Port
GURRNC1     172.16.1.2     GURSW1             1/6
GURRNC1     172.16.2.2     GURSW2             2/6
GURRNC2     172.16.3.2     GURSW3       3/6
GURRNC2     172.16.4.2     GURSW4             4/6
[download]

Output:

$ ./line.pl 
GURRNC1     172.16.1.2     GURSW1             1/6
[download]

Now simply replace <DATA> with a real file handle. Hopefully this will be enough to get you on the right track. Your question is awfly vague though so it's difficult to know exactly what you need.

-stevieb

Thanks a ton..stevieb !! sorry couldn't write my requirement properly as ia m very much new to this amazing perl language. i have a query...in case if the above given data is just in a plane .txt file,then what would be the solution ? please help... thanks again...