GNOME2 :: VFS GNOME2 :: VFS is een PERL-interface naar de 2.x-serie van de GNOME VFS-bibliotheek.
Download nu

GNOME2 :: VFS Rangschikking & Samenvatting

GNOME2 :: VFS Tags

GNOME Perl-module vfs GNOME VFS-bibliotheek VFS PERL-interface

GNOME2 :: VFS Beschrijving

Gnome2 :: VFS is een Perl-interface naar de 2.x-serie van de GNOME VFS bibliotheek. Gnome2 :: VFS is een Perl-interface naar de 2.x-serie van de GNOME VFS library.SYNOPSIS gebruik gnome2 :: VFS; sub die_already {mijn ($ actie) = @_; die ( "Er is een fout opgetreden tijdens het $ action.n"); } Die_already ( "initialiseren GNOME VFS"), tenzij (gnome2 :: VFS -> init ()); mijn $ source = "http://www.perldoc.com/about.html"; mijn ($ result, $ handle, $ info); # Open een verbinding met perldoc. ($ Result, $ handvat) = gnome2 :: VFS -> geopend ($ source, "lezen"); die_already ( "opening verbinding met '$ source'"), tenzij ($ result eq "ok"); # Haal de bestandsinformatie. ($ Result, $ info) = $ handle -> get_file_info ( "default"); die_already ( "het ophalen van informatie over '$ source'"), tenzij ($ result eq "ok"); # Lees de inhoud. mijn $ bytes = $ info -> {size}; mijn $ bytes_read = 0; mijn $ buffer = ""; do {mijn ($ tmp_buffer, $ tmp_bytes_read); ($ Result, $ tmp_bytes_read, $ tmp_buffer) = $ handle -> lees ($ bytes - $ bytes_read); $ = $ Tmp_buffer buffer.; $ Bytes_read + = $ tmp_bytes_read; } While ($ result eq "ok" en $ bytes_read <$ bytes); die_already ( "het lezen van $ bytes bytes van '$ source'") tenzij ($ result eq "ok" $ bytes_read == $ bytes); # sluit de verbinding $ result = $ handle-> close (); die_already ( "closing verbinding met '$ source'"), tenzij ($ result eq "ok"); # Maken en openen het doel. mijn $ target = "/ tmp /". $ Info -> {naam}; mijn $ uri = gnome2 :: VFS :: URI -> new ($ doel); ($ Result, $ handvat) = $ uri -> create ( "write", 1, 0644); die_already ( "het creëren van '$ target'"), tenzij ($ result eq "ok"); # Schrijven. mijn $ bytes_written; ($ Result, $ bytes_written) = $ handle -> write ($ buffer, $ bytes); die_already ( "schrijven $ bytes bytes aan '$ target'"), tenzij ($ result eq "ok" $ bytes_written == $ bytes); # Sluit het doel. $ Result = $ handle -> close (); die_already ( "closing '$ target'"), tenzij ($ result eq "ok"); Gnome2 :: VFS -> shutdown (); Vereisten: · Perl Vereisten: · Perl

GNOME2 :: VFS Gerelateerde software