perl regex

sunil9009 has asked for the wisdom of the Perl Monks concerning the following question:

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

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
[download]

eg: Expected output

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

I tried the following code, but it resolves partially.

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

Any help would be greatly appreciated

Comment on perl regex Select or Download Code

Replies are listed 'Best First'.
Re: perl regex by toolic (Bishop) on Feb 09, 2013 at 23:18 UTC
`use warnings; use strict; while (<DATA>) { while (/\s*([\S]+\.xyz\.com)/g) { print "$1 \n"; } } __DATA__ 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` [download]	[reply] [d/l]
Re: perl regex by Kenosis (Priest) on Feb 09, 2013 at 23:19 UTC
Try the following: `use strict; use warnings; while (<DATA>) { print "$_\n" for grep /\.xyz\.com$/, split; } __DATA__ 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` [download] Output `aaa-bbb-ccc-2345.xyz.com hira.xyz.com ddd-eee-fff-4567.xyz.com sunil.xyz.com mad.xyz.com` [download]	[reply] [d/l] [select]
Re: perl regex (fqdn) by Anonymous Monk on Feb 09, 2013 at 23:46 UTC
Regexp::Common::URI, URI::Find, URI::Find::Schemeless	[reply]
Re^2: perl regex (fqdn) by sunil9009 (Acolyte) on Feb 10, 2013 at 07:01 UTC
Awesome, you guys are real monks !! Enjoy the weekend.	[reply]