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

[andreipup]

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

9605318207
9065252813
9065291256
9038242915
9605391324
9051304869

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

+79605318207
+79065252813

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

[Fuckel]

база в файле? какой язык?

[Fepsis]

Перл

#!/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]

Перл

#!/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]

ПАсибо щас попробую
Это под активперл...

[andreipup]

Это под активперл...

я понял все гуд работает)
Спасибо за помощь.

[krypt3r]

Однострочник

$ perl -lne 'print "+7$_"' 1.txt > 2.txt