[Perl->Java] Conversione programma

[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