Input/Output for lines of text: Difference between revisions
Added Perl example
Thundergnat (talk | contribs) m (→{{header|C}}: Remove vanity tags) |
SqrtNegInf (talk | contribs) (Added Perl example) |
||
Line 420:
return 0;
}</lang>
=={{header|Perl}}==
<lang perl>$n = scalar <>;
do_stuff(scalar <>) for 1..$n;
sub do_stuff { print $_[0] }</lang>
=={{header|Perl 6}}==
|