Kennt sich jemand mit perl regex non-greedy aus?

Stefan Salewski Gast 07.12.2014 15:24 #3914276

Lesenswert?

•

Ich probiere jetzt schon weit über eine Stunde herum...
Für mehrzeilige Textersetzungen benutze ich perl. In der Regel für 
konstannte Abschnitte, also ohne Patterns. Nun wollte ich procs() 
auskommentieren, die den Parameter "va_list" besitzen. Für non-greedy 
Patterns benutzt man ja ".*?". Aber scheinbar erfolgt die Substitution 
dennoch greedy. Es sollte die zweite und vierte proc ersetzt werden, da 
nur die den Parameter va_list enthalten. Das Problem ist wohl, das erste 
"proc" passt erst mal -- und dann lässt er nicht wieder locker. Muss ich 
wohl doch ohne Pattern machen...

 cat t.nim 
proc g_cclosure_marshal_VOID__UINT_POINTER*(closure: ptr GClosure; 
    return_value: ptr GValue; n_param_values: guint; param_values: ptr GValue; 
    invocation_hint: gpointer; marshal_data: gpointer) {.
    importc: "g_cclosure_marshal_VOID__UINT_POINTER", libgobj.}
proc g_cclosure_marshal_VOID__UINT_POINTERv*(closure: ptr GClosure; 
    return_value: ptr GValue; instance: gpointer; args: va_list; 
    marshal_data: gpointer; n_params: cint; param_types: ptr GType) {.
    importc: "g_cclosure_marshal_VOID__UINT_POINTERv", libgobj.}
proc g_cclosure_marshal_BOOLEAN__FLAGS*(closure: ptr GClosure; 
    return_value: ptr GValue; n_param_values: guint; param_values: ptr GValue; 
    invocation_hint: gpointer; marshal_data: gpointer) {.
    importc: "g_cclosure_marshal_BOOLEAN__FLAGS", libgobj.}
proc g_cclosure_marshal_BOOLEAN__FLAGSv*(closure: ptr GClosure; 
    return_value: ptr GValue; instance: gpointer; args: va_list; 
    marshal_data: gpointer; n_params: cint; param_types: ptr GType) {.
    importc: "g_cclosure_marshal_BOOLEAN__FLAGSv", libgobj.}
  g_cclosure_marshal_BOOL__FLAGS* = g_cclosure_marshal_BOOLEAN__FLAGS
proc g_cclosure_marshal_STRING__OBJECT_POINTER*(closure: ptr GClosure; 
    return_value: ptr GValue; n_param_values: guint; param_values: ptr GValue; 
    invocation_hint: gpointer; marshal_data: gpointer) {.
    importc: "g_cclosure_marshal_STRING__OBJECT_POINTER", libgobj.}
stefan@AMD64X2 ~/nimgobj $ perl -0777 -p -e "s/proc \w+\*\((.*?)va_list(.*?)\}/discard xxx/sg" t.nim
discard xxx
discard xxx
  g_cclosure_marshal_BOOL__FLAGS* = g_cclosure_marshal_BOOLEAN__FLAGS
proc g_cclosure_marshal_STRING__OBJECT_POINTER*(closure: ptr GClosure; 
    return_value: ptr GValue; n_param_values: guint; param_values: ptr GValue; 
    invocation_hint: gpointer; marshal_data: gpointer) {.
    importc: "g_cclosure_marshal_STRING__OBJECT_POINTER", libgobj.}
stefan@AMD64X2 ~/nimgobj $

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

pustar Gast 07.12.2014 15:39 #3914295

Lesenswert?

•

▲
▼

Vielleicht '}' als Record Separator nehmen, dann hast Du's jeweils
nur mit einer "Zeile" zu tun, und einfach  alles mit 'va_list' filtern?

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Stefan Salewski Gast 07.12.2014 15:43 #3914301

Lesenswert?

•

▲
▼

Ah ja, das ist schon mal eine gute Idee, daran hatte ich nicht 
gedacht...

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Stefan Salewski Gast 07.12.2014 18:42 #3914522

Lesenswert?

•

▲
▼

Mit etwas Probieren habe ich es jetzt soweit hinbekommen. proc als 
Record Separator. Wobei ich zunächst die Option s vergessen hatte, aber 
die ist nötig, damit . auch Zeilenendzeichen abdeckt. Der 
Record-Separator bleibt so aber zunächst unverändert stehen, daher ein 
nachfolgendes sed.

perl -p -e '$/ = "proc "; s/^\w+\*.*va_list.*}/discard """"$&"""\n/s' t.nim | sed 's/proc \(discard """\)/\1 proc/'

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Kennt sich jemand mit perl regex non-greedy aus?

Antwort schreiben