Re: want tool to open RPM package on Window 95

From: Michal Jaegermann (
Date: Wed Oct 11 2000 - 21:52:48 EST

> Somewhere floating around there is a perl version of rpm2cpio.

This is what I wrote one day a long time ago:

#!/usr/bin/perl -w
use strict;

my ($buffer, $pos, $gzmagic);
$gzmagic = "\037\213";
open OUT, "| gunzip" or die "cannot find gunzip; $!\n";
while(1) {
  exit 1 unless defined($pos = read STDIN, $buffer, 8192) and $pos > 0;
  next unless ($pos = index $buffer, $gzmagic) >= 0;
  print OUT substr $buffer, $pos;
print OUT <STDIN>;
exit 0;

Yes, I know that I should not mix 'read' with stdio but it worked
every time I tried the above. :-)

Can we go back now to kernel issues?


To unsubscribe from this list: send the line "unsubscribe linux-kernel" in
the body of a message to
Please read the FAQ at

This archive was generated by hypermail 2b29 : Sun Oct 15 2000 - 21:00:21 EST