prix's Content
There have been 110 items by prix (Search limited from 24/04/2023)
#590871 Whois Em Perl
Posted by
on 28/05/2005, 16:49
in
CGI/Perl
#724566 Webmim
Posted by
on 28/03/2006, 12:18
in
Outros
http://www.webmin.com/screens.html
PS: nao recomendo nem comparo ele com outros admins especificos para administração de webhost como o cpanel ou helm pois nessa categoria o webmin nao se encaixa tao bem.
PS: nao recomendo nem comparo ele com outros admins especificos para administração de webhost como o cpanel ou helm pois nessa categoria o webmin nao se encaixa tao bem.
#618671 Web-mail
Posted by
on 27/07/2005, 13:53
in
Artigos, Dicas e Tutoriais de CGI/Perl
para este tipo de informação se ele leu ou nao voce tem q fazer uma verificação tipo apos ele entrar em uma determinada mensagem gerar um txt por exemplo:
id_do_email|lido
ai todos que tiverem id lido ele marca como lido e os outro como nao lido, seria algo do genero.
id_do_email|lido
ai todos que tiverem id lido ele marca como lido e os outro como nao lido, seria algo do genero.
#572933 Vencimento Mudar
Posted by
on 23/04/2005, 20:15
in
PHP
levando em conta q temos meses com 30 / 31 dias limitei-o para acabar no dia 30
basicamente eh o exemplo do justice porem ele pega o valor q estiver em $vencimento e adiciona 20 caso este valor seja 11 acima quando ele chegar em 30 ele automaticamente pula para 1.
<?
// DIA DO VENCIMENTO
$vencimento = 15;
echo "<select name=\"vencimento\">";
echo "<option value=\"$vencimento\" selected>$vencimento</option>";
for ($i=0; $i<=20; $i++) {
$vencimento++;
echo "<option value=\"$vencimento\">$vencimento</option>";
if ($vencimento >= 30) { $vencimento = 0; }
}
echo "</select>";
?>
neste caso ele adiciona 20 dias, mas se quiser somente 15 eh so mudar o:
for ($i=0; $i<=20; $i++) {
para
for ($i=0; $i<=15; $i++) {
nao sei se o justice faria como fiz mas eh um meio de chegar la.
basicamente eh o exemplo do justice porem ele pega o valor q estiver em $vencimento e adiciona 20 caso este valor seja 11 acima quando ele chegar em 30 ele automaticamente pula para 1.
<?
// DIA DO VENCIMENTO
$vencimento = 15;
echo "<select name=\"vencimento\">";
echo "<option value=\"$vencimento\" selected>$vencimento</option>";
for ($i=0; $i<=20; $i++) {
$vencimento++;
echo "<option value=\"$vencimento\">$vencimento</option>";
if ($vencimento >= 30) { $vencimento = 0; }
}
echo "</select>";
?>
neste caso ele adiciona 20 dias, mas se quiser somente 15 eh so mudar o:
for ($i=0; $i<=20; $i++) {
para
for ($i=0; $i<=15; $i++) {
nao sei se o justice faria como fiz mas eh um meio de chegar la.
#637369 Vejam O Novo Chatmaster !
Posted by
on 11/09/2005, 21:41
in
Artigos, Dicas e Tutoriais de CGI/Perl
estou sem hospedagem para este site temporariamente mas em breve devo re-colocar no ar.
#663733 Trocar Caracteres Por Outros Variavel
Posted by
on 22/11/2005, 19:31
in
CGI/Perl
$variavel =~ s/\w+/%20/g; # substitui tudo considerado de a-z A-Z 0-9 _ para %20
$variavel =~ s/\./%20/g; # substitui ponto por %20
$variavel =~ s/ /%20/g; # substitui espaço por %20
acho q dai você já pode formar o que deseja neh ?
vc pode tambem utilizar [a-d] por exemplo
para você tirar as consoantes voce tambem por fazer assim
$variavel =~ s/ga|go|gu|g/%20/g;
um exemplo com a G a | significa que se encontrar g ou ga ou go ou gu ele remove por %20
o G deve vir no final senao ele remove o g no inicio e nao remove o uqe da sentido ao mesmo.
$variavel =~ s/\./%20/g; # substitui ponto por %20
$variavel =~ s/ /%20/g; # substitui espaço por %20
acho q dai você já pode formar o que deseja neh ?
vc pode tambem utilizar [a-d] por exemplo
para você tirar as consoantes voce tambem por fazer assim
$variavel =~ s/ga|go|gu|g/%20/g;
um exemplo com a G a | significa que se encontrar g ou ga ou go ou gu ele remove por %20
o G deve vir no final senao ele remove o g no inicio e nao remove o uqe da sentido ao mesmo.
#579544 Tratar Erro, Como Faço?
Posted by
on 05/05/2005, 21:32
in
PHP
creio q ele queira algo para verificar se a url estafunciona...
se retornar 200 ta ok se retornar outra coisa tem algum problema, ai ele nao redireciona pro local q ele e diz q ta com problemas.
se retornar 200 ta ok se retornar outra coisa tem algum problema, ai ele nao redireciona pro local q ele e diz q ta com problemas.
#579694 Tratar Erro, Como Faço?
Posted by
on 06/05/2005, 04:45
in
PHP
entao nao sao ok ! e nao retornam 200 q eh certamente ok.Opa ...creio q ele queira algo para verificar se a url estafunciona...
se retornar 200 ta ok se retornar outra coisa tem algum problema, ai ele nao redireciona pro local q ele e diz q ta com problemas.
Complementando, o 200 é OK mesmo ... mas ... 301 e 302 também quer dizer que existe, mas o 301 significa que foi movido permanentemente e o 302 significa que foi movido temporariamente ...
Flw's, T+V!
=D
mas isso nao vem bem ao caso... o que eu tentei fazer foi so simplificar a duvida do companheiro para que fosse ajudado.
#622435 Tradução De Site
Posted by
on 04/08/2005, 23:19
in
CGI/Perl
Crie um arquivo .txt com todo o conteudo de textos padroes em uma lingua.
faça a leitura deles por linha exemplo:
entra aqui o $texto[123].
faça uma pesquisa por url no tradutor google usando lwp::simple
sendo a url o endereço do seu txt com todas as falas.
um exemplo:
"http://translate.goo...language_tools"
e salve como linguatal.txt
assim voce pode fazer um banco de dados de todas as linguas, que o google traduz automaticamente.
e esse processo so precisar ser feito 1 vez para gerar os novos bancos de dados a partir do seu banco principal.
apos ter feito isso faça um dropdown para selecionar a lingua desejada ou algo do tipo leia o diretorio onde tem os txt e adiciona as opçoes conforme o numero de txts.
exemplo tem 4 txts sendo eles
abc.portugues.txt
abc.ingles.txt
abc.jopones.txt
abc.espanhol.txt
ai cria um drop down com esses 4 sendo que voce pode filtrar o nome do arquivo e pegar somente o portugues, japoenes etc.
pronto a partir dai o seu sistema ira ler todas as linhas traduzidas na lingua seleciona.
$lingua = $form{'lingua'};
if $lingua eq 'japones' { require 'lingua.japones.txt'; }
faça a leitura deles por linha exemplo:
entra aqui o $texto[123].
faça uma pesquisa por url no tradutor google usando lwp::simple
sendo a url o endereço do seu txt com todas as falas.
um exemplo:
"http://translate.goo...language_tools"
e salve como linguatal.txt
assim voce pode fazer um banco de dados de todas as linguas, que o google traduz automaticamente.
e esse processo so precisar ser feito 1 vez para gerar os novos bancos de dados a partir do seu banco principal.
apos ter feito isso faça um dropdown para selecionar a lingua desejada ou algo do tipo leia o diretorio onde tem os txt e adiciona as opçoes conforme o numero de txts.
exemplo tem 4 txts sendo eles
abc.portugues.txt
abc.ingles.txt
abc.jopones.txt
abc.espanhol.txt
ai cria um drop down com esses 4 sendo que voce pode filtrar o nome do arquivo e pegar somente o portugues, japoenes etc.
pronto a partir dai o seu sistema ira ler todas as linhas traduzidas na lingua seleciona.
$lingua = $form{'lingua'};
if $lingua eq 'japones' { require 'lingua.japones.txt'; }
#717928 Trabalhando Com $$$ No Perl
Posted by
on 13/03/2006, 13:06
in
Banco de Funções CGI/Perl
Esse codigo torna todas as linhas acima meio inuteis ehhe
$total = sprintf("%.2f",($total + $preco));
$total = sprintf("%.2f",($total + $preco));
#688803 Sistema De Chat Que Informa
Posted by
on 15/01/2006, 02:41
in
Artigos, Dicas e Tutoriais de CGI/Perl
Não vc nao entendeu. nao disse q nao funciona, disse q nao mostra em tempo real.
pois quando o cara envia a mensagem eh q o sinal de escrevendo uma mensagem eh enviado...
com ajax ele poderia ser enviado em tempo real.
pois quando o cara envia a mensagem eh q o sinal de escrevendo uma mensagem eh enviado...
com ajax ele poderia ser enviado em tempo real.
#687936 Sistema De Chat Que Informa
Posted by
on 13/01/2006, 12:40
in
Artigos, Dicas e Tutoriais de CGI/Perl
Do jeito q esta ai ele so informa q esta digitando depois q envia ...
Não tem nem um ajax para trabalhar em real time enviando as informações...
o java script parece ok, para pegar o evento de estar digitando...
Mas o codigo não esta parecendo correto.
ja tentou ele com ajax ?
Não tem nem um ajax para trabalhar em real time enviando as informações...
o java script parece ok, para pegar o evento de estar digitando...
Mas o codigo não esta parecendo correto.
ja tentou ele com ajax ?
#637398 Sistema De Busca
Posted by
on 11/09/2005, 22:28
in
Artigos, Dicas e Tutoriais de CGI/Perl
bom isso eh referente a fatores de vinculos ou sem vinculos.
sao usados para comparações mais complexas.
por exemplo (do jeito que esta, ira resultar em diferente, se vc mudar o $variavel para teste, ira dar igual.):
porem se voce tirar o ~ que nem fez no =~ ele nao ira funcionar.
outro exemplo(neste exemplo a variavel sendo teste ele vira igual sendo outro valor ela nao se da por igual, e se voce colocar a variavel com o valor teste e tirar o ~ do =~ ele da diferente, logo o seu codigo esta errado:
Por que da errado ? por que ela inclui um valor extra na pesquisa um valor nao real que na comparação vira um erro.
sao usados para comparações mais complexas.
por exemplo (do jeito que esta, ira resultar em diferente, se vc mudar o $variavel para teste, ira dar igual.):
$variavel = 'asd';
print "Content-Type: text/html\n\n";
if ($variavel !~ /teste/i) {
print "diferente\n";
} else {
print "igual\n";
}
porem se voce tirar o ~ que nem fez no =~ ele nao ira funcionar.
outro exemplo(neste exemplo a variavel sendo teste ele vira igual sendo outro valor ela nao se da por igual, e se voce colocar a variavel com o valor teste e tirar o ~ do =~ ele da diferente, logo o seu codigo esta errado:
$variavel = 'asd';
print "Content-Type: text/html\n\n";
if ($variavel =~ /teste/i) {
print "igual\n";
} else {
print "diferente\n";
}
Por que da errado ? por que ela inclui um valor extra na pesquisa um valor nao real que na comparação vira um erro.
#637379 Sistema De Busca
Posted by
on 11/09/2005, 21:55
in
Artigos, Dicas e Tutoriais de CGI/Perl
incorreto, /$descr/i eh um fator para comparação , deve-se usar
ficando:
o erro ai eh que o ~ deve vir depois e nao antes do =
=~
ficando:
if($key2 =~ /$descr/i){o erro ai eh que o ~ deve vir depois e nao antes do =
#637684 Sistema De Busca
Posted by
on 12/09/2005, 16:24
in
Artigos, Dicas e Tutoriais de CGI/Perl
por que ele tenta fazer outro tipo de comparação.
no caso ($key2 = /$descr/i)
no caso ($key2 = /$descr/i)
#640162 Servidor Socket Pelo Cgi
Posted by
on 17/09/2005, 15:47
in
CGI/Perl
este esta em ingles mas mostra um inicio bem simples:
http://www.perlfect....s/sockets.shtml
nao vi nenhum em portugues mas se achar posto aqui.
http://www.perlfect....s/sockets.shtml
nao vi nenhum em portugues mas se achar posto aqui.
#578919 Scripts Cgi Rodam Em Qualquer Servidor?
Posted by
on 04/05/2005, 23:35
in
Servidores Linux
normalmente servidores linux ja vem com perl instala perl eh o programa q depura / interpreta o CGi.
Em plataformas windows vc tem q instalar o active perl.
No linux raramente tem q instalar ele pois vem em quase todos mas caso tenha basta pegar o pacote ou ir em www.perl.org e pegar o source
Em plataformas windows vc tem q instalar o active perl.
No linux raramente tem q instalar ele pois vem em quase todos mas caso tenha basta pegar o pacote ou ir em www.perl.org e pegar o source
#582137 Script Que Marca Exibições E Da Dinheiro
Posted by
on 11/05/2005, 09:09
in
Direitos Autorais
Basicamente creio q se aplica por ser quebra de informações voce estaria como voce mesmo disse burlando um site.
Nos EUA voce teria leis apra isso mas aqui no brasil as penas ainda sao baixas e nao se agregam ao assunto creio eu.
Aqui voce podera ver as leis q temos atualmente no brasil:
http://www.mct.gov.b...eis/Default.htm
relacionadas a internet
Nos EUA voce teria leis apra isso mas aqui no brasil as penas ainda sao baixas e nao se agregam ao assunto creio eu.
Aqui voce podera ver as leis q temos atualmente no brasil:
http://www.mct.gov.b...eis/Default.htm
relacionadas a internet
#719995 Script Não Soma Casa Decimais ...
Posted by
on 17/03/2006, 14:28
in
CGI/Perl
outros exemplos:
$inteiro = 5;
$parte = 2.5346;
$inteiro = 5;
$parte = 2.5346;
sprintf("%d", $inteiro); # imprime o numero inteiro
sprintf("%03d", $inteiro); # formata o numero em 3 casas a esquerda, 005
sprintf("%2.2f", $parte); # formata o numero em 2 casas a esquerda e 2 casas a direta
sprintf("%.2f", $parte); # formata o numero em 2 casas a esquerda e deixa como esta qualquer casa acima.
#717925 Script Não Soma Casa Decimais ...
Posted by
on 13/03/2006, 13:02
in
CGI/Perl
esse aqui entende:
$preco = '13.00';
$total = '1.20';
$total = sprintf("%.2f",($total + $preco));
e vc pode calcurar quantidades tambem...
$total = sprintf("%.2f",($preco_produto * $quantidade_produto));
$preco = '13.00';
$total = '1.20';
$total = sprintf("%.2f",($total + $preco));
e vc pode calcurar quantidades tambem...
$total = sprintf("%.2f",($preco_produto * $quantidade_produto));
#659845 Script Em Cgi
Posted by
on 10/11/2005, 13:22
in
CGI/Perl
eh com certeza nao eh problema mas se eu fizer isso nao vou ter o mesmo problema que vocÊ esta tendo, nao poderei identifciar o que e nao poderei te ajudar, quando vc quiser postar o que pedi eu voltarei para ajudar.
sem +
sem +
#659656 Script Em Cgi
Posted by
on 10/11/2005, 00:07
in
CGI/Perl
lei o meu primeiro post e responda ele para que eu possa ajuda-lo !!!
#659294 Script Em Cgi
Posted by
on 09/11/2005, 01:21
in
CGI/Perl
ele nao quer paginar ele disse que em algumas paginas alguns links aparecem errados, por isso quero ver uma parte dos arquivos q ele le, para poder ver o html e ver o q esta errado nas expressões q ele esta usando.
possivelmente o problema esta na regex mas tenho q ver o html pra ter certeza.
$line =~ s/..\/figuras/figuras/ig;
possivelmente o problema esta na regex mas tenho q ver o html pra ter certeza.
$line =~ s/..\/figuras/figuras/ig;
#659130 Script Em Cgi
Posted by
on 08/11/2005, 15:20
in
CGI/Perl
o toolkit para vc usar vc tera q ter conhecimento em perl
se o seu codigo esta funcionando normalmente com minimos erros post o que eu pedi q irei tentar lhe ajudar para fazer o mesmo funcionar
se o seu codigo esta funcionando normalmente com minimos erros post o que eu pedi q irei tentar lhe ajudar para fazer o mesmo funcionar
#658650 Script Em Cgi
Posted by
on 07/11/2005, 12:21
in
CGI/Perl
sera q voce pode postar um pedaço do conteudo do que eh lido
por exemplo do
open (menu_dir,"./pagina2.htm");
se puder por um poco de cada um seria melhor
e de preferencia as partes que aparecem o nome figuras
por exemplo do
open (menu_dir,"./pagina2.htm");
se puder por um poco de cada um seria melhor
e de preferencia as partes que aparecem o nome figuras
