从备份您的代码段snipplr.com网站

Posted 2021-02-27

Dumps your snippets (and possibly skips your favourites [British spelling]) to standard output. Requires Frontier::RPC2.

#!/usr/bin/perl -w
use strict;
use Frontier::Client;
 
my $key = '';			# (your API key)
my $user = '';			# used to skip others' snippets (fill with your user name)
 
my $session = Frontier::Client->new( url => 'http://snipplr.com/xml-rpc.php', debug => 0,);
 
$session->call('user.checkkey', $key) 
	or die "Provided key has been refused!
";
 
my @args = ($key, '');
my $list = $session->call('snippet.list', @args);
 
my @snippets;		# in case you need to process data afterwards (sort ...)
 
for (my $i=0 ; defined($_ = $list->[$i]) ; $i++) {
	my $data = $session->call('snippet.get', $_->{'id'});
	if ($data->{username} !~ /^$user$/) {next};	# skip favorites (back up just your snippets)
	$snippets[$i]=$data;				# dump for post loop processing
	print "##### $data->{title}
";
	print "##### $data->{comment}
";
	print "##### $data->{language} $data->{tags}
";
	print "##### $data->{source}
";
	print "#####
";
	print "#####
";
}
 
@snippets = sort {$a->{language} cmp $b->{language}} @snippets;		# sort by language