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/..??
[perl] Perl-skrypt, find itp.? szybka pomoc..!!
- Rejestracja: dni
- Ostatnio: dni
0
- Rejestracja: dni
- Ostatnio: dni
0
w BASHu można zrobić to samą komendą find ;-) Myślę, że powinieneś się zainteresować modułem FILE. Konkretniej np. FILE::Find
- Rejestracja: dni
- Ostatnio: dni
0
wiem ze w bashu to banalnie proste jest, takowy skrypt mam. Czekam na dalsze porady;p
- Rejestracja: dni
- Ostatnio: dni
0
Czytaj ze zrozumieniem ;-) Poczytaj o FILE::Find
- Rejestracja: dni
- Ostatnio: dni
- Postów: 79
0
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.
- Rejestracja: dni
- Ostatnio: dni
0
A czy jestes w stanie napisać fragment tego skryptu tylko dla wyszukiwania plików ze struktury katalogów, byłbym niezmiernie wdzieczny, pozdrawiam
- Rejestracja: dni
- Ostatnio: dni
0
#!/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";
}
}
- Rejestracja: dni
- Ostatnio: dni
0
Już napisalem, ale wielkie dzieki za pomoc;p