23 lines
452 B
Perl
23 lines
452 B
Perl
#!c:\perl\bin
|
|
|
|
$string1="Perl ";
|
|
$string2="is the No 1 Web language!";
|
|
|
|
# Here are the separate strings:
|
|
|
|
print "\n\nHere is the value of \$string1\n\n";
|
|
print $string1;
|
|
|
|
print "\n\n";
|
|
print "Here is the value of \$string2\n\n";
|
|
print $string2;
|
|
|
|
print "\n\n";
|
|
|
|
# now you concatenate the separate strings:
|
|
$joinedstring=$string1 . $string2;
|
|
|
|
print "And now here is the value of \$joinedstring\n\n";
|
|
print "$joinedstring \n\n";
|
|
|
|
|