🚀 go-pugleaf

On Wed, 13 Jan 2010 11:37:47 -0800 (PST), Mikołaj Karwat wrote:

> Witam Wszystkich,
> 
> Jak w perlu zmodyfikować string na określonej pozycji?

Albo używasz odpowiedniego regexpa, np. tak:

my $str = "ra";
my $str_len = length($str);
my $some_str = "Mikołaj Karwat";
my $some_pos = index($some_str, "ar");
$some_str =~ s/(.{$some_pos}).{$str_len}/$1$str/;

albo - zazwyczaj tak będzie szybciej i prościej - funkcji substr:

my $str = "ra";
my $some_str = "Mikołaj Karwat";
my $some_pos = index($some_str, "ar");
substr($some_str, index($some_str, "ar"), length($str), $str);

Warto jednak zauważyć, że jeśli chcesz zamienić np. "ar" na "ra", tak jak w
tym przypadku, to zamiast szukać miejsca, gdzie zastępowany string występuje
i następnie podmieniać substring, lepiej zrobić to bezpośrednio:

my $str = "ra";
my $some_str = "Mikołaj Karwat";
$some_str =~ s/ar/ra/;

Perl ma po prostu dość znacząco odmienną filozofię niż C, zwłaszcza w
zakresie przetwarzania napisów i tablic, więc przepisywanie żywcem w Perlu
algorytmu zapisanego w C owocuje zazwyczaj programem nieczytelnym i
nieefektywnym.

-- 
Szymon Sokół (SS316-RIPE) -- Network Manager                                 B
Computer Center, AGH - University of Science and Technology, Cracow, Poland  O
http://home.agh.edu.pl/szymon/ PGP key id: RSA: 0x2ABE016B, DSS: 0xF9289982  F
Free speech includes the right not to listen, if not interested -- Heinlein  H