Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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 from the file with the following contents.
AAA-BBB-CCC aa-dg-hj ddd-eee-fff
eg: Expected output
I tried the following code, but it resolves partially.
while (<>) { m/\s*(.*?\; 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 aa-dg-hj ddd-eee-fff

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 aa-dg-hj ddd-eee-fff

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?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1017998]
Approved by Paladin
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
Find Nodes?
    Voting Booth?
    What is your favorite alternate name for a (specific) keyboard key?

    Results (266 votes). Check out past polls.