Help for this page

Select Code to Download


  1. or download this
    my @priority = qw/RB1 RB2 FL1 FL2 QB1 QB2 TE1 WR1 WR2 DST/;
my $position = q{QB2}; 
...
# Process using regex with spaces removed
@priority = grep {!/$position/ } @priority; 
print join q{ }, @priority;
  2. or download this
    RB1 RB2 FL1 FL2 QB1 QB2 TE1 WR1 WR2 DST
RB1 RB2 FL1 FL2 QB1 QB2 TE1 WR1 WR2 DST
RB1 RB2 FL1 FL2 QB1 TE1 WR1 WR2 DST