Исходное сообщение
"Пробелы в sed" Отправлено ACCA, 26-Июн-13 05:47
#!/usr/bin/perl # #    SYNOPSIS: #           $0 /home/sip_internal_60XX.conf > /home/newcfg.yaml # use strict; use warnings; use YAML qw(Load Dump); my $cfg = Load "/home/cfg.yaml"; die "Suspicious file format for cfg.yaml" if ref $cfg ne 'ARRAY'; my ($x, $user); while (<>) {       if ($. % 10 == 1) {          chomp;          $x = substr($_, 8, 5);          $user->{phone} =          $user->{user_name} =          $user->{auth_name} = "TEnnANT$x\_IPPBX";          $user->{port} = substr($x, 3)-1;       } elsif ($. % 10 == 6) {          chomp;          $user->{auth_pass} = substr($_, 8);          push @$cfg, $user;          $user = {};       } } print Dump $cfg; Проще править, и будет работать примерно в 2200 раз быстрее. Из-за похожих мудаков "появился" протокол Russian PPPoE. Стыдоба.

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> [code] > #!/usr/bin/perl > # > # SYNOPSIS: > # $0 > /home/sip_internal_60XX.conf > /home/newcfg.yaml > # > use strict; > use warnings; > use YAML qw(Load Dump); > my $cfg = Load "/home/cfg.yaml"; > die "Suspicious file format for cfg.yaml" if ref $cfg ne 'ARRAY'; > my ($x, $user); > while (<>) { > if ($. % 10 == 1) > { > chomp; > $x = substr($_, > 8, 5); > $user->{phone} = > $user->{user_name} = > $user->{auth_name} = "TEnnANT$x\_IPPBX"; > $user->{port} = substr($x, > 3)-1; > } elsif ($. % 10 == > 6) { > chomp; > $user->{auth_pass} = substr($_, > 8); > push @$cfg, $user; > $user = {}; > } > } > print Dump $cfg; > [/code] > Проще править, и будет работать примерно в 2200 раз быстрее. > Из-за похожих мудаков "появился" протокол Russian PPPoE. > Стыдоба.
	Введите код, изображенный на картинке: