Dashboard
PHP:
8.1.33
OS:
Linux
User:
lawtemple
/
/
usr
/
share
/
doc
/
perl-XML-RSS
/
examples
📤 Upload
📝 New File
📁 New Folder
Close
Editing: convert.pl
#!/usr/bin/perl use strict; use warnings; use XML::RSS (); # print an error unless there are 2 command-line args syntax() unless @ARGV == 2; # get rss file and version to convert to from # the command line my ($file,$version) = @ARGV; # create new instance my $rss = XML::RSS->new; # set output version $rss->{output} = $version unless $version eq 'default'; # parse the rss file $rss->parsefile(shift); # output the new RSS to STDOUT print $rss->as_string; sub syntax { die "Syntax: convert.pl <file.rss> <version>\n ex: convert.pl fm.rdf 1.0\n\n"; }
Save
Cancel