perl regex

sunil9009 · 02-09-2013, 04:58 PM

hi guys, i am trying to grab just the fqdn ( with domainname as xyz.com) from the file with the following contents.

Quote:

AAA-BBB-CCC aaa-bbb-ccc-2345.xyz.com aa-dg-hj hira.xyz.com
ddd-eee-fff-4567.xyz.com ddd-eee-fff vffg.xyz
sunil.xyz.com mad.xyz.com

eg: Expected output

Quote:

aaa-bbb-ccc-2345.xyz.com
hira.xyz.com
ddd-eee-fff-4567.xyz.com
sunil.xyz.com
mad.xyz.com

I tried the following code, but it resolves partially.

Quote:

while (<>) {
m/\s*(.*?\.xyz.com)/;
print "$1 \n";
}

Any help would be greatly appreciated

sag47 · 02-09-2013, 06:24 PM

I don't know about perl but this can be solved with tr and grep.

Code:

cat /somefile | tr ' ' '\n' | grep 'xyz\.com$'

grail · 02-10-2013, 05:15 AM

I am not sure with perl as you need some way to revisit the same line, but in ruby it would look like:

Code:

ruby -ne '$_.scan(/[^.\s]+\.xyz\.com/).each{|x| puts x}' file

Hopefully this might help lead you to a perl solution

This does show that your original solution obviously won't work from the fact that you would need to print not only $1 on some lines.

mina86 · 02-11-2013, 07:00 AM