1. /usr/bin/find /home/belette//?/?/ -type f -name "*.log" -exec /usr/bin/stat -c "%s %n" {} \;

#! C:\Perl\bin\perl.exe -w
    eval 'exec C:\Perl\bin\perl.exe -S $0 ${1+"$@"}'
        if 0; #$running_under_some_shell
 
use strict;
use File::Find ();
 
# Set the variable $File::Find::dont_use_nlink if you're using AFS,
# since AFS cheats.
 
# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir *prune/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
*prune  = *File::Find::prune;
 
sub wanted;
sub doexec ($@);
 
 
use Cwd ();
my $cwd = Cwd::cwd();
 
 
# Traverse desired filesystems
File::Find::find({wanted => \&wanted}, '/home/belette//?/?/');
exit;
 
 
sub wanted {
    my ($dev,$ino,$mode,$nlink,$uid,$gid);
 
    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
    -f _ &&
    /^.*\.log\z/s &&
    doexec(0, '/usr/bin/stat','-c','%s %n','{}','\;');
}
 
 
sub doexec ($@) {
    my $ok = shift;
    my @command = @_; # copy so we don't try to s/// aliases to constants
    for my $word (@command)
        { $word =~ s#{}#$name#g }
    if ($ok) {
        my $old = select(STDOUT);
        $| = 1;
        print "@command";
        select($old);
        return 0 unless <STDIN> =~ /^y/;
    }
    chdir $cwd; #sigh
    system @command;
    chdir $File::Find::dir;
    return !$?;
}

#!/usr/bin/perl
use strict;
use warnings;
 
use File::Find;
 
my $level = -1;
sub wanted {
  if (-d) {
    $level++;
    if (($level > 2) or (!/^.$/o)) {
      $File::Find::prune = 1;
    }
    else {
      $File::Find::prune = 0;
    }
    $level--;
  }
  if (-f) {
    if (($level == 2) and (/\.log$/o)) {
      my $fsize = (stat($_))[7];
      print "$fsize octets $File::Find::name\n"; # a adapter a son format voulu
    }
  }
}
 
 
File::Find::find({wanted => \&wanted,
          preprocess =>  sub {$level++; return @_},
          postprocess => sub {$level--}}, '/home/belette');

#!/usr/bin/perl
use strict;
use warnings;
 
use File::Find;
 
my $level = -1;
sub wanted {
  if (-d) {
    $level++;
    if ((!/^.$/o)) {
      $File::Find::prune = 1;
    }
    else {
      $File::Find::prune = 0;
    }
    $level--;
  }
  if (-f) {
    if (($level >= 2) and (/\.log$/o)) {
      my $fsize = (stat($_))[7];
      print "$fsize octets $File::Find::name\n"; # a adapter a son format voulu
    }
  }
}
 
 
File::Find::find({wanted => \&wanted,
          preprocess =>  sub {$level++; return @_},
          postprocess => sub {$level--}}, '/home/belette');