rpm-php-provides

   1 #!/usr/bin/perl
   2 #####################################################################
   3 #                                                                   #
   4 # Small script to generate provides for php-pear/php-pecl           #
   5 #                                                                   #
   6 # Adam Go³êbiowski <adamg@pld-linux.org>                            #
   7 #                                                                   #
   8 # Somehow based on previous work by:                                #
   9 # Pawe³ Go³aszewski <blues@pld-linux.org>                           #
  10 # Micha³ Moskal <malekith@pld-linux.org>                            #
  11 #####################################################################
  12
  13 # Contest: shrink this one to oneliner
  14 # Bonus  : and fit in 80 columns ;)
  15
  16 /package.xml/ and open(F, $_) foreach (@ARGV ? @ARGV : <> );
  17 /^\s+\<name\>([a-zA-Z0-9\_]+)\<\/name\>$/ and print "php-pear-$1" while (<F>);