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

Odpowiedz Nowy wątek
2008-08-07 19:09
0

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

Pozostało 580 znaków

2008-08-07 19:28
0

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


Pozostało 580 znaków

2008-08-07 21:40
0

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

Pozostało 580 znaków

2008-08-07 22:09
0

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


Pozostało 580 znaków

2008-08-08 03:39
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.


Pozostało 580 znaków

2008-08-08 13:03
0

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

Pozostało 580 znaków

2008-08-08 15:47
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";
    }
}

Pozostało 580 znaków

2008-08-09 10:58
0

Już napisalem, ale wielkie dzieki za pomoc;p

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0