• Als Spam markieren
• Beitrag melden

• 
  Diese Gruppe Alles

• Archiv
• RSS-Feeds

• Kontakt
• Hilfe
• Impressum
• Datenschutz

How can I check if a string belongs to a string array

Hi,

I need a function to check if a file has the right extension

my @validExt = (".exe", ".mui", ".dll" );
sub IsValidExt
{
??????
}

Here is my script  :


opendir MYDIR, ".";
my @contents = grep !/^\.\.?$/, readdir MYDIR;
my @validExt = (".exe", ".mui", ".dll" );

foreach my $listitem ( @contents )
{
$extension = substr( $listitem, rindex( $listitem, '.' ) + 1 );
$filesize = stat($listitem)->size;
$totalsize += $filesize;
my @args = ($DumpBin, $listitem );


#System need to be called if file has valid extension !!!!!!!!!!!!!

????
system(@args) == 0 or die "system @args failed: $?";



print "\\Program Files\\Voxmobili\\Voxsync\\", $listitem, ";",
$extension, ";", $filesize;
print ";", ";", ";", ";", ";",
"\n";
}

Antworten