OpenForum RSS: �� awk?

�� awk? (new_user721)

Fri, 19 Sep 2008 00:35:21 GMT

>[�� ]
>some_text 'KEY_WORD2 some_text') ) other text
>
>$ echo "some_text KEY_WORD2 some_text) ) other text"| perl -pe "s/KEY_WORD2([^)]*)\)/'KEY_WORD2\1')/"
>some_text 'KEY_WORD2 some_text') ) other text
>
>$ echo "some_text KEY_WORD2 some_text) ) other text"| sed -e "s/KEY_WORD2$[^)]*$)/'KEY_WORD2\1')/"
>some_text 'KEY_WORD2 some_text') ) other text
>
>$ echo "some_text KEY_WORD2 some_text) ) other text"| sed -re "s/KEY_WORD2([^)]*)\)/'KEY_WORD2\1')/"
>some_text 'KEY_WORD2 some_text') ) other text

�� :)

�� awk? (angra)

Thu, 18 Sep 2008 21:45:28 GMT

�� perl � sed. �� .
$ echo "some_text KEY_WORD2 some_text) ) other text"| perl -pe "s/KEY_WORD2([^)]*)\)/'KEY_WORD2\$1')/"
some_text 'KEY_WORD2 some_text') ) other text

$ echo "some_text KEY_WORD2 some_text) ) other text"| perl -pe "s/KEY_WORD2([^)]*)\)/'KEY_WORD2\1')/"
some_text 'KEY_WORD2 some_text') ) other text

$ echo "some_text KEY_WORD2 some_text) ) other text"| sed -e "s/KEY_WORD2$[^)]*$)/'KEY_WORD2\1')/"
some_text 'KEY_WORD2 some_text') ) other text

$ echo "some_text KEY_WORD2 some_text) ) other text"| sed -re "s/KEY_WORD2([^)]*)\)/'KEY_WORD2\1')/"
some_text 'KEY_WORD2 some_text') ) other text

�� awk? (new_user721)

Thu, 18 Sep 2008 19:55:05 GMT

>[�� ]
>>some_text KEY_WORD2 some_text )
>>��:
>>some_text 'KEY_WORD2 some_text' )
>>�� KEY_WORD2 � ��
>>��
>>thanks
>
>echo "some_text KEY_WORD2 some_text)" | sed -e "s/KEY_WORD2/\'KEY_WORD2/" -e "s/)$/\')/"
>
>some_text 'KEY_WORD2 some_text')

thanks
�� :(
echo "some_text KEY_WORD2 some_text) )"| sed -e "s/KEY_WORD2/\'KEY_WORD2/" -e "s/)$/\')/"
some_text 'KEY_WORD2 some_text) ')

�� awk? (angra)

Thu, 18 Sep 2008 19:44:30 GMT

�� sed. �� awk/sed/grep ��, �� .
��:
$ echo "some_text KEY_WORD2 some_text ) another text" |perl -pe 's/KEY_WORD2([^)]*\))/"KEY_WORD2$1"/'
some_text "KEY_WORD2 some_text )" another text

�� awk? (anf)

Thu, 18 Sep 2008 19:05:50 GMT

>��
>some_text KEY_WORD2 some_text )
>��:
>some_text 'KEY_WORD2 some_text' )
>�� KEY_WORD2 � ��
>��
>thanks

echo "some_text KEY_WORD2 some_text)" | sed -e "s/KEY_WORD2/\'KEY_WORD2/" -e "s/)$/\')/"

some_text 'KEY_WORD2 some_text')

�� awk? (new_user721)

Thu, 18 Sep 2008 17:19:21 GMT

>�� -�� sed �� perl? ��
>�� .

�� ?

�� awk? (angra)

Thu, 18 Sep 2008 12:51:58 GMT

�� -�� sed �� perl? �� .

�� awk (new_user721)

Thu, 18 Sep 2008 11:38:25 GMT

>[�� ]
>BEGIN {
>str="some_text KEY_WORD2 some_text )"
>print str
>str=gensub("^$some_text \+$([^ )][^)]+[^ )])( *\\))","\\1'\\2'\\3",1,str)
>print str
>exit
>}
>
>�� -�� mawk, �� "��" BASIC � �� substr, index
>� ��.

��
�� ?
��

�� awk (Andrey Mitrofanov)

Thu, 18 Sep 2008 04:50:41 GMT

>�� KEY_WORD2 � ��

� GNU awk �� gensub c \1\2\3 :

#!/usr/bin/gawk -f

BEGIN {
str="some_text KEY_WORD2 some_text )"
print str
str=gensub("^$some_text \+$([^ )][^)]+[^ )])( *\\))","\\1'\\2'\\3",1,str)
print str
exit
}

�� -�� mawk, �� "��" BASIC � �� substr, index � ��.

OpenForum RSS: ��� �������� ����� ������ � awk?

��� �������� ����� ������ � awk? (new_user721)

��� �������� ����� ������ � awk? (angra)

��� �������� ����� ������ � awk? (new_user721)

��� �������� ����� ������ � awk? (angra)

��� �������� ����� ������ � awk? (anf)

��� �������� ����� ������ � awk? (new_user721)

��� �������� ����� ������ � awk? (angra)

�������� ����� ������ � awk (new_user721)

�������� ����� ������ � awk (Andrey Mitrofanov)

OpenForum RSS: �� awk?

�� awk? (new_user721)

�� awk? (angra)

�� awk? (new_user721)

�� awk? (angra)

�� awk? (anf)

�� awk? (new_user721)

�� awk? (angra)

�� awk (new_user721)

�� awk (Andrey Mitrofanov)