Perl + Przetłumacz składnię skryptu powłoki na perl + wyrażenie regularne

1

W moim /var/tmpmam następujące pliki:

 ls | grep FILE
   AAA-FILE.xml
   BBB-FILE.xml

Za pomocą następującego polecenia wycinam pierwsze słowo plików w następujący sposób:

ls /var/tmp | grep FILE.xml | sed "s/.FILE.*//"

Dostaję:

AAA
BBB

Jak mogę zrobić to samo z Perlem, aby wstawić „AAA” i „BBB” do @RESULTS? Na przykład:

@RESULTS=perl syntax ...

perl Yael
źródło

1

UUOG:sed -n "/FILE.xml/s/.FILE.*//p"

Ignacio Vazquez-Abrams

to nie jest perl, proszę zobaczyć odpowiedź

b0fh

1

I dlatego nie jest to odpowiedź.

Ignacio Vazquez-Abrams

3

Zakładając, że nadal chcesz używać istniejącego polecenia, możesz to zrobić

my @results = `ls /var/tmp | grep FILE.xml | sed "s/.FILE.*//"`;
chomp for @results;

Chomp polega na pozbyciu się nowej linii.

Bez uciekania się do wywoływania zewnętrznych poleceń:

my @results;
opendir DIR,"/var/tmp" or die "Cannot open dir: $!";
for (readdir DIR) {
    /(.*)-FILE.*/ or next;
    push @results, $1;
}
closedir DIR;

b0fh
źródło

THX bardzo dobrze Wybieram drugą opcję w moim skrypcie perl

yael

coś jeszcze, jak zmienić składnię w przypadku, gdy „-” nie pojawia się na przykład z AAA1FILE.xml, zwróci AAA1

yael

Można zastąpić to ls|grep|sedzsed -ne's/.FILE.*//p' /var/tmp

Evan Carroll

2

@RESULTS = grep(s[/var/tmp/(.*)-FILE.xml][$1],</var/tmp/*>);

Dave Webb
źródło

2

@RESULTS = map /(.*)-FILE\.xml$/, <*-FILE.xml>;

jdporter
źródło

1

@RESULTS = map m#/var/tmp/(.*)-FILE.xml#, </var/tmp/*-FILE.xml>;

jdporter
źródło

1

perl -nE'next unless s/-FILE.*//; push state @lines, $_; die @lines if eof;' /var/tmp

Evan Carroll
źródło

Perl + Przetłumacz składnię skryptu powłoki na perl + wyrażenie regularne

Odpowiedzi: