Readers: 79
1 2 3 4 5 6 7 8 9 10 11 12 13
use strict; use warnings package bla; my $xy; my $yz; no strict; no warnings; #... 1;
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#!/usr/bin/perl use strict; use warnings; # Testkäse ;) my @siz1 = Test::Img::CheckWH('<img src="abcdef.jpg">'); my @siz2 = Test::Img::CheckWH('<img src="abcdef.jpg" h=99 w=88>'); 1; package Test::Img; use warnings; sub CheckWH { my $str = shift; my ($h, $w) = $str =~ /h=(.+)\s+w=(.+)/; $h = '' if $h eq '*'; $w = '' if $w eq '*'; return ($h,$w); } 1;