Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

Есть готовый скрипт на 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, 23:38   #2
vavilas
Пользователь
 
Регистрация: 09.02.2009
Сообщений: 11
Репутация: 12
Радость

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

#!/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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Мини-фабрика, по производству мини-фабрик/дронов для сбора воды. Определить минимальное время для сбора заданного количеста воды kukobch Паскаль 12 17.10.2016 00: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


11:40.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru