<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
<font style="font-size: 12pt;" face="Arial" size="3">Consegui, mais ou menos aqui, apesar da grande ajuda que tive aqui e no Forum-Invaders,</font><font style="font-size: 12pt;" face="Arial" size="3"><br></font><font style="font-size: 12pt;" face="Arial" size="3">ainda sim fui eu que fiz, portanto entendi muita coisa.</font><font style="font-size: 12pt;" face="Arial" size="3"><br></font><font style="font-size: 12pt;" face="Arial" size="3"><br></font><font style="font-size: 12pt;" face="Arial" size="3">Contudo ainda tem me voltado um erro na hora de executar, apesar de gerar a saida como o desejado</font><font style="font-size: 12pt;" face="Arial" size="3"><br></font><font style="font-size: 12pt;" face="Arial" size="3">aparece alguns prints desnecessarios.</font><font style="font-size: 12pt;" face="Arial" size="3"><br></font><font style="font-size: 12pt;" face="Arial" size="3"><br></font><font style="font-size: 12pt;" face="Arial" size="3">exemplo #11, #20, #26 aprarecem duas vezes, na primeira vez como deveria ser</font><font style="font-size: 12pt;" face="Arial" size="3"><br></font><font style="font-size: 12pt;" face="Arial" size="3">na segunda sem nada, conferi os dados, saem todos corretos, mas quando o trabalho</font><font style="font-size: 12pt;" face="Arial" size="3"><br></font><font style="font-size: 12pt;" face="Arial" size="3">do script é 0 ($work = 0), ele continua printando o dado.</font><font style="font-size: 12pt;" face="Arial" size="3"><br></font><font style="font-size: 12pt;" face="Arial" size="3"><br></font><font style="font-size: 12pt;" face="Arial" size="3">se alguem puder dar uma lida e tenta me ajudar como resolver esse encomodo...</font><font style="" face="Arial"><br></font><br>[CODE]<br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">#!/usr/bin/perl</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">use common::sense;</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">my $work = 0;</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">my $count = 0;</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">my $lastline = /[A-Za-z]/;</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">foreach my $line(<DATA>){</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> chop($line);</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> if($work == 1){</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> $line =~ /(.+),\s+(.+)$/;</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> </font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> if($1 eq ($lastline x 3)){</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> $work = 0;</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> $count--;</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> </font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> }</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> </font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> my @contents= split(/\s/, $2);</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> </font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> </font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> my ( @first, @second );</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> foreach (@contents){</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> my ($first, $second) = /(\d{2})(\d{2})/;</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> push(@first, int($first));</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> push(@second, int($second));</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> }</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> </font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> $count++;</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> print "#$count\n", join(" ", @first), "\n", join(" ", @second), "\n";</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> }</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> if($line eq "Pop"){</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> $work = 1;</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2"> }</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">}</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">__DATA__</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">Pop</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">001, 0303 0303 0101 1011 0304</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">002, 0303 0003 0101 0410 0405</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">003, 0303 0305 0101 1013 0304</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">004, 0103 0304 0102 0207 0104</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">005, 0303 0506 0101 0407 0405</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">006, 0303 0405 0101 0506 0405</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">007, 0303 0104 0101 0204 0305</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">008, 0303 0105 0101 0203 0304</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">009, 0303 0303 0101 1011 0404</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">010, 0303 0303 0101 0507 0405</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">Gra, 0203 0304 0202 0207 0105</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">Pop</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">050, 0103 0304 0102 0206 0105</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">051, 0103 0304 0202 0102 0105</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">052, 0303 0305 0102 0404 0507</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">053, 0103 0506 0202 0205 0105</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">054, 0303 0404 0101 0411 0405</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">055, 0103 0505 0202 0306 0102</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">056, 0303 0404 0101 0912 0304</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">057, 0303 0404 0102 0406 0105</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">Lev, 0303 0303 0202 0106 0105</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">Pop</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">078, 0303 0303 0101 0407 0405</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">079, 0303 0303 0101 0506 0405</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">080, 0203 0303 0102 0510 0405</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">081, 0303 0303 0101 0708 0404</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">082, 0101 0404 0202 0202 0101</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">Mod, 0303 0203 0102 0608 0105</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">Pop</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">011, 0303 0304 0102 0710 0405</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">002, 0103 0405 0102 0313 0104</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">003, 0303 0204 0202 0209 0405</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">004, 0303 0303 0101 1011 0404</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">005, 0303 0305 0101 0413 0405</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">006, 0101 0404 0202 0202 0101</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">007, 0303 0104 0101 0211 0304</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">008, 0303 0103 0101 0210 0304</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">009, 0303 0304 0102 0210 0405</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">010, 0303 0303 0101 0411 0405</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">011, 0303 0305 0102 0407 0405</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">012, 0101 0404 0202 0203 0101</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">013, 0303 0303 0101 0404 0404</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">014, 0303 0303 0101 0110 0405</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">015, 0103 0404 0202 0206 0101</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">016, 0303 0304 0202 0204 0305</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">017, 0303 0304 0202 0511 0407</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">018, 0103 0204 0202 0102 0105</font><br><font style="font-size: 10pt;" face="Franklin Gothic Medium" size="2">CTR, 0103 0304 0202 0210 0303</font><br>[/CODE]<br><font style="font-size: 12pt;" face="Arial" size="3"><br></font><font style="font-size: 12pt;" face="Arial" size="3">Bem, agradeço a todos, mas ainda digo que essa é so uma parte do programa... mas é a mais dificil.</font><br><br><br><br><br><br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">From: bruno.buss@gmail.com<br>Date: Sat, 31 Mar 2012 22:07:26 -0300<br>To: rio-pm@pm.org<br>Subject: Re: [Rio-pm] Mudando de formato<br><br><div class="ecxgmail_quote">2012/3/31 Aureliano Guedes <span dir="ltr"><<a href="mailto:guedes_1000@hotmail.com">guedes_1000@hotmail.com</a>></span><br><blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr">
Primeiro, sei que $_ é uma variavel especial, sei pra que serve, mas quando temos $_[0], $_[1] etc... isso é o mesmo que manipulação direta de array??<br></div></div></blockquote><div><br>Sim, no caso você está manipulando o array @_ ;)<br>
<a href="http://perldoc.perl.org/perlvar.html" target="_blank">http://perldoc.perl.org/perlvar.html</a><br> </div><blockquote class="ecxgmail_quote" style="padding-left:1ex"><div>
<div dir="ltr"><br>Outra duvida é quando temos @{alguma coisa}, por exemplo @{$_}... o que esse array com chaves quer dizer, digo, o que ele faz??<br></div></div></blockquote><div><br><a href="http://perldoc.perl.org/perlreftut.html" target="_blank">http://perldoc.perl.org/perlreftut.html</a> <br>
<br>[ ]'s<br></div></div>-- <br>Bruno C. Buss<br><a href="http://brunobuss.wordpress.com/" target="_blank">http://brunobuss.wordpress.com/</a><br><a href="http://www.dcc.ufrj.br/%7Ebrunobuss/" target="_blank">http://www.dcc.ufrj.br/~brunobuss/</a><br>
<br>_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm</div> </div></body>
</html>