[Cascavel-pm] linguagem perl+ms-dos

Ivo Peixinho ivocarv em cais.rnp.br
Terça Julho 4 09:00:37 PDT 2006


   Acho que ele fez muito na pressa :) na verdade o <A> era pra ser <F>, 
referencia ao handle que foi definido no open.

      Ivo.

open (ARQ,"arquivo"); # Onde "arquivo"  o arquivo que deve ser lido

while ($linha=<ARQ>) {

 	system("c:\windows\system32\prnmngr.vbs -ac -p $linha");
}

close (ARQ);

On Tue, 4 Jul 2006, fabio nery wrote:

> Ola Thomas,
>
>  Onde vc ta lendo a linha do arquivo e inserindo na variavel $linha, preciso pegar cada linha do arquivo aberto e colocar na variavel, no pascal tem a funçao Readln(F,linha), neste codigo que me passou onde isto é feito e o qual o significado do parametro <A>?
>
>  Valeu,
>
>  Fabio
>
> Thomas Britis <thomas em tcnet.com.br> escreveu:
>  open (F, "arquivo") # Onde "arquivo" é o arquivo que deve ser lido.
> while ($linha = <A> ) { # Le cada linha colocando na variavel $linha
> system ("$linha"); # Faz uma chamada de sistema a partir da variavel $linha
> }
> close (F); # Fecha o arquivo "arquivo"
>
> fabio nery wrote:
>> Ola Ivo,
>>
>> E mais ou menos isso, olha o codigo em pascal :
>>
>> //inicio-codigo
>> Begin
>>
>> Assign(file,NomeAuto);
>> Reset(file); //abre o arquivo para leitura;
>> While not eof(file) do begin //enquanto nao for o final do arquivo
>> Readln(file,linha); //le do arquivo e desce uma linha. O conteúdo
>> lido é transferido para a variável linha
>>
>> //aqui deve chamar o comando do DOS e passar o parametro linha
>> //comando a ser passado ; cscript c:\windows\system32\prnmngr.vbs
>> -ac -p linha
>> End;
>> Closefile(f);
>> End.
>>
>> //fim-codigo
>>
>>
>> Valeu,
>>
>> Fabio
>>
>> */Ivo Peixinho /* escreveu:
>>
>>
>>
>> Nao sei se e' exatamente o que voce quer, mas:
>>
>> open(ARQ,"/caminho/do/arquivo");
>>
>> while() {
>>
>> system("/caminho/comando/ms-dos $_");
>> }
>>
>> Ou se voce quer armazenar o resultado, voce pode trocar o system por:
>>
>> @resut=`/caminho/comando/ms-dos $_`;
>>
>> Ivo.
>>
>> On Tue, 4 Jul 2006, fabio nery wrote:
>>
>>> Ola a todos,
>>>
>>> Gostaria de uma ajuda do grupo com um problema que estou tendo,
>> quero ler um arquivo e guardar cada linha lida em uma variavel e
>> depois chamar um comando ms-dos e passar esta variavel como
>> parametro para o comando ms-dos, tem como fazer isto em perl? Espero
>> sinceramente que possam me ajudar.
>>>
>>> Obrigado a todos,
>>>
>>> Fabio
>>>
>>>
>>> ---------------------------------
>>> Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o
>> discador agora!_______________________________________________
>> Cascavel-pm mailing list
>> Cascavel-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/cascavel-pm
>>
>>
>> ------------------------------------------------------------------------
>> Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu
>> celular. Registre seu aparelho agora!
>>
>>
>>
>>
>> ------------------------------------------------------------------------
>>
>> _______________________________________________
>> Cascavel-pm mailing list
>> Cascavel-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> -- 
> Thomas Storino Britis
> TCNet Informatica e Telecomunicacoes LTDA
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
>
> ---------------------------------
> Yahoo! Search
> Música para ver e ouvir: You're Beautiful, do James Blunt


Mais detalhes sobre a lista de discussão Cascavel-pm