Search script der brukeren velger mappe å søke i.

[Decron]

Heisann!

 

Jeg kjører et linux-basert system. Og jeg ønsker meg en funksjon der jeg bare kan kjøre perl search.pl, og bli spurt om "Mappe å søke i" og "Søkestreng". Mappe å søke i kan feks være /home/bruker, men det kan like gått være en hvilken som helst annen mappe under /.

 

Er det mulig å få til?

 

Har prøvd litt forskjellig, men jeg finner ingen måte å "velge mappe å søke i".

 

På forhånd takk!

 

--

Erik N.

[sam2]

Hei,

skjønner ikke helt hva du mener her? Kan du ikke bare oppgi det som argumenter på kommando-linje og lese de ut av @ARGV inne i scriptet? Eller ville du ha et grafisk brukergrensesnitt på dette her?

Endret 13. oktober 2004 av sam2

[Torbjørn]

har du vært borti kommandoen find?

 

hvis ikke kan man bruke File::Find modulen til akkurat dette.

 

#!/usr/bin/perl
use strict;
use File::Find;

my $search = join ' ',@ARGV or die "No search parameter?`\n";

my @searchdirs = qw(
 /home/bruker
);

find( sub { print $File::Find::name,"\n" if /$search/  }, @searchdirs );