examples/perl/example.pl

   1 #!/usr/bin/perl
   2
   3 use lib '../../build/bindings/perl';
   4
   5 use satsolverx;
   6
   7 # Open Solvable file
   8 # open(F, "gzip -cd tmp/primary.gz |") || die;
   9
  10 # Create Pool and Repository
  11 my $pool = new satsolverx::Pool;
  12 $pool->set_arch( 'i686' );
  13 my $repo = $pool->create_repo('repo');
  14
  15 # Add Solvable to Repository
  16 $repo->add_solv ("tmp/primary");
  17 # close(F) || die;
  18
  19 # Create Solver
  20 my $solver = $pool->create_solver();
  21
  22 # Create dependencies to provides table
  23 $pool->prepare();
  24
  25 # Create Transactions
  26 my $job = $pool->create_transaction();
  27
  28 # Push jobs on Queue
  29 my $pat = $pool->find("pattern:default") || die;
  30 $job->install($pat);
  31
  32 # $job -> install("pattern:default");
  33
  34 # Solve the jobs
  35 $solver->solve ($job);
  36
  37 # Print packages to install
  38 $a = $solver->getInstallList();
  39 for my $c (@$a) {
  40     print "$c\n";
  41 }
  42