[Cascavel-pm] Hands-on via web
igor em izut.com
igor em izut.com
Sexta Abril 28 11:45:03 PDT 2006
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.
Mais detalhes sobre a lista de discussão Cascavel-pm