Re: [FUGSPBR] [OT] Alguémsabe PERL por aí?

[Renato Botelho]

Não sei se eu entendi direito, você quer pegar o número que está no nome do
arquivo? se for isso voce pode fazer o seguinte

@files = glob("/tmp/.X[0-9]*-lock");

$files[1] =~ m/.X([0-9]+)-lock/i;
$displayNumber = $1;
$displayNumber++;

isso deve funcionar

[]s

Renato

----- Original Message ----- 
From: "Alexandre Mioranza" <alexandre.mioranza em varig.com>
To: <fugspbr em fugspbr.org>
Sent: Thursday, April 24, 2003 8:32 AM
Subject: [FUGSPBR] [OT] Alguémsabe PERL por aí?


> Preciso alterar um script em perl e não estou conseguindo, me falta
experiência na linguagem, e preciso disto meio urgente se alguém poder me
ajudar com alguma documentação ou me mostar como fazer para alterar o
código. Vou transcrevê-lo abaixo para demonstrar o que preciso fazer:
>
> >>>>>>>>>>> Inicio codigo
>
> $displayNumber = 1;
> $geometry = "800x600";
> $depth = 24;
> $desktopName = "X";
> $vncUserDir = "$ENV{HOME}/.vnc";
> $xauthorityFile = "$ENV{XAUTHORITY}" || "$ENV{HOME}/.Xauthority";
>
> >>>>>>>>>> Fim do código
>
> Enfim o que quero mudar é algo estúpido mas não conheço alinguagem para
poder fazê-lo, o que eu preciso é tornar a variável $displyNumber dinâmica e
não fixa, ele vai pegar o número do display através do arquivo
.X<num_display>-lock que é um arquivo que está localzado em /tmp
incrementado em + 1.
>
> Se alguém poder me ajudar eu agradeço.
> _______________________________________________________________
> Sair da Lista: http://www2.fugspbr.org/mailman/listinfo/fugspbr
> Historico: http://www4.fugspbr.org/lista/html/FUG-BR/
>

_______________________________________________________________
Sair da Lista: http://www2.fugspbr.org/mailman/listinfo/fugspbr
Historico: http://www4.fugspbr.org/lista/html/FUG-BR/