форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Не могу составить скрипт Помогите!"
Сообщение от albag on 22-Дек-03, 09:38  (MSK)
Нужно удалить из лога squid строки с http:// Sed ом не получается из-за // Си я не знаю, неужели нет ничего простого. Помогите хотя бы советом.
	Рекомендовать в FAQ | Cообщить модератору | Наверх

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

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

1. "Не могу составить скрипт Помогите!"
Сообщение от Михаил on 22-Дек-03, 09:57  (MSK)
>Нужно удалить из лога squid строки с http:// Sed ом не получается >из-за >// Си я не знаю, неужели нет ничего простого. >Помогите хотя бы советом. в первом приближении grep -v "http://" /путь_до_лога/access.log далее man grep
	Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "Не могу составить скрипт Помогите!"
Сообщение от lavr on 22-Дек-03, 10:30  (MSK)
>Нужно удалить из лога squid строки с http:// Sed ом не получается >из-за >// Си я не знаю, неужели нет ничего простого. >Помогите хотя бы советом. совет прост - изучай регулярные выражения, спецсимволы необходимо экранировать: http:// - http:\/\/
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "Не могу составить скрипт Помогите!"
	Сообщение от Владимир on 22-Дек-03, 11:01  (MSK)
	>>Нужно удалить из лога squid строки с http:// Sed ом не получается >>из-за >>// Си я не знаю, неужели нет ничего простого. >>Помогите хотя бы советом. > >совет прост - изучай регулярные выражения, спецсимволы необходимо экранировать: http:// - http:\/\/ > Очень рекомендую изучить перл - удобный и простой язык, гораздо проще шела. Я не программер, но часто его использую для разных задач. Эта прога будет стирать строки с http:// #!/usr/bin/perl -w use strict;         my $file= "/usr/local/squid/var/logs/tst";         my $string = "http:\/\/";         my $value = undef;         print "$file\t$string\t$value\n";         @ARGV = "$file" or die "No file found";         $^I=".bak";         while (<>) {         s/^.*$string.*/$value/;         print;         }
		Рекомендовать в FAQ | Cообщить модератору | Наверх

4. "Не могу составить скрипт Помогите!"
Сообщение от Владимир on 22-Дек-03, 11:04  (MSK)
>Нужно удалить из лога squid строки с http:// Sed ом не получается >из-за >// Си я не знаю, неужели нет ничего простого. >Помогите хотя бы советом. Скрипт на перле: #!/usr/bin/perl -w use strict;         my $file= "/usr/local/squid/var/logs/tst";         my $string = "http:\/\/";         my $value = undef;         print "$file\t$string\t$value\n";         @ARGV = "$file" or die "No file found";         $^I=".bak";         while (<>) {         s/^.*$string.*/$value/;         print;         }
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	5. "Не могу составить скрипт Помогите!"
	Сообщение от HFSC on 22-Дек-03, 11:42  (MSK)
	>>Нужно удалить из лога squid строки с http:// Sed ом не получается >>из-за >>// Си я не знаю, неужели нет ничего простого. >>Помогите хотя бы советом. > > >Скрипт на перле: > >#!/usr/bin/perl -w >use strict; > >        my $file= "/usr/local/squid/var/logs/tst"; >        my $string = "http:\/\/"; > >        my $value = undef; > >        print "$file\t$string\t$value\n"; >        @ARGV = "$file" or >die "No file found"; >        $^I=".bak"; >        while (<>) { >        s/^.*$string.*/$value/; >        print; >        } sed '/^http:\/\//d' file > file2 ..действительно перл намного легче шелл скриптов :)
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	6. "Не могу составить скрипт Помогите!"
	Сообщение от Владимир on 22-Дек-03, 12:05  (MSK)
	>>>Нужно удалить из лога squid строки с http:// Sed ом не получается >>>из-за >>>// Си я не знаю, неужели нет ничего простого. >>>Помогите хотя бы советом. >> >> >>Скрипт на перле: >> >>#!/usr/bin/perl -w >>use strict; >> >>        my $file= "/usr/local/squid/var/logs/tst"; >>        my $string = "http:\/\/"; >> >>        my $value = undef; >> >>        print "$file\t$string\t$value\n"; >>        @ARGV = "$file" or >>die "No file found"; >>        $^I=".bak"; >>        while (<>) { >>        s/^.*$string.*/$value/; >>        print; >>        } > >sed '/^http:\/\//d' file > file2 ..действительно перл намного легче шелл скриптов :) :) Может не конкретно для этой задачи, но уверяю вас! Достаточно усложнить задачи программы и условия поиска для sed-а и может поехать крыша Но спорить не буду :)))
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	7. "Не могу составить скрипт Помогите!"
	Сообщение от HFSC on 22-Дек-03, 13:04  (MSK)
	>>>>Нужно удалить из лога squid строки с http:// Sed ом не получается >>>>из-за >>>>// Си я не знаю, неужели нет ничего простого. >>>>Помогите хотя бы советом. >>> >>> >>>Скрипт на перле: >>> >>>#!/usr/bin/perl -w >>>use strict; >>> >>>        my $file= "/usr/local/squid/var/logs/tst"; >>>        my $string = "http:\/\/"; >>> >>>        my $value = undef; >>> >>>        print "$file\t$string\t$value\n"; >>>        @ARGV = "$file" or >>>die "No file found"; >>>        $^I=".bak"; >>>        while (<>) { >>>        s/^.*$string.*/$value/; >>>        print; >>>        } >> >>sed '/^http:\/\//d' file > file2 ..действительно перл намного легче шелл скриптов :) > >:) >Может не конкретно для этой задачи, но уверяю вас! Достаточно усложнить задачи >программы и условия поиска для sed-а и может поехать крыша >Но спорить не буду :))) в данном задаче крыша едет от вашего кода :)
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

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

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.