ipfs-link-weirdness.pl

#!/usr/bin/perl

use strict;
use warnings;

sub mkNode {
	my ($data) = @_;

	my $node = `echo '{"Data": "$data"}' | ipfs object put`;
	die "failed to create node" if $?;

	chomp $node;
	(undef, $node) = split /\s+/, $node;

	return $node;
}

my $head = mkNode("head");
print "head: $head\n";

my $tail = mkNode("tail");
print "tail: $tail\n";

$head = `ipfs object patch add-link $head first-link $tail`;
chomp $head;
my $head_listing = `ipfs object get $head`;

print "head with 1 link: $head\n\t$head_listing";

$head = `ipfs object patch add-link $head second-link $tail`;
chomp $head;
$head_listing = `ipfs object get $head`;
print "head with 2 links: $head\n\t$head_listing";