Perl, ад, сатана)

echo "[Tue Feb 10 20:22:57 2015] [info] id: 17, text: Hello" | perl -ne 'if (m/^\[(.+\d{4})\].*id\:\s+(\d+)\,/) { print "$1 -- $2\n"}'

while (<STDIN>) {
   if ( ... ) {
   }
}

s="[Tue Feb 10 20:22:57 2015] [info] id: 17, text: «Hello»"

console.log(
 s.match( /\[([^\]]*\d{4})]/)[1], ">>>",
 s.match(/(id:[^,]*),/)[1]
)

// ::: Tue Feb 10 20:22:57 2015 >>> id: 17
[/js]

print $1,$2 if /^\[(.+?)\].+id\:\s(.+),/;

echo '[Tue Feb 10 20:22:57 2015] [info] id: 17, text: Hello' | perl -a -n -F'[][]' -e 'print $F[1], "\n"'

Tue Feb 10 20:22:57 2015

#!/usr/bin/env python

# perl -MBenchmark=timethese -e '$a = shift; timethese($ARGV[0], { ''A'' => sub { $a =~ m#\[(.+?)\] .*? id: (\d+),# && return [ $1, $2 ] }, ''B'' => sub { if ($a =~ m/^\[(.+\d{4})\].*id\:\s+(\d+)\,/) { return [ $1, $2 ] } }, ''C'' => sub { return [ $1, $2 ] if $a =~ /^\[(.+?)\].+id\:\s(.+),/; }  } )' '[Tue Feb 10 20:22:57 2015] [info] id: 17, text: "Hello"' 10000000
Benchmark: timing 10000000 iterations of A, B, C...
         A: 16 wallclock secs (12.88 usr +  0.00 sys = 12.88 CPU) @ 776397.52/s (n=10000000)
         B: 34 wallclock secs (26.74 usr +  0.01 sys = 26.75 CPU) @ 373831.78/s (n=10000000)
         C: 18 wallclock secs (14.72 usr +  0.00 sys = 14.72 CPU) @ 679347.83/s (n=10000000)

>> parse "[Tue Feb 10 20:22:57 2015] [info] id: 17, text: Hello" [ "[" copy date to "]" thru "id: " copy id to "," to end]
== true
>> date
== "Tue Feb 10 20:22:57 2015"
>> id
== "17"
>> 

>> "[Tue Feb 10 20:22:57 2015] [info] id: 17, text: Hello"
    =~ /^\[(?<date>.+?)\].+id: (?<id>.+),/;
>> say @+{date, id}

>> ($date, $id) = "[Tue Feb 10 20:22:57 2015] [info] id: 17, text: Hello"
    =~ /^\[(.+?)\].+id: (.+?),/;
>> say $date, $id;

>> rule: [copy time to "add" (time: make time! time) "add " copy n to " hour" (time: time + (3600 * to-integer n)) to end]
== [copy time to "add" (time: make time! time) "add " copy n to " hour" (time: time + (3600 * to-integer n)) to end]
>> parse "20:22 add 1 hour" rule
== true
>> time
== 21:22
>> parse "20:22 add 3 hours" rule
== true
>> time
== 23:22
>> parse "20:22 add 15 hours" rule
== true
>> time
== 35:22

REBOL/Core 2.7.8.4.3 (6-Jan-2011)
Copyright 2011 REBOL Technologies
REBOL is a Trademark of REBOL Technologies
All rights reserved.

Finger protocol loaded
Whois protocol loaded
Daytime protocol loaded
SMTP protocol loaded
ESMTP protocol loaded
POP protocol loaded
IMAP protocol loaded
HTTP protocol loaded
FTP protocol loaded
NNTP protocol loaded

>> source parse      
parse: native [
    "Parses a series according to rules." 
    input [series!] "Input series to parse" 
    rules [block! string! none!] "Rules to parse by" 
    /all "Parses all chars including spaces." 
    /case "Uses case-sensitive comparison."
]

/\[([^\]]+).*\bid:\s*(\d+)/