VPF::скопировать файл - Форум программистов

n0xi0uzz

Дата 14.4.2005, 06:00 (ссылка)

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

Загрузка ...

Шустрый

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

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

как можно скопировать файл, используя стандартные функции перла, не используя системных вызовов?

chaos

Дата 14.4.2005, 06:53 (ссылка)

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

Загрузка ...

Серийный программист

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

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

ну вот тебе стандартный пример:

Код


#!/usr/bin/perl -w              #это думаю понятно что
use strict;                           #заставляем все перменные описывать через my

my ($INFILE, $OUTFILE) = ('in.txt','out.txt'); #имя входного и выходного

#открываем копируемый файл
open (FO, "<$OUTFILE") || die; 
#открываем файл в каторый будем копировать
open (FI, ">$INFILE") || die;     

#необходимо для копирования не текстовых файлов
binmode FI;
binmode FO;

#непосредственно цикл копирования
print FI $_ while(<FO>);

#закрываем файлы
close(FI);
close(FO);

Добавлено @ 06:58
вот еще можно использовать такой пример:

Код


#!/usr/bin/perl -w
use strict;

use File::Copy;

my ($INFILE, $OUTFILE) = ('in.txt','out.txt');
copy($OUTFILE, $INFILE);

Выбирай что больше нравится smile

Это сообщение отредактировал(а) chaos - 14.4.2005, 07:09

n0xi0uzz

Дата 14.4.2005, 10:00 (ссылка)

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

Загрузка ...

Шустрый

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

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

Спасибо, больше нравится первый вариант - он... эммм... стандартнее, что ли smile

.
Вопрос: зачем заставлять все переменные описывать через my?

Kiber_rat

Дата 14.4.2005, 12:43 (ссылка)

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

Загрузка ...

MACMANIAC

Профиль
Группа: Участник
Сообщений: 276
Регистрация: 18.4.2002
Где: Ashdod, Israel

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

Что бы они не были глобальными. Этого объявления требует использование use strict; Чем черевато использование глобальных переменных можно почитать на любом сайте для скрипткиддисов smile

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

Best regards!
@..@_____Ku6ep
=*=______\______KPbIC

Код

print join "",map{chr}(split/(\w{2})/,hex(int(2175.57302796298**2)))

chaos

Дата 14.5.2005, 06:19 (ссылка)

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

Загрузка ...

Серийный программист

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

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

еще в голову пришел один пример)))

Код


#!/usr/bin/perl -w
use strict;

my($INFILE, $OUTFILE) = ("file_in", "file_out");

open(OUTF, "$OUTFILE") || die;
binmode OUTF;

open(INF, ">$INFILE") || die;
binmode INF;

print INF <OUTF>;

close(OUTF);
close(INF);

можно использовать для файлов не большого размера

Это сообщение отредактировал(а) chaos - 14.5.2005, 06:20

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