![]() |
|
|
Google unix.com
|
|||||||
| Форумы | Регистрация | Правила форума | Ссылки | Альбомы | ЧАВО | Список участников | Календарь | Поиск | Сегодняшние сообщения | Отметить форумы читать |
| Shell программирование и сценарии Почтовые вопросы о KSH, CSH, SH, BASH, Perl, PHP, SED, AWK и скрипты оболочки и оболочки скриптовых языков здесь. |
Подробнее UNIX и Linux Темы форума можно найти полезные
|
||||
| Нить | Резьба для начинающих | Форум | Ответы | Последнее сообщение |
| Нужна замена для SED | dbsurf | Shell программирование и сценарии | 0 | 01-25-2008 06:47 PM |
| Что касается Замена | rajx | UNIX для чайников Вопросы И Ответы | 2 | 05-22-2007 10:19 AM |
| String замена Perl | Lindarella | Shell программирование и сценарии | 4 | 09-29-2006 03:05 PM |
| Замена использования СЭД | handak9 | UNIX для чайников Вопросы И Ответы | 5 | 07-13-2004 12:28 PM |
| Замена процессора. помощь | IMPTRUE | UNIX для чайников Вопросы И Ответы | 3 | 07-25-2003 09:40 AM |
![]() |
|
|
LinkBack | Резьба Инструменты | Искать в этом Thread | Оценить Thread | Режимы дисплея |
|
|
|
||||
|
Замена СЕПГ с Perl
Привет, используя ниже CMD Я выявления wheether последнего символа в каждой строке в тысячах файлы с запятой или not.If последний символ запятой я удалить запятой. Если последний символ запятой, не то я добавить следующую строку к настоящему разделу.
Например моей входной файл состоит из ABC | FGH | HJK | JKK; BHJ | AAA | BBB | L NNNN | JJJJ | LLLL; JJJJJJ; из положить файл состоит из ABC | FGH | HJK | JKK BHJ | AAA | BBB | L NNNN | JJJJ | LLLL JJJJJ Я достижения вышеуказанного требования с помощью SED ниже SED -E:-е'/;$/! N; S / \ N / /; TA '-E' S /;$//' файл но у меня есть тысячи файлов в одном каталоге ее потребители все больше и больше времени. Может ли кто-нибудь заменит вышеуказанные требования Perl с xargs как xargs Perl опция CN никому предложить самый простой способ без цикл |
|
||||
|
Как насчет SED: Код:
sed -e :a -e '/$;/N; s/\\\n//; s/$;//; ta' oldfile > newfile |
|
||||
|
Привет Джим,
Приведенный выше код работает с SED но потребляющих слишком много времени .. можно обеспечить то же самое с Perl синтаксиса. Функциональность она должна определить последний символ в каждой строке все файлы, как он основывает semicolon.if запятой, как она должна заменить словами пробел иначе нужно добавить следующую строку с нынешней. |
|
||||
|
см. другой нити
|
|
||||
|
CN никому сообщить мне решение для замены SED с Perl в приведенном выше
|
![]() |
| Закладки |
| Резьба Инструменты | Искать в этом Thread |
| Режимы дисплея | Оценить эту ветку |
|
|