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

Rejestracja:prawie 17 lat
Ostatnio:ponad 16 lat

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/..??

lmmilewski

2008-08-07 17:28

lmmilewski2008-08-07 17:28

Rejestracja:ponad 19 lat
Ostatnio:około 14 lat

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

marass31

2008-08-07 19:40

marass312008-08-07 19:40

Rejestracja:prawie 17 lat
Ostatnio:ponad 16 lat

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

lmmilewski

2008-08-07 20:09

lmmilewski2008-08-07 20:09

Rejestracja:ponad 19 lat
Ostatnio:około 14 lat

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

mysz

2008-08-08 01:39

mysz2008-08-08 01:39

Rejestracja:ponad 18 lat
Ostatnio:prawie 9 lat
Postów:79

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.

marass31

2008-08-08 11:03

marass312008-08-08 11:03

Rejestracja:prawie 17 lat
Ostatnio:ponad 16 lat

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

lmmilewski

2008-08-08 13:47

lmmilewski2008-08-08 13:47

Rejestracja:ponad 19 lat
Ostatnio:około 14 lat

Kopiuj

#!/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";
    }
}