как подставить + к базе

Discussion in 'PHP' started by andreipup, 28 Jan 2010.

  1. andreipup

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

    Joined:
    21 Aug 2007
    Messages:
    265
    Likes Received:
    21
    Reputations:
    0
    Вопрос конечно тупой но я ноль в кодинге(
    есть база формата

    9605318207
    9065252813
    9065291256
    9038242915
    9605391324
    9051304869

    нужно впереди прилепить ко всем номерам +7

    +79605318207
    +79065252813

    Если тупо в блокноте делать замену не пойдет так как 9 в номерах повторяется.
     
  2. Fuckel

    Fuckel Banned

    Joined:
    16 Jan 2008
    Messages:
    274
    Likes Received:
    59
    Reputations:
    6
    база в файле? какой язык?
     
  3. Fepsis

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

    Joined:
    17 Sep 2008
    Messages:
    791
    Likes Received:
    391
    Reputations:
    72
    Перл

    PHP:
    #!/usr/bin/perl 

    open(BASE'base.txt'); 
    chomp(@bas = <BASE>);
    close(BASE);

    open(OUT">> out.txt");


    foreach 
    $num (@bas)
       {
            print 
    OUT "+7$num\n";
       }

    close(OUT);
     
  4. andreipup

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

    Joined:
    21 Aug 2007
    Messages:
    265
    Likes Received:
    21
    Reputations:
    0
    ПАсибо щас попробую
     
  5. Fepsis

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

    Joined:
    17 Sep 2008
    Messages:
    791
    Likes Received:
    391
    Reputations:
    72
    Это под активперл...
     
    4 people like this.
  6. andreipup

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

    Joined:
    21 Aug 2007
    Messages:
    265
    Likes Received:
    21
    Reputations:
    0
    я понял все гуд работает)
    Спасибо за помощь.
     
  7. krypt3r

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

    Joined:
    27 Apr 2007
    Messages:
    1,507
    Likes Received:
    389
    Reputations:
    101
    Однострочник
    Code:
    $ perl -lne 'print "+7$_"' 1.txt > 2.txt
    
     
    1 person likes this.