[Ajuda]Correcção Codigo Perl

[andrebarradas]

Código: Seleccionar todos

my $glob = "*.{$ARGV[1]}";
if ($#ARGV == 2) {$glob = "*.{$ARGV[1]} *.{$ARGV[2]}";}
if ($#ARGV == 3) {$glob = "*.{$ARGV[1]} *.{$ARGV[2]} *.{$ARGV[3]}";}

print " $glob \n";
my @Globarray = glob($glob);
print " @Globarray \n";

pffffffffff

diz-me quantos argumentos podem entrar.pelo que me parece so podem entrar no maximo 4,a directoria e 3 extensoes nao?

[LuisFilipe]

diz-me quantos argumentos podem entrar.pelo que me parece so podem entrar no maximo 4,a directoria e 3 extensoes nao?

Pobre e mal agradecido
Isto funciona o que acho um marco ...
Agora se queres usar um for ou o que seja e ir concatenando aquelas tretas...
e podes sempre aumentar a coisa à bruta ...

Código: Seleccionar todos

my $glob = "*.{$ARGV[1]}";
if ($#ARGV == 2) {$glob = "*.{$ARGV[1]} *.{$ARGV[2]}";}
if ($#ARGV == 3) {$glob = "*.{$ARGV[1]} *.{$ARGV[2]} *.{$ARGV[3]}";}
if ($#ARGV == 4) {$glob = "*.{$ARGV[1]} *.{$ARGV[2]} *.{$ARGV[3]} *.{$ARGV[4]}";}
if ($#ARGV == 5) {$glob = "*.{$ARGV[1]} *.{$ARGV[2]} *.{$ARGV[3]} *.{$ARGV[4]} *.{$ARGV[5]}";}
if ($#ARGV == 6) {$glob = "*.{$ARGV[1]} *.{$ARGV[2]} *.{$ARGV[3]} *.{$ARGV[4]} *.{$ARGV[5]} *.{$ARGV[6]}";}

print " $glob \n";
my @Globarray = glob($glob);
print " @Globarray \n";

Que nojo

[andrebarradas]

diz-me quantos argumentos podem entrar.pelo que me parece so podem entrar no maximo 4,a directoria e 3 extensoes nao?

Pobre e mal agradecido
Isto funciona o que acho um marco ...
Agora se queres usar um for ou o que seja e ir concatenando aquelas tretas...
e podes sempre aumentar a coisa à bruta ...

Código: Seleccionar todos

my $glob = "*.{$ARGV[1]}";
if ($#ARGV == 2) {$glob = "*.{$ARGV[1]} *.{$ARGV[2]}";}
if ($#ARGV == 3) {$glob = "*.{$ARGV[1]} *.{$ARGV[2]} *.{$ARGV[3]}";}
if ($#ARGV == 4) {$glob = "*.{$ARGV[1]} *.{$ARGV[2]} *.{$ARGV[3]} *.{$ARGV[4]}";}
if ($#ARGV == 5) {$glob = "*.{$ARGV[1]} *.{$ARGV[2]} *.{$ARGV[3]} *.{$ARGV[4]} *.{$ARGV[5]}";}
if ($#ARGV == 6) {$glob = "*.{$ARGV[1]} *.{$ARGV[2]} *.{$ARGV[3]} *.{$ARGV[4]} *.{$ARGV[5]} *.{$ARGV[6]}";}

print " $glob \n";
my @Globarray = glob($glob);
print " @Globarray \n";

Que nojo

lol não e uma questao de ser pobre e mal agradecido,mas se nao faz nada do que pretendo.se quiser procurar 50 extensoes tou feito lol

[LuisFilipe]

Código: Seleccionar todos

#!/usr/bin/perl -w
use strict;

#Verificar se entrou pelo menos 2 argumentos
if (@ARGV < 2) {die("Tem de colocar pelo menos2 argumentos(1ºdir,2º e restantes ext)");}

#Verificar se o primeiro argumento é directoria
if (!-d $ARGV[0]) {die("Primeiro argumento tem de ser directoria");}

#construir filtro com a função glob

Código: Seleccionar todos

my $glob = "*." . join (" *.", @ARGV[1..$#ARGV]);
print "$glob \n";

Código: Seleccionar todos

my @Globarray = glob($glob);
print " @Globarray \n";

Testado (agora diz obrigado)...
A alteração é só a parte do meio...
Agora copias e apresentas ao professor e não aprendeste nada nem sabes como e onde aprender (assim vai Portugal...)