http://qs1969.pair.com?node_id=546821

sub class_own { my ($movie,$season) = @_; warn "class_own: $movie not in database" if !$movies{$movie}; my ($trash,$raw_season_num) = split(/ /,$season) if $season; my $season_num = $raw_season_num + 0 if $raw_season_num; for my $type_seasons ( split /;/, $movies{$movie}{format} ) { my ($type,$seasons) = split(/:/,$type_seasons); my @seasons = $seasons ? eval($seasons) : (); if (($type and !$season) || (grep( $_ == $season_num, @seasons))) +{ return qq( $type); } } return 'none'; }
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Phasellus sit amet elit enim, id feugiat ante. Vivamus non lorem a ante sollicitudin pharetra. Morbi sed lacus a nunc consequat gravida. Donec hendrerit, nibh id congue ultrices, mauris sem euismod diam, ut dictum eros sapien eu nulla. Praesent id nisl nunc. Nulla tristique laoreet sem in consequat. Nam luctus turpis libero. Vestibulum luctus laoreet neque eget tempus. Aliquam in libero ante, sit amet malesuada lorem. Sed imperdiet condimentum aliquam. Proin fermentum enim id diam sodales consequat.

Aliquam at arcu lacus, ac molestie risus. Quisque quis nisl ut lacus mollis luctus. Phasellus viverra elementum posuere. Nunc ac massa velit. Vivamus porttitor iaculis ultrices. Mauris arcu augue, vestibulum id luctus ac, sollicitudin vel leo. Suspendisse iaculis elit nec justo volutpat eu venenatis eros cursus. Morbi tempor lacus ut ante interdum porttitor. Maecenas mauris turpis, sodales at suscipit auctor, mattis vel nibh. Vestibulum blandit leo neque. Praesent euismod elit sed justo faucibus dapibus.

Nullam consequat mi quis leo porta vitae lacinia velit rutrum. Vivamus bibendum ornare nisi, ac dictum nulla placerat at. Nullam tempus pellentesque eros ac imperdiet. Aliquam ut ligula lorem, nec tincidunt leo. Aliquam nec massa sit amet felis gravida faucibus. Suspendisse euismod urna sed metus vehicula varius. Nullam sit amet elit eu nisl ullamcorper porta. Vestibulum aliquam sollicitudin venenatis. Curabitur blandit tempor ipsum, eget fringilla nisi pellentesque vitae. In feugiat tellus pellentesque quam eleifend eget accumsan nisi convallis. Nam posuere nulla vitae nunc suscipit ultricies. Vestibulum tincidunt adipiscing dignissim. Integer iaculis felis commodo libero rhoncus venenatis. Nullam laoreet fermentum quam accumsan euismod. Curabitur volutpat rutrum justo, eu convallis orci condimentum ut. Duis at orci diam, vel accumsan purus.

Nulla ac dui tortor, ac sagittis ante. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Morbi imperdiet, diam nec cursus semper, dolor ligula feugiat risus, id porttitor risus orci a lectus. Nam blandit nisl id sapien eleifend posuere. Pellentesque non justo nisl. Quisque in lectus justo. Nam venenatis libero sed arcu imperdiet tristique.

Vivamus facilisis nisi nec tortor euismod bibendum. Fusce scelerisque magna id lacus tristique iaculis. Ut et quam nisi, eget posuere tellus. Phasellus vel molestie magna. Donec et velit et enim scelerisque auctor id commodo libero. Nam nec urna vitae metus auctor accumsan aliquam sit amet nulla. Morbi et massa odio, vitae viverra tellus. חג כשר ושמח