Gnome2::VFS 1.061

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:	No special requirements
Platforms:	Linux
Keyword:	Bytes,  Eq,  Gnome Vfs,  Handle,  Libraries,  Programming,  Read,  Result,  Unless
Users rating:	0/10