форумы  помощь  поиск  регистрация  майллист  вход/выход  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[ Отслеживать ]

"Регулярное выражение, Perl"		+/–
Сообщение от netf0x (ok) on 27-Авг-09, 11:54
Добрый день! Нужен хелп, я совсем нуб в Perl и в регулярных выражениях, поэтому прошу сильно не пинать)) Есть строка вида: "бла блабла ; абрабрабр; 123 ; фыва ячс;" Мне необходимо убрать пробелы перед символом ";" и получить в итоге строку вида: "бла блабла; абрабрабр; 123; фыва ячс;" Помогите пожалуйста!
Высказать мнение | Ответить | Правка | Cообщить модератору

Сообщения по теме

[Сортировка по времени | RSS]

1. "Регулярное выражение, Perl"		+/–
Сообщение от Pahanivo (ok) on 27-Авг-09, 12:08
>Добрый день! >Нужен хелп, я совсем нуб в Perl и в регулярных выражениях, поэтому >прошу сильно не пинать)) > >Есть строка вида: "бла блабла ; абрабрабр; 123 ; фыва ячс;" >Мне необходимо убрать пробелы перед символом ";" >и получить в итоге строку вида: "бла блабла; абрабрабр; 123; фыва ячс;" > > >Помогите пожалуйста! Да пажалусто! http://www.perl.com/pub/q/documentation http://search.cpan.org/dist/perl/pod/perlre.pod
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	2. "Регулярное выражение, Perl"		+/–
	Сообщение от netf0x (ok) on 27-Авг-09, 12:14
	>Да пажалусто! >http://www.perl.com/pub/q/documentation >http://search.cpan.org/dist/perl/pod/perlre.pod Спасибо коллега) Месяца через два изучения и написания скриптов я конечно это сделаю)  но вот только я прошу пример, по нему проще разобраться.
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	3. "Регулярное выражение, Perl"		–1 +/–
	Сообщение от Pahanivo (ok) on 27-Авг-09, 13:34
	> >>Да пажалусто! >>http://www.perl.com/pub/q/documentation >>http://search.cpan.org/dist/perl/pod/perlre.pod > >Спасибо коллега) Месяца через два изучения и написания скриптов я конечно это >сделаю)  но вот только я прошу пример, по нему проще >разобраться. Вышлите пожалуйста мне пример тущарублевых купюр мне почте - штучек 10 хватит! А то очень хочется по бухать, а работать я не умею и учится не хочу. Очень надо ! Очент срочно ! Памагите пажалуста!
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	8. "Регулярное выражение, Perl"		+/–
	Сообщение от netf0x (??) on 28-Авг-09, 09:28
	>[оверквотинг удален] >>сделаю)  но вот только я прошу пример, по нему проще >>разобраться. > >Вышлите пожалуйста мне пример тущарублевых купюр мне почте - штучек 10 хватит! > >А то очень хочется по бухать, а работать я не умею и >учится не хочу. >Очень надо ! Очент срочно ! > >Памагите пажалуста! Уже решили. Обязательно выучу, как будет время)) И помните - все что мы отдаем этому миру возвращается)) Успехов вам с тыщарублевыми купюрами)))
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

4. "Регулярное выражение, Perl"		+/–
Сообщение от Vitaly_loki (ok) on 27-Авг-09, 13:55
>Добрый день! >Нужен хелп, я совсем нуб в Perl и в регулярных выражениях, поэтому >прошу сильно не пинать)) > >Есть строка вида: "бла блабла ; абрабрабр; 123 ; фыва ячс;" >Мне необходимо убрать пробелы перед символом ";" >и получить в итоге строку вида: "бла блабла; абрабрабр; 123; фыва ячс;" > > >Помогите пожалуйста! Допустим строки содержаться в файле file.txt #!/usr/bin/perl -w use strict; my $filedata="file.txt"; open(FILEDATA, $filedata) || die "Can't open file\n"; while(<FILEDATA>) {     chop;     s/ ; /; /g;     print "$_\n\r"; } close(FILEDATA); запускаешь и перенаправляешь вывод в другой файл: ./script.pl > modified_file.txt Если как-то по-другому надо, пиши - постараюсь ответить
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	6. "Регулярное выражение, Perl"		+/–
	Сообщение от angra (ok) on 28-Авг-09, 09:13
	Нельзя же так пугать. Почитайте на досуге man perlrun. Весь ваш мегаскрипт заменяется простым однострочником: perl -i суффикс -pe 's/\s+;/;/g' имя_файла
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	9. "Регулярное выражение, Perl"		+/–
	Сообщение от netf0x (??) on 28-Авг-09, 09:28
	>[оверквотинг удален] >    s/ ; /; /g; >    print "$_\n\r"; >} > >close(FILEDATA); > >запускаешь и перенаправляешь вывод в другой файл: ./script.pl > modified_file.txt > > >Если как-то по-другому надо, пиши - постараюсь ответить Спасибо)
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

5. "Регулярное выражение, Perl"		+/–
Сообщение от Sarge (??) on 27-Авг-09, 14:54
>Есть строка вида: "бла блабла ; абрабрабр; 123 ; фыва ячс;" >Мне необходимо убрать пробелы перед символом ";" >и получить в итоге строку вида: "бла блабла; абрабрабр; 123; фыва ячс;" $str =~ s/ +;/;/g
Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	7. "Регулярное выражение, Perl"		+/–
	Сообщение от netf0x (??) on 28-Авг-09, 09:26
	>>Есть строка вида: "бла блабла ; абрабрабр; 123 ; фыва ячс;" >>Мне необходимо убрать пробелы перед символом ";" >>и получить в итоге строку вида: "бла блабла; абрабрабр; 123; фыва ячс;" > >$str =~ s/ +;/;/g Спасибо большое)
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема