Hello,
In my first lesson, not extist split.
And without split ?
There is a mode more simple ?
Best regards,
Rodrigo Faria
--- Rodrick Brown <[EMAIL PROTECTED]> escreveu:
> On 7/27/07, Rodrigo Tavares
> <[EMAIL PROTECTED]> wrote:
> > Hello,
> >
> > How I can to make this program, where the variable
> is
> > enter though <STDIN>, how separete the digits ?
> >
> use split
>
> >
> > Exercice
> > 01)Write a program than user type five digits,
> > separates the individual digits of number, and
> print
> > the five digits time five, the four digit four
> times,
> > thus for ahead.
> >
>
> #!/usr/bin/perl -w
> use strict;
> use warnings;
>
> print "Enter a digit: ";
> my $digit = int(<STDIN>);
> print map { next unless $_ =~ /^\d+$/; $_ * $_,"\n"
> } split//,$digit;
>
> > Best regards,
> >
> > Rodrigo Faria
> >
> >
> >
> >
> >
> > Alertas do Yahoo! Mail em seu celular. Saiba
> mais em http://br.mobile.yahoo.com/mailalertas/
> >
> > --
> > To unsubscribe, e-mail:
> [EMAIL PROTECTED]
> > For additional commands, e-mail:
> [EMAIL PROTECTED]
> > http://learn.perl.org/
> >
> >
> >
>
>
> --
> Rodrick R. Brown
> http://www.rodrickbrown.com
>
Flickr agora em português. Você cria, todo mundo vê.
http://www.flickr.com.br/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
