Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
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
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

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 browsing the Monastery: (8)
As of 2015-08-28 09:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The oldest computer book still on my shelves (or on my digital media) is ...













    Results (335 votes), past polls