Титла: Pak PERL problem za men Публикувано от: hipo в Aug 06, 2003, 00:01 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; Титла: Pak PERL problem za men Публикувано от: hipo в Aug 06, 2003, 09:25 Ima i razwitie. Zabelqzah che mi pokazwa s $#frame, che ima 6 zapisa w masiwa. Kogato izwikam $frame[3] mi izliza posledniqt ot @frame? Zashto e taka? Sortira li si? ili kakwo stawa, kak da mahna towa sortirane, ako ima?
|