Gnome2::VFS Gnome2::VFS is a Perl interface to the 2.x series of the GNOME VFS library.
Download

Gnome2::VFS Ranking & Summary

Gnome2::VFS Tags

GNOME Perl module vfs GNOME VFS library VFS Perl interface

Gnome2::VFS Description

Gnome2::VFS is a Perl interface to the 2.x series of the GNOME VFS library. Gnome2::VFS is a Perl interface to the 2.x series of the GNOME VFS library.SYNOPSIS use Gnome2::VFS; sub die_already { my ($action) = @_; die("An error occured while $action.n"); } die_already("initializing GNOME VFS") unless (Gnome2::VFS -> init()); my $source = "http://www.perldoc.com/about.html"; my ($result, $handle, $info); # Open a connection to Perldoc. ($result, $handle) = Gnome2::VFS -> open($source, "read"); die_already("opening connection to '$source'") unless ($result eq "ok"); # Get the file information. ($result, $info) = $handle -> get_file_info("default"); die_already("retrieving information about '$source'") unless ($result eq "ok"); # Read the content. my $bytes = $info -> { size }; my $bytes_read = 0; my $buffer = ""; do { my ($tmp_buffer, $tmp_bytes_read); ($result, $tmp_bytes_read, $tmp_buffer) = $handle -> read($bytes - $bytes_read); $buffer .= $tmp_buffer; $bytes_read += $tmp_bytes_read; } while ($result eq "ok" and $bytes_read < $bytes); die_already("reading $bytes bytes from '$source'") unless ($result eq "ok" && $bytes_read == $bytes); # Close the connection. $result = $handle -> close(); die_already("closing connection to '$source'") unless ($result eq "ok"); # Create and open the target. my $target = "/tmp/" . $info -> { name }; my $uri = Gnome2::VFS::URI -> new($target); ($result, $handle) = $uri -> create("write", 1, 0644); die_already("creating '$target'") unless ($result eq "ok"); # Write to it. my $bytes_written; ($result, $bytes_written) = $handle -> write($buffer, $bytes); die_already("writing $bytes bytes to '$target'") unless ($result eq "ok" && $bytes_written == $bytes); # Close the target. $result = $handle -> close(); die_already("closing '$target'") unless ($result eq "ok"); Gnome2::VFS -> shutdown();Requirements:· Perl Requirements: · Perl

Gnome2::VFS Related Software