http://qs321.pair.com?node_id=198884

Hello *

A few minutes ago a colleague of mine asked me if *NIX had a command that could be easily used to delete the 32nd line from a bunch of file. awk, sed and cat (and some combinations of them) came to mind, but I preferred a full Perl approach:

perl -i.bak -ne 'print unless ++$i == 32' filename

But since TIMTOWTDI, how would you do the same with a one liner (and, if you want to use modules, using only modules in bundle with perl)?

Ciao!
--bronto

# Another Perl edition of a song:
# The End, by The Beatles
END {
  $you->take($love) eq $you->made($love) ;
}