Question

I need help with my perl code. I need to be able to read in a file with one word on each line and at minimum 50 lines. I have a code to print each line from the file but how do I take these items sort them and then out put to a new file.

while(<>){
chomp;
print "$_ :is in the file";
}

I am struggling to figure out how to take in a file and (I think the <> parses the files line by line) out put it to another file.

Answer 1

For a more functional approach, as a one-liner:

perl -e '$, = "\n"; print sort map { chomp; $_ } <>' input.txt > output.txt

This prints a sorted version of mapping each line through chomp, separated ($,) by newlines.

As a standalone script which writes to a predetermined file:

#!/usr/bin/env perl -w

$, = "\n";

open(my $output, ">", "output.txt")
  or die "Cannot open output.txt: $!\n";

print $output sort map { chomp; $_ } <>;

close $output;