[ViewVC] Contents of: cvs/Net-Knuddels/eg/decode_streams

#!/usr/bin/perl

@ARGV == 2 or die "Usage: $0 client-stream-file server-stream-file\n";

use Dumpvalue;
use Net::Knuddels;

sub slurp($) {
   local $/;
   open my $fh, "<", $_[0]
      or die "$_[0]: $!";
   <$fh>
}

sub decode {
   my $r = new Net::Knuddels::Receiver;

   $r->register (ALL => sub {
      print "---\n";
      Dumpvalue->new (compactDump => 1, veryCompact => 1)->dumpValue ([@_]);
   });

   $r->feed_data ($_[0]);
}

print "\n\nCLIENT\n";
decode substr +(slurp $ARGV[0]), 1;
print "\n\nSERVER\n";
decode slurp $ARGV[0];


Revision:	1.2
Committed:	Tue Jan 11 21:29:53 2005 UTC (21 years, 8 months ago) by root
Branch:	MAIN
Changes since 1.1:	+1 -1 lines
Log Message:	* empty log message *
#	Content
1	#!/usr/bin/perl
2
3	@ARGV == 2 or die "Usage: $0 client-stream-file server-stream-file\n";
4
5	use Dumpvalue;
6	use Net::Knuddels;
7
8	sub slurp($) {
9	local $/;
10	open my $fh, "<", $_[0]
11	or die "$_[0]: $!";
12	<$fh>
13	}
14
15	sub decode {
16	my $r = new Net::Knuddels::Receiver;
17
18	$r->register (ALL => sub {
19	print "---\n";
20	Dumpvalue->new (compactDump => 1, veryCompact => 1)->dumpValue ([@_]);
21	});
22
23	$r->feed_data ($_[0]);
24	}
25
26	print "\n\nCLIENT\n";
27	decode substr +(slurp $ARGV[0]), 1;
28	print "\n\nSERVER\n";
29	decode slurp $ARGV[0];
30
31