[perl] Perl-skrypt, find itp.? szybka pomoc..!!

Witam, od wczoraj oswajam sie z PERLEM, i mam za zadanie napisać skrypt pod winde który wyszukuje konkretne pliki( np. z rozszerzeniem *.txt) z konkretnego katalogu( o podkatalogi też chodzi), a nastepnie wyszukane pliki kopiuje do wybranego katalogu. Napisalem taki skrypt w BASHU, było to zdecydowanie prostrze.. ma ktos jakas koncepcje i coś przydatnego/..??

w BASHu można zrobić to samą komendą find ;-) Myślę, że powinieneś się zainteresować modułem FILE. Konkretniej np. FILE::Find

wiem ze w bashu to banalnie proste jest, takowy skrypt mam. Czekam na dalsze porady;p

Czytaj ze zrozumieniem ;-) Poczytaj o FILE::Find

marass31 napisał(a)

Witam, od wczoraj oswajam sie z PERLEM, i mam za zadanie napisać skrypt pod winde który wyszukuje konkretne pliki( np. z rozszerzeniem *.txt) z konkretnego katalogu

glob ()

( o podkatalogi też chodzi)

foreach, opendir, readdir, i kilka ifów

, a nastepnie wyszukane pliki kopiuje do wybranego katalogu.

open (), sysread (), close () ? ew. File::Copy.

A czy jestes w stanie napisać fragment tego skryptu tylko dla wyszukiwania plików ze struktury katalogów, byłbym niezmiernie wdzieczny, pozdrawiam

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

my $dir = shift || ".";

find(\&process_file, $dir);

sub process_file() {
    if (/\.txt$/) {
	print $File::Find::name, "\n";
    }
}

Już napisalem, ale wielkie dzieki za pomoc;p