Pessoal,

Estou usando o seguinte comando para ver a data no servidor,
como eu faco para ver a data com 4 digitos?

Obrigado,

Eugenio


$date_command = "/usr/bin/date";
$date = `$date_command +"%D %T %Z"`;

print $date;



Carlos Eugênio Moreira de Santana
..
Internetmídia Publicidade e Informática Ltda
São Paulo - (011) 5011-9062

Pesoal,

Por que quando tento passar um parametro atraves de:

<!--#exec cgi="/cgi-bin/teste.pl?i=teste" -->

ocorre erro?

Se eu tirar ?i=teste ai tudo bem!

??

Obrigado,

Eugenio

Carlos Eugênio Moreira de Santana
..
Internetmídia Publicidade e Informática Ltda
São Paulo - (011) 5011-9062

Pq o perl não lê a primeira linha do arquivo? =(
Fiz este teste simples e continua não dando certo.

C:\>perl script.pl
a linha 2 do arquivo é 'bli bli'.

#!/usr/bin/perl
#script.pl
$b = 2; #linha desejada do arquivo
open(ARQ, "<arq.txt"); #abrir arquivo
@arq = <ARQ>; #pegar conteudo do arquivo
$a = "0"; #contador
foreach $linha (@arq) { #para cada linha do arquivo
  chop($linha); #tira o 'enter'
  if ($b == $a) { #se a linha desejada for igual ao contador
   print "a linha $b do arquivo é: '$linha'.\n"; #imprimir a linha
  }
  $a++; #incrementar contador
}
close(ARQ); #fechar arquivo

#arq.txt
bla bla
ble ble
bli bli
blo blo
blu blu

Agradeço a qualquer ajuda,

_______________________
Francisco Lopes
UIN: 17364815
Email: falmp@...

----------
: From: Francisco Lopes <falmp@...>
: To:
: Cc: Antoniomarcos <perl@...>; perlbr@onelist.com;
perl@...
: Subject: [perlbr] Linha 1 existe???
: Date: Friday, December 03, 1999 7:59 PM
:
: From: "Francisco Lopes" <falmp@...>
:
: Pq o perl não lê a primeira linha do arquivo? =(
: Fiz este teste simples e continua não dando certo.
:
: C:\>perl script.pl
: a linha 2 do arquivo é 'bli bli'.

O codigo q voce mandou tá com um erro de logica..... Se voce colocou o
valor de a como 0 e incrementa depois do if .... a primeira linha do
arquivo vai ser 0 a segunda 1 e a terceira 2.... o programa nao tá pulando
a primeira a linha, mas tá contando ela como zero....

	 []'s

	 Tenchi
	 Rodolfo Sampaio

Alguem se lembra que planejamos fazer um script de Teste, pois e' me
sobrou um tempo agora, e estou me dedicando a isso agora, estou fazendo
utilizando arquivo ascii mesmo, o problema e' o seguinte:
O arquivo de perguntas esta feito desta maneira:
Pergunta|Opcao1|Opcao2|....|Resposta Certa|Explicacao da questao
O problema esta na hora de embaralhar as questoes, para nao ter sempre a
mesma ordem, e embaralhar sem repitir a pergunta, alguem tem nocao de como
posso fazer isso??


Abracos
Marcio Silva
Linux Reg User
UIN: 19721237
http://www.perlbr.com.br

Já que tocou no assunto, alguém teria a url daquele teste para me passar?

Obrigado,

_______________________
Francisco Lopes
UIN: 17364815
Email: falmp@...



-----Mensagem Original-----
De: Marcio Silva <marcio@...>
Para: <perlbr@onelist.com>
Enviada em: Sexta-feira, 3 de Dezembro de 1999 22:27
Assunto: [perlbr] Projeto Teste..


> From: Marcio Silva <marcio@...>
>
> Alguem se lembra que planejamos fazer um script de Teste, pois e' me
> sobrou um tempo agora, e estou me dedicando a isso agora, estou fazendo
> utilizando arquivo ascii mesmo, o problema e' o seguinte:
> O arquivo de perguntas esta feito desta maneira:
> Pergunta|Opcao1|Opcao2|....|Resposta Certa|Explicacao da questao
> O problema esta na hora de embaralhar as questoes, para nao ter sempre a
> mesma ordem, e embaralhar sem repitir a pergunta, alguem tem nocao de como
> posso fazer isso??
>
>
> Abracos
> Marcio Silva
> Linux Reg User
> UIN: 19721237
> http://www.perlbr.com.br
>
> >

Como fazer a ação do 'if' em perl? =)

Tenho como exemplo:

open(ARQ,">>$file");
@arq = <ARQ>;
foreach $linha (@arq) {
     chop($linha);
     ($var1,$var2) = split(/\|/,$linha);
     if ($var2 eq "blá blá") {
         #se $var2 for igual a 'blá blá' apague está linha
     }
}
close(ARQ);

Agradeço a qualquer ajuda.

_______________________
Francisco Lopes
UIN: 17364815
Email: falmp@...

> Alguem se lembra que planejamos fazer um script de Teste, pois e' me
> sobrou um tempo agora, e estou me dedicando a isso agora, estou
> fazendo utilizando arquivo ascii mesmo, o problema e' o seguinte: O
> arquivo de perguntas esta feito desta maneira:
> Pergunta|Opcao1|Opcao2|....|Resposta Certa|Explicacao da questao O
> problema esta na hora de embaralhar as questoes, para nao ter sempre a
> mesma ordem, e embaralhar sem repitir a pergunta, alguem tem nocao de
> como posso fazer isso??

		 srand;
   		 while (@perguntas) {
        		 push(@embaralhadas, splice(@perguntas, rand
@perguntas, 1));
		 }

    Onde:

     @perguntas = lista original de perguntas (que serah apagada)
     @embaralhadas = lista de perguntas em ordem aleatoria



Goncalves
joseneto@...

Pessoal,

A rotina abaixo verifica o codigo 001 e imprime o total
sucessivamente para todos os registros correspondentes
de @codigo contudo existe um problema:

Sempre que surge um codigo novo, entao eu preciso adicionar um if else para
funcionar.

Como eu poderia fazer para eliminar a cadeia de if else desta rotina de tal
forma que se @codigo aumentar eu consiga uma comparacao e exibicao dos
totais sem precisar acrescentar mais um if?

Muito Obrigado,


sub totais {

$total =0;
@codigo = ("001", "002", "003");
open (VER, "TESTE.TXT") || die ("Arquivo $view nao existe");
@b = <VER>;
close(VER);

             foreach $item (@b) {

                  if ($item == "$codigo[0]") {
                      $total++;
                     }
                  if ($item == "$codigo[1]") {
                      $total2++;
                     }
                 if ($item == "$codigo[2]") {
                     $total3++;
                     }
         }

print "$total\n";
print "$total2\n";
print "$total3\n";
}

Carlos Eugênio Moreira de Santana
..
Internetmídia Publicidade e Informática Ltda
São Paulo - (011) 5011-9062

----------
: From: Eugênio <phoenix@...>
: To: perlbr@onelist.com; perl-br@...
: Subject: [perlbr] foreach
: Date: Saturday, December 04, 1999 4:56 PM
:
: From: =?iso-8859-1?Q?Eug=EAnio?= <phoenix@...>
:
:
:
: Pessoal,
:
: A rotina abaixo verifica o codigo 001 e imprime o total
: sucessivamente para todos os registros correspondentes
: de @codigo contudo existe um problema:
:
: Sempre que surge um codigo novo, entao eu preciso adicionar um if else
para
: funcionar.
:
: Como eu poderia fazer para eliminar a cadeia de if else desta rotina de
tal
: forma que se @codigo aumentar eu consiga uma comparacao e exibicao dos
: totais sem precisar acrescentar mais um if?

	 La vai uma solucao mais simples, mas ainda longe da ideal....

@codigo = ("001", "002", "003");
$arquivo = "teste";
open (ARQ,$arquivo);
@arquivo = <ARQ>;
foreach $linha (@arquivo) {
	 for ($i=0; $i<=$#codigo; $i++) {
		 if ($linha eq $codigo[$i]) {
			 $total[$i]++;
		 }
	 }
}
close(ARQ);

	 []'s

	 Rodolfo Sampaio

Ok, e' disso que preciso mesmo Jose, mas e' certo que nao vai haver
perguntas iguais???

Abracos
Marcio Silva
Linux Reg User
UIN: 19721237
http://www.perlbr.com.br


On Sat, 4 Dec 1999, Jose Goncalves Neves Neto wrote:

> From: "Jose Goncalves Neves Neto" <joseneto@...>
>
> > Alguem se lembra que planejamos fazer um script de Teste, pois e' me
> > sobrou um tempo agora, e estou me dedicando a isso agora, estou
> > fazendo utilizando arquivo ascii mesmo, o problema e' o seguinte: O
> > arquivo de perguntas esta feito desta maneira:
> > Pergunta|Opcao1|Opcao2|....|Resposta Certa|Explicacao da questao O
> > problema esta na hora de embaralhar as questoes, para nao ter sempre a
> > mesma ordem, e embaralhar sem repitir a pergunta, alguem tem nocao de
> > como posso fazer isso??
>
> 	 srand;
>    	 while (@perguntas) {
>         	 push(@embaralhadas, splice(@perguntas, rand
> @perguntas, 1));
> 	 }
>
>    Onde:
>
>     @perguntas = lista original de perguntas (que serah apagada)
>     @embaralhadas = lista de perguntas em ordem aleatoria
>
>
>
> Goncalves
> joseneto@...
>
> >

> Ok, e' disso que preciso mesmo Jose, mas e' certo que nao vai haver
> perguntas iguais???

> > 	 srand;
> >    	 while (@perguntas) {
> >         	 push(@embaralhadas, splice(@perguntas, rand
> > @perguntas, 1));
> > 	 }

    Explicando a linha chave:

rand @perguntas = numero aleatorio entre 0 e numero de itens em
@perguntas - 1

    Entao splice(@perguntas, rand @perguntas,1) = retirar de
@perguntas a partir do item rand @perguntas 1 item e esta funcao
retorna o valor removido

    Entao o valor retornardo pelo splice (o q foi removido de
@perguntas) eh adicionado a @embaralhadas

    Assim, a cada iteracao um item eh removido de um array e
colocado no outro, entao nao pode haver duas perguntas
duplicadas (a nao ser q elas estivessem duplicadas no array
original) pois uma vez colocada no @embaralhadas ela eh
removida de @perguntas e portanto nao pode ser mais escolhida.

     Eu nao testei, mas pode testar q deve funcionar

    PS: o srand eh para inicializar corretamente a sequencia de
numeros aleatorios, senao a sequencia serah sempre a mesma




Goncalves
joseneto@...

Pessoal,

Por que,quando eu chamo a rotina abaixo nao funciona?

Preciso mudar a linha abaixo?

print "Content-type: text/html\n\n";


sub shtml {
print >> "shtml";
<html>
<!--#include virtual="/lalalalalala -->
</html>
shtml
}



Carlos Eugênio Moreira de Santana
..
Internetmídia Publicidade e Informática Ltda
São Paulo - (011) 5011-9062

Olá pessoal, eu gostaria de saber se alguém sabe de algum script em
perl para um serviço de troca de banners.
         Obrigado pela atenção

         []'s Fernando
         fernandojr@...



__________________________________________________
Do You Yahoo!?
Thousands of Stores.  Millions of Products.  All in one place.
Yahoo! Shopping: http://shopping.yahoo.com

Pergunta besta.

Esqueci o comando que desabilita o cache das paginas
alguem pode me lembrar?

alguma coisa a ver com Pragma:

Muito Obrigado,

Eugenio

Carlos Eugênio Moreira de Santana
..
Internetmídia Publicidade e Informática Ltda
São Paulo - (011) 5011-9062

>        Olá pessoal, eu gostaria de saber se alguém sabe de algum script em
>perl para um serviço de troca de banners.

Olá, dê uma olhada em http://www.cgi-resources.com  e procure por Web
Adverts, o melhor que existe atualmente, ao meu ver.
Abraços
Márcio Silva
Linux Reg User
UIN: 19721237
http://www.perlbr.com.br

Concordo com o Marcio, o WebAdverts é muito bom!
Ele é o mais usado nos sistemas de banners exchanges.

http://www.cgi-resources.com

_______________________
Francisco Lopes
UIN: 17364815
Email: falmp@...



-----Mensagem Original-----
De: Fernando <promessas@...>
Para: <perlbr@onelist.com>
Enviada em: Segunda-feira, 6 de Dezembro de 1999 11:49
Assunto: [perlbr] banner


> From: "Fernando" <promessas@...>
>
>         Olá pessoal, eu gostaria de saber se alguém sabe de algum script
em
> perl para um serviço de troca de banners.
>         Obrigado pela atenção
>
>         []'s Fernando
>         fernandojr@...
>
>
>
> __________________________________________________
> Do You Yahoo!?
> Thousands of Stores.  Millions of Products.  All in one place.
> Yahoo! Shopping: http://shopping.yahoo.com
>
> >

Se não me engano, é:

<meta http-equiv="Pragma" content="no-cache">

Algo assim.

_______________________
Francisco Lopes
UIN: 17364815
Email: falmp@...



-----Mensagem Original-----
De: Eugênio <phoenix@...>
Para: <perlbr@onelist.com>; <perl-br@...>
Enviada em: Segunda-feira, 6 de Dezembro de 1999 12:28
Assunto: [perlbr] CACHE


> From: =?iso-8859-1?Q?Eug=EAnio?= <phoenix@...>
>
>
>
> Pergunta besta.
>
> Esqueci o comando que desabilita o cache das paginas
> alguem pode me lembrar?
>
> alguma coisa a ver com Pragma:
>
> Muito Obrigado,
>
> Eugenio
>
> Carlos Eugênio Moreira de Santana
> ..
> Internetmídia Publicidade e Informática Ltda
> São Paulo - (011) 5011-9062
>
> >

o correto eh utilizar
   print <<shtml;
em lugar de :
   print >> "shtml";


Filipe Silva
fndt@...
6010243

vc poderia tentar isso aki:

open(ARQ,"$file");
@arq = <ARQ>;
close(ARQ);
open(ARQ,">$file");
foreach $linha (@arq) {
     @linha1 = @linha;
     chop($linha1);
     ($var1,$var2) = split(/\|/,$linha1);
     if ($var2 ne "blá blá") {
       #se $var2 diferente de blá blá , gravar linha no arquivo
       print ARQ $linha;
     }
}
close(ARQ);

Filipe Silva
fndt@...
6010243

> From: "Francisco Lopes" <falmp@...>
>
> Como fazer a ação do 'if' em perl? =)
>
> Tenho como exemplo:
>
> open(ARQ,">>$file");
> @arq = <ARQ>;
> foreach $linha (@arq) {
>     chop($linha);
>     ($var1,$var2) = split(/\|/,$linha);
>     if ($var2 eq "blá blá") {
>         #se $var2 for igual a 'blá blá' apague está linha
>     }
> }
> close(ARQ);
>
> Agradeço a qualquer ajuda.
>
> _______________________
> Francisco Lopes
> UIN: 17364815
> Email: falmp@...
>
> >

Ae pessoal!

Ateh agora nao descobri nenhum programa que faca isso que estou
querendo.... eis oque estou precisando!
Existe  algum programa que eu possa rodar meus scripts perl no meu micro
como se fosse um servidor? Algum programa tipo o Virtual Web Server da
Microsoft ( soh q esse roda somente .asp ).

Valewsss!



[]´s

€==€==€==€==€==€==€==
Italo Roldo
italo@...
ICQ#: 10879777
ZOOPWEB
www.zoopweb.com

Claro q sim!
Vc precisa ter um servidor pessoal e o interpretador do perl.

ActivePerl: http://www.activestate.com
WebServer: http://www.download.com (faz uma busca pq tem vários)

Obs: como web server eu uso o xitami e funciona legal!

Abraços,

_______________________
Francisco Lopes
UIN: 17364815
Email: falmp@...



-----Mensagem Original-----
De: Italo Roldo <italo@...>
Para: <perlbr@onelist.com>
Enviada em: Terça-feira, 7 de Dezembro de 1999 21:13
Assunto: [perlbr] Interacao Perl+Windows


> From: Italo Roldo <italo@...>
>
> Ae pessoal!
>
> Ateh agora nao descobri nenhum programa que faca isso que estou
> querendo.... eis oque estou precisando!
> Existe  algum programa que eu possa rodar meus scripts perl no meu micro
> como se fosse um servidor? Algum programa tipo o Virtual Web Server da
> Microsoft ( soh q esse roda somente .asp ).
>
> Valewsss!
>
>
>
> []´s
>
> ?==?==?==?==?==?==?==
> Italo Roldo
> italo@...
> ICQ#: 10879777
> ZOOPWEB
> www.zoopweb.com
>
> >

Eu quero criar um banco de dados com nomes e senhas de usuarios.

como eu uso o crypt() para encriptar uma nova senha?

obrigado

Filipe Silva
fndt@...
6010243

Eu tb estava procurando saber como funciona esta função crypt(), e olhando
uns cgis aqui prontos que contém esta função, deu para perceber como que
funciona mais ou menos.
Vale lembrar q onde está 'teste', seria a chave da encriptação, e lá vc
poderia colocar qualquer coisa.
O prog abaixo foi feito apenas como teste, e foi feito para rodar no DOS ou
em TELNET.

#!/usr/bin/perl
#Exemplo de crypt
print "O que vc deseja fazer?\n";
print "- Setar senha (Opcao 1)\n";
print "- Verificar senha (Opcao 2)\n";
print "Opcao: ";
$opcao = <STDIN>;
chop($opcao);
if ($opcao == 1) {
print "Escolha uma senha:\n";
$senha = <STDIN>;
chop($senha);
$senha_crypt = crypt($senha, teste);
open(PASSWORD, ">password.txt");
print PASSWORD "$senha_crypt\n";
close(PASSWORD);
print "Senha setada com sucesso.\n";
} elsif ($opcao == 2) {
print "Digite a senha para verificacao:\n";
$senhadigitada = <STDIN>;
chop($senhadigitada);
$senhadigitada_crypt = crypt($senhadigitada, teste);
open(PASSWORD, "password.txt");
$senha_crypt = <PASSWORD>;
chop($senha_crypt);
close(PASSWORD);
if ($senha_crypt eq $senhadigitada_crypt) {
print "A senha digitada esta correta.\n";
} else {
print "A senha digitada esta errada.\n";
}
} else {
print "Opcao desconhecida\n";
}

Abraços e tomara que vc tenha entendido.
Caso tenha alguma dúvida, grite. =)

_______________________
Francisco Lopes
UIN: 17364815
Email: falmp@...



-----Mensagem Original-----
De: Filipe Silva <>
Para: <perlbr@onelist.com>
Enviada em: Quarta-feira, 8 de Dezembro de 1999 20:49
Assunto: [perlbr] nova senha com Crypt


> From: "Filipe Silva" <fndt@...>
>
> Eu quero criar um banco de dados com nomes e senhas de usuarios.
>
> como eu uso o crypt() para encriptar uma nova senha?
>
> obrigado
>
> Filipe Silva
> fndt@...
> 6010243
>
> >

Pessoal,

Por que, quando a rotina abaixo eh executado via console ocorre o seguinte
erro? (Esta rotina obrigatoriamente precisa ser executada via console,
porque é um processamento automático ocorre a cada x tempo.)

A mensagem de erro do servidor:

queuename: Cannot create "qfKAA27163" in "/var/spool/mqueue" (euid=12455):
Permission denied

Existe outra forma de enviar um e-mail via perl? como eu faria para usar o
comando (mail) do unix para enviar um e-mail ao invez do sendmail se for o
caso?


Rotina que gera essa falha.

$mailprog = "/usr/home/local/bin/sendmail";
$login2="LOCAL";
mailto:$email2="phoenix\@internetmidia.com.br;
$owner = "phoenix\@internetmidia.com.br";
$ownername = "IMIDIA";
open (MAIL, "|$mailprog $email2") || die "Erro \nPor favor envie me um
e-mail $owner, Obrigado.\n";
print MAIL "From: $ownername <$owner>\n";
print MAIL "Reply-to: $owner\n";
print MAIL "To: $login2 <$email2> \n";
print MAIL "Subject: $registro - $psdata\n";
print MAIL "$ownername\n";
close (MAIL);


Muito Obrigado,
Carlos Eugênio Moreira de Santana
..
Internetmídia Publicidade e Informática Ltda
São Paulo - (011) 5011-9062

Algém sabe se é possível detectar a resolucão de um monitor com Perl?

Muito Obrigado,


Carlos Eugênio Moreira de Santana
..
Internetmídia Publicidade e Informática Ltda
São Paulo - (011) 5011-9062

É possível pegar um valor gerado em um javascript e passar para um programa
em perl?

# tento pegar o valor de resolution e enviar para o cgi da erro!

##
<!--#include virtual="/cgi-bin/index.pl?id=resolution()-->
##


<script language="JavaScript1.2">
<!--
function resolution() {
document.writeln("" + screen.width + "x" + screen.height +"");
}
//-->

</script>
  </head>

<body>

<script>
resolution()
</script>


#nao funciona, nao consigo pegar o valor de resolution e enviar para o cgi.

<!--#include virtual="/cgi-bin/index.pl?id=resolution()-->

Carlos Eugênio Moreira de Santana
..
Internetmídia Publicidade e Informática Ltda
São Paulo - (011) 5011-9062

>From: =?iso-8859-1?Q?Eug=EAnio?=


>É possível pegar um valor gerado em um javascript e
>passar para um programa
>em perl?

># tento pegar o valor de resolution e enviar para o
>cgi da erro!

>##
>##

Aqui vai uma forma de fazer isso:
Maiores detalhes consulte:
http://developer.irt.org/script/5604.htm

Até mais,
Décio Jr.

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
var firstname = 'Jason';   //  JavaScript variable
containing firstname

  var URL =
eval('http://www.server.com/cgi-bin/script.pl?firstname='
+ firstname);

  document.location.href = URL;
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-

__________________________________________________
Do You Yahoo!?
Thousands of Stores.  Millions of Products.  All in one place.
Yahoo! Shopping: http://shopping.yahoo.com

Pessoal obrigado!!!!!

Francisco Lopes,

Muito Obrigado!!!

Arrumei um tutorial de LiveScript estudei um pouco e descobri como resolver
o meu problema. O problema era que eu nao conseguia guardar em uma variavel
o resultado de um cálculo que me informava a resolucao do monitor.
Resolvi o problema.
A solucao eh :
Quando o cliente acessa a pagina o LiveScript ou (JS) detecta a resolucao
do monitor dele e envia esssa informacao para um programa em perl que
redireciona para a página correta. (todas as resolucoes incluindo as do MAC).
Ponto negativo:
Teho que fazer 6 modelos diferentes para cada pg.



At 19:40 14/12/1999 -0200, you wrote:
>Pq não usar uma solução JS mesmo?
>
>Abraços,
>
>_______________________
>Francisco Lopes
>UIN: 17364815
>Email: falmp@...

Carlos Eugênio Moreira de Santana
..
Internetmídia Publicidade e Informática Ltda
São Paulo - (011) 5011-9062

Alguém conhece algum cgi (free ou não), para usar em um provedor,
para gerenciar a criação de páginas pessoais? Que automatize o
processo
de criar contas de ftp, criar diretórios, etc....

Obrigado,
Dimas Kotvan