Jak uruchomić skrypt Perl na wielu plikach wejściowych o tym samym rozszerzeniu?

Question

Jak uruchomić skrypt Perl na wielu plikach wejściowych o tym samym rozszerzeniu?

perl scriptname.pl file.aspx 

szukam mieć go uruchomić dla wszystkich plików aspx w bieżącym katalogu

Dzięki!

Answer 1

W pliku Perl,

my @files = <*.aspx>; 
for $file (@files) { 

     # do something. 

} 

<*.aspx> nazywa się glob.

Answer 2

Jeśli używasz komputera z systemem Linux, możesz spróbować czegoś takiego.

for i in `ls /tmp/*.aspx`; do perl scriptname.pl $i; done 

Answer 3

można przekazać te pliki do perl z zamiennika

w skrypcie

foreach (@ARGV){ 
    print "file: $_\n"; 
    # open your file here... 
     #..do something 
    # close your file 
} 

na linii poleceń

$ perl myscript.pl *.aspx 

Answer 4

Można także przekazać ścieżkę gdzie masz Pliki aspx i czytać je jeden po drugim.

#!/usr/bin/perl -w 

use strict; 

my $path = shift; 
my @files = split/\n/, `ls *.aspx`; 

foreach my $file (@files) { 
     do something... 
} 

Answer 5

Można użyć glob wyraźnie, używać parametrów powłoki bez zależności znacznie na zachowanie powłoki.

for my $file (map {glob($_)} @ARGV) { 
    print $file, "\n"; 
}; 

Być może trzeba będzie kontrolować możliwość duplikacji nazwy pliku z rozszerzonymi parametrami.

Answer 6

Dla prostego jedną wkładką z -n lub -p, chcesz

perl -i~ -pe 's/foo/bar/' *.aspx 

-i~ mówi zmodyfikować każdy plik docelowy w miejscu i pozostawić oryginalny jako zapasową z ~ przyrostek dodawany do pliku Nazwa. (Pomiń przyrostek, aby nie zostawić kopii zapasowej, ale jeśli nadal uczysz się lub eksperymentujesz, to jest zły pomysł, usunięcie kopii zapasowych, gdy skończysz, jest znacznie mniej kłopotliwe niż przywracanie oryginałów z kopii zapasowej, jeśli coś zepsuć.)

Jeśli kod Perl jest zbyt skomplikowane dla jednej liniowej (lub po prostu na tyle użyteczny do ponownego wykorzystania) oczywiście zastąpić -e '# your code here' z scriptname.pl ... chociaż to może byłaby scriptname.pl więc, że akceptuje listę argumentów nazw plików, i po prostu użyj scriptname.pl *.aspx, aby uruchomić go na wszystkich plikach *.aspx w bieżącym katalogu.

Jeśli potrzebujesz powtórzyć strukturę katalogów i znaleźć wszystkie pliki o określonym wzorcu nazewnictwa, przydatne jest narzędzie find.

find . -name '*.aspx' -exec perl -pi~ -e 's/foo/bar/' {} + 

Jeśli Twój find nie obsługuje -exec ... + spróbować z -exec ... \; chociaż to będzie wolniejszy i uruchomić więcej procesów (po jednym w każdym pliku znajdziesz zamiast tak mało, jak to możliwe, aby przetworzyć wszystkie pliki).

jedynie zeskanować kilka katalogów, wymienić . (których nazwy bieżący katalog) z rozdzieloną spacjami listą z katalogów w celu zbadania, czy nawet użyć find znaleźć sobie (i to może badać -execdir do robienia czegoś w katalogach każdy katalog, który wybiera find ze złożoną, skomplikowaną, krytyczną z biznesowego punktu widzenia, może tajną listą predykatów opcji find).

Być może także przeglądaj find2perl, aby wykonać tę rekursję katalogu natywnie w Perlu.

Answer 7

Na przykład, aby obsłużyć perl scriptname.pl *.aspx *.asp

w Linuksie: Powłoka rozszerza symbole wieloznaczne, więc Perl może po prostu być

for (@ARGV) { 
    operation($_); # do something with each file 
} 

Windows nie rozwiązuj kwantyfikatorów więc rozwinąć symboli wieloznacznych w każdego argumentu w Perl jak następuje. Pętla for następnie przetwarza każdy plik w taki sam sposób jak powyżej

for (map {glob} @ARGV) { 
    operation($_); # do something with each file 
} 

na przykład, będzie to wydrukować rozszerzoną listę pod Windows

print "$_\n" for(map {glob} @ARGV);