«

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

Thank you
!

How can I get them on the same line?

On Fri, 10 Oct 2008 06:07:31 -0700, April wrote:

> 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

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!

On Oct 10, 9:12*am, Leon Timmermans <faw...@gmail.com> wrote:
> On Fri, 10 Oct 2008 06:07:31 -0700, April wrote:
> > 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 <> writes:

> 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

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?


On Oct 10, 9:22*am, Peter Makholm <pe...@makholm.net> wrote:
> April <xiaoxia20...@yahoo.com> writes:
> > 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 <> writes:

> 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

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





On Oct 10, 9:42*am, Peter Makholm <pe...@makholm.net> wrote:
> April <xiaoxia20...@yahoo.com> writes:
> > 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

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";


On Oct 10, 9:53*am, April <xiaoxia20...@yahoo.com> wrote:
> 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
>
> On Oct 10, 9:42*am, Peter Makholm <pe...@makholm.net> wrote:
>
>
>
> > April <xiaoxia20...@yahoo.com> writes:
> > > 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- Hide quoted text -
>
> - Show quoted text -

On Oct 10, 10:10*am, Scott Bryce <sbr...@scottbryce.com> wrote:
> April wrote:
> > thanks, however after the recommended change the script hangs
> > following keyboard entry:
>
> That is because you are asking for another keyboard input.
>
> > #! 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> );
>
> chomp $input;

you are correct Scott, input & chomp, thanks!

April <> wrote:

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


That is the same as

print "$firststinput!\n";

only easier to read and maintain.


--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"