[Cascavel-pm] Hands-on via web

[igor em izut.com]

Novo snipet.

<code>
#!/usr/bin/perl

use Term::ReadLine;

my $term = Term::ReadLine->new('Perl Interactive Interpreter');
my $prompt = '>> ';
my $OUT = $term->OUT || \*STDOUT;

while (defined($_ = $term->readline($prompt))) {
  my $res = eval($_);
  warn $@ if $@;
  print $res, "\n" unless $@;
  $term->addhistory($_) if /\S/;
}
</code>

Exemplo de utilização:

[igor em pro-pae-5538 ~]$ perl ipl.pl
 >> @a = qw/1 2 3 4/;
4
 >> @a
4
 >> scalar @a
4
 >> print "@a"
1 2 3 41
 >> print $_ for (@a)
1234
 >> require Data::Dumper
1
 >> print Dumper \@a

 >> print Dumper \@main::a;

 >> print Data::Dumper::Dumper \@main::a;
$VAR1 = [
          '1',
          '2',
          '3',
          '4'
        ];
1


O maior problema é importar os símbolos que você digitar para o escopo
principal, mas alguém aí (Flávio?) deve saber como fazer isso de uma forma
fácil :)

Igor.


----------------------------------------------------------------
This message was sent using IMP, the Internet Messaging Program.