How NOT to do it
file: code/BadExample/FindNewSeries.pm 34: sub find { 35: my ( $self, $html ) = @_; 36: my @data; 37: my $formatter = Number::Format->new; 38: my $feed = XML::Feed->parse( \$html ); 39: foreach my $item ( $feed->entries ) { 40: next unless $item->title =~ /\s1x1\s/ || $item->title =~ /s01e01/i; 41: next if $item->enclosure->length > 800_000_000; 42: next if $item->title =~ /720p/i; 43: push( 44: @data, 45: { 46: title => $item->title, 47: size => $formatter->format_bytes( $item->enclosure->length ), 48: url => $item->enclosure->url, 49: } 50: ); 51: } 52: return \@data if @data; 53: }
find s01e01