VPF::Перемещение Файлов - Форум программистов

WTF4XZ

Дата 28.3.2010, 02:05 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 118
Регистрация: 16.4.2007
Где: 63 Самара

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

Доброго времени суток!
Вот начал изучать Perl и возникла такая проблема.
Требуется производить перемещения файлов по маске как на пример в Windows move C:\papka\*.txt D:\papka\*.txt
но проблема в том что стандартные перловкие move и rename этого делать не умеют. Или просто я совсем не понимаю как в них это сделать.

--------------------

Я создание эмоций, создание способные чувствовать не только эмоции людей но и машин.Я EMO_CODER != FALSE;Никто не знает о нас, но мы есть, мы живём, мы кодим и мы... чувствуем, ипспытываем такие эмоции.. сильнее любого бинарника, мощнее любого ассемблера.

Egik2

Дата 28.3.2010, 10:24 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 302
Регистрация: 29.7.2008
Где: Агудзера

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

Вот пример кода:

Код


#!/usr/bin/perl

use strict;

my ($dir_from, $dir_to) = ("C://test//test1", "C://test//test2");

opendir(DIR, $dir_from) or die "Can't open dir $!";
my $file;
while ($file = readdir(DIR)) {
    if($file =~ /^\./) {
        next;
    }
    rename $dir_from."//".$file, $dir_to."//".$file;
}

Здесь, в условии

Код


if($file =~ /^\./) {
        next;
    }

внутри цикла можешь проверять файлы на какую хочешь маску smile

Это сообщение отредактировал(а) Egik2 - 28.3.2010, 10:26

--------------------

Три великие добродетели программиста: лень, нетерпение и самомнение (Larry Wall)
a-nav.com
developer-blog.ru
world-poetry.org

Pfailed

Дата 28.3.2010, 14:16 (ссылка)

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

Загрузка ...

Опытный

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

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

Egik2, можно попроще с помощью глоббинга.

Код


use strict;
use File::Basename;

foreach my $oldname(</tmp/1/*.txt>)
{
    my $newname = "/tmp/2/" . basename($oldname);
    rename ($oldname, $newname);
}

--------------------

I'm on CPAN
I'm on github

birdfree

Дата 28.3.2010, 14:49 (ссылка)

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

Загрузка ...

Новичок

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

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

Большое всем спасибо! Вы мне очень помогли))
P.S. WTF4XZ это акк моего друга я от него задал вопрос

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