Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > названия файла c прoбелом и бес

Автор: viktorijakup 30.11.2009, 16:41

Всем привет !

и извините за мой простой РУССКИЙ язык !

как прально написать скрипт чтобы он узнавал названия файла c прoбелом и бес.

Код


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: "."$file\n";
 
  rename ($file, $newfile) || die "Can't rename file.\n";}

}

Спасибо

Vika

Автор: admsasha 30.11.2009, 17:29

viktorijakup, код точно рабочий ?
На сколько я понял в качестве параметра, указывается файл, так ? Никаких проблем передать файл у меня не было, единственно нужно писать так ./myproga.pl 'bla\ bla.txt' (экранировать пробел)

Автор: viktorijakup 1.12.2009, 09:57

Привет admsasha !

а вы можите мне паправить тo место, где надо, и как надо.

благадарю очень !

smile

Автор: amg 1.12.2009, 14:00

Цитата(viktorijakup @ 1.12.2009, 09:57

)

а вы можите мне паправить тo место, где надо, и как надо

Уважаемая VIka!
admsasha хотел обратить Ваше внимание на то, что проблема, возможно, не в самом скрипте (хотя в нем есть весьма странные места), а в способе его вызова. Если в качестве аргумента скрипту нужно подать название файла, в котором есть пробел, то это название нужно заключить в кавычки или пробел заэкранировать:
./myproga.pl "bla bla.txt"