delete last row in PERL

Shell Programming and Scripting
1

How to delete last row in the file in PERL.

file1 has

a.output
b.output
c.output
d.output
e.output

expected output is

a.output
b.output
c.output
d.output
2 
perl -ne '{push @x, $_}END{pop(@x); print @x}' file1
1 Like