Как создать новый файл в Perl?
У меня есть некоторые значения, хранящиеся в переменных $a
,$b
,$c
, Теперь я должен загрузить эти значения в новый файл (создать файл и загрузить). Я новичок в Perl, как я могу это сделать?
3 ответа
Решение
#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use autodie qw(:all);
my $a = 5;
my $b = 3;
my $c = 10;
#### WRITE ####
{
open my $fh, '>', 'output.txt';
print {$fh} $a . "\n";
print {$fh} $b . "\n";
print {$fh} $c . "\n";
close $fh;
}
#### READ ####
{
open my $fh, '<', 'output.txt';
my ($a, $b, $c) = <$fh>;
print $a;
print $b;
print $c;
close $fh;
}
Вам следует прочитать руководство Perlopentut и Perl Maven для начинающих: Запись в файлы.
Еще одна опция: File:: Slurp предоставляет удобный read_file
а также write_file
функции
Посмотрите на методы LoadFile
а также DumpFile
из YAML
модуль. Они очень просты в использовании, так как вам просто нужно добавить к ним имя файла и фактические данные.
Задайте конкретные вопросы, если не ладите с ними.