Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Скриптовые языки программирования > Perl
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.10.2018, 21:41   #1
vavilas
Пользователь
 
Регистрация: 09.02.2009
Сообщений: 11
По умолчанию мини консультация

Есть готовый скрипт на perl:
#!/usr/bin/perl

open(FF,'file_list.txt');@dir=<FF>; chomp(@dir);close(FF);

$cc=3;

foreach $vv (@dir){
open(FF,"$vv");@text=<FF>;close(FF) ;
open(FF,">$vv.php");
foreach $line (@text){
$line=~s/nn/"kkk".sprintf("%02d",++$cc)/eg;

print FF $line;
}
close(FF);
}

Он берет из папки файлы, ищет в них символы "kkk" и изменяет их на цифры по порядку, начиная с 3,4,5,6,7 и т.д.
НО в указанном скрипте есть ошибка и кроется она где-то здесь: nn/"kkk"
помогите, пожалуйста, разобраться!
vavilas вне форума Ответить с цитированием
Старый 16.10.2018, 22:38   #2
vavilas
Пользователь
 
Регистрация: 09.02.2009
Сообщений: 11
Радость

все, сам разобрался..

#!/usr/bin/perl

open(FF,'file_list.txt');@dir=<FF>; chomp(@dir);close(FF);

$cc=2;


foreach $vv (@dir){
open(FF,"$vv");@text=<FF>;close(FF) ;
open(FF,">$vv.php");
foreach $line (@text){
$line=~s/kkk/sprintf("%02d",++$cc)/eg;

print FF $line;
}
close(FF);
}
vavilas вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Мини-фабрика, по производству мини-фабрик/дронов для сбора воды. Определить минимальное время для сбора заданного количеста воды kukobch Паскаль, Turbo Pascal, PascalABC.NET 12 16.10.2016 23:39
мини проблем koutinho92 C# (си шарп) 2 22.06.2014 12:51
мини игра nwhta C# (си шарп) 7 23.09.2013 18:04
Мини-паук Drayvs Фриланс 9 13.09.2010 22:40
мини опрос risc JavaScript, Ajax 1 15.04.2010 00:57