|
|
| Тема |
 Perl problem za men |
|
| Автор | hipo (Нерегистриран) | |
| Публикувано | 06.08.03 00:00 |
|
|
|
Ucha se da pisha na perl i stignah do edna zadynena ulica. Ako moje nqkoi da mi pomogne shte sym mu blagodaren. Situaciqta e slednata. Otwarqm edin fail dwoichen. Smenqm razelitelq za zapisi i se mucha da obrabotq wseki zapis. Dobre, no problema e tam, che towa koeto sym napisal i tam kydeto izwejdam na ekrana, celiq masiv mi wadi che e s 6 elementa, kato dam da pokaje celiq masiv go pokazwa, no otdelnite elementi ne gi pokazwa. Molq wi kajete mi kade mi e problema. Eto go i source-a
open ( FILE, 'temp.db' ) or die "Couldn't open file temp.db, $!";
binmode( FILE );
$AC=chr(0x3A).chr(0x22);
$/="$AC";
while ( <FILE> )
{
read( FILE, $header, 6 );
@frame=split(//,$header);
print "@frame - $frame[5] \n" ;
}
close FILE;
| |
| |
| 
|
|
