Front page | perl.perl5.porters |
Postings from June 2001
On Thu, Jun 28, 2001 at 04:31:22PM -0700, Larry Shatzer, Jr. wrote:
> "Jarkko Hietaniemi" <jhi@iki.fi> wrote:
> > Incidentally: could someone write a script that trawls through the lib
> > and ext of two Perl source code trees looking for .pm and .xs versions
> > and alerting if the version is the same but the files aren't?
> > I suspect that we have a truckload of such cases between 5.6.0 and
> > bleadperl...
>
> Here is a script I whipped up in my spare time while at work.
Thanks! I already used the script to ferret out some changed modules.
> ./lib-ext-version-diff.pl codebranch1 codebranch2 > output (or your however
> you want it).
>
> I know the code is not beautiful, but thought I'd send out what I had after
> I got a semi working copy. The part that needs the most work is parseing the
> version numbers out from the various files. I am using regex to pull them
> out, but thought of another way, but did not want to try it, where you use
> lib that directory, and just have perl do the work with the scope and print
> $CGI::Carp::VERSION, for example, if anyone can think of a way of doing
> that, it would be great, but probably would not work in all cases.
>
> I'll take any pointers people show me, I already know the code is half
> spaghetti, but a starting point.
>
> -- Larry
> $_=q.$wHFGnABGUREcREYuNPXRE
> NAQyNEEL="larry".;s!^\$(.+)=(.)(\S+)(\2)$!($foo=(
> $foo=$1))=~s,((?:n|c|u|y).), $1,g!ex;@x=split("",$3,-@-);map{$x[$y]=chr((
> $x[$y]=ord($x[$y]))+=$_);++$y}qw(4 17 -9 -4 -5);$print=join("",@x);
> $foo=~y.A-Za-z.n-za-mN-ZA-M.;$japh="$+$foo.\\n$2;";
> eval"$print $japh";
>
--
$jhi++; # http://www.iki.fi/jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
Thread Previous
|
Thread Next