Help for this page

Select Code to Download


  1. or download this
    23:50 >perl -wE "my ($var1, $var2) = ('Hi', 'Hello'); $_ .= ' world' f
+or $var1, $var2; say qq[$var1, $var2];"
Hi world, Hello world

23:53 >
  2. or download this
    use strict;
use warnings;
...
@vars = map { $_ . ' ' . shift(@suffixes) . '!' } @vars;

print join(', ', @vars), "\n";
  3. or download this
     0:06 >perl 923_SoPW.pl
Hi there!, Hello world!, Greetings earthlings!

 0:06 >