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

Discussion in 'PHP' started by apofis, 18 Mar 2010.

  1. apofis

    apofis New Member

    Joined:
    23 Feb 2009
    Messages:
    13
    Likes Received:
    0
    Reputations:
    0
    Например дано:
    $slovo = "primer/slova";
    Заменить любое слово (любой символ) можно например так:
    $slovo =~ s/primer/obrazec/;

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

    Pashkela Динозавр

    Joined:
    10 Jan 2008
    Messages:
    2,750
    Likes Received:
    1,044
    Reputations:
    339
    Code:
    #!/usr/bin/perl
    $slovo = "primer/slova";
    $slovo =~ s/\//*/;
    print $slovo;
    
     
  3. apofis

    apofis New Member

    Joined:
    23 Feb 2009
    Messages:
    13
    Likes Received:
    0
    Reputations:
    0
    Спасибо)
    Уже голова че-то не варит у меня)
     
  4. krypt3r

    krypt3r Elder - Старейшина

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    Code:
    $slovo =~ y|/|*|;