Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   как подставить + к базе (https://forum.antichat.xyz/showthread.php?t=174294)

andreipup 29.01.2010 00:48
как подставить + к базе
 
Вопрос конечно тупой но я ноль в кодинге(
есть база формата

9605318207
9065252813
9065291256
9038242915
9605391324
9051304869

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

+79605318207
+79065252813

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

Fuckel 29.01.2010 00:59
база в файле? какой язык?

Fepsis 29.01.2010 01:05
Перл

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); 

andreipup 29.01.2010 01:06
Цитата:
Сообщение от Fepsis
Перл

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); 
ПАсибо щас попробую

Fepsis 29.01.2010 01:07
Цитата:
Сообщение от andreipup
ПАсибо щас попробую
Это под активперл...

andreipup 29.01.2010 01:11
Цитата:
Сообщение от Fepsis
Это под активперл...
я понял все гуд работает)
Спасибо за помощь.

krypt3r 29.01.2010 08:26
Однострочник
Код:
$ perl -lne 'print "+7$_"' 1.txt > 2.txt


Время: 14:32