Mega Code Archive

 

Categories / Perl / File

 

Prints the size of a file in bytes

#!/usr/local/bin/perl  print ("Enter the name of the file:\n");  $filename = <STDIN>;  chop ($filename);  if (!(-e $filename)) {      print ("File $filename does not exist.\n");  } else {      $size = -s $filename;      print ("File $filename contains $size bytes.\n");  }