Hello John,
I don't understood the line in loop for the # in
variable arrow.
How It can to be used ?
Best regards,
Rodrigo
--- "John W. Krahn" <[EMAIL PROTECTED]> escreveu:
> Rodrigo Tavares wrote:
> > Hello,
>
> Hello,
>
> > I got make a script, see below :
> >
> > #!/usr/bin/perl
> >
> > use strict;
> > use warnings;
> >
> > print "Enter 5 digits: ";
> > my $digit = <STDIN>;
> >
> > my $cont = length($digit) - 1;
> > if ($cont > 5)
> > {
> > print "Only five digits ! \n"
> > }
> > else
> > {
> > my @arrow = split(//, $digit);
> > print "$arrow[0]\n";
> > print "$arrow[1],$arrow[1]\n";
> > print "$arrow[2],$arrow[2],$arrow[2]\n";
> > print
> "$arrow[3],$arrow[3],$arrow[3],$arrow[3]\n";
> > print
> >
>
"$arrow[4],$arrow[4],$arrow[4],$arrow[4],$arrow[4]\n";
> > }
>
> Or more simply as:
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
>
> print 'Enter 5 digits: ';
> ( my @arrow = <STDIN> =~ /\d/g ) == 5 or die "Only
> five digits !\n";
>
> for ( 0 .. $#arrow ) {
> print join( ',', ( $arrow[ $_ ] ) x ( $_ + 1 )
> ), "\n";
> }
>
> __END__
>
>
>
> John
> --
> Perl isn't a toolbox, but a small machine shop where
> you
> can special-order certain sorts of tools at low cost
> and
> in short order. -- Larry
> Wall
>
> --
> To unsubscribe, e-mail:
> [EMAIL PROTECTED]
> For additional commands, e-mail:
> [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
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/
