[solved] - perl változó változó értéke
Szervusztok!
Először is a tárgyat próbálnám kifejteni, lehet hogy van jobb megfogalmazás rá, röviden nekem most így sikerült, bocs!
Amennyiben javasoltok jobbat cserélem. ;)
Szeretnék egy debug felületet készíteni a perl tákolmányomhoz, ami a globális változókat meg tudná jeleníteni úgy, hogy a nevét ha beírom, megmutatná az értékét.
Gondoltam beolvasom egy readline-al, megcsonkolom egy chomp-al, majd amennyiben van ilyen, akkor vissza adom az értékét.
Az utolsó mozdulat nem megy, pontosabban csak részlegesen,mert pl. az ORS-re, valamint az RS pl. működni látszik.
Miképp lehet ilyet készíteni?
Most itt tartok:
#!/usr/bin/perl
#use strict;
use utf8;
use locale;
use English;
use warnings;
$ORS="\n";
my $c=0;
my $test = qq/happy/;
my $line = "";
while(1)
{
$c++;
$line = readline(*STDIN);
if(defined $line) {
if($line =~ /^exit$/){exit;}
chomp $line;
printf("->%s-<\n",${$line}); #RS, ORS, stb-re működik!
}
}
Köszönöm előre is!
Üdv,
vf
- Tovább ([solved] - perl változó változó értéke)
- 5572 megtekintés