Fiz uma página que aparecerá dentro de um iframe. Essa tal página os dados são incluídos por cgi através de um formulário, porém os novos dados são impressos abaixo do antigo. Como eu faço para inverter essa ordem e os mais novos entrarem na parte superior?
(exemplo: está como nos fotologs, o post recente fica abaixo dos outros, eu queria o contrário)
Trocar A Ordem
Started By COWBOY_4ever, 21/04/2004, 19:43
13 replies to this topic
#1
COWBOY_4ever
-
- Usuários
-
- 483 posts
Rodeio Universitário
- Sexo:Masculino
- Localidade:Estado do Rio de Janeiro
- Interesses:Mulheres, dinheiro e bebidas.
Posted 21/04/2004, 19:43
| COWBOY_4ever
|
| ====================================
| Cavalo eu puxo no toco, burro eu puxo no morão.
| Gosto de whisky, mas a cerveja é minha paixão.
| Sou gamado na loira, mas da morena eu não largo não!
| ----------------------------------------------------------------
|
| ====================================
| Cavalo eu puxo no toco, burro eu puxo no morão.
| Gosto de whisky, mas a cerveja é minha paixão.
| Sou gamado na loira, mas da morena eu não largo não!
| ----------------------------------------------------------------
#3
Gabriel
-
- Usuários
-
- 573 posts
CGI & PHP até Morre!!!!
- Sexo:Não informado
- Localidade:Santo Andre-SP
- Interesses:http://www.divulgue-me.com
Posted 22/04/2004, 17:40
use o reverte
exemplo
open(AA,"aa.txt");
@aa=reverse(AA);
close(AA);
abraços
exemplo
open(AA,"aa.txt");
@aa=reverse(AA);
close(AA);
abraços
Editado pela equipe Forum Wmo, favor ler as regras.
#4
Whitesnake
Whitesnake
-
- Visitantes
Posted 22/04/2004, 22:06
aff credo! issu ta errado!use o reverte
exemplo
open(AA,"aa.txt");
@aa=reverse(AA);
close(AA);
abraços
Pra especificar um nome de arquivo deve inclui-lo entre <>
Agora sim, usando sort :
open(EXEMPLO,"exemplo.txt");
@a=<EXEMPLO>;
close(EXEMPLO);
print (sort {$0 cmp $1} @a);
#5
prix
-
- Usuários
-
- 562 posts
Duracell: E Duram, Duram, Duram...
- Sexo:Não informado
-
Interesses:keep walking ...
jonny walker
Posted 23/04/2004, 21:26
veja aqui sobre a função reverse
Errado nao esta nao pois a pessoa realmente por usar
print reverse <AA>;
e eh ate um jeito simples de se fazer isso.
o sort deve ser usado quando vc quer classficar os dados por algum caractere, assim alem de organizar vc pode distinguir os itens.
Errado nao esta nao pois a pessoa realmente por usar
print reverse <AA>;
e eh ate um jeito simples de se fazer isso.
o sort deve ser usado quando vc quer classficar os dados por algum caractere, assim alem de organizar vc pode distinguir os itens.
print join'',(reverse map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;
E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.
#7
prix
-
- Usuários
-
- 562 posts
Duracell: E Duram, Duram, Duram...
- Sexo:Não informado
-
Interesses:keep walking ...
jonny walker
Posted 25/04/2004, 17:57
a sim hauahuua desculpa...
Vo aproveita esse topico apesar que vc nem deve ler ele ... pq ta respondendo tudo eheh e fazendo um otimo serviço aqui ehhe...
So queria dizer parabens msm =D
[]´s
PS: eu to entrando menos esses dias a facul aqui ta meio apertado mas entro todo dia ... so estou respondendo o que vc ja nao respondeu =D
Vo aproveita esse topico apesar que vc nem deve ler ele ... pq ta respondendo tudo eheh e fazendo um otimo serviço aqui ehhe...
So queria dizer parabens msm =D
[]´s
PS: eu to entrando menos esses dias a facul aqui ta meio apertado mas entro todo dia ... so estou respondendo o que vc ja nao respondeu =D
print join'',(reverse map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;
E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.
#8
Whitesnake
Whitesnake
-
- Visitantes
Posted 25/04/2004, 18:42
hehehe vlw! Tava sentindo sua falta aki mano prix
#9
COWBOY_4ever
-
- Usuários
-
- 483 posts
Rodeio Universitário
- Sexo:Masculino
- Localidade:Estado do Rio de Janeiro
- Interesses:Mulheres, dinheiro e bebidas.
Posted 01/05/2004, 22:42
Pessoal..
nada feito. Tentei colocando esse reverse e a ordem não mudou... talvez eu tenha colocado no lugar errado, mas acho que não.
De qualquer forma se puderem ajudar estou colocando o código completo abaixo:
nada feito. Tentei colocando esse reverse e a ordem não mudou... talvez eu tenha colocado no lugar errado, mas acho que não.
De qualquer forma se puderem ajudar estou colocando o código completo abaixo:
#!perl
$creditos = "0";
$quad = "../quad.gif";
$endereco = "intitutojx.tripod.com";
$arquivo = "noticias.cgi";
if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value;} if($ENV{'QUERY_STRING'} eq ''){&inserirtexto;} if ($ENV{'QUERY_STRING'} eq 'news'){ &news; } if ($ENV{'QUERY_STRING'} eq 'inserirtexto'){ &grava; } sub inserirtexto{ print <<EOT
Content-type: text/html\n\n
<html><head><link href="../style_ijx.css" rel="stylesheet" type="text/css"></head><body bgcolor="#F6F7F1"><form method="POST" action=$arquivo?inserirtexto><p align="center"><b>Editar Notícias</b></p><p>Título<br><input name="titulo" type="text" class="box" size="35"><br><br>Texto<br><textarea name="texto" cols="60" rows="10" class="box"></textarea><br><br><input name="submit" type="submit" class="butt" value="Enviar Noticia"></p></form></body></html>
EOT
} sub creditos{ if ($creditos eq '1'){ print ""; }else{ print ''; } } sub news{ open(NOTICIAS, "noticias.lv"); @texto = <NOTICIAS>; close(NOTICIAS); print <<EOT
Content-type: text/html\n\n
<html><head><link href="../style_ijx.css" rel="stylesheet" type="text/css"></head><body bgcolor="#F6F7F1" style="{ SCROLLBAR-FACE-COLOR: #f5f7f1; SCROLLBAR-HIGHLIGHT-COLOR: #f5f7f1; SCROLLBAR-SHADOW-COLOR: #d0cec1; SCROLLBAR-3DLIGHT-COLOR: #d0cec1; SCROLLBAR-ARROW-COLOR: #d0cec1; SCROLLBAR-TRACK-COLOR: #f5f7f1; SCROLLBAR-DARKSHADOW-COLOR: #f5f7f1 }"><p align="center"><b>NOTÍCIAS</b></p><p align="left">@texto</p><p align="center"> </p></td></body></html>
EOT
} $credito = &creditos; sub grava{ open(NOTICIAS, ">>noticias.lv"); print NOTICIAS "<img src=$quad> <b>$FORM{'titulo'}</b><br><br>$FORM{'texto'}<p></p>"; close(NOTICIAS); &news; }
| COWBOY_4ever
|
| ====================================
| Cavalo eu puxo no toco, burro eu puxo no morão.
| Gosto de whisky, mas a cerveja é minha paixão.
| Sou gamado na loira, mas da morena eu não largo não!
| ----------------------------------------------------------------
|
| ====================================
| Cavalo eu puxo no toco, burro eu puxo no morão.
| Gosto de whisky, mas a cerveja é minha paixão.
| Sou gamado na loira, mas da morena eu não largo não!
| ----------------------------------------------------------------
#10
Whitesnake
Whitesnake
-
- Visitantes
Posted 02/05/2004, 12:31
Prontinho usando sort (q ninguem boto fé! huahuahua)...
a função sort lê linha por linha e exibe os dados conforme o pedido....
só que este seu script não grava notícias linha por linha.... ele já grava em html, adicionando <br>, então teria que modificar o script de modo que ele grave uma notícia em cada linha.... as modificações q fiz são as em vermelho, além da troca de EOT por qq:
a função sort lê linha por linha e exibe os dados conforme o pedido....
só que este seu script não grava notícias linha por linha.... ele já grava em html, adicionando <br>, então teria que modificar o script de modo que ele grave uma notícia em cada linha.... as modificações q fiz são as em vermelho, além da troca de EOT por qq:
#!perl
$creditos = "0";
$quad = "../quad.gif";
$endereco = "intitutojx.tripod.com";
$arquivo = "noticias.cgi";
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value;}
if($ENV{'QUERY_STRING'} eq ''){&inserirtexto;} if ($ENV{'QUERY_STRING'} eq 'news'){
&news;
} if ($ENV{'QUERY_STRING'} eq 'inserirtexto'){
&grava;
}
sub inserirtexto{
print qq|
Content-type: text/html\n\n
<html><head><link href="../style_ijx.css" rel="stylesheet" type="text/css"></head><body bgcolor="#F6F7F1">
<form method="POST" action=$arquivo?inserirtexto><p align="center"><b>Editar Notícias</b></p><p>Título<br>
<input name="titulo" type="text" class="box" size="35"><br><br>Texto<br>
<textarea name="texto" cols="60" rows="10" class="box"></textarea><br><br>
<input name="submit" type="submit" class="butt" value="Enviar Noticia"></p></form></body></html>
|;
}
sub creditos{ if ($creditos eq '1'){ print ""; }else{ print ''; } }
sub news{ open(NOTICIAS, "noticias.lv");
@texto = <NOTICIAS>; close(NOTICIAS); print qq|
Content-type: text/html\n\n
<html><head><link href="../style_ijx.css" rel="stylesheet" type="text/css"></head>
<body bgcolor="#F6F7F1" style="{ SCROLLBAR-FACE-COLOR: #f5f7f1; SCROLLBAR-HIGHLIGHT-COLOR: #f5f7f1; SCROLLBAR-SHADOW-COLOR: #d0cec1; SCROLLBAR-3DLIGHT-COLOR: #d0cec1; SCROLLBAR-ARROW-COLOR: #d0cec1; SCROLLBAR-TRACK-COLOR: #f5f7f1; SCROLLBAR-DARKSHADOW-COLOR: #f5f7f1 }">
<p align="center"><b>NOTÍCIAS</b></p><p align="left">
|;
@b = sort {$b cmp $a} @texto;
print @b;
print qq|</p><p align="center"> </p></td></body></html> |;
}
$credito =
&creditos;
sub grava{ open(NOTICIAS, ">>noticias.lv");
print NOTICIAS "<img src=$quad> <b>$FORM{'titulo'}</b><br><br>$FORM{'texto'}<p></p>\n"; close(NOTICIAS); &news;
}
#11
COWBOY_4ever
-
- Usuários
-
- 483 posts
Rodeio Universitário
- Sexo:Masculino
- Localidade:Estado do Rio de Janeiro
- Interesses:Mulheres, dinheiro e bebidas.
Posted 02/05/2004, 14:30
Muito fera... deram certas as suas modificações! O sort funcionou.
Só tirei o Content-type: text/html\n\n, pq estava aparecendo na página.
Valeu mesmo!!! Brigadão
Só tirei o Content-type: text/html\n\n, pq estava aparecendo na página.
Valeu mesmo!!! Brigadão
| COWBOY_4ever
|
| ====================================
| Cavalo eu puxo no toco, burro eu puxo no morão.
| Gosto de whisky, mas a cerveja é minha paixão.
| Sou gamado na loira, mas da morena eu não largo não!
| ----------------------------------------------------------------
|
| ====================================
| Cavalo eu puxo no toco, burro eu puxo no morão.
| Gosto de whisky, mas a cerveja é minha paixão.
| Sou gamado na loira, mas da morena eu não largo não!
| ----------------------------------------------------------------
#12
prix
-
- Usuários
-
- 562 posts
Duracell: E Duram, Duram, Duram...
- Sexo:Não informado
-
Interesses:keep walking ...
jonny walker
Posted 02/05/2004, 19:20
Aqui vai com o reverse:
#!perl
$creditos = "0";
$quad = "../quad.gif";
$endereco = "intitutojx.tripod.com";
$arquivo = "noticias.cgi";
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value;}
if($ENV{'QUERY_STRING'} eq ''){&inserirtexto;} if ($ENV{'QUERY_STRING'} eq 'news'){
&news;
} if ($ENV{'QUERY_STRING'} eq 'inserirtexto'){
&grava;
}
sub inserirtexto{
print qq|
Content-type: text/html\n\n
<html><head><link href="../style_ijx.css" rel="stylesheet" type="text/css"></head><body bgcolor="#F6F7F1">
<form method="POST" action=$arquivo?inserirtexto><p align="center"><b>Editar Notícias</b></p><p>Título<br>
<input name="titulo" type="text" class="box" size="35"><br><br>Texto<br>
<textarea name="texto" cols="60" rows="10" class="box"></textarea><br><br>
<input name="submit" type="submit" class="butt" value="Enviar Noticia"></p></form></body></html>
|;
}
sub creditos{ if ($creditos eq '1'){ print ""; }else{ print ''; } }
sub news{ open(NOTICIAS, "noticias.lv");
@texto = reverse<NOTICIAS>; close(NOTICIAS); print qq|
Content-type: text/html\n\n
<html><head><link href="../style_ijx.css" rel="stylesheet" type="text/css"></head>
<body bgcolor="#F6F7F1" style="{ SCROLLBAR-FACE-COLOR: #f5f7f1; SCROLLBAR-HIGHLIGHT-COLOR: #f5f7f1; SCROLLBAR-SHADOW-COLOR: #d0cec1; SCROLLBAR-3DLIGHT-COLOR: #d0cec1; SCROLLBAR-ARROW-COLOR: #d0cec1; SCROLLBAR-TRACK-COLOR: #f5f7f1; SCROLLBAR-DARKSHADOW-COLOR: #f5f7f1 }">
<p align="center"><b>NOTÍCIAS</b></p><p align="left">
|;
print @texto;
print qq|</p><p align="center"> </p></td></body></html> |;
}
$credito =
&creditos;
sub grava{ open(NOTICIAS, ">>noticias.lv");
print NOTICIAS "<img src=$quad> <b>$FORM{'titulo'}</b><br><br>$FORM{'texto'}<p></p>\n"; close(NOTICIAS); &news;
}
print join'',(reverse map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;
E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.
#13
COWBOY_4ever
-
- Usuários
-
- 483 posts
Rodeio Universitário
- Sexo:Masculino
- Localidade:Estado do Rio de Janeiro
- Interesses:Mulheres, dinheiro e bebidas.
Posted 04/05/2004, 09:10
Valeu prix!
Ah.. como eu faria para imprimir a data/hora da postagem?
Ah.. como eu faria para imprimir a data/hora da postagem?
| COWBOY_4ever
|
| ====================================
| Cavalo eu puxo no toco, burro eu puxo no morão.
| Gosto de whisky, mas a cerveja é minha paixão.
| Sou gamado na loira, mas da morena eu não largo não!
| ----------------------------------------------------------------
|
| ====================================
| Cavalo eu puxo no toco, burro eu puxo no morão.
| Gosto de whisky, mas a cerveja é minha paixão.
| Sou gamado na loira, mas da morena eu não largo não!
| ----------------------------------------------------------------
#14
prix
-
- Usuários
-
- 562 posts
Duracell: E Duram, Duram, Duram...
- Sexo:Não informado
-
Interesses:keep walking ...
jonny walker
Posted 04/05/2004, 11:30
vc tem que salvar a data e hora de postagem no arquivo.
print join'',(reverse map{/d([a-z])d/}split/W/,'$5x6@314&60f%3i4#moo^1r2#moo^1p2')," ", pack ("B*",'01110000011001010111001001101100')," ", pack ("B*",'011011010110111101101110011010110110010101111001'), "n";
sleep 5;
E-Mails, topicos ou mensagens privadas não serão respondidas a menos que eu considere uma relevancia/necessidade na mesma.
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
