topic Re: perl regular expressions help in Operating System - Linux

perl regular expressions help

Junior C. — Sun, 27 Jan 2008 19:12:29 GMT

I have a text file consist of the following.
/usr/bin/file1.txt
/home/user/file2.txt
/sbin/init.d/file3.txt
.
.
/etc/opt/file20.txt

I wan't read the file and send the following output to text file or array.

/usr/bin
/home/user
/sbin/init.d
.
.
/etc/opt

Appreciate all help.

Thanks,

JC

Re: perl regular expressions help

Matti_Kurkela — Sun, 27 Jan 2008 21:04:07 GMT

You don't even need perl for that - it's easy enough with shell scripting:

#!/bin/sh
while read PATHNAME
do
dirname "$PATHNAME"
done

Pipe in the input file and redirect the output to wherever you want:

sh script.sh outputfile.txt

MK

Re: perl regular expressions help

Stuart Browne — Sun, 27 Jan 2008 21:46:18 GMT

perl -n -e 'm#(.*/).*# and print $1 . "\n"' yourfile > outfile

A perl solution.

Re: perl regular expressions help

James R. Ferguson — Sun, 27 Jan 2008 23:52:19 GMT

Hi JC:

Yet another Perl solution:

# perl -MFile::Basename -nle 'print dirname($_)' filenames

Regards!

...JRF...