in reply to perl -pie "???"

I don't see any solutions yet that work if there's more than one file. Here's my entry: 
perl -ni -e 'print unless 1 .. 1; close ARGV if eof' file1 file2 file3
+ ...

[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

Replies are listed 'Best First'.
Re^2: perl -pie "???"
by Aristotle (Chancellor) on Aug 18, 2004 at 11:14 UTC 
    perl -0777 -pe's/^.*\n//' any number of files

    [download]

    This won't work correctly on files with a single line and no terminating newline, though. If that is a concern, the following is necessary:

    perl -0777 -pe's/^.*(?:\n|\z)//' any number of files

    [download]

    I really wish there was a metacharacter for "either newline or end of string" as the counterpart to $ — this isn't the first time it would have been handy.

    Makeshifts last the longest.

[reply]
[d/l]
[select]
[reply]
[d/l]

In Section Seekers of Perl Wisdom