>
> I don't know much about the problem you are asking for.
> But it seems to me that you're wrong when calling the
> subroutine wanted.
>
> # File::Find wanted function
> sub wanted;
>
It's actauilly not clling the routine it's declaring it. So it is valid perl but it's
not actually calling it.
perldoc perlsub
For details about what it does and why/when/where you can use it.
> It must be:
>
> # File::Find wanted function
> &wanted;
>
> Shouldn't it???
> -rm-
>
>
>
>
> ----- Original Message -----
> From: Shawn Wilson <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Thursday, February 27, 2003 11:06 AM
> Subject: image property testing... take II
>
>
> > ok, i have cleaned up the code, and fixed all of the
> mistakes that i
> > can
> > find, but i still can't get this tying to compile and run.
> and, my code
> > surely isn't written stout enough to handle a 'use strict'.
> if someone
> > could tell me what i am STILL doing wrong i'd appreciate
> it. The Code:
> >
> > #!/usr/bin/perl
> >
> > use warnings;
> > # use strict;
> > use File::Find;
> > use File::Remove qw(remove);
> > use Image::Info qw(image_info);
> > use File::Scan;
> >
> > # File::Find wanted function
> > sub wanted;
> >
> > # variables
> > our ( $file, $dir );
> > *file = *File::Find::name;
> > *dir = *File::Find::dir;
> >
> >
> > print "Where are the pictures/?";
> > chomp( my $indir = <STDIN> );
> >
> > File::Find::find(\&wanted, '$indir');
> > exit;
> >
> > sub wanted {
> > unless ($file =~ /\.jpg\z/ or
> > $file =~ /\.tif\z/ or
> > $file =~ /\.bmp\z/ or
> > $file =~ /\.png\z/ ) { # delete every file exept listed
> image types.
> > remove $file; }
> > else {
> > my $info = image_info(\$file); # the attributes of the image file
> > $type = $info->(file_ext); # three letter image type
> > $w = $info->(width); # pixel width
> > $h = $info->(height); # pixel height
> > $color = $info->(color_type) # color type
> > # delete small images
> > if( ($w < 200 and $h < 400) or ($w < 400 and $h < 200) ) {
> > remove $file;
> > }
> > # delete images that try to be a different type from what they say
> > if ($type ne 'bmp' or
> > $type ne 'jpg' or
> > $type ne 'png' or
> > $type ne 'tif') {
> > remove $file;
> > }
> > # delete all gray scale images
> > if ($color ne 'Gray' or
> > $color ne'GrayA') {
> > remove $file;
> > }
> > # check images for viruses
> > if ($scanres->scan(\$file) ) {
> > if( $scanres->suspicious) {
> > print "$file looks like it has a virus, delete/? /(Y//N/)";
> > remove $file if <STDIN> =~ /y|Y/;
> > }
> > }
> > }
> > }
> >
> >
> >
> > ..... and the errors:
> >
> > Unquoted string "width" may clash with future reserved word at
> > ./bigimg2.pl line 35.
> > Unquoted string "height" may clash with future reserved word at
> > ./bigimg2.pl line 36.
> > syntax error at ./bigimg2.pl line 39, near ") {"
> > syntax error at ./bigimg2.pl line 62, near "}"
> > Execution of ./bigimg2.pl aborted due to compilation errors.
> >
> >
> > --
> > To unsubscribe, e-mail: [EMAIL PROTECTED]
> > For additional commands, e-mail: [EMAIL PROTECTED]
> >
> >
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
