Dossier:: Gebruik is een gemakkelijke, veelzijdige, draagbare dossier behandelende module.

Dossier:: Gebruik verstrekt uitvoerige toolbox van nut om allerlei gemeenschappelijke taken op dossier/folders te automatiseren. Zijn doel is dit op de draagbaarste manier te doen mogelijke zodat de gebruikers van deze module niet zich over of zullen moeten ongerust maken hun programma's zullen werken aan andere OSes en machines.

SYNOPSIS

gebruiks Dossier:: Gebruik;
mijn ($f) = Dossier:: Util->new ();

mijn ($content) = $f->load_file (foo.txt);

$content =~ s/this/that/g;

$f->write_file (
dossier => bar.txt,
inhoud => $content,
bitmask => 0644
);

$f->write_file (
dossier => file.bin, inhoud => $binary_content, --binmode
);

mijn (@lines) = $f->load_file (randomquote.txt, --zoals-lijnen);
mijn ($line) = int. (rand (scalaire @lines));

druk $lines [$line];

mijn (@files) = $f->list_dir (/var/tmp, qw/ --dossier-slechts --recurse/);
mijn (@textfiles) = $f->list_dir (/var/tmp, --pattern=.txt$);

als ($f->can_write (wibble.log)) {

mijn ($HANDLE) = $f->open_handle (
dossier => wibble.log,
de wijze => voegt toe
);

druk $HANDLE „Hello Wereld! Zijn“, scalaire localtime;

dichte $HANDLE
}

mijn ($log_line_count) = $f->line_count (/var/log/httpd/access_log);

druk „Mijn dossier heeft een bitmask van“. $f->bitmask (my.file);

druk „Mijn dossier is“. treed toe (, $f->file_type (my.file)). „dossier.“

waarschuw Dit dossier binair is! als $f->isbin (my.file);

druk „Mijn dossier het laatst werd gewijzigd op“.
scalaire localtime ($f->last_modified (my.file));

#… en _lots_ meer