encode-in-tree.pl

encode-in-tree.pl

#!/usr/bin/perl

use Cwd;
use MIME::Base64;

$start = getcwd();
$maxnewpath = 1024;
while (sysread(STDIN, $byte, 1) != 0) {
	$maxpath = 100;
	$string = $byte;
	while ((sysread(STDIN, $byte, 1) != 0) && ($maxpath > 0)) {
		$string .= $byte;
		$maxpath --;
	}
	$string .= $byte;
	$string = encode_base64($string);
	$string =~ s/\x0a//g;
	$string =~ s/\x0d//g;
	mkdir($string);
	chdir($string);
	$maxnewpath = $maxnewpath - length($string);
	if (($maxnewpath - length($string)) < 0) {
		chdir($start);
		$maxnewpath = 1024;
	}
}