if,if and again,if

##################Setting category##########################
     
    
    if ($release_name =~ m/(Lz0|PLATO)/i) {
                    print "[INFO] Category : Apps\n";
                    $category = "Apps";
                #do smth
        
    }
    if ($release_name =~ m/(SKIDROW|POSTMORTEM|RELOADED|THETA|TiNYiSO|
+HI2U|TE|FLT|PROPHET|Unleashed|OUTLAWS|ALiAS|JAGUAR)/i)
{
                    print "[INFO] Category : Games\n";
                    $category = "Games";
                    #do smth
        
    }
    if ($release_name =~ m/(DVDRip.XviD|dvdrip.xvid|TS|CAM|R5.XviD)/i)
+ {
                    
    print "[INFO] Category : XviD\n";
                    $category = "XviD";
    #do smth
    }
    if ($release_name =~ m/BluRay.x264/i) {
                  
    print "[INFO] Category : HD x264\n";
                    $category = "HD x264";
    #do smth
    
    }
    
    if ($release_name =~ m/DVDR/i) {
                    
    print "[INFO] Category : XviD\n";
                    $category = "XviD";
    #do smth
    }
    
    if ($release_name =~ m/(BRRIP.x264|BRRIP x264)/i) {
                    
    print "[INFO] Category : XviD\n";
                    $category = "XviD";
                    #do smth
    }
    }
    if ($release_name =~ m/(BRRIP.XviD|BDRip.XviD)/i) {
                 
    print "[INFO] Category : XviD\n";
                    $category = "XviD";
        
    
    #do smth
    

    }

    if ($release_name =~ m/Update/i) {
                    print "[INFO] Category : Misc\n";
                    $category = "MIsc";
                    #do smth
    }
    if ($release_name =~ m/(HDTV.XviD|HDTV.x264|PDTV.x264)/i) {
    print "[INFO] Category : Episodes\n";
                    $category = "Episodes";

#do smth

    }
[download]

Instead of all those IFs ,how can i make this part of code shorter ?

Also,if $release_name is(ie) "The.Avengers.2012.720p.BluRay.x264.DTS-HDChina" ,when i run the script,i get:

[INFO] Category : XviD
[INFO] Category : HD x264
[download]

Matched xvid because of TS from DTS.I want it to match only INFO Category : HD x264

Many thanks in advance.

Comment on if,if and again,if Select or Download Code
Re: if,if and again,if by nemesdani (Friar) on Aug 21, 2012 at 09:29 UTC
With `or` for example. A . has a special meaning, by the way. Look it up. And this isn't a tutorial, you posted in the wrong section. And it's not elegant letting everybody know that you're dowloading films illegally. I'm too lazy to be proud of being impatient.	[reply] [d/l] [select]
Re^2: if,if and again,if by Anonymous Monk on Aug 21, 2012 at 09:44 UTC
And it's not elegant letting everybody know that you're dowloading films illegally. assume much? :)	[reply]
Re: if,if and again,if by cesapun (Acolyte) on Aug 21, 2012 at 09:49 UTC
I'm sorry for posting in the wrong section.Hope this topic can be moved. Also,i don't think that "or" can answer to my question Btw,i don't care if everybody knows that i'm a "pirate".Arhhh	[reply]
Re^2: if,if and again,if by Anonymous Monk on Aug 27, 2012 at 03:23 UTC
Us monks should not criticize what Perl is used for. Whther perl is for 1337 2p107z or ERP. The same way a mechanic shouldn't turn away a customer because the mechanic thinks the car was in a bank robbery because of stain on the pass seat.	[reply]
Re: if,if and again,if by moritz (Cardinal) on Aug 21, 2012 at 09:54 UTC
You can try a data-driven approach: `my @matchers = ( qr/(Lz0\|PLATO)/i, 'Apps', qr/(SKIDROW\|POSTMORTEM\|RELOADED\|THETA\|TiNYiSO\|HI2U\|TE\|FLT\|PROPHET\| +Unleashed\|OUTLAWS\|ALiAS\|JAGUAR)/i, 'Games', ... ); for (my $idx = 0; $i < @matchers; $i += 2) { if ($release_name =~ $matchers[$i]) } $category = $matchers[$i + 1]; print "[INFO] Category: $category"; last; # stop after the first category was found } } # code not tested` [download] Perl 6 - the future is here, just unevenly distributed	[reply] [d/l]
Re^2: if,if and again,if by cesapun (Acolyte) on Aug 21, 2012 at 10:54 UTC
Many thanks.That works. Close this.	[reply]
Re^2: if,if and again,if by Tanktalus (Canon) on Aug 23, 2012 at 17:57 UTC
Data-driven approaches FTW! Though I'd be tempted to do things a bit more perlishly (at least for my own definition of perlish): `my @matchers = ( [ qr/(Lz0\|PLATO)/i => 'Apps' ], ... ); for my $check (@matchers) { if ($release_name =~ $check->[0]) { $category = $check->[1]; print "[INFO] Category: $category\n"; last; } }` [download] Actually, a bit more perlish, IMO, would be to replace that for loop altogether: `use List::Util qw(first); my $category = map { $_ ? $_->[1] : undef; } first { $release_name =~ $_->[0]; } @matchers; if ($category) { print "[INFO] Category: $category\n"; } else { print "[ERROR] Unrecognised release type: $release_name\n"; }` [download] But maybe that's just me. :-)	[reply] [d/l] [select]
Re^3: if,if and again,if by moritz (Cardinal) on Aug 23, 2012 at 18:04 UTC
If we go all perlish, I'd get rid of the ugly map with a ternary :-). Either `my $category = first { ... } ... ; if ($category) { $category = $category->[1]; print "[INFO] Category: $category\n"; }` [download] Or if you insist on a map on a one-element list, write it as `map $_->[1], grep $_, first { .... } ...;` [download] IMHO several simple operations are easier to read than a few complicated ones. Perl 6 - the future is here, just unevenly distributed	[reply] [d/l] [select]


No such thing as a small change
	PerlMonks

if,if and again,if

The best material for plates (tableware) is: