Some help with Perl !!!

letmein · 08-13-2003, 08:57 AM

hi ...

I have a FIFO o/p which looks something like this.

134.88.146.205 USER "USER test1" -
134.88.146.205 PASS "PASS (hidden)" -
134.88.146.205 SYST "SYST" -
134.88.146.205 FEAT "FEAT" -
222.21.675.123 PWD "PWD" -
222.21.675.123 TYPE "TYPE A" -
134.88.146.205 PORT "PORT 134,88,146,205,5,46" -
134.88.146.205 LIST "LIST" -
222.21.675.123 CWD myfiles "CWD myfiles" -
222.21.675.123PWD "PWD" -
222.21.675.123 PORT "PORT 134,88,146,205,5,47" -
222.21.675.123 LIST "LIST" -
134.88.146.205 CWD ghome "CWD ghome" -
134.88.146.205 PWD "PWD" -
134.88.146.205 PORT "PORT 134,88,146,205,5,48" -
134.88.146.205 LIST "LIST" -
222.21.675.123 CWD songs "CWD songs" -
222.21.675.123 PWD "PWD" -
134.88.146.205 PORT "PORT 134,88,146,205,5,49" -

Now what i want to do is restrict only the lines which have the IP address "134.88.147.205" and ignore the rest of the lines of the FIFO o/p with different IP's. And I want to do that dynamically ar run time.

can any body help me .
Thanks in advance

letmein · 08-13-2003, 09:00 AM

did i mention i am using perl?

acid_kewpie · 08-13-2003, 09:37 AM

care to explain this a little more... this is a text sting you are parsing using perl? in which case you'd just use a standard regex ...

Code:

while (<>) {
    print  if /134\.88\.147\.205/
}

is that what you mean?

letmein · 08-13-2003, 11:05 AM

its not a text file its an o/p of a FIFO !!!

quest4knowledge · 08-13-2003, 12:17 PM

Not sure if this helps or not. But why not just limit the ability to connect to the service with iptables or something similar?