[ViewVC] Contents of: cvs/Net-FCP/eg/fetch1

#!/usr/bin/perl

use Net::FCP qw(event=Event);

# fetch a single (small) keyand output it to stdout

my $fcp = new Net::FCP;

my ($meta, $data) = @{ $fcp->client_get ("freenet:$ARGV[0]", $ARGV[1]) };

use Data::Dumper;
print Dumper $meta;
print "=============================================================================\n";
print $data;


Revision:	1.3
Committed:	Tue Sep 9 06:13:20 2003 UTC (23 years ago) by root
Branch:	MAIN
Changes since 1.2:	+1 -1 lines
Log Message:	* empty log message *
#	Content
1	#!/usr/bin/perl
2
3	use Net::FCP qw(event=Event);
4
5	# fetch a single (small) keyand output it to stdout
6
7	my $fcp = new Net::FCP;
8
9	my ($meta, $data) = @{ $fcp->client_get ("freenet:$ARGV[0]", $ARGV[1]) };
10
11	use Data::Dumper;
12	print Dumper $meta;
13	print "=============================================================================\n";
14	print $data;
15
16