Привет,
У меня есть файл, как:

IIN*00*00*ZZ*NDC *ZZ*11847*090520*0200*U*00401*000000001*0*P*>~GS*HP*NDC STD REMIT*1184722779*20090520*0200*63*X*004010X091A1~ST*835*10001~BPR*I*252480.19*C*CHK************20090515~TRN*1*0010855862*1952931460*12427008150981~DTM*405*20090514~N1*PR*CALIFORNIA*XV*H00~N3*ireland~

Если это фиксированный поля записи с '*' в качестве разделителя можно использовать

awk -F'*' '{print $49}' file

perl -ne 'print $1,"\n" if /N1\*PR\*(.*?)\*/;' file

Если у вас есть Python

#!/usr/bin/env python
for line in open("file"):
    if "N1*PR*" in line:
        ind=line.index("N1*PR*")
        print line[ind+6:].split("*")[0]

# ./test.py
CALIFORNIA

Здравствуйте,

За наш форум, правила, все нити должны иметь описательный текст вопроса. Например, не размещайте вопросы с темы, как "помоги мне!", "Срочно!"! или "Сомнения". Почтовые темы, как "Выполнение задач с Cron" или "Справка с Backup Shell скриптов".

Причина этого заключается в том, что почти 95% от всех посетителей этого сайта собрались здесь потому, что они относятся к поисковой системе. Для того чтобы в будущем поиска на ваш пост (с ответами) работать хорошо, в поле темы должно быть что-то полезное и, связанных с проблемой!

Кроме того, нынешний форум пользователей, кто любезно согласился ответить на вопросы должны быть в состоянии понять суть вашего запроса на первый взгляд.

Так, в качестве пособия и вежливости по отношению к нынешним и будущим знаний убежища, будьте осторожны с темой текста. Вы можете получить форума правонарушение, если не обращать внимание на это.

Спасибо.

Видья

Спасибо. Perl один вкладыш работал.