[ create a new paste ] login | about

Link: http://codepad.org/nt5Xgmxi    [ raw code | output | fork ]

Tcl, pasted on Nov 26: 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

set output {xCommand Experimental Conference ParticipantList Search CallId: 231

OK
*r ParticipantListSearchResult Participant 1 Index: 0
*r ParticipantListSearchResult Participant 1 ParticipantId: "sip:9503806@10.89.70.92;ci=23543253"
*r ParticipantListSearchResult Participant 1 Uri: "sip:9503806@10.89.70.92;ci=23543253"
*r ParticipantListSearchResult Participant 1 DisplayName: "9503806"
*r ParticipantListSearchResult Participant 1 Status: "connected"
*r ParticipantListSearchResult Participant 1 AudioMute: Off
*r ParticipantListSearchResult Participant 2 Index: 1
*r ParticipantListSearchResult Participant 2 ParticipantId: "sip:9503808@10.89.70.92;ci=23543256"
*r ParticipantListSearchResult Participant 2 Uri: "sip:9503808@10.89.70.92;ci=23543256"
*r ParticipantListSearchResult Participant 2 DisplayName: "9503808"
*r ParticipantListSearchResult Participant 2 Status: "connected"
*r ParticipantListSearchResult Participant 2 AudioMute: Off
*r ParticipantListSearchResult Participant 3 Index: 2
*r ParticipantListSearchResult Participant 3 ParticipantId: "sip:9503807@10.89.70.92;ci=23543254"
*r ParticipantListSearchResult Participant 3 Uri: "sip:9503807@10.89.70.92;ci=23543254"
*r ParticipantListSearchResult Participant 3 DisplayName: "9503807"
*r ParticipantListSearchResult Participant 3 Status: "connected"
*r ParticipantListSearchResult Participant 3 AudioMute: Off
** end}

set results [regexp -all -inline -- {DisplayName: "[0-9]+"} $output]

puts $results

puts [join $results \n]


Output: 
1
2
3
4

{DisplayName: "9503806"} {DisplayName: "9503808"} {DisplayName: "9503807"}
DisplayName: "9503806"
DisplayName: "9503808"
DisplayName: "9503807"


Create a new paste based on this one


Comments: