[Perl] Замена определенного по счету символа

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > PHP
[Perl] Замена определенного по счету символа

Страница 1 из 2

Опции темы

Поиск в этой теме

Опции просмотра

[Perl] Замена определенного по счету символа

25.04.2010, 14:01

apofis

Познающий

Регистрация: 23.02.2009

Сообщений: 35

С нами: 9059503

Репутация: 0

[Perl] Замена определенного по счету символа

Добрый день!

Как можно заменить в тексте определенный по счету символ?

Например, вот текст:
Perl — высокоуровневый интерпретируемый динамический язык программирования общего назначения, созданный Ларри Уоллом, лингвистом по образованию.

Как заменить десятый по счету пробел на любой другой символ?

𝕏 Twitter Reddit Telegram Копировать ссылку

25.04.2010, 14:03

Kaimi

Познавший АНТИЧАТ

Регистрация: 23.08.2007

Сообщений: 1,237

С нами: 9851426

Репутация: 1676

http://perldoc.perl.org/functions/substr.html

25.04.2010, 14:11

apofis

Познающий

Регистрация: 23.02.2009

Сообщений: 35

С нами: 9059503

Репутация: 0

Я в том смысле, что неизвестно какой по счету символ в тексте этот десятый пробел.

25.04.2010, 15:12

Deathdreams

Постоянный

Регистрация: 08.11.2008

Сообщений: 498

С нами: 9213376

Репутация: 278

PHP:
http://php.net/manual/en/function.substr-replace.php

25.04.2010, 18:12

psyx

Новичок

Регистрация: 05.08.2009

Сообщений: 4

С нами: 8824883

Репутация: 5

Используй регулярные выражения, в твоем случае поиск n-го совпадения:
http://perl.find-info.ru/perl/015/search/1.htm

25.04.2010, 20:37

eLWAux

Постоянный

Регистрация: 15.06.2008

Сообщений: 941

С нами: 9423746

Репутация: 2399

PHP код:


		
			
$a = 'qwertyuiopasdfghjklzxcvbnm';

 print $a."\n";

 print substr($a, 0, 9) . '!' . substr($a, 10, length($a));

если заранее знаешь какие символы заменять надо, заменяй регуляркой

25.04.2010, 21:37

taxpayer

Познающий

Регистрация: 17.01.2010

Сообщений: 33

С нами: 8586496

Репутация: 33

>"Как заменить 10й пробел в строке?"
А то что-то вы странно не понимаете как обстоит вопрос

Я на низком уровне знаю перл, мб это как-то близко к делу

Цитата:

use warnings;
use strict;

my $a = 'A B C D E F G H I J K L M';
my $i = 7; # седьмой пробел

$a =~ s!(\s)!_a_($1, --$i)!eg;
print $a;

sub _a_{ $_[1] ? return $_[0] : return 'S' }

Последний раз редактировалось taxpayer; 25.04.2010 в 22:01..

25.04.2010, 21:58

life_glider

Познающий

Регистрация: 13.04.2010

Сообщений: 42

С нами: 8463290

Репутация: 81

PHP код:


		
			
#!/usr/bin/perl 

$txt="dgas  adg              dgasdg asdg  adsg   a      dga   sdga      sdg     adsg    asdg  asgd";

@arr=split(" ",$txt);

if(scalar @arr > 10)

{

    print join(' ',@arr[0..9]).'!'.join(' ',@arr[10..$#arr]);

}

else

{

    print $txt;

}

вот так например. Только он почему то переносы строк убивает.

26.04.2010, 06:54

krypt3r

Познавший АНТИЧАТ

Регистрация: 27.04.2007

Сообщений: 1,044

С нами: 10021597

Репутация: 905

Код:

$str =~ s{(\s)}{++$count == 10 ? '[SPACE]' : $1;}ge;

#10

26.04.2010, 15:13

taxpayer

Познающий

Регистрация: 17.01.2010

Сообщений: 33

С нами: 8586496

Репутация: 33

krypt3r, не проще использовать декремент? зачем лишние сравнения?

Страница 1 из 2

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Perl] Замена слэша на любой другой символ	apofis	PHP	3	19.03.2010 07:48
Хакерский сленг	Utochka	Болталка	18	20.06.2007 12:24

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход

Создать сделку

Мои сделки

Сделка