hi,
you can simulate the ls and the grep commands in perl
with opendir/readdir and regexp
#
#!/usr/bin/perl -w
my $count=0;
my $file='none';
opendir(READDIR,'/tmp') or die "can't open dir : $!\n";
while ( defined($file = readdir(READDIR)) ) {
if ($file =~ /\.dpx/){
$
-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
Hello.
I have a very simple script to count a number of frames (files) in a
directory.
###
#start
###
#!/usr/bin/perl
$num ="1";
while ( $num = 1 )
{
$count = `ls -al|grep .dpx |wc -l`;
print "Frames in --> ";
