29.01.2010, 01:05
|
|
Постоянный
Регистрация: 17.09.2008
Сообщений: 562
Провел на форуме:
6962560
Репутация:
536
|
|
Перл
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);
|
|
|