VPF::названия файла c прoбелом и бес

viktorijakup

Дата 30.11.2009, 16:41 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем привет !

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

как прально написать скрипт чтобы он узнавал названия файла 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 (ссылка)

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

Загрузка ...

Опытный

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

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

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

viktorijakup

Дата 1.12.2009, 09:57 (ссылка)

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

Загрузка ...

Новичок

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

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

Привет admsasha !

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

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

smile

amg

Дата 1.12.2009, 14:00 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1145
Регистрация: 3.8.2006
Где: Новосибирск

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

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

)

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

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

Это сообщение отредактировал(а) amg - 1.12.2009, 14:03

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