[The_ouroboros]

Ciao,
conoscete un modo rapido per convertire questo script

#!/usr/bin/perl -w

use strict;

# parameters check
if($ARGV[0] eq "") {
	print "Usage $0 <file>\n";
	exit -1;
}

open INF, "< $ARGV[0]" or die "Error in program: $!";
my $line = <INF>;
close INF;

chomp $line;
my @promo = split(//, $line);
my $cnt = 0;
foreach(@promo) {
	$cnt++;
	print "$_";
	if (($cnt % 5) == 0) { # every 5 digits go newline
		print "\n";
	}

}


#@

In java?


Grazie per ogni aiuto