File Perl

  1. Home
  2. Perl
  3. File
  4. 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, ";
my $length = tell( FILE );
print $length;
close FILE or die "Unable to open file: $!\n";