starface245 has asked for the wisdom of the Perl Monks concerning the following question: 

#!/usr/local/bin/perl
use strict;
use warnings;
my ($userinput1, $userinputer2);
$userinput1 = <STDIN>;  #first name
$userinput2 = <STDIN>;  #last name
print "Hello $userinput1_$userinput2";

[download]
Basically the code does not work right now because of the underscore. I need to have the underscore there. The display I want is Hello John_Stane

Replies are listed 'Best First'.
Re: Multiple Input help
by kennethk (Abbot) on Feb 04, 2011 at 20:15 UTC
    Your issue is arising because the first variable Perl is trying to interpolate is read as $userinput1_. You can avoid this issue by wrapping your variable name in curly brackets: 

    #!/usr/local/bin/perl
use strict;
use warnings;
my ($userinput1, $userinput2);
$userinput1 = <STDIN>;  #first name
$userinput2 = <STDIN>;  #last name
print "Hello ${userinput1}_$userinput2";

    [download]

    Note I fixed a typo in your variable names. As well, given your intended output, you likely want to chomp your inputs: 

    #!/usr/local/bin/perl
use strict;
use warnings;
my ($userinput1, $userinput2);
chomp($userinput1 = <STDIN>);  #first name
chomp($userinput2 = <STDIN>);  #last name
print "Hello ${userinput1}_$userinput2";

    [download]
[reply]
[d/l]
[select]
[reply]
Re: Multiple Input help
by toolic (Bishop) on Feb 04, 2011 at 20:19 UTC
    Another way is to separate the variables: 
    use warnings;
use strict;

my ($userinput1, $userinput2);
$userinput1 = <STDIN>;  #first name
chomp $userinput1;
$userinput2 = <STDIN>;  #last name
print "Hello $userinput1", '_', $userinput2;

    [download]
    • I also fixed your typo: $userinputer2
    • You need to chomp to get rid of the newline
[reply]
[d/l]
[select]
Re: Multiple Input help
by moritz (Cardinal) on Feb 04, 2011 at 20:23 UTC
[reply]
[d/l]
Re: Multiple Input help
by chuckbutler (Monsignor) on Feb 04, 2011 at 20:31 UTC

    You can also escape the underscore by placing a backslash in front of it: 

    .
.
.
print "Hello $userinput1\_$userinput2";
.
.
.

    [download]

    Good Luck. -c

[reply]
[d/l]
Re: Multiple Input help
by starface245 (Novice) on Feb 10, 2011 at 16:17 UTC
    Thanks for all the input and using chomp works perfectly. Thanks again.
[reply]
Re: Multiple Input help
by pavunkumar (Scribe) on Feb 05, 2011 at 05:51 UTC 
     Try  This....  


     
print "Hello $userinput1"."_"."$userinput2";

    [download]
[reply]
[d/l]

Back to Seekers of Perl Wisdom