Regex in perl

Hi EEE

How do I write a regex in perl that trims each line at "] to the end of that line.

So my result file would look like:

0eef2427e-fdde-1341a-b5d1-1bc214721332451.pdf
0eef2427e-fdde-1341a-b5d1-1b24214721332451.pdf


Original file:
0eef2427e-fdde-1341a-b5d1-1bc214721332451.pdf"] was not found or subfolder ["DailyNews"] not created.
0eef2427e-fdde-1341a-b5d1-1b24214721332451.pdf"] was not found or subfolder ["GlobalServicesInc"] not created.
LuckyLucksAsked:
Who is Participating?
 
wilcoxonCommented:
More efficient (no capture - just removing the unwanted chars) would be this:
s{"\].*$}{};

Open in new window

0
 
Dan CraciunIT ConsultantCommented:
Use this:
's/(.*\.pdf).*/$1/'

or, if you really need to stop at the first "], use this:
s/(.*?)"\].*/$1/

HTH,
Dan
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.