Функции Perl

Операции с папками.

#--- Открытие папки

opendir (DD, "Labwork #6") || die "Couldn't open directory: $!";

#--- Чтение ВСЕХ имён файлов из папки (положим, что других папок в ней нет)

@names = readdir DD;

splice @names, 0, 2; # Первые 2 строки всегда "." и ".." – удалим их

# --- Печать имён ВСЕХ файлов

foreach $name (@names)

{

print $name. "\n";

}

# --- Закрытие папки

closedir DD;

#--- Создание папки

#mkdir "TEST_DIR" || die "Couldn't create directory: $!";

#--- Удаление пустого каталога

#rmdir "TEST_DIR" || die "Couldn't delete directory: $!";

#--- Переименование каталогов и файлов

#rename "LabWork #6", "LabWork #7";

# ===========================

Операции с файлами.

#--- Открытие/создание файла.

# Атрибуты: "<" - read-only (default); ">" - write-only (create file if not exists);

# '>>' - append; '+>' or '+<' - read-write; "+>>" read-append.

#open (FD, ">>", "TEST.txt") || die "Couldn't open file: $!";

#--- Закрытие файла.

#close FD;

#--- Удаление файла

#unlink ("TEST.txt") || die "Couldn't open directory: $!";

# --- Копирование/перемещение/переименование файла

#use File::Copy;

#copy "TEST.txt", "LabWork #6/TEST2.txt";

#move "TEST.txt", "LabWork #6/TEST2.txt";

# --- Определение размера файла (в байтах)

use File::stat;

$file_owner = stat("TEST.txt")->size;

print $file_owner;

Дата добавления: 2015-08-27