Perl + Translate shell script syntax to perl + regular expression

Question

In my /var/tmp I have the following files:

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

With the following command I cut the first word of the files as follows:

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

I get:

AAA
BBB

How can I do the same thing with Perl in order to insert the "AAA" and "BBB" in to @RESULTS? For example:

@RESULTS=perl syntax ...

UUOG: sed -n "/FILE.xml/s/.FILE.*//p" – Ignacio Vazquez-Abrams Jul 15 '10 at 11:01 — Ignacio Vazquez-Abrams, Jul 15 '10 at 11:01
its not perl please see b0fh answer – yael Jul 15 '10 at 11:15 — yael, Jul 15 '10 at 11:15
And that's why it's not an answer. – Ignacio Vazquez-Abrams Jul 15 '10 at 11:30 — Ignacio Vazquez-Abrams, Jul 15 '10 at 11:30

score 3 · Accepted Answer · answered Jul 15 '10 at 10:37

3

Assuming you want to keep using the existing command, you could do

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

the chomp is to get rid of the trailing newline.

Without resorting to calling external commands:

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

answered Jul 15 '10 at 10:37

b0fh

2,275

THX very good I choose the second option in my perl script – yael Jul 15 '10 at 10:48
something else how to change your syntax in case the "-" not appears for example from AAA1FILE.xml it will return AAA1 – yael Jul 15 '10 at 11:07
You can replace that ls|grep|sed with sed -ne's/.FILE.*//p' /var/tmp – Evan Carroll Jul 29 '10 at 16:01

score 2 · Answer 2 · answered Jul 15 '10 at 11:00

2

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

answered Jul 15 '10 at 11:00

David Webb

12,036

score 2 · Answer 3 · edited Aug 08 '11 at 06:24

2

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

edited Aug 08 '11 at 06:24

Gareth

18,809

answered Jul 29 '10 at 15:56

jdporter

31
2

jdporter · Answer 4 · 2010-07-29T16:07:59.293

1

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

edited Jul 29 '10 at 16:07

answered Jul 29 '10 at 16:02

jdporter

31
2

score 1 · Answer 5 · answered Jul 29 '10 at 16:14

1

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

answered Jul 29 '10 at 16:14

Evan Carroll

8,895

Perl + Translate shell script syntax to perl + regular expression

5 Answers5