Beefy Boxes and Bandwidth Generously Provided by pair Networks Frank
Think about Loose Coupling
 
PerlMonks  

perl regex

by sunil9009 (Acolyte)
on Feb 09, 2013 at 23:10 UTC ( #1017998=perlquestion: print w/ replies, xml ) Need Help??
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
eg: Expected output
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.
while (<>) { m/\s*(.*?\.xyz.com)/; print "$1 \n"; }
Any help would be greatly appreciated

Comment on perl regex
Select or Download Code
Re: perl regex
by toolic (Chancellor) 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

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

    Output

    aaa-bbb-ccc-2345.xyz.com hira.xyz.com ddd-eee-fff-4567.xyz.com sunil.xyz.com mad.xyz.com
Re: perl regex (fqdn)
by Anonymous Monk on Feb 09, 2013 at 23:46 UTC
      Awesome, you guys are real monks !! Enjoy the weekend.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1017998]
Approved by Paladin
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (8)
As of 2014-04-18 11:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (466 votes), past polls