PDA

Просмотр полной версии : [Perl] Замена слэша на любой другой символ


apofis
18.03.2010, 18:09
Например дано:
$slovo = "primer/slova";
Заменить любое слово (любой символ) можно например так:
$slovo =~ s/primer/obrazec/;

Как можно заменить слэш / на любой другой символ?

Pashkela
18.03.2010, 18:13
#!/usr/bin/perl
$slovo = "primer/slova";
$slovo =~ s/\//*/;
print $slovo;

apofis
18.03.2010, 18:18
Спасибо)
Уже голова че-то не варит у меня)

krypt3r
19.03.2010, 07:48
$slovo =~ y|/|*|;