Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Ordering of print statements

by BillKSmith (Monsignor)
on Jun 02, 2018 at 14:44 UTC ( [id://1215739]=note: print w/replies, xml ) Need Help??


in reply to Ordering of print statements

If all the lines are in an array, you could use grep to find each line. Arrange the tests in the order that you want the output.
C:\Users\Bill\forums\monks>type eshan_k.pl use strict; use warnings; my @text = do{undef $/; <DATA>}; my $line; ($line) = grep {/LumaIntraMode/} @text; if ($line =~ /\s*APP>\s*LumaIntraMode\s:(\w+),\suse_intrabc:(\d)/i) { print "Luma_mode = $1\n"; } ($line) = grep {/\sAPP\>\sIntraAngleDelta\s\:\s/} @text; if ($line =~ /\s*APP>\sIntraAngleDelta\s:\s(\d+)\s(\d+)/i) { print "Luma Angle : $1\n" } ($line) = grep {/ChromaIntraMode/} @text; if ($line =~ /\s*APP>\s*ChromaIntraMode\s\:(\w+)/i) { print "Chroma mode: $1\n"; } ($line) = grep {/ALPHA_U\:/} @text; if ($line =~ /\s*ALPHA_U: (\d+), ALPHA_V: (\d+), CFL_ALPHA_SIGN: (\d+) +/i) { print "CFL : $3\n"; } ($line) = grep {/\sAPP\>\sIntraAngleDelta\s\:\s/} @text; if ($line =~ /\s*APP>\sIntraAngleDelta\s:\s(\d+)\s(\d+)/i) { print "Chroma Angle : $2\n" } __DATA__ APP> LumaIntraMode :D45_PRED, use_intrabc:0 AED> Dif: 80369151, Rng: 34624, Cnt: 10, Ret: 6 AED> Dif: 642953215, Rng: 52408, Cnt: 7, Ret: 13 APP> ChromaIntraMode :UV_CFL_PRED AED> Dif: 22413311, Rng: 36032, Cnt: 2, Ret: 5 AED> Dif: 115632447, Rng: 63232, Cnt: 11, Ret: 3 APP> ALPHA_U: 48, ALPHA_V: 0, CFL_ALPHA_SIGN: 5, CFL_ALPHA_IDX: 48 APP> IntraAngleDelta : 3 0 C:\Users\Bill\forums\monks>perl eshan_k.pl Luma_mode = D45_PRED Luma Angle : 3 Chroma mode: UV_CFL_PRED CFL : 5 Chroma Angle : 0

Note: Minor corrections to several of the regexes and to the order of the tests.

Bill

Replies are listed 'Best First'.
Re^2: Ordering of print statements
by Eshan_k (Acolyte) on Jun 06, 2018 at 06:04 UTC
    Thank you Bill. It was very helpful.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1215739]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (9)
As of 2024-03-28 09:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found