Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re^3: Need help in parsing an input

by Athanasius (Chancellor)
on Jan 17, 2013 at 13:07 UTC ( #1013775=note: print w/replies, xml ) Need Help??

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

Hello again sandeepda,

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) {

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>) {

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,

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

      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
        Hi that's a different question this is different one. The question you mentioned is to check but here I am trying to parse

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1013775]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2018-06-21 03:54 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (117 votes). Check out past polls.