Re: How can I write this in a "simpler" way?


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re: How can I write this in a "simpler" way?

by thezip (Vicar)

on Feb 12, 2014 at 00:15 UTC ( [id://1074555]=note: print w/replies, xml )

Need Help??

in reply to How can I write this in a "simpler" way?

YAWTDI...

#!/usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $filename = 'data.txt';
tie(my @array, 'Tie::File', $filename) or die "Could not open $filenam
+e for reading";

my $total_lines = 0;
for (@array) {
  chomp;
  $total_lines += $_;
}
printf "There are %d lines in %s\n", $total_lines, $filename;
[download]

*My* tenacity goes to eleven...