Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:Leap:42.1:Update
ctan-latinmodern-fonts
strip-source.pl
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File strip-source.pl of Package ctan-latinmodern-fonts
#!/usr/bin/perl # # The origin source archive ships fonts redundantly. # Since TrueType is vector based, there is not much point # in having both lmroman5-bold.otf and lmroman6-bold.otf. # # Run this in a directory to which the .otfs have been extracted to. # use strict; my %seen; # Grab biggest variants my @files = glob("*.otf"); foreach my $file (@files) { my($size) = ($file =~ m{(\d+)}); my $name = "$`$'"; if ($seen{$name} < $size) { $seen{$name} = $size; } } foreach my $file (@files) { my($size) = ($file =~ m{(\d+)}); my $name = "$`$'"; if ($size != $seen{$name}) { print "Unlinking $file (retaining $`$seen{$name}$')\n"; unlink $file; } }
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
