Re: perl one liner to print a line

YAWTDI, this time with no whitespace in the source:

perl -e '{$_=<>;$.<4?redo:print}'
[download]

That really does look kinda like line noise. I wouldn't recommend that for serious work, of course.

Comment on Re: perl one liner to print a line Download Code

Replies are listed 'Best First'.
Re^2: perl one liner to print a line by ikegami (Patriarch) on Dec 12, 2008 at 04:20 UTC
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]	[reply] [d/l] [select]
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]