perl: Translate C examples into Perl and include a manual page.

[libguestfs.git] / perl / examples / create_disk.pl

diff --git a/perl/examples/create_disk.pl b/perl/examples/create_disk.pl
new file mode 100755 (executable)
index 0000000..5a81663
--- /dev/null
+++ b/perl/examples/create_disk.pl
@@ -0,0 +1,67 @@
+#!/usr/bin/perl -w
+
+# Example showing how to create a disk image.
+
+use strict;
+use Sys::Guestfs;
+
+my $output = "disk.img";
+
+my $g = new Sys::Guestfs ();
+
+# Create a raw-format sparse disk image, 512 MB in size.
+open FILE, ">$output" or die "$output: $!";
+truncate FILE, 512 * 1024 * 1024 or die "$output: truncate: $!";
+close FILE or die "$output: $!";
+
+# Set the trace flag so that we can see each libguestfs call.
+$g->set_trace (1);
+
+# Set the autosync flag so that the disk will be synchronized
+# automatically when the libguestfs handle is closed.
+$g->set_autosync (1);
+
+# Attach the disk image to libguestfs.
+$g->add_drive_opts ($output, format => "raw", readonly => 0);
+
+# Run the libguestfs back-end.
+$g->launch ();
+
+# Get the list of devices.  Because we only added one drive
+# above, we expect that this list should contain a single
+# element.
+my @devices = $g->list_devices ();
+if (@devices != 1) {
+    die "error: expected a single device from list-devices";
+}
+
+# Partition the disk as one single MBR partition.
+$g->part_disk ($devices[0], "mbr");
+
+# Get the list of partitions.  We expect a single element, which
+# is the partition we have just created.
+my @partitions = $g->list_partitions ();
+if (@partitions != 1) {
+    die "error: expected a single partition from list-partitions";
+}
+
+# Create a filesystem on the partition.
+$g->mkfs ("ext4", $partitions[0]);
+
+# Now mount the filesystem so that we can add files.
+$g->mount_options ("", $partitions[0], "/");
+
+# Create some files and directories.
+$g->touch ("/empty");
+my $message = "Hello, world\n";
+$g->write ("/hello", $message);
+$g->mkdir ("/foo");
+
+# This one uploads the local file /etc/resolv.conf into
+# the disk image.
+$g->upload ("/etc/resolv.conf", "/foo/resolv.conf");
+
+# Because 'autosync' was set (above) we can just exit here
+# and the disk contents will be synchronized.  You can also do
+# this manually by calling $g->umount_all and $g->sync.
+exit 0