insert text

viktorijakup

This sctipt work with \insert{aaa.tex} but dont work with \insert aaa.tex

What I must do ?!

Expand|Select|Wrap|Line Numbers

 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 = "";

KevinADC

try:

while(/^\\insert{?(.*?)(\.tex)?}?/){

insert text

re: insert text

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about