VPF::How to send files ! - Форум программистов

viktorijakup

Дата 12.9.2008, 14:28 (ссылка)

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

Загрузка ...

Новичок

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

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

Hi !!!

I have script, which sends file to current directory, but script sends 1 file in 1 runing script.

I need script, which sends several file, (I select and mark files myself) in 1 runing script.

What I must add to this script.

Код


#!/usr/bin/perl
use warnings;
use strict;
use File::Path;
use Cwd;
use File::Copy;
use File::Spec::Functions;
#hardcoded
my $FP = 'D:\conv';
my $TP = 'X:\sgml_db';
my ($from_file, $to_file) = ($ARGV[0], $ARGV[0]);
my $cwd = `cd`;
chomp $cwd;
my ($from_dir, $to_dir) = ($cwd, $cwd);
#rename dir part
$to_dir =~ s/^\Q$FP\E/$TP/;
mkpath($to_dir);
copy(catfile($from_dir, $from_file), catfile($to_dir, $to_file))
or die "can't copy file";
exit 0;

Thank you

shamber

Дата 12.9.2008, 15:24 (ссылка)

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

Загрузка ...

Эксперт

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

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

Hi viktorijakup,

You need add to script cycle.

viktorijakup

Дата 15.9.2008, 09:16 (ссылка)

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

Загрузка ...

Новичок

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

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

Hello !!!

I attached 2 files. In this pictures, you can view, what I want to get for result from script.

user posted image

Это сообщение отредактировал(а) viktorijakup - 15.9.2008, 09:25

shamber

Дата 15.9.2008, 09:44 (ссылка)

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

Загрузка ...

Эксперт

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

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

viktorijakup, i'am so stupid.

i can't understand how you chose file in script.

You want use right click sent-to menu or what?

viktorijakup

Дата 15.9.2008, 12:14 (ссылка)

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

Загрузка ...

Новичок

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

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

Hi !!!

My method of selecting files is simple.

I open folder, select files with "Panel control commands: Ins or Shift + cursor keys" and run script.

smile

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