Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
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

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 contemplating the Monastery: (3)
As of 2016-07-30 16:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What is your favorite alternate name for a (specific) keyboard key?


















    Results (266 votes). Check out past polls.