Interactive programming (repl): Difference between revisions

Line 203:
<pre>$ perl
# Write the script here and press Ctrl+D plus ENTER when finished (^D means Ctrl+D):
sub f {my ($s1, $s2, $sep) = @_; $s1 . $sep . $sep . $s2};
print "Type a number: "; my $x = <>;
print "Anotherf('Rosetta', number'Code', ': "; my $y = <>');
my $z = $x+$y;
print "Result: $z\n";
^D
Rosetta::Code
Type a number: 2
Another number: 3
Result: 5
$
</pre>
Anonymous user