Re^2: perl one liner to print a line

4 chars shorter:

perl -ne'print,last,if$.==4'
     12345678901234567890123  23
[download]

Update: 5 chars shorter:

perl -nlE'say,last,if$.==4'
     1234567890123456789012  22
[download]

Comment on Re^2: perl one liner to print a line Select or Download Code

Replies are listed 'Best First'.
Re^3: perl one liner to print a line by jwkrahn (Abbot) on Dec 12, 2008 at 07:17 UTC
`perl -ne'4..4&&print'` [download]	[reply] [d/l]
Re^4: perl one liner to print a line by ikegami (Patriarch) on Dec 12, 2008 at 07:28 UTC
Not equivalent. We spent many chars exiting after four lines. I still have you beat anyway.	[reply]
Re^3: perl one liner to print a line by mr_mischief (Monsignor) on Dec 12, 2008 at 15:07 UTC
I can save another character if we reintroduce whitespace: `perl -ne'$.-4or print,last'` [download] or almost identically: `perl -ne'$.<4or print,last'` [download] Update: `perl -nlE'$.<4or say,last' 123456789 123456789 1 21` [download]	[reply] [d/l] [select]