Sophie

• Search
• Distribution
• Explorer
• Source & Patches
• Chat
• Help
• About

distrib > Mageia > 5 > x86_64 > media > core-release > by-pkgid > 845e615302d98f72a3d7a294315cbd88 > files > 27

perl-SVG-2.590.0-4.mga5.noarch.rpm

• Info
• Deps
• Files
• Scripts
• ChangeLog
• Location
• Others versions
• Analyse

#!/usr/bin/perl
use strict;
use warnings;

use Image::LibRSVG;

my ($in, $out) = @ARGV;
if (not $out) {
	die <<"END_USAGE";
Converting svg file to png file:

Usage: $0 file.svg  file.png
END_USAGE
}

my $rsvg = Image::LibRSVG->new();
$rsvg->convert( $in, $out );