Perl get file size

my $filename = $ARGV[0];
print -s $filename;

Advertisements

Perl mod function

open(INFILE, “$ARGV[0]”) or die(“Cannot open file $_[0] for reading: $!”);

while(my $line = <INFILE>) {
chomp($line);
my @arguments = split(/,/,$line);
my $i = $arguments[1] ;
my $mul = $i;
my $j = $arguments[0];
my $subtract = 0;
my $done = 0;
$count = 2;

if($j < $i){
print $j.”\n”;
$done = 1;
}elsif($i eq $j){
print “0”.”\n”;
$done = 1;
}

while($done eq 0){
while($i <= $j){
$subtract = $i;
$i = $mul * $count;
$count++;
}
my $remainder = $j – $subtract;
if($remainder < $j){
print $remainder.”\n”;
$done = 1;
}else{
$j = $remainder;

}

}

}

close(INFILE);