viktorijakup

Hi ! My script don't understand file name with "interval", help me with it problem !!! [CODE]@echo off set texmfmain=x:/texroot/texlive/texmf set texinputs=.;%texinputs%;d:/pgroot/bin/conv/styles/ set pathold=%path% path x:/texroot/texlive/bin/win32;%path% latex.exe %1 %2 %3 set path=%pathold%[/CODE] Vika

Hi ! My script don't understand file name with "interval", help me with it problem !!!! [CODE] use Cwd; $dir = cwd(); $vardas=$dir; while($vardas=~/(.*\/)+(.*)/){ $vardas="$2_source"; } $newfile = "$dir/$vardas.tex"; FILE: foreach $file (<@ARGV>) { if ($file eq $newfile) {next FILE}; if (-e "$dir/$vardas.tex"){ print "File exist\n";} else{ print "Rename: "."$file\n"; …

Hi ! Sorry for my english ! My script must rename file name, but don't do it. What is wrong with this script: [CODE]@rem = '--*-Perl-*-- @echo off if "%OS%" == "Windows_NT" goto WinNT perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9 goto endofperl :WinNT …

Hi ! This sctipt work with \insert{aaa.tex} but dont work with \insert aaa.tex What I must do ?! [ICODE]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 …

Hi !!! This script create folder. I need what this script create and open created folder. What I must add in this script...??! [CODE] @rem = '--*-Perl-*-- @echo off if "%OS%" == "Windows_NT" goto WinNT perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9 goto endofperl …

Hello !!! My directory D:\conv\ESSD\YJCIS\YJCIS14183\bbb.doc I must send to X:\sgml_db\ESSD\YJCIS\YJCIS14183\ directory and rename bbb.doc to MMC1.doc. If X:\sgml_db\...\....\YJCIS14183\ don't exist, i must create it. "X:\sgml_db\" constant directory. My script must choose path itself ! What I must add to this script !!! [code=perl] use strict; use warnings; use File::Copy; use …