perl/examples/lvs.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 use Sys::Guestfs;
   6
   7 # Look for LVM LVs, VGs and PVs in a guest image.
   8
   9 die "Usage: lvs.pl guest.img\n" if @ARGV != 1 || ! -f $ARGV[0];
  10
  11 print "Creating the libguestfs handle\n";
  12 my $h = Sys::Guestfs->new ();
  13 $h->add_drive ($ARGV[0]);
  14
  15 print "Launching, this can take a few seconds\n";
  16 $h->launch ();
  17 $h->wait_ready ();
  18
  19 print "Looking for PVs on the disk image\n";
  20 my @pvs = $h->pvs ();
  21 print "PVs found: (", join (", ", @pvs), ")\n";
  22
  23 print "Looking for VGs on the disk image\n";
  24 my @vgs = $h->vgs ();
  25 print "VGs found: (", join (", ", @vgs), ")\n";
  26
  27 print "Looking for LVs on the disk image\n";
  28 my @lvs = $h->lvs ();
  29 print "LVs found: (", join (", ", @lvs), ")\n";