"\!" appears on new line

[April]

print $wholething, $wholething2, "\!", "\n";

Thank you
!

How can I get them on the same line?

 

[Leon Timmermans]

print $wholething, $wholething2, "\!", "\n";

Thank you
!

How can I get them on the same line?

It prints on one line for me. Though I do wonder very much why you are
escaping the exclamation point.

Leon Timmermans

 

[April]

I tried sevral ways ... then it could be a bug? I'm using v5.8.8
built for MSWin32-x86-multi-thread (ActivePerl).

Just doing some exercises, thanks for your prompt response Leon!

 

[Peter Makholm]

print $wholething, $wholething2, "\!", "\n";

Thank you
!

How can I get them on the same line?

My guess is that $wholething2 have a newline at the end. Remove that
and it should work as you want it to.

//Makholm

 

[April]

here is a variation of the whole script, but does the same:

print "Enter a phrase and convert the first letter to upper case and
add a ! at end: ";
my $input = <STDIN>;
my $firststinput = uc( substr($input, 0, 1) );
print $firststinput, substr($input, 1), "\!", "\n";

does substr change to a new line?

 

[Peter Makholm]

print "Enter a phrase and convert the first letter to upper case and
add a ! at end: ";
my $input = <STDIN>;

Here you string will have an newline at the end. You'll have to chomp it.

my $firststinput = uc( substr($input, 0, 1) );
print $firststinput, substr($input, 1), "\!", "\n";

Uhmmm, and use ucfirst if that is what you need to do.

//Makholm

 

[April]

thanks, however after the recommended change the script hangs
forllowing keyboard entry:

#! c:\perl
print "Enter a phrase and convert the first letter to upper case and
add a ! at end: ";
my $input = <STDIN>;
chomp( $input = <STDIN> );
my $firststinput = ucfirst($input);
print $firststinput, substr($input, 1), "\!", "\n";


C:\Perl\Exercise1>perl new3-6d.pl
Enter a phrase and convert the first letter to upper case and add a !
at end: thank you

 

[April]

this one finally worked! thanks you two!

#! c:\perl
my $input;
print "Enter a phrase and convert the first letter to upper case and
add a ! at end: ";
chomp( $input = <STDIN> );
my $firststinput = ucfirst( $input );
print $firststinput, "\!", "\n";

 

[April]

That is because you are asking for another keyboard input.


chomp $input;

you are correct Scott, input & chomp, thanks!

 

[Tad J McClellan]

print $firststinput, "\!", "\n";

That is the same as

print "$firststinput!\n";

only easier to read and maintain.

 

[April]

this is more concise:

print "Enter a phrase and convert the first letter to upper case and
add a ! at end: ";
chomp( my $input = <STDIN> );
print ucfirst( $input ), "\!", "\n";

 

[John W. Krahn]

this is more concise:

print "Enter a phrase and convert the first letter to upper case and
add a ! at end: ";
chomp( my $input = <STDIN> );
print ucfirst( $input ), "\!", "\n";

TIMTOWTDI:

print "Enter a phrase and convert the first letter to upper case and add
a ! at end: ";
( my $input = <STDIN> ) =~ s/$/!/;
print "\u$input";



John

 

[sln]

TIMTOWTDI:

print "Enter a phrase and convert the first letter to upper case and add
a ! at end: ";
( my $input = <STDIN> ) =~ s/$/!/;
print "\u$input";



John

Whoa, this is a wild weazle..

sln

 

[April]

TIMTOWTDI:

print "Enter a phrase and convert the first letter to upper case and add
a ! at end: ";
( my $input = <STDIN> ) =~ s/$/!/;
print "\u$input";

John

wow thanks John!

 

[sln]

wow thanks John!

wOW, ITS ALL liKE garbaNZO beans...

sln

 

[Tim Greer]

print $wholething, $wholething2, "\!", "\n";

Thank you
!

How can I get them on the same line?

I assume that the $wholething2 variable has a new line in it, because it
should work. Why are you escaping \ the ! character? Are you running
this on the command line or something?

 

[Tim Greer]

I assume that the $wholething2 variable has a new line in it, because
it
should work. Why are you escaping \ the ! character? Are you running
this on the command line or something?

Disregard my reply, I didn't see your follow up posts until after I had
replied. Looks like you understand the issue now.