Re^3: Need help in parsing an input

in reply to Re^2: Need help in parsing an input
in thread Need help in parsing an input

I’m sorry, but I don’t understand what you are asking.

The only thought that comes to mind is that you may be unfamiliar with Perl’s special DATA filehandle. But I used that only for convenience. If you already have the data in an array, you would adapt the opening of my script as follows:

for (@existing_array)
{
[download]

On the other hand, if the data is in a file (named, say, “ports.dat”), then you would begin like this:

my $file = 'ports.dat';
open(my $fh, '<', $file) or die "Cannot open '$file' for reading: $!";

while (<$fh>)
{
[download]

If this doesn’t answer your question, please explain what you are asking with your version of the code together with sample input and the output you want. See How do I post a question effectively?

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

Comment on Re^3: Need help in parsing an input Select or Download Code

Replies are listed 'Best First'.
Re^4: Need help in parsing an input by sandeepda (Novice) on Jan 17, 2013 at 13:23 UTC
Sorry I am beginner in perl just starting hence if there are mistake please oblige. Here is the problem I am executing subroutine in perl script it returns me output dynamically in array format @outputArray `outputarray[0]=name ip port outputarray[1]=------------------------------------ outputarray[2]=http-listener-1 * 6712 outputarray[3]=http-listener-2 * 4743` [download] I can also get the output array as like below also if i want `outputarray[0]=http-listener-1 * 6712 outputarray[1]=http-listener-2 * 4743` [download] I want to write a subroutine which will check whether port exists and if exists returns me true and the listener name if not it returns me false and null getListenerName($porttobeChecked) This subroutine returns me the name of the listener if i pass a port. Eg: If $porttobechecked=6712 I want to return an array a[0]=TRUE and a1=http-listener-1(listener name) If port to be checked = 4516.I want to return an array a[0]=FALSE and a1=null .Help required	[reply] [d/l] [select]
Re^5: Need help in parsing an input by 2teez (Vicar) on Jan 17, 2013 at 14:15 UTC
Hello sandeepda, "I want to write a subroutine which will check whether port exists and if exists returns me true..." I think your question has really been answered in this thread How to check whether my array contains element x started by you..Please check. Except you have something else in mind.. If you tell me, I'll forget. If you show me, I'll remember. if you involve me, I'll understand. --- Author unknown to me	[reply]
Re^6: Need help in parsing an input by sandeepda (Novice) on Jan 17, 2013 at 14:25 UTC
Hi that's a different question this is different one. The question you mentioned is to check but here I am trying to parse	[reply]

In Section Seekers of Perl Wisdom