Цитата(denis1706 @ 14.12.2009, 11:29  ) |
| У МЕНЯ ЗАМЕНА s/^\(\(\/\/(\d+):(\d+):(\d+):\+\+// |
s/^\(\(\/\/(\d+):(\d+):(\d+):\+\+.*//s;
| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Perl: Общие вопросы > помогите поднять строку в текстовом файле |
| Автор: denis1706 14.12.2009, 10:33 |
| подскажите пожалуйста как можно поднять строку вверх в текстовом файле.???? 101:1:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0: 101:2:569959:11550:10923:9322:8861:10675:11435:13200:12375:10758:13810:13794:12441:13530:13398:11550:10874:10593:10411:10775:13398:13233:12094:13629:9158:6880:8993:10510:12078:14207:11946:10725:10279:11072:10939:11765:13728:13150:14207:13200:13629:10906:10362:12359:13480:14256:13217:13876:12408: 101:3:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0: 101:4:377272:8200:7524:6600:6171:7310:7854:8679:8250:7293:9174:9504:8332:9174:9306:7640:7260:6864:6600:6583:8630:8646:7953:8778:6237:4851:5692:6782:7474:8960:7540:6864:6419:6913:6320:7392:8481:8629:9372:9471:9389:7441:6452:7689:9223:9768:9174:9603:8811: 102:1:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0:0: надо поднять всё на одну строку вверх!!! |
| Автор: arto 14.12.2009, 10:47 |
| напишите более понятно |
| Автор: denis1706 14.12.2009, 10:50 |
| есть текстовый фаил. но врезультате замены остается пустой первая строка и мне нужно поднять все строки на одну вверх в место образовавшейся пустой!!!)))) |
| Автор: amg 14.12.2009, 11:06 |
| perl -i -ne "print if $. != 1" file.txt А лучше замену выполнить так, чтобы убирать ничего не нужно было. |
| Автор: denis1706 14.12.2009, 11:29 |
| amg, У МЕНЯ ЗАМЕНА s/^\(\(\/\/(\d+):(\d+):(\d+):\+\+// КАК ПРИМЕНИТЬ ТО ЧТО ТЫ НАПИСАЛ??? |
| Автор: amg 14.12.2009, 12:25 | ||
s/^\(\(\/\/(\d+):(\d+):(\d+):\+\+.*//s; |
| Автор: denis1706 14.12.2009, 16:07 |
| amg, СПАСИБО помогло!!!!))))))))))) |