Filesys :: Virtual :: Async :: Inmemory

Montieren von Dateisystemen, die sich im Speicher befinden (Art von RAMFs)
Jetzt downloaden

Filesys :: Virtual :: Async :: Inmemory Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Preis:
  • FREE
  • Name des Herausgebers:
  • Apocalypse
  • Website des Verlags:
  • http://search.cpan.org/~apocal/

Filesys :: Virtual :: Async :: Inmemory Stichworte


Filesys :: Virtual :: Async :: Inmemory Beschreibung

Montieren Sie Dateisysteme, die sich im Speicher befinden (Art von RAMFs) Filesys :: virtual :: async :: Inmemory ist ein Perl-Modul, um Dateisysteme zu montieren, die sich im Speicher befinden (Sortierer von RAMFs) .synopsis #! / Usr / bin / perl verwenden streng; Warnungen verwenden; Verwenden Sie FCNTL QW (: Standardeinstellung: Modus); # S_IFREG S_IFDIR, O_Sync o_Largefile usw. # unkommentieren Sie diese Option, um das Debugging zu aktivieren #sub-Dateien :: virtual :: async :: Inmemory :: debug {1} Datei verwenden # Erstellen Sie das Dateisystem MY $ VFS = Filesys :: Virtual :: Async :: Inmemory-> NEU ('FileSystem' => {'/' => {MODE => OCT ('040755'), cime => Time () ,},},); # Verwenden Sie $ VFS, wie Sie möchten! $ vfs-> readdir ('/', sub {# sollte nichts meine $ Data = Shift ausdrucken; if (definiert $ data) {foreach my $ e (@ $ data) {drucken "Eintrag in / -> $ E ";} drucken" Ende der Auflistung für / ";} else {drucken" Fehler beim Lesen / ";} do_file_io ();}); mein $ FH; sub do_file_io {$ vfs-> mknod ('/ bar', oct (100644 '), 0, did_mknod);} subdy did_mknod {if ($ _ == 0) {# schreibe darauf! $ Vfs-> geöffnet ('/ bar', o_rdwr, 0, did_open);} else {drucken "Fehler mknod / bar ";}} subdon_open {$ FH = Schicht; if (definiert $ FH) {mein $ buf =" foobar "; $ vfs-> schreiben ($ FH, 0, Länge ($ BUF), $ BUF, 0, did_write );} else {drucken "Fehleröffnung / bar ";}} Sub Did_Write {My $ schrieb = Schicht; if ($ schrieb) {drucken" erfolgreich an / bar schrieb "; $ vfs-> close ($ FH, did_close);} else {drucken" Fehler beim Schreiben an / bar ";}} sub dight_close {my $ status = schalte; if ($ status == 0) {drucken" erfolgreich geschlossen fh ";} else {drucken" Fehler beim Schließen von FH "; } } Anforderungen: · Perl.


Filesys :: Virtual :: Async :: Inmemory Zugehörige Software

Über uns