Help for this page
open (FILE, "foo.txt"); my @lines = <FILE>; close FILE;
open (FILE, "foo.txt"); my @words = map { split } <FILE>; close FILE;
my @words = map { split(' ', $_) } <FILE>;
s/[.,!\?]\B//g
open (FILE, "foo.txt"); my @words = map { s/[.,!\?]\B//g; split; } <FILE>; close FILE;
open (FILE, "foo.txt"); my @lines = map { s/[.,!\?]\B//g } <FILE>; close FILE;
open (FILE, "foo.txt"); my @lines = map { s/[.,!\?]\B//g; $_; } <FILE>; close FILE;
open (FILE, "foo.txt"); my @lines = map { chomp; $_; } <FILE>; close FILE;
open (FILE, "foo.txt"); my @lines = <FILE>; chomp(@lines); close FILE;
Benchmark: timing 100 iterations of chomp, map... chomp: 31 wallclock secs (29.17 usr + 0.54 sys = 29.71 CPU) map: 37 wallclock secs (34.63 usr + 0.59 sys = 35.22 CPU)
www.com | www.net | www.org
No recent polls found