Mega Code Archive

 

Categories / Perl / File

 

Get the length of a file

#!/usr/bin/perl use strict; use warnings; print "Creating a file with the numbers 0-9.\n"; open FILE, "+>file.txt" or die "Unable to open file: $!\n"; print FILE "0\n1\n2\n3\n4\n5\n6\n7\n8\n9\n"; close FILE or die "Unable to open file: $!\n"; open FILE, "<file.txt" or die "Unable to open file: $!\n"; <FILE>; my $length = tell( FILE ); print $length; close FILE or die "Unable to open file: $!\n";