VPF::вкладывает текст - Форум программистов

viktorijakup

Дата 9.2.2009, 14:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 5.9.2008

Репутация: нет
Всего: нет

Привет !!!

имею алгоритм который вкладывает текст
но он работаит когда \insert{aaa.tex}
но неработаит когда \insert aaa.tex

Што делать !!!!

Код


while(/^\\insert\{(.*?)(\.tex)?\}/){
      $pries=$`."\n";
      $nekeisk=$&;
      $vardas=$1;
      $po=$';
      $failiukas=$1.".tex";
         
      if(-e "$dir/$failiukas"){
                               open (IN2,"<$failiukas") || die "negaliu atidaryti $failiukas failo.\n";
                               $vidus=<IN2>;
                               close IN2;
     
                               $visas=$visas.$pries.$vidus."\n";
                               $_=$po;
                               print "Idetas failas $failiukas\n";
                              }
     else{
           $visas=$visas.$pries.$failiukas."\n";
           $_=$po;
           print "$failiukas failas nerastas!!!!!!\n";
         }

                               }
$visas=$visas.$_;
$_=$visas;
$visas = "";

NuINu

Дата 9.2.2009, 15:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 131
Регистрация: 19.7.2008

Репутация: 5
Всего: 6

Цитата(viktorijakup @ 9.2.2009, 12:51

)

Што делать !!!!

1 выучить русский язык
2 выучить регулярные выражения.
... ну и еще много можно пожелайний написать... типа того, чтобы точнее описывать суть задачи...

так что, всегда найдется "что делать"

ginnie

Дата 9.2.2009, 15:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

viktorijakup, сначала можно попробовать

Код


while(/^\\insert[\{\s]+(.*?)(\.tex)?\}?/){

а затем, обязательно то, что посоветовал NuINu smile

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

viktorijakup

Дата 9.2.2009, 17:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 5.9.2008

Репутация: нет
Всего: нет

Спосибо

Код


while(/^\\insert[\{\s]+(.*?)(\.tex)?[\}\s]/){

Спасли

Виктория

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »