также рекомендую почитать книгу Perl — Best Practices от O'Really
+ попробуйте perltidy, perlcritic
1.переменные в литералах с двумя кавычками могут интерполироваться
2.Сишный for(;;) замените на for my $n (1..4)
3.Проверяйте результат open/close: open my $IMG, '>', "../i/$nextFlyer.jpg" or die «cannot open file: $!»;
4.new GD::Image($thubmWidth,$thubmHeight,1); лучше будет GD::Image->new($thubmWidth,$thubmHeight,1);
+ попробуйте perltidy, perlcritic
1.переменные в литералах с двумя кавычками могут интерполироваться
2.Сишный for(;;) замените на for my $n (1..4)
3.Проверяйте результат open/close: open my $IMG, '>', "../i/$nextFlyer.jpg" or die «cannot open file: $!»;
4.new GD::Image($thubmWidth,$thubmHeight,1); лучше будет GD::Image->new($thubmWidth,$thubmHeight,1);
Напишите еще про то как создавать документы в OpenOffice'е и сохранять в формате MS Office, чтобы коллеги смогли прочти.
цены не будет.
$content = do { local $/; <$f> }
гляньте здесь
tkdocs.com/tutorial/widgets.html
в Linux/Solaris — свое.
$_='192.168.0.1';
$ip_is_valid = do{my($r,$x)=('^(\d+)'.('\.(\d+)'x3).'$',1);for(m/$r/gx){$x&=($_>=0&&$_<=255);}$x;};