File size: Difference between revisions

From Rosetta Code
Content added Content deleted
Line 28: Line 28:
return -s $_[0];
return -s $_[0];
}
}
sub test($) {
sub test($$) {
print "The following file called " . $_[0] .
print "The following ". $_[0] ." called " . $_[1] .
" has a file size of " . getFileSize($_[0]) + " bytes.";
" has a file size of " . getFileSize($_[1]) + " bytes.";
}
}
test("file", "input.txt");
test("file", "input.txt");

Revision as of 15:31, 7 April 2007

Task
File size
You are encouraged to solve this task according to the task description, using any language you may know.

In this task, the job is to verify the size of a file called "input.txt". Assuming current directory or fullpath. Either "/input.txt" or "\input.txt".


Java

import java.util.File;
public class FileSizeTest {
   public static long getFileSize(String filename) {
       return new File(filename).length();
   }
   public static void test(String type, String filename) {
       System.out.println("The following " + type + " called " + filename + 
           " has a file size of " + getFileSize(filename) + " bytes."
       );
   }
   public static void main(String args[]) {
        test("file", "input.txt");
        test("file", File.seperator + "input.txt");
   }
}

Perl

   #!/usr/bin/perl
   sub getFileSize($) {
       return -s $_[0];
   }
   sub test($$) {
       print "The following ". $_[0] ." called " . $_[1] . 
           " has a file size of " . getFileSize($_[1]) + " bytes.";
   }
   test("file", "input.txt");
   test("file", "/input.txt");
   test("file", "\\input.txt");
   exit;
 
   # Short version
   print -s 'input.txt';
   print -s '/input.txt';
   print -s "\\input.txt";