more scalar stuff with type conversion and a touch of raw variable printing

cat-town
Dan Buch 14 years ago
parent cd4a9fd937
commit 160f4b2330

@ -0,0 +1,8 @@
#!/usr/bin/perl
my $forename = "John";
my $message = "Hello ";
print $message;
print $forename;
print "\n";

@ -1,9 +1,30 @@
#!/usr/bin/perl
use strict;
use warnings;
my $age = 30;
print "Hello $age year old.\n";
my $x = 10;
my $y = $x + 1;
print "Using a number $x + 1 = $y.\n";
$x = "10";
$y = $x + 1;
print "Using a string $x + 1 = $y.\n";
$x = "ten";
$y = $x + 1;
print "Using an English word, $x + 1 = $y.\n";
$x = "2ten";
$y = $x + 1;
print "Using a funny string, $x + 1 = $y.\n";
1;

Loading…
Cancel
Save