in reply to matching multiple patterns in one line

# should work no matter where date, time, or email address is located 
+in current line
my $line = '2011-01-01 15:34:554 some words and numbers then email@hos
+t.com';

my @lines = split(/\s+/, $line);

for(@lines){
print $_ . "\n" if /[0-9]{4}[-][0-9]{2}[-][0-9]{2}|[0-9]{1,2}[:][0-9]{
+1,2}[:][0-9]{1,3}|[@]/;
}

[download]
EDIT: Updated regex to be slightly more dynamic for 'time'

Replies are listed 'Best First'.
Re^2: matching multiple patterns in one line
by james28909 (Deacon) on Nov 18, 2015 at 19:03 UTC

    On a side note, how could i put my sample above on one line? I mean without for(@lines){print ...};

    How could i make it in one line, as in 'print $_ . "\n" /stuff to match in @lines/ for(@lines)'?
[reply]
[d/l]

      Adapting toolic's approach above: 

      c:\@Work\Perl\monks>perl -wMstrict -le
"my $line = '2011-01-01 15:34:554 some words and numbers then email@ho
+st.com';
 printf qq{date '%s' time '%s' email '%s' \n}, (split /\s+/, $line)[0,
+ 1, -1];
"
date '2011-01-01' time '15:34:554' email 'email@host.com'

      [download]
      But why do you care that it's on one line and/or without a for-loop?

      Update: Or, if you want to go the regex route: 

      c:\@Work\Perl\monks>perl -wMstrict -le
"my $rx_d = qr{ \d{4} - \d\d - \d\d }xms;
 my $rx_t = qr{ \d\d  : \d\d : \d\d }xms;
 my $rx_e = qr{ \S+ }xms;
 ;;
 my $line = qq{2011-01-01 15:34:55 blah blah yada email\@host.com\n};
 print qq{[$line]};
 printf qq{d '%s'  t '%s'  e '%s' \n}, $line =~ m{ \A ($rx_d) \s+ ($rx
+_t) .*? ($rx_e) \s* \z }xms;
"
[2011-01-01 15:34:55 blah blah yada email@host.com
]
d '2011-01-01'  t '15:34:55'  e 'email@host.com'

      [download]
      I suppose the definitions of all the  qr// regex objects make this more than one line, but that's life. Also, I hope you can come up with a better e-mail address regex than mine.

      Give a man a fish:  <%-{-{-{-<

[reply]
[d/l]
[select]
        Maybe This will be a good enough regex for testing if string is an email? lol

        EDIT:I guess it really depends on what "some words and numbers" contains. and I dont know of any words that have '@' in it unless we are texting haha.
[reply]

      One way that seems to do what you're looking for:

      print "$_\n" for grep {$_ =~ /$regex/} @lines;

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom