<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>Pessoal.. <br>estou com um exemplo aqui.. e estou tentando modifica-lo:<br><br>#!/usr/bin/perl<br># Figure 12.7: fig12_07.pl<br># demonstrates the special format variables<br><br>use warnings;<br>use strict;<br>use English;<br><br>my @array=qw(23 345 56 67 67 78 89);<br><br>my $file = $ARGV[ 0 ];<br>my $file2 = $ARGV[ 1 ];<br>my $line;<br><br>&readfile($file);<br>&readfile($file2);<br><br>-------------------------------------------------------------<br>sub readfile<br>{<br><br>my($file)=@_;<br>open( FILE, $file ) or die( "Cannot open $file:: $!" );<br><br>$FORMAT_TOP_NAME = 'TOP';<br>$FORMAT_NAME = 'CORPO';<br>$-=0;<br>$%=0;<br> while ( $line = <FILE> ) <br> {<br> write();<br>
}<br>}<br><br>close( FILE ) or die( "Cannot close: $!" );<br><br><br><br><br>format TOP =<br>------------------------------------------------------------------<br>@>>>>>>>>>>>>> ~~<br>shift @array||''<br>------------------------------------------------------------------<br>.<br><br>format CORPO =<br>------------------------------------------------------------------<br>Line @<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<br> $., $line<br>~~
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<br> $line<br>.<br><br><br>Eu quero que saia a impressao do array(@array) quando ler tanto o 1 arquivo quando o 2...<br>e ele so aparece quando eu leio o 1 arquivo...<br><br>alguem pode me ajudar??<br><br><br>Obrigada<br><br><br><br><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>