1#!perl -w 2use strict; 3 4# prints libraries for static linking and exits 5 6use Config; 7 8my @statics = split /\s+/, $Config{static_ext}; 9 10my %extralibs; 11for (@statics) { 12 my $file = "..\\lib\\auto\\$_\\extralibs.ld"; 13 open my $fh, '<', $file or die "can't open $file for reading: $!"; 14 $extralibs{$_}++ for grep {/\S/} split /\s+/, join '', <$fh>; 15} 16print map {s|/|\\|g;m|([^\\]+)$|;"..\\lib\\auto\\$_\\$1$Config{_a} "} @statics; 17print map {"$_ "} sort keys %extralibs; 18