29.01.2010, 01:06
|
|
Постоянный
Регистрация: 21.08.2007
Сообщений: 408
Провел на форуме:
1105135
Репутация:
35
|
|
Сообщение от 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);
ПАсибо щас попробую
|
|
|