<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman, new york, times, serif;font-size:12pt"><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">Hum.. oks :)<br>meu problema eh o seguinte<br>se o arquvo vier<br>abc<br><br>e o outro vier<br>ab<br>cd<br><br>eles deveriam pegar.. mas do jeito q fiz nao pega pq ele pega o \n<br>e eu preciso do \n para manter a formatacao original<br><br><br>eu fiz assim:<br><br><br>while( $arquivos = <*.teste> ) <br>{<br><br> open(FH, "<$arquivos") or die("Unable to open file");<br><br> my $campo1;<br> my $campo2;<br> my $teste1;<br> my $teste2;<br> <br> my $cont; <br> <br> while(($caracteratual = getc(FH)) ne "") <br> {<br><br>
<br> <br> $campo1=$teste1;<br> $campo2=$teste2;<br> <br> $teste1=$caracteratual;<br> $teste2=$campo1;<br> <br> if(($campo2=~ /^\cA/) && ($campo1=~ /^\cB/) && ($caracteratual=~ /^\cC/) )<br> {<br> print
"INICIO\n";<br> }<br> <br>.<br>.<br>.<br>.<br>.<br><br>alguma sugestao?? :D<br><br>Obrigada<br><br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">----- Mensagem original ----<br>De: Thomas Britis <thomas@tcnet.com.br><br>Para: Cascavel Perl Mongers <cascavel-pm@pm.org><br>Enviadas: Quinta-feira, 17 de Janeiro de 2008 18:02:52<br>Assunto: Re: [Cascavel-pm] Res: Res: Res: Ler Arquivo bin<br><br>o chomp() não funcionou pois vc lê caracter por caracter.<br><br>Patty Silva wrote:<br>> Nao adiantou :)<br>> fiz: next if ($caracteratual =~ /\n/);<br>> <br>> assim funcionou... nao sei o pq..<br>> <br>> ----- Mensagem original ----<br>> De: Daniel ® Antunes <<a ymailto="mailto:danielrantunes@yahoo.com.br"
href="mailto:danielrantunes@yahoo.com.br">danielrantunes@yahoo.com.br</a>><br>> Para: Cascavel Perl Mongers <<a ymailto="mailto:cascavel-pm@pm.org" href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>><br>> Enviadas: Quinta-feira, 17 de Janeiro de 2008 17:43:56<br>> Assunto: [Cascavel-pm] Res: Res: Ler Arquivo bin<br>> <br>> Utilize a função chomp()<br>> <br>> Daniel ® Antunes<br>> /profissional de informática/<br>> ///gnu/linux user/ #238553<br>> <br>> <br>> ----- Mensagem original ----<br>> De: Patty Silva <<a ymailto="mailto:ptfzs@yahoo.com.br" href="mailto:ptfzs@yahoo.com.br">ptfzs@yahoo.com.br</a>><br>> Para: Cascavel Perl Mongers <<a ymailto="mailto:cascavel-pm@pm.org" href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>><br>> Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:15:35<br>> Assunto: [Cascavel-pm] Res: Ler Arquivo bin<br>> <br>>
Pessoal.. estou quase conseguindo :)<br>> <br>> fiz de uma maneira q ele quarda os 3 ultimos bytes lidos..<br>> so uma duvida:<br>> teho o arquivo..<br>> abc<br>> abc<br>> abcd<br>> <br>> ele me retorna<br>> a<br>> b<br>> c<br>> <br>> a<br>> b<br>> c<br>> <br>> a<br>> b<br>> c<br>> d<br>> <br>> Como faco para ele nao ler o <ENTER><br>> ja tentei fazer com expressao regular.. nada ...<br>> <br>> Obrigada<br>> <br>> <br>> <br>> ----- Mensagem original ----<br>> De: Patty Silva <<a ymailto="mailto:ptfzs@yahoo.com.br" href="mailto:ptfzs@yahoo.com.br">ptfzs@yahoo.com.br</a>><br>> Para: Cascavel Perl Mongers <<a ymailto="mailto:cascavel-pm@pm.org" href="mailto:cascavel-pm@pm.org">cascavel-pm@pm.org</a>><br>> Enviadas: Quinta-feira, 17 de Janeiro de 2008 15:03:38<br>> Assunto: [Cascavel-pm] Ler Arquivo bin<br>> <br>> Pessoal.. gostaria
de alguma sugestao de vcs...<br>> <br>> Estou lendo um arquivo em binario e lendo byte a byte..<br>> preciso recuperar trechos do programa:<br>> <br>> ex:<br>> <br>> <br>> while(my $arquivos = <*.bin> )<br>> {<br>> <br>> open(FH, "<$arquivos") or die("Unable to open file");<br>> <br>> while((my $caracter = getc(FH)) ne "")<br>> {<br>> print "CARACTER $caracter\n"; <br>> }<br>> }<br>> <br>> Obs: nao sei se tem metodos melhores.. mas q encontrei foi esse<br>> porem no arquivo tenho varias coisas e gostaria de recuperar os dados
q <br>> estao entre<br>> os caracteres ^D^C^C e ^A^A^C tudo q tiver entre isso preciso
gravar..<br>> <br>> o pq ler byte a byte.. para identificar a seguencia pq ex ^A pode
estar <br>> na linha de cima e ^A^C na linha de baixo<br>> e nao basta ler linha a linha<br>> <br>> Obrigada Pessoal :D<br>> <br>> <br>> <br>>
------------------------------------------------------------------------<br>> Abra sua conta no Yahoo! Mail <br>>
<<a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/" target="_blank">http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/</a>>, <br>> o único sem limite de espaço para armazenamento!<br>> <br>> <br>>
------------------------------------------------------------------------<br>> Abra sua conta no Yahoo! Mail <br>>
<<a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/" target="_blank">http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/</a>>, <br>> o único sem limite de espaço para armazenamento!<br>> <br>> <br>>
------------------------------------------------------------------------<br>> Abra sua conta no Yahoo! Mail <br>>
<<a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/" target="_blank">http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/</a>>, <br>> o único sem limite de espaço para armazenamento!<br>> <br>> <br>>
------------------------------------------------------------------------<br>> Abra sua conta no Yahoo! Mail <br>>
<<a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/" target="_blank">http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/</a>>, <br>> o único sem limite de espaço para armazenamento!<br>> <br>> <br>>
------------------------------------------------------------------------<br>> <br>> _______________________________________________<br>> Cascavel-pm mailing list<br>> <a ymailto="mailto:Cascavel-pm@pm.org" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>> <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br><br>-- <br>Thomas Storino Britis<br>TCNet Informatica e Telecomunicacoes LTDA<br>_______________________________________________<br>Cascavel-pm mailing list<br><a ymailto="mailto:Cascavel-pm@pm.org" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></div><br></div></div><br>
<hr size=1>Abra sua conta no <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/">Yahoo! Mail</a>, o único sem limite de espaço para armazenamento!
</body></html>