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 foreach my $c (@{$a}) {
  40         print "$c\n";
  41 }
  42